1 :'GI HERO
2 :'by Phil Howard
3 :'INFINITE ENERGY
4 :' 353
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,bf,22,39,00
50 DATA 21,34,bf,22,b4,01
60 DATA 18,eb,cd,4c,3f,2a
70 DATA 39,00,22,0f,bf,f3
80 DATA 21,00,bf,22,39,00
90 DATA fb,c3,00,3e,af,32
100 DATA 98,56,32,26,56,32
110 DATA e8,48,c3,29,72
120 MEMORY &3000:y=0
130 FOR x=&BF00 TO &BF40
140 READ a$:a=VAL("&"+a$)
150 POKE x,a:y=y+a:NEXT
160 IF y<>&1AC8 THEN 190
170 LOAD"gihero1"
180 CALL &BF20
190 PRINT"DATA ERROR!"