10 REM    AEROHAWK-JC HILTY-04/88
20 GOSUB570
30 GOSUB760:POKE49800,249
40 GOTO270
50 JX=PEEK(49801):IFJX<128THENJU=JU+.6:POKE49801,JX
51 IFJX>128THENJX=JX<-.6:POKE49801,JX
52 YJ=PEEK(49802):IFYJ>128THENYJ=YJ-.6:POKE49802,YJ
53 IFYJ<128THENYJ=YJ+.6:POKE49802,YJ
55 RETURN
60 GOSUB80:GOSUB140:RETURN
70 GOSUB80:GOSUB160:RETURN
80 POKE49801,1:POKE49900,1
90 BD=4:POKE49522,1:RETURN
100 GOSUB140:GOSUB120:RETURN
110 GOSUB160:GOSUB120:RETURN
120 POKE49801,255:POKE49900,1
130 BD=251:POKE49522,2:RETURN
140 POKE49802,1:POKE49900,1
150 RETURN
160 POKE49802,255:POKE49900,1
170 RETURN
180 IFPEEK(V+7)<UPTHENPOKE49808,2:POKE49900,8:SYS828:SYS49152:RETURN
190 IFPEEK(V+7)>DNTHENPOKE49808,254:POKE49900,8:SYS828:SYS49152:RETURN
200 SYS828:SYS49152:RETURN
210 IFPEEK(V+9)<UPTHENPOKE49810,2:POKE49900,8:SYS844:SYS49152:RETURN
220 IFPEEK(V+9)>DNTHENPOKE49810,254:POKE49900,8:SYS844:SYS49152:RETURN
230 SYS844:SYS49152:RETURN
240 IFPEEK(V+11)>DNTHENPOKE49812,255:POKE49900,32:SYS860:SYS49152:RETURN
250 IFPEEK(V+11)<UPTHENPOKE49812,1:POKE49900,32:SYS860:SYS49152:RETURN
260 SYS860:SYS49152:RETURN
270 ONQGOSUB180,210,240:Q=Q+1:IFQ=4THENQ=1
271 IF(PEEK(V+16)AND1)THENPOKE49801,255:POKE49900,1:JY=11:GOTO290
272 IFPEEK(V)<65THENPOKE49801,1:POKE49900,1
273 IFPEEK(V+1)>200THENPOKE49802,255:POKE49900,1
274 IFPEEK(V+1)<60THENPOKE49802,1:POKE49900,1
280 JY=(PEEK(56320)AND15):POKE49800,255
290 GOSUB371:ONJYGOSUB50,50,50,50,60,70,80,50,100,110,120,50,140,160,50
300 FB=-((PEEK(56320)AND16)=0):IFFB=1THEN380
310 W2=PEEK(V+30):IFW2AND1THEN420
320 EN=EN-5:PRINT""TAB(8)"   ":PRINT""TAB(7)EN:IFEN=0THEN530
330 IFZ=1THEN350
340 GOTO270
350 IFPEEK(V+15)>220THENPOKEV+21,127:Z=0
360 W2=PEEK(V+30):IFW2AND128THEN450
370 GOTO270
371 IFPEEK(V+1)>PEEK(V+3)THENPOKE49804,1:POKE49900,1
372 IFPEEK(V+1)<PEEK(V+3)THENPOKE49804,254:POKE49900,1
373 IFPEEK(V+1)>PEEK(V+5)THENPOKE49806,2:POKE49900,1
374 IFPEEK(V+1)<PEEK(V+5)THENPOKE49806,255:POKE49900,1
375 POKE49803,255:POKE49805,1:POKE49900,2
379 RETURN
380 IFZ=1THEN310
390 IFPEEK(V+16)AND128THENPOKEV+16,PEEK(V+16)-128
400 POKE49815,BD:POKE49900,128
410 Z=1:POKEV+14,PEEK(V):POKEV+15,PEEK(V+1)+16:POKEV+21,255:GOTO270
420 POKE49800,0:POKE2040,255:B=B-1:PRINT""TAB(36)B:POKEV+21,127:GOSUB1000
430 FORT=0TO250:NEXT:IFB=0THEN1020
440 GOSUB860:POKE49800,249:Z=0:EN=750:PRINT""TAB(7)EN:GOTO270
450 POKE49800,0:POKEV+21,127:IFW2AND64THEN490
460 POKEV+21,255:POKE2047,255:GOSUB1000:FORT=0TO50:NEXT
470 SC=SC+250:PRINT""TAB(19)SC:POKEV+21,127:POKE2047,252:Z=0
480 W2=PEEK(V+30):POKE49800,249:GOTO270
490 POKE2046,255:GOSUB1000:FORT=0TO150:NEXT:POKEV+12,20:POKE2046,254
500 EN=EN+250:IFEN>750THENEN=750
510 PRINT""TAB(7)EN:SC=SC+300:PRINT""TAB(19)SC
520 Z=0:W2=PEEK(V+30):POKE49800,255
521 POKE49803,255:POKE49805,1:POKE49900,2:GOTO270
530 POKE49800,0:FORX=0TO24:POKES+X,0:NEXT
540 PRINT""TAB(8)"   ":FORT=0TO20:PRINT""TAB(7)EN:POKES+1,112:POKES+5,10
550 POKES+6,9:POKES+24,15:POKES+4,17:POKES+4,16:PRINT""TAB(7)EN
560 POKES+4,16:POKES+4,17:NEXT:PRINT"":GOTO420
570 V=53248:S=54272:SC=0:EN=750:B=5:Z=0:Q=1:UP=50:DN=140
580 POKE53280,0:POKE53281,0:PRINT:POKE147,0:SYS57812"EX.PIC",8,1:SYS62631
590 SYS57812"DISPLAY.PIC",8,1:SYS62631
600 SYS57812"TITLE.SP",8,1:SYS62631:SYS57812"HAWK.ML",8,1:SYS62631
610 SYS51000,"TITLE.PIC",40960,24576:SYS860:GOSUB1100:POKE198,0
620 GOSUB1100
630 POKE24568,0:POKE24569,1:POKE24570,0:POKE24571,2
640 POKEV+39,5:POKEV+40,2:POKEV+41,4:POKEV+42,7
650 POKEV,250:POKEV+1,145:POKEV+2,60:POKEV+3,170:POKEV+4,140:POKEV+5,190
660 POKEV+6,30:POKEV+7,210:FORX=49800TO49816:POKEX,0:NEXT
670 SYS49754:POKE49801,254:POKE49803,1:POKE49805,255
680 POKE49807,3:POKE49900,15:POKE49800,15:POKEV+23,12:POKEV+29,12:REMPOKEV+21,15
690 POKE198,0:POKE49800,0:SYS65418
700 POKE147,0:SYS57812"HAWK.FONT",8,1:SYS62631
710 POKE147,0:SYS57812"HAWK.SP",8,1:SYS62631
720 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
730 POKE53265,27:POKE53270,200:POKE53272,31:PRINT"[147]":POKEV+21,0
740 FORX=828TO878:READA:POKEX,A:NEXT:RETURN
750 REM    EXTENDED BACKGROUND SCREEN
760 POKE53280,0:POKE53281,0:POKE53265,91:POKE53282,03:POKE53283,06:POKE53284,14
770 PRINT"[147][160][160][160][160][160][160][160][160][160][160][160][160][160][160]           [160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
780 PRINT"             [146][160][160][160][160][160][160][160][160][160][160][160][160][160]             "
790 PRINT"                                       ":FORT=0TO1
800 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160]               [160][160][160][160][160][160][160][160][160][160][160][160]":NEXT
810 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":FORT=0TO2
820 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146][160][160][160][160][160][160][160][160][160][160]":NEXT
830 FORT=0TO2:PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":NEXT
840 FORT=0TO50:X=INT(400*RND(5)+1064):POKEX,46:POKEX+54272,14:NEXT
850 PRINT"ENERGY"EN;TAB(14)"SCORE"SC;TAB(28)"AIRCRAFT"B
860 FORX=49800TO49816:POKEX,0:NEXT:POKE49900,255
870 POKEV+16,18:POKE2040,253:POKEV+39,1:POKEV,168:POKEV+1,100:XS=168:YS=100:BD=0
880 POKE2041,250:POKEV+40,8:POKEV+2,040:POKEV+3,100
890 POKE2042,251:POKEV+41,5:POKEV+4,40:POKEV+5,100
900 POKE2043,251:POKEV+42,15:POKEV+6,26:POKEV+7,60
910 POKE2044,250:POKEV+43,4:POKEV+8,50:POKEV+9,60
920 POKE2045,251:POKEV+44,7:POKEV+10,168:POKEV+11,50
930 POKE2047,252:POKEV+46,2:POKEV+14,126:POKEV+23,0:POKEV+29,0
940 POKE2046,254:POKEV+45,0:POKEV+12,30:POKEV+13,210:POKEV+21,127
950 POKE49816,2:POKE49813,2:POKE49807,1:POKE49808,2:POKE49809,255:POKE49810,2
960 POKE49811,2:POKE49812,2
970 POKE49900,248:W2=PEEK(V+30)
980 SYS49754:RETURN
990 REM    EXPLOSION SOUND
1000 FORX=0TO24:POKES+X,0:NEXT:POKES+1,7:POKES+5,26:POKES+24,15:POKES,240
1010 POKES+4,129:RETURN
1020 POKEV+21,62:POKE49800,56:IFSC>HSTHENHS=SC
1030 PRINT"[129]"TAB(14)"GAME OVER":PRINT:PRINTTAB(14)"SCORE "SC:PRINT
1040 PRINTTAB(14)"HIGH "HS:PRINT:PRINTTAB(9)"PRESS F1 TO PLAY AGAIN":PRINT
1050 PRINTTAB(5)"PRESS F7 TO RETURN TO LOADSTAR"
1060 IFPEEK(197)=4THEN1090
1070 IFPEEK(197)=3THEN1170
1080 GOTO1060
1090 Z=0:L=1:Q=1:SC=0:EN=750:B=5:POKE49800,0:POKEV+21,0:GOTO30
1100 FORX=0TO24:POKES+X,0:NEXT:POKES+1,4:POKES+5,31:POKES+24,15
1110 POKES,240:POKES+4,129:RETURN
1120 REM    EXTENDED BACKGROUND COLOR CHANGES DATA
1130 DATA 169,6,141,34,208,169,3,141,35,208,169,14,141,36,208,96
1140 DATA 169,14,141,34,208,169,6,141,35,208,169,3,141,36,208,96
1150 DATA 169,3,141,34,208,169,14,141,35,208,173,6,0,169,6,141
1160 DATA 36,208,96
1170 POKE49800,0:SYS65418:POKEV+21,0:PRINT"[147]":POKE53272,21:POKE53265,27
1180 POKEV+16,0
1190 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1200 POKE53272,21:IFER<>63THENPRINT"[147]":END
1210 A$="HELLO CONNECT":Q$=CHR$(34)
1220 PRINT"[144][147]LOAD"Q$A$Q$",8"
1230 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END