dim a(20)
data 0,1,2,3,4,5,6,7,8,9
data 10,11,12,13,14,15,16,17,18,19

for i=0 to 13
read a(i)
next i
readmydata
for i=14 to 19
read a(i)
next i
for i = 0 to 19
if a(i)<>i then print i,"WTF",a(i)
next i
end
sub readmydata
local s$(7)
local i
read save
restore testlabel
for i=0 to 6
read s$(i)
next i
read restore
for i = 0 to 6
print s$(i);
next i
print ""
end sub

testlabel:
data b,c,d,e,f,g,h

void cmd_read(void) {
int i, j, k, len, card;
unsigned char *p, datatoken, *lineptr = NULL, *ptr;
int vcnt, vidx, num_to_read = 0;
static unsigned char* SaveNextDataLine = ProgMemory;
static int SaveNextData = 0;
if (checkstring(cmdline, (unsigned char*)"SAVE")) {
SaveNextDataLine = NextDataLine;
SaveNextData = NextData;
return;
}
if (checkstring(cmdline, (unsigned char*)"RESTORE")) {
NextDataLine = SaveNextDataLine;
NextData = SaveNextData;
return;
}

static char* SaveNextDataLine = NULL;
static int SaveNextData = 0;
if (checkstring(cmdline, (char*)"SAVE")) {
SaveNextDataLine = NextDataLine;
SaveNextData = NextData;
return;
}
if (checkstring(cmdline, (char*)"RESTORE")) {
NextDataLine = SaveNextDataLine;
NextData = SaveNextData;
return;
}

   getargs(&cmdline, (MAX_ARG_COUNT * 2) - 1, ",");                // getargs macro must be the first executable stmt in a block
   if(SaveNextDataLine == NULL)SaveNextDataLine = ProgMemory;

?"SOUND: ";
?MM.INFO(SOUND)
?"MAX PAGES: ";
?MM.INFO(MAX PAGES)
?"PAGE ADDRESS: ";
'?MM.INFO(PAGE ADDRESS)
?"FRAMEBUFFER: ";
?MM.INFO(FRAMEBUFFER)
?"DIRECTORY: ";
?MM.INFO(DIRECTORY)
?"EXISTS FILE: ";
'?MM.INFO(EXISTS FILE)
?"EXISTS DIR: ";
'?MM.INFO(EXISTS DIR)
?"OPTION AUTORUN: ";
?MM.INFO(OPTION AUTORUN)
?"OPTION EXPLICIT: ";
?MM.INFO(OPTION EXPLICIT)
?"OPTION BASE: ";
?MM.INFO(OPTION BASE)
?"PROGRAM: ";
?MM.INFO(PROGRAM)
?"AUTORUN: ";
?MM.INFO(AUTORUN)
?"DEVICE): ";
?MM.INFO(DEVICE) ' (same as MM.DEVICE$)
?"DEFAULT PATH: ";
?MM.INFO(DEFAULT PATH)
?"VERSION: ";
?MM.INFO(VERSION) ' (same as MM.VER)
?"VARCNT: ";
?MM.INFO(VARCNT)
?"CURRENT: ";
?MM.INFO(CURRENT)
?"FONTWIDTH: ";
?MM.INFO(FONTWIDTH)
?"FONTHEIGHT: ";
?MM.INFO(FONTHEIGHT)
?"FILESIZE: ";
'?MM.INFO(FILESIZE)
?"SYNTAX ERROR"
?"FONTCOUNT: ";
?MM.INFO(FONTCOUNT) ' (how many chars are available in current font)
?"WIDTH: ";
?MM.INFO(WIDTH)
?"HEIGHT: ";
?MM.INFO(HEIGHT)
?"HPOS: ";
?MM.INFO(HPOS)
?"VPOS: ";
?MM.INFO(VPOS)
?"FCOLOUR: ";
?MM.INFO(FCOLOUR)
?"BCLOUR: ";
?MM.INFO(BCOLOUR)
?"FRAMEH: ";
?MM.INFO(FRAMEH)
?"FRAMEV: ";
?MM.INFO(FRAMEV)
?"WRITEPAGE: ";
'?MM.INFO(WRITEPAGE)
?"syntax error"
?"FONT: ";
?MM.INFO(FONT)
?"ERRNO: ";
?MM.INFO(ERRNO)
?"ERRMSG: ";
'?MM.INFO(ERRMSG)
?"CRASHES THE PROGRAM"
?"OPTION BREAK: ";
?MM.INFO(OPTION BREAK)

end

MM.INFO(FILESIZE) gives syntax error
-MM.INFO(WRITEPAGE) gives syntax error