1 :'Wizard's Lair Tape
10 FOR n=0 TO 9
20 b=0
30 FOR q=0 TO 7
40 READ a$:a=VAL("&"+a$)
50 x=(&A000+n*8+q):POKE x,a:b=b+a
60 NEXT q
70 READ a$:c=VAL("&"+a$)
80 IF b<>c THEN PRINT"Error in line";n*10+90:END:ELSE NEXT n
90 MODE 1:PRINT"Start Wizard's Lair Tape":CALL &A000
100 DATA 3e,01,cd,6b,bc,21,41,a0,335
110 DATA 06,05,11,00,4b,cd,77,bc,267
120 DATA 21,00,4b,11,00,55,3e,02,112
130 DATA cd,83,bc,cd,7a,bc,21,46,476
140 DATA a0,06,05,11,00,01,cd,77,201
150 DATA bc,21,00,01,11,bf,49,3e,235
160 DATA 02,cd,83,bc,cd,7a,bc,af,4c0
170 DATA 32,f5,26,32,6c,12,c3,00,2c0
180 DATA 01,4c,61,69,72,32,4c,61,268
190 DATA 69,72,31,00,00,00,00,00,10c