How do I share a virtual array with a SUB ?
Dim Virtual SCRN(1) AS String * 8000
SUB SCRNSAVE
IF BIT(pbvScrnCard,0) THEN Addr& = &hB000 ELSE Addr& = &hB800
DEF SEG = Addr&
SaveBytes% = pbvScrnRows * pbvScrnCols * 2
SCRN(1)=PEEK$(0,SAVEBYTES%)
DEF SEG
END SUB
I have tried the SHARE command as
SHARE SCRN()
What am I doing wrong ?
Dim Virtual SCRN(1) AS String * 8000
SUB SCRNSAVE
IF BIT(pbvScrnCard,0) THEN Addr& = &hB000 ELSE Addr& = &hB800
DEF SEG = Addr&
SaveBytes% = pbvScrnRows * pbvScrnCols * 2
SCRN(1)=PEEK$(0,SAVEBYTES%)
DEF SEG
END SUB
I have tried the SHARE command as
SHARE SCRN()
What am I doing wrong ?
Comment