1 :' Supertest Day I - disk
2 :' by J.P. Garner
10 MEMORY &7FFF
20 LOAD "loadr1",&8000
30 POKE &8007,&77
40 POKE &8020,&60
50 DATA cd,3f,c0,3e,3a
60 DATA 32,9f,02,c9,end
70 a=&806E
80 READ b$
90 IF b$="end" THEN GOTO 120
100 POKE a,VAL("&"+b$):a=a+1
110 GOTO 80
120 MODE 1
130 DATA 21,00,e0,11,92,8b
140 DATA 01,18,00,ed,b0,c9,end   
150 DATA 4d,49,47,48,54,59
160 DATA 20,4a,4f,45,20,10
170 DATA 00,00,43,2e,4f,2e
180 DATA 44,2e,45,2e,20,20,end
190 a=&8076
200 READ b$
210 IF b$="end" THEN GOTO 240
220 POKE a,VAL("&"+b$)
230 a=a+1:GOTO 200
240 a=&E000
250 READ b$
260 IF b$="end" THEN GOTO 290
270 POKE a,VAL("&"+b$)
280 a=a+1:GOTO 250
290 CALL &8000
300 END