1 ' Tour De Force
2 ' By Graham Smith
3 ' Infinite lives
4 ' Prevents overheating
5 ' Method 1
6 '
10 FOR j=0 TO 54:READ a$
20 x=VAL("&"+a$):y=y+x
30 POKE j+96,x:NEXT j
40 IF y=5336 THEN CALL 96
50 PRINT"DATA ERROR
60 DATA 06,00,11,70,01,cd
70 DATA 77,bc,cd,ff,bb,3e
80 DATA 09,32,98,01,0e,c0
90 DATA cd,89,01,21,14,6b
100 DATA 22,d2,01,4c,c3,a8
110 DATA 01,21,88,00,22,5f
120 DATA b9,c3,00,b9,3e,c9
130 DATA 32,fa,42,32,54,3a
140 DATA af,32,d6,33,c3,00
150 DATA 04