1 :' MASK --TAPE--
2 :' By Graham Smith
3 :' Method 1
4 :' Infinite time
5 :' Infinite bombs
6 :' No damage to thunderhawk
10 FOR j=0 TO 44:READ a$
20 POKE 96+j,VAL("&"+a$)
30 NEXT j:CLS:CALL 109
40 DATA af,32,03,a9,32,29,8b,32
50 DATA a3,91,c3,7d,04,06,00,11
60 DATA 70,01,cd,77,bc,cd,ff,bb
70 DATA 3e,09,32,98,01,0e,c0,cd
80 DATA 89,01,21,0b,6b,22,fa,01
90 DATA 0e,6b,c3,a8,01

10 MODE 2:GOSUB 110
20 PRINT"Insert MASK disk..."
30 PRINT"(WRITE PROTECT OFF)"
40 CALL &BB18
50 INPUT"Normal (y/n)";a$
60 IF a$<>"y" THEN 80
70 POKE &800C,&3D
80 CALL &8000
90 POKE &8011,&3F
100 CALL &8000:ùCPM:END
110 FOR n=&8000 TO &8013
120 READ a$:a=VAL("&"+a$)
130 c=c+a:POKE n,a
140 NEXT:IF c<>1437 THEN 200
150 RETURN
160 DATA 21,00,40,11,00,12
170 DATA 0e,11,df,11,80,3e
180 DATA a7,32,67,40,c9,3c
190 DATA c0,07
200 PRINT"Error...":END