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;
}