1 :'Starfox
2 :'by Phil Howard
3 :'infinite energy
4 :' 371
10 DATA 21,37,BD,36,C3,23
20 DATA 36,36,23,36,BE,21
30 DATA 70,0D,36,C3,23,36
40 DATA 19,23,36,BE,C3,00
50 DATA 0D,32,46,A1,14,7A
60 DATA FE,1D,28,01,E9,E5
70 DATA 21,70,0D,36,32,23
80 DATA 36,46,23,36,A1,21
90 DATA 3E,01,36,C3,E1,E9
100 DATA 21,3F,BE,22,8D,01
110 DATA C3,4B,01,21,00,00
120 DATA 22,7D,6C,C3,00,FF
130 OPENOUT"W":MEMORY &CFF
140 MODE 1:y=0
150 FOR x=&BE00 TO &BE47
160 READ a$:a=VAL("&"+a$)
170 POKE x,a:y=y+a:NEXT
180 IF y<>&17EA THEN 210
190 LOAD"starfox1"
200 CALL &BE00
210 PRINT"data error!"

10 OPENOUT"d":MEMORY &CFF
20 CLOSEOUT:LOAD"STARFOX1"
30 FOR n=&BE00 TO &BE55
40 READ a$:a=VAL("&"+a$)
50 c=c+a:POKE n,a:NEXT
60 IF c<>7379 THEN 240
70 POKE &D70,&C3:POKE &D71,0
80 POKE &D72,&BE:CALL &D00
90 DATA 32,46,a1,3a,32,a1
100 DATA fe,1d,28,02,14,e9
110 DATA e5,21,3a,01,36,c3
120 DATA 23,36,26,23,36,be
130 DATA 21,70,0d,36,32,23
140 DATA 36,46,23,36,a1,e1
150 DATA 14,e9,2a,5f,01,22
160 DATA 80,be,2a,60,01,22
170 DATA 81,be,21,5f,01,36
180 DATA c3,23,36,43,23,36
190 DATA be,3a,37,bd,c3,3d
200 DATA 01,cd,00,18,21,4f
210 DATA be,22,8d,01,c3,62
220 DATA 01,af,32,43,1d,c3
230 DATA 00,ff
240 PRINT"Error...":END