1 :' Thunderbirds -disk
2 :' By Graham Smith
3 :' Stops counter
4 :' 307
10 FOR j=0 TO 77:READ a$
20 x=VAL("&"+a$):y=y+x
30 POKE j+99,x:NEXT j
40 IF y<>6185 GOTO 100
50 MODE 1:PRINT"Insert ";
60 PRINT"game disc then ";
70 PRINT"press any key"
80 CALL 47896:CALL 100
90 GOTO 50
100 PRINT"DATA ERROR
110 DATA 84,21,63,00,cd,d4
120 DATA bc,79,22,60,00,32
130 DATA 62,00,21,00,01,11
140 DATA 00,00,0e,41,df,60
150 DATA 00,21,85,00,22,86
160 DATA 01,c3,00,01,21,c1
170 DATA 01,36,c3,23,36,92
180 DATA 23,36,00,18,f0,21
190 DATA 31,6e,7e,fe,21,28
200 DATA 11,21,e5,5f,fe,fe
210 DATA 28,0a,21,af,57,fe
220 DATA 01,28,03,21,2f,57
230 DATA 36,c9,2a,05,01,e9