1 :'incredible shrinking sphere.
2 :'
3 :'infinite lives
4 :'
10 DATA 21,fa,ac,36,c3,23
20 DATA 36,0e,23,36,be,c3
30 DATA 00,ac,c4,14,ac,21
40 DATA 19,be,22,2f,27,fb
50 DATA c9,3e,7e,32,54,07
60 DATA c3,80,9f,21,7f,41
70 DATA 36,8f,21,cc,41,36
80 DATA b3,21,2c,42,36,f9
90 DATA c3,05,40
100 y=0: MEMORY &3FFF
110 FOR x=&BE00 TO &BE32
120 READ a$:a=VAL("&"+a$)
130 POKE x,a:y=y+a:NEXT
140 IF y<>&1413 THEN 170
150 LOAD""
160 CALL &BE21
170 PRINT"data error!"