1 :'dynamic duo
2 :'
3 :'infinite lives
4 :'
10 DATA C5,E5,F5,06,F6,ED
20 DATA 78,FE,00,28,06,F1
30 DATA E1,C1,C3,00,00,F3
40 DATA 2A,0F,BE,22,39,00
50 DATA 21,34,BE,22,a0,01
60 DATA 18,EB,CD,4C,3F,2A
70 DATA 39,00,22,0F,BE,F3
80 DATA 21,00,BE,22,39,00
90 DATA FB,C3,00,3e,3e,c9
100 DATA 32,0e,0d,c3,85,04
150 y=0:MEMORY &2000
160 FOR x=&BE00 TO &BE3B
170 READ a$:a=VAL ("&"+a$)
180 POKE x,a:y=y+a:NEXT
190 IF y<>&1813 THEN 220
200 LOAD"duo1"
210 CALL &BE20
220 PRINT"data error!"