1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1 BASE(5)=6144:SCREEN1,2,0:DEFINTA-Z:PLAY"L4t32v0":TIME=0:PLAY"CDCDCDCDCDCDCDCDCDCDCDCDCD":TS=TIME:VPOKE2816,TS:GOTO172
2 DEFINTA-Z
3 OPEN"StorResc.rec"FORINPUTAS#1:FORA=0TO5:INPUT#1,A$(A):INPUT#1,A(A):NEXTA:CLOSE#1:C1=0:C2=36:C3=1:R=0:VPOKE8210,17:GOSUB146
4 TIME=0:IFTE=0THENA=0:GOSUB162ELSEIFTE=300THENA=1:GOSUB162:FORB=0TO4:LOCATE14,6+B*2:PRINTA$(B);:LOCATE24,6+B*2:PRINTUSING"#####";A(B):NEXTB:VPOKE8210,113
5 TE=(TE+1)MOD600:IFTE>299THEN9
6 ONRGOTO7:CO=CO+(CO>0):IFCO>0THEN9ELSECO=0:R=1:A=RND(1)*10:EN=A*6:GOTO9
7
7 IFEN<85THENA=11855+EN:B=VPEEK(A+5):EN=EN+6:VPOKE8210,VPEEK(A):VPOKE8222,B:VPOKE8223,B
8 CO=CO+1:IFCO=15THENR=0:CO=RND(1)*256
9
9 C1=(C1+1)MOD40:C2=(C2+1)MOD40:C3=-(C3*2<256)*(C3*2)-(C3*2=256):VPOKE1152+C1,C3:VPOKE1152+C2,0:B=VPEEK(2816)/40
10 A=STRIG(0)ORSTRIG(1):IFNOTATHENIFTIME<BTHEN10ELSE4
11
11 A=1:GOSUB162:GOSUB146:A=1:GOSUB147:TIME=0:A=VPEEK(2816):FORT=0TOA:T=TIME:NEXTT:A=2:GOSUB162:FORA=0TO7:PUTSPRITEA,(-15,(A\4)*176-1),15,62:NEXTA
12
12
12
12 VPOKE2817,0:VPOKE2818,36:VPOKE2819,1:PUTSPRITE13,(0,0),15,16:PUTSPRITE18,(223,160),14,21:PUTSPRITE19,(239,160),14,22
13 VPOKE2823,2:VPOKE2831,0:VPOKE2836,0:VPOKE2838,0:VPOKE2839,0:VPOKE2840,5:VPOKE2841,0:VPOKE2843,0:VPOKE2844,0:SOUND7,142:SOUND8,0:SOUND9,0:SOUND10,0:SOUND11,5:RUN14
14 DEFINTA-Z:_TURBOON
15
15
15
15
15
15
15
15
15
15
15
15 H=0:HX=0:HY=0:NX=21500:NY=0:X=0:VDP(1)=98:X=-1
16
16 TIME=0
17
17 ONNGOTO20,22
18
18 A=1+(NX<7200)-(NX>21500):VPOKE2823,-A*(A<>1)+(-(A=1)*VPEEK(2823)):NX=NX-(VPEEK(2823)-1)*20:A=NX\100:VPOKE6985,A:VPOKE6989,A+16:IFNY<22500THENA=NY\2000+160:NY=NY+3:VPOKE6984,A:VPOKE6988,A:GOTO23
19
19 N=1:NX=0:NY=0:VPOKE2842,0:PUTSPRITE9,(VPEEK(6989),174),7,49:IFH=3THENH=1:HX=VPEEK(6965)*100:HY=(VPEEK(6984)-VPEEK(2827))*100
20
20 NX=NX+1:NY=NY-(NX<80)+(NX>80):VPOKE6988,170+(NX\10):VPOKE6948,167-(NY\5):VPOKE2842,(VPEEK(2842)+1)MOD30:VPOKE6950,(VPEEK(2842)\10+49)*4:IFNX>160THENN=2
21 GOTO23
22
22 IFVPEEK(2831)=0THENVPOKE2843,1
23
23 C=VPEEK(2839):IFC<2THEN31ELSEA=RND(1)*2:W=(W+A+1)MOD272
24 IF255-W<-14THENA=VPEEK(6964):IFA>104ANDA<144THENVPOKE6956,AELSEVPOKE6956,RND(1)*40+104
25
25 PUTSPRITE11,(255-W,VPEEK(6956)),5,(WMOD16)\2+35
26
26 IFC<4THEN31ELSEA=(W+136)MOD272:IFA<2THENB=VPEEK(6964):IFB>24ANDB<64THENVPOKE6952,BELSEVPOKE6952,RND(1)*40+24
27
27 PUTSPRITE10,(-16+A,VPEEK(6952)),5,42-(WMOD16)\2
28
28 C=VPEEK(2839):IFC<6THEN31ELSEA=RND(1)*2:A=(W+136)MOD272
29 IF255-A<-14THENVPOKE6960,RND(1)*40+104
30
30 PUTSPRITE12,(255-A,VPEEK(6960)),5,(WMOD16)\2+35
31
31 S=0:ONHGOTO38,39,37,38,62,63
32
32 VPOKE2821,127:VPOKE2822,185:HX=0:HY=0:H=1:VPOKE6967,15:SOUND6,31:SOUND12,2:SOUND13,12:SOUND10,16
33
33 IFVPEEK(2831)=5THENVPOKE2831,0:A=VPEEK(2839)+1:VPOKE6143+A,8:VPOKE2839,A:VPOKE2841,VPEEK(2841)+1:IFA=14THENVPOKE2843,3
34
34 A=VPEEK(2840):IFA<5THENVPOKE6157+A,9
35 A=A-1:VPOKE2840,A:IFA=0THENVPOKE2843,2:A=VPEEK(2831):IFA>0ANDA<5THENVPOKE2839,VPEEK(2839)+1:VPOKE2841,VPEEK(2841)+1
36 GOTO38
37
37 VPOKE6965,VPEEK(6985)-(VPEEK(2826)-127):VPOKE6964,VPEEK(6984)-VPEEK(2827)
38
38 S=STICK(0)ORSTICK(1)
39
39 A=VPEEK(2822)+(-(S>1ANDS<5)+(S>5))*3:A=-A*(A>0)-(A>255)*(255-A):A=A+(S<2ORS=5)*(-(A>127)+(A<127)):VPOKE2822,A:A=VPEEK(2821)+(-(S>3ANDS<7)+(S=1ORS=2ORS=8))*3:A=A-(S=0ORS=3ORS=7):A=-A*(A>0)-(A>255)*(255-A):VPOKE2821,A
40 ONHGOTO41,45,60,60
41
41 C=VPEEK(2839):IFC<2THEN45ELSEA=VPEEK(6957):B=VPEEK(6965):IFABS(A-B)<16THENA=VPEEK(6956)+7:B=VPEEK(6964)+9:IFABS(A-B)<12THENVPOKE2822,VPEEK(2822)/1.1
42
42 IFC<4THEN45ELSEA=(W+136)MOD272:IFA<16THEN44
43 A=VPEEK(6953):B=VPEEK(6965):IFABS(A-B)<16THENA=VPEEK(6952)+7:B=VPEEK(6964)+9:IFABS(A-B)<12THENA=VPEEK(2822)*1.1:IFA>254THENA=254:VPOKE2822,AELSEVPOKE2822,A
44
44 IFC<6THEN45ELSEA=VPEEK(6961):B=VPEEK(6965):IFABS(A-B)<16THENA=VPEEK(6960)+7:B=VPEEK(6964)+9:IFABS(A-B)<12THENVPOKE2822,VPEEK(2822)/1.1
45
45 HX=HX+((VPEEK(2822)-127)*(200/127)):HX=-HX*(HX>0)-(HX>25500)*(25500-HX):HY=HY+((VPEEK(2821)-127)*(200/127)):HY=-HY*(HY>0)-(HY>19100)*(19100-HY):VPOKE6965,HX\100:VPOKE6964,HY\100
46 ONHGOTO47,58
47
47 A=(VPEEK(2822)\52)*4:VPOKE2824,(VPEEK(2824)+1)MOD2:VPOKE6966,(A+(VPEEK(2824)*2))*4
48
48 A=VPEEK(6965):B=VPEEK(6964):IFA>53THEN53ELSED=VPEEK(2836):C=(B>121)+(A<47ANDB>111)+(A<44ANDB>97)+(A<40ANDB>87)+(A<11ANDB>70ANDD=3)
49 IFC<0THENVPOKE2821,127-RND(1)*64:VPOKE2822,191+RND(1)*64:H=6:GOTO64
50 IFS>0THEN64
51 IFVPEEK(6966)\4<>8THEN64
52
52 IFA<30ANDB>80THENH=4:GOTO64ELSE64
53
53 IFB>159THENH=5:PUTSPRITE8,(VPEEK(6965),174),7,49:HX=0:HY=0:SOUND12,35:SOUND13,14:SOUND10,16:GOTO62
54
54 A=VPEEK(2831):IFA>1ANDA<5THEN64
55 IFS>0THEN64
56 A=VPEEK(6964):IFA<144ORVPEEK(6966)\4<>8THEN64
57
57 B=VPEEK(6984)-11:IFABS(A-B)<2THENA=VPEEK(6965):B=VPEEK(6985):IFABS(A-B)<5THENH=3:VPOKE2826,VPEEK(6985)-VPEEK(6965)+127:VPOKE2827,VPEEK(6984)-VPEEK(6964):GOTO64ELSE64ELSE64
58
58 VPOKE6966,(RND(1)*3+46)*4:VPOKE6967,RND(1)*15+1:B=VPEEK(6964):IFB>170THENH=0
59 GOTO64
60
60
60 VPOKE2824,(VPEEK(2824)+1)MOD16:VPOKE6966,(8+(VPEEK(2824)\4))*4:A=VPEEK(2821):IFS=1ORS=2ORS=8THENSOUND12,3ELSESOUND12,4
61 IFA<127THENSOUND12,2:HX=VPEEK(6965)*100:VPOKE2822,127:IFH=3THENH=1:HY=(VPEEK(6984)-VPEEK(2827))*100:GOTO64ELSEH=1:GOTO64ELSE64
62
62 HX=HX+1:HY=HY-(HX<80)+(HX>80):VPOKE6964,158+(HX\10):VPOKE6944,170-(HY\5):VPOKE2829,(VPEEK(2829)+1)MOD30:VPOKE6946,(VPEEK(2829)\10+49)*4:IFHX>160THENH=0:GOTO64ELSE64
63
63 H=2:VPOKE2830,3:SOUND6,31:SOUND12,100:SOUND13,0:SOUND10,16:HX=VPEEK(6965)*100:HY=VPEEK(6964)*100:PUTSPRITE17,(0,0),0,0:PUTSPRITE8,(0,0),0,0
64
64
64 ONVPEEK(2830)GOTO67,68,69
65
65 IFVPEEK(6964)>96ANDVPEEK(2831)=3ANDH=1THENVPOKE2830,1
66 GOTO70
67
67 PUTSPRITE17,(VPEEK(6965),VPEEK(6964)+16),9,20:VPOKE2830,2
68
68 VPOKE6981,VPEEK(6965):VPOKE6980,VPEEK(6964)+16:IFVPEEK(6964)<96THENVPOKE2830,3:GOTO70ELSE70
69
69 PUTSPRITE17,(0,0),0,0:VPOKE2830,0
70
70 ONVPEEK(2831)GOTO74,78,80,83,88,90
71
71 X=X-(X>-1):IFX>300THENX=0:GOTO73
72
72 IFH<>3THEN94
73
73 IFVPEEK(2838)<14THENA=VPEEK(2838)+1:VPOKE6161+A,32:VPOKE2838,A:VPOKE2831,1:PUTSPRITE16,(VPEEK(6985)+24,VPEEK(6984)+8),10,29
74
74 IFH=3THENVPOKE2828,VPEEK(6965)+4:VPOKE6976,VPEEK(6964)+8ELSEVPOKE2828,VPEEK(6985)-8+(VPEEK(2823)*20):VPOKE6976,VPEEK(6984)-2
75 Z=(Z+1)MOD6:ONABS(Z)GOTO94
76 A=SGN(VPEEK(2828)-VPEEK(6977)):VPOKE6977,VPEEK(6977)+A:IFVPEEK(6977)=VPEEK(2828)THENIFH=3THENVPOKE2831,5:GOTO87ELSEVPOKE2831,2
77 VPOKE2832,-A+28:GOTO93
78
78 A=VPEEK(6976):IFA>170THENVPOKE6976,170:VPOKE2831,3:X=0:IFVPEEK(2832)=33THENVPOKE2831,0:PUTSPRITE16,(0,0),0,0:A=VPEEK(2839)+1:VPOKE6143+A,8:VPOKE2839,A:VPOKE2841,VPEEK(2841)+1:IFA=14THENVPOKE2843,3:GOTO94ELSE94
79 A=A+2:VPOKE6976,A:GOTO93
80
80 A=VPEEK(6976):B=VPEEK(6980):IFA>BANDA<B+16THENIFVPEEK(6977)=VPEEK(6965)+4THENVPOKE2831,4
81 VPOKE2832,31:X=X+1:VPOKE6976,170+X\100:IFX>500THENX=0:VPOKE2831,0:PUTSPRITE16,(0,0),0,0:A=VPEEK(2839)+1:VPOKE6143+A,8:VPOKE2830,3:VPOKE2839,A:VPOKE2841,VPEEK(2841)+1:VPOKE2844,VPEEK(2844)+1:IFA=14THENVPOKE2843,3:GOTO94ELSE94
82 GOTO93
83
83 VPOKE6977,VPEEK(6965)+4:G=(G+1)MOD3:ONABS(G)GOTO94
84 VPOKE6976,VPEEK(6976)-1:IFVPEEK(6976)<VPEEK(6980)-8THENVPOKE2831,5:VPOKE2830,3:GOTO87
85 IFVPEEK(2830)=0ORVPEEK(6976)>VPEEK(6980)+16THENVPOKE2831,2:GOTO78
86 VPOKE2832,33:GOTO93
87
87 PUTSPRITE16,(0,192),0,0:X=0
88 IFH=4THENPUTSPRITE16,(VPEEK(6965)+4,VPEEK(6968)+8),10,29:VPOKE2831,6
89 GOTO94
90
90 IFVPEEK(2836)<>3THENVPOKE6978,120:GOTO94
91 VPOKE2832,29:G=(G+1)MOD3:ONABS(G)GOTO94
92 VPOKE6977,VPEEK(6977)-1:IFVPEEK(6977)<8THENPUTSPRITE16,(0,0),0,0:VPOKE2831,0:VPOKE2836,4:A=VPEEK(2839)+1:VPOKE6143+A,91:VPOKE2839,A:IFA=14THENVPOKE2843,3ELSE94
93
93 VPOKE2833,(VPEEK(2833)+1)MOD4:VPOKE6978,(VPEEK(2832)+(VPEEK(2833)\2))*4
94
94 B=VPEEK(2839):IFB<7THEN104ELSEONRGOTO95,96,97,103:A=VPEEK(2834):A=A+(A>0):VPOKE2834,A:IFA>0THEN104ELSEVPOKE2834,50:R=1:A=RND(1)*10:VPOKE2825,A*6:A=RND(1)*24+8:VPOKE2835,A:PUTSPRITE20,(A*8-12,8),15,43:GOTO104
95
95 A=VPEEK(2834):A=A+(A>0):VPOKE2834,A:VPOKE6994,(RND(1)*3+43)*4:IFA=0THENR=2:GOTO104ELSE104
96
96 R=3:VPOKE2834,0:SOUND9,15:PUTSPRITE20,(0,0),0,0:A=6144+VPEEK(2835):FORT=95TO639STEP32:VPOKEA+T,RND(1)*8+152:NEXTT:GOTO104
97
97 A=VPEEK(2834):SOUND6,A*2:B=95+INT(RND(1)*18)*32:C=VPEEK(2835):VPOKE6144+C+B,RND(1)*8+152:IFVPEEK(2825)>85THEN100
98 A=VPEEK(2825):VPOKE2825,A+6:A=11855+A:B=VPEEK(A):C=VPEEK(A+1):D=VPEEK(A+2):E=VPEEK(A+3):F=VPEEK(A+4)
99 A=8192:VPOKE8210,B:VPOKE8211,C:VPOKE8212,D:VPOKE8213,D:VPOKE8214,E:VPOKE8215,E:VPOKE8216,F:GOTO101
100 A=RND(1)*3:IFA=0THENVPOKE8211,241ELSEIFA=1THENVPOKE8211,225ELSEVPOKE8211,113
101 A=VPEEK(2834)+1:IFA=15THENR=4:VPOKE2834,45:C=VPEEK(2835):FORT=95TO639STEP32:VPOKE6144+C+T,VPEEK(2048+C+T):NEXTT:GOTO104ELSEVPOKE2834,A
102
102 A=(VPEEK(2835)*8-4)-(VPEEK(6965)+8):IFABS(A)<12ANDH<>6ANDH<>2THENH=6:GOTO104ELSE104
103 A=VPEEK(2834):A=A+(A>0):SOUND9,A\3:VPOKE2834,A:IFA=0THENSOUND9,0:SOUND6,31:VPOKE2834,RND(1)*127:R=0
104
104 ONVPEEK(2836)GOTO106,108,116,110,111,113,115,116
105
105 VPOKE2836,1:VPOKE2837,0
106
106 A=VPEEK(2837):A=A-(A<127):SOUND8,A\8:SOUND1,0:SOUND0,200+((AMOD16)\8)*55:VPOKE2837,A:IFA=127THENVPOKE2836,2:VPOKE2837,0
107 GOTO116
108
108 A=VPEEK(2837):PUTSPRITE14,(-16+A,80),15,23:PUTSPRITE15,(-16+A,80),8,25:SOUND1,0:SOUND0,200+((AMOD16)\8)*55:A=A-(A<17):VPOKE2837,A:IFA=17THENSOUND8,0:VPOKE2836,3
109 GOTO116
110
110 VPOKE2836,5:VPOKE2837,0:SOUND8,15:SOUND1,0:SOUND0,200
111
111 A=VPEEK(2837):PUTSPRITE14,(-A,80),15,23:PUTSPRITE15,(-A,80),8,25:SOUND1,0:SOUND0,200+((AMOD16)\8)*55:A=A-(A<17):VPOKE2837,A:IFA=17THENVPOKE2836,6
112 GOTO116
113
113 A=VPEEK(2837):A=A-(A<127):SOUND8,15-(A\8):SOUND1,0:SOUND0,200+((AMOD16)\8)*55:VPOKE2837,A:IFA=127THENVPOKE2836,0
114 GOTO116
115
115 A=VPEEK(2837):A=A-(A<255):VPOKE2837,A:IFA=255THENVPOKE2836,0
116
116
116
116 VPOKE2817,(VPEEK(2817)+1)MOD40:VPOKE2818,(VPEEK(2818)+1)MOD40:A=VPEEK(2819):A=-(A*2<256)*(A*2)-(A*2=256):VPOKE2819,A:VPOKE1152+VPEEK(2817),A:VPOKE1152+VPEEK(2818),0
117
117 A=RND(1)*89+6823:IFVPEEK(A)<176THENVPOKEA,RND(1)*15+160
118
118 A=VPEEK(2816)/40
119 IFVPEEK(2843)>0THEN121
120 IFTIME<ATHEN120ELSE16
121
121 _TURBOOFF
122 RUN123
123 DEFINTA-Z:A=3:GOSUB162:VPOKE8210,17:VPOKE8211,17:VPOKE8212,116:VPOKE8213,116:VPOKE8214,97:VPOKE8215,97:VPOKE8216,193
124 IFVPEEK(2839)=14ANDVPEEK(2841)=0THENB=2
125 IFVPEEK(2838)<14ORVPEEK(2841)>0THENB=4
126 IFVPEEK(2840)=0THENB=3
127 A=B:GOSUB147:OPEN"StorResc.rec"FORINPUTAS#1:FORA=0TO5:INPUT#1,R$(A):INPUT#1,R(A):NEXTA:CLOSE#1:A=VPEEK(2816)*2:TIME=0:FORT=0TOA:T=TIME:NEXTT
128 RESTORE128:GOSUB145:DATA" SAVED"," DEAD"," DEAD ON SHIP",""," HELICOPTERS","",""," SCORING",""
129 LOCATE27,7:A=(14-VPEEK(2838))+VPEEK(2841):PRINTUSING"##";A:IFA=14THENC=0ELSEC=A*5
130 LOCATE27,8:A=(14-VPEEK(2838)):PRINTUSING"##";A:IF(A+VPEEK(2844))<14THENC=C+A*50
131 C=C+(VPEEK(2838)-VPEEK(2844))*700:LOCATE27,6:A=VPEEK(2839)-VPEEK(2841):PRINTUSING"##";A:C=C+A*1400:LOCATE27,10:A=(5-VPEEK(2840)):PRINTUSING"##";A:IFVPEEK(2838)-VPEEK(2844)>0THENC=C+VPEEK(2840)*650
132 LOCATE24,13:PRINTUSING"#####";C:GOSUB146:B=VPEEK(2816)*4:TIME=0:IFC>R(4)THENR(5)=C:LOCATE16,12:PRINT"new record";:B=B\2
133 A=STRIG(0)ORSTRIG(1):IFNOTATHENIFTIME<BTHEN133
134 IFC<=R(4)THENTE=0:GOTO3ELSEGOSUB146:RESTORE134:GOSUB145:DATA" NEW RECORD",""," aBCDEFGHIJKLM"," NOPQRSTUVWXYZ"," SPACE BACK OK","",""," ........",""
135 A=0:B$="":C=VPEEK(2816)/8:D=6415
136 S=STICK(0)ORSTICK(1):E=STRIG(0)ORSTRIG(1):IFETHEN141ELSEE=(S\2)*2:IFE=STHEN136ELSEIFA<26THENG=D+(AMOD13)+((A\13)*32):VPOKEG,VPEEK(G)-32ELSELOCATE15,10:PRINT"SPACE BACK OK"
137 A=A-(S=3)-(S=7)*38-(S=1)*26-(S=5)*13:A=AMOD39
138 IFA<26THENG=D+(AMOD13)+((A\13)*32):VPOKEG,VPEEK(G)+32:GOTO140ELSEIFA<32THENF=15:A$="space"ELSEIFA<37THENF=21:A$="back"ELSEIFA>36THENF=26:A$="ok"
139 LOCATEF,10:PRINTA$
140 TIME=0:FORE=0TOC:E=TIME:NEXTE:GOTO136
141 IFA<26THENB$=B$+CHR$(A+65)ELSEIFA<32THENB$=B$+" "ELSEIFA<37ANDLEN(B$)>0THENB$=LEFT$(B$,LEN(B$)-1)ELSEIFA>36THEN143
142 LOCATE17,12:PRINTMID$(B$+" ",1,8);:IFLEN(B$)=>8THENB$=LEFT$(B$,8):GOTO140ELSE140
143 R$(5)=B$:FORA=5TO1STEP-1:IFR(A)>R(A-1)THENSWAPR(A),R(A-1):SWAPR$(A),R$(A-1)
144 NEXTA:OPEN"StorResc.rec"FOROUTPUTAS#1:FORA=0TO5:PRINT#1,R$(A):PRINT#1,R(A):NEXTA:CLOSE#1:TE=300:GOTO3
145
145 FORA=0TO8:LOCATE13,6+A:PRINTSPC(17);:READA$:LOCATE13,6+A:PRINTA$:NEXTA:RETURN
146
146 IFSTRIG(0)ORSTRIG(1)THEN146ELSERETURN
147
147 VPOKE2820,0:B=9856:IFA=2THENB=10494ELSEIFA=3THENB=11040ELSEIFA=4THENB=11335
148 A=A*160+9056:FORT=0TO159:TIME=0:IFSTRIG(0)ORSTRIG(1)THENT=160
149 C=VPEEK(B):D=C\32:C=C-D*32:C=((D=0ORD>4)*-C)+((D>0ANDD<5)*-(6912+C*4)):ONDGOTO151,152,153,154,155,156,157
150 PUTSPRITEC,(VPEEK(B+1),VPEEK(B+2)),VPEEK(B+3),VPEEK(B+4):B=B+5:GOTO149
151 VPOKEC+2,VPEEK(B+1):B=B+2:GOTO158
152 VPOKEC+1,VPEEK(B+1):VPOKEC+2,VPEEK(B+2):B=B+3:GOTO158
153 VPOKEC,VPEEK(B+2):VPOKEC+1,VPEEK(B+1):VPOKEC+2,VPEEK(B+3):B=B+4:GOTO158
154 VPOKEC+1,VPEEK(B+1):VPOKEC+5,VPEEK(B+1):B=B+2:GOTO158
155 D=VPEEK(B+1):SOUNDC,D:B=B+2:GOTO149
156 VDP(C)=VPEEK(B+1):B=B+2:GOTO149
157 B=B+1:IFC=1THENVPOKE8217,241ELSEIFC=2THENVPOKE8217,17
158 IFVPEEK(A+T)>32ANDVPEEK(A+T)<95THENSOUND9,10:VPOKE2820,1:VPOKE(TMOD18)+((T\18)*32)+6349,VPEEK(A+T)
159 IFTIME>3ANDVPEEK(2820)=1THENSOUND9,0:VPOKE2820,0
160 IFTIME<5THEN160ELSEIFVPEEK(2820)=1THENSOUND9,0:VPOKE2820,0
161 NEXTT:RETURN
162
162 VDP(1)=166:FORB=31TO0STEP-1:PUTSPRITEB,(-31,192),0,62:NEXTB:IFA=1ORA=3THENVPOKE8196,17:CLSELSECLS
163 IFA=0THENA%=3072:FORB=0TO3:VPOKE8204+B,81:VPOKE8200+B,241:VPOKE8196+B,241:NEXTB:VPOKE8222,161:VPOKE8223,161
164 IFA=1THENVPOKE8217,241ELSEIFA=3THENVPOKE8217,17
165 IFA=2THENA%=5120:FORB=0TO3:VPOKE8204+B,113:VPOKE8196+B,241:VPOKE8200+B,241:NEXTB:VPOKE8210,113
166 IFA=1ORA=3THENA%=4096:FORB=0TO3:VPOKE8204+B,143:NEXTB:VPOKE8222,225:VPOKE8223,228:VPOKE8210,17:FORB=5TO11:VPOKE8192+B,27:NEXTB
167 _TURBOON(A%)
168 FORB=1152TO1215:VPOKEB,0:NEXTB:FORB=0TO767:VPOKE6144+B,VPEEK(A%+B):NEXTB
169 _TURBOOFF
170 IFA%=4096THENVPOKE8196,27
171 IFA%=5120THENRETURNELSEVDP(1)=98:RETURN
172
172
172 WIDTH32:KEYOFF:COLOR15,1,1:KEY1,CHR$(255)+STRING$(6,CHR$(13)):PRINT"Press F1 to start":FORT=0TO1:I$=INKEY$:IFI$<>CHR$(255)THENT=0:NEXTTELSET=1:NEXTT
173
173 ONERRORGOTO175
174
174 OPEN"StorResc.rec"FORINPUTAS#1:INPUT#1,A$:CLOSE#1:GOTO176
175 OPEN"StorResc.rec"FOROUTPUTAS#1:FORT=0TO5:PRINT#1,"........":PRINT#1,0:NEXTT:CLOSE#1
176 RESTORE196:A=RND(-TIME)
177
177 READA:B=RND(1)*16:COLORB,B,B:IFA=-1THEN180ELSEIFA=-2THENREADA:BASE(5)=A:SCREEN1:GOTO177ELSEIFA=-3THENLOCATE0,0:PRINTCHR$(27)+"L":GOTO177
178 IFA=-4THENREADA,B,C,A$:FORD=1TOC:LOCATEA,B+D:PRINTA$;:NEXTD:GOTO177ELSEIFA=-5THENEND
179 READB,C:FORD=1TOC:READA$:LOCATEA,B+D:PRINTA$;:NEXTD:GOTO177
180 CLS:WIDTH26:COLOR15,1,1:RESTORE180:FORA=0TO9:READA$:LOCATE2,23:PRINTA$:NEXTA:RESTORE210:LOCATE0,0:PRINT"VRAM:";:PRINTSTRING$(47,"-");:LOCATE5,0:DATA" WARNING:THIS GAME HAS"," FLASHING LIGHTS AND"," GRAPHIC PATTERNS."
181
181 DATA" IF YOU, OR SOMEONE IN"," YOUR FAMILY HAS"," EPILEPSY"," OR HAS HAD SEIZURES"," OF ANY KIND,"," CONSULT A DOCTOR"," BEFORE PLAYING."
182 READA$:IFA$="-1"THEN186ELSEIFLEN(A$)<5THENA=VAL("&H"+A$):GOTO182ELSEPRINT"*";:FORC=1TOLEN(A$)STEP2:B$=MID$(A$,C,2)
183 IFB$="GG"THENB=VAL("&H"+MID$(A$,C+2,2)):D=VAL("&H"+MID$(A$,C+4,2)):FORE=1TOD:VPOKEA,B:A=A+1:NEXTE:C=C+4:NEXTC:GOTO182
184 IFB$="G1"THENB=VAL("&h"+MID$(A$,C+2,4)):A=A+B:C=C+4:NEXTC:GOTO182
185 VPOKEA,VAL("&H"+B$):A=A+1:NEXTC:GOTO182
186 VDP(1)=166:WIDTH32:CLS:RESTORE186:LOCATE0,1:FORA=1TO7:READA$:PRINTA$:NEXTA:LOCATE0,0:END:DATA"delete1","Ok","delete172-186","Ok","delete196-248","Ok","CLS:VDP(1)=224:run187"
187
187 DEFINTA-Z
188
188 _TURBOON
189 FORA=256TO727:IFA<480ORA>503THENB=VPEEK(A):B=(BOR(B/2))/2:VPOKEA,B:IFA>519THENVPOKEA+256,B:NEXTAELSENEXTAELSENEXTA
190
190 E=8:FORA=0TO54:B=INT(RND(1)*4)+1+E:B=BMOD5:E=B:FORC=0TO23:D=A-C+C*32:IFA-C<0ORA-C>31THEN193ELSEVPOKE2048+D,B+144:IFVPEEK(3072+D)=32ANDC<13THENVPOKE3072+D,B+144
191
191
191
191 IFC>2ANDVPEEK(5120+D)=32THENVPOKE5120+D,B+144
192 IFC>1ANDVPEEK(4096+D)=32THENVPOKE4096+D,B+144
193 B=(B+1)MOD5:NEXTC,A
194 _TURBOOFF
195 VDP(1)=166:WIDTH32:CLS:RESTORE195:LOCATE0,1:FORA=1TO3:READA$:PRINTA$:NEXTA:LOCATE0,0:END:DATA"delete187-195","Ok","cls:vdp(1)=224:run"
196
196 DATA-2,3072,1,22,1,"2022 pix RENATOMDR@GMAIL.COM"
197
197 DATA6,0,5,"ñðð ððð ñðò ððò ð÷öð","ð ð ð ð ð ð ðððð","óðò ð ð ð ð ð ðøõð"," ð ð ð ð ððô ð ð","ððô ð óðô ðøð ð ð"
198 DATA4,6,5,"ðððò ððð ñðð ñðð ð ð ððð","ð ð ð ð ð ð ð ð","ð ð ðð óðò ð ð ð ðð ","ðððô ð ð ð ð ð ð","ð øð ððð ððô óðð óðô ððð"
199 DATA1,13,7,"PRESS SPACE OR BUTTON TO START"," ","TO FLY: arrow keys or joystick"," "," TO LAND:stabilize just above"," the landing site and"," let gravity act"
200 DATA-2,4096,0,21,1,"ÀÁÀÂÀÁÀÂÁÀÁÄÃÄÆÃÆÄÅÃÄÅÃÄÃÅÀÂÁÂÄÅ´±¶´µ±²·µ³¶³±³¶±³µ³¶´±²±¶±²³·µ±±²¶´·²±·³±´µ·±¶µ±µ¶±´²³µ´²·¶±¶²·±",-3,0,-1,1,"ÔÕÖ×ØÙÚÛÜÝÞßÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßÐÑÒÓäåæçèéêëìíîïàáâãäåæçèéêëìíîïàáâã"
201
201 DATA0,8,12,"````````÷","```°````ð÷","``°°°```ðð÷","```°````ððð","````````ððð","hospitalððð","````````ððð","````````ððð","````````ðøð","````````ðùð","````````ðùð","````````ðùð",26,16,4,"ÈÉÊË"," ÌÍ "," ÎÏ ","öðð÷"
202 DATA-4,11,2,13,"]^_________________^]",13,3,1,"___INFORMATIVE"
203 DATA-2,9216,0,-1,1,"THE DELTAMAR SHIP IS SINKING! _PASSENGERS NEED URGENT RESCUE! _ BE CARREFUL ABOUT_HEAVY RAIN _LOTS OF LIGHTNING_AND STRONG WINDS! "
204
204 DATA0,4,1,"IT IS A MIRACLE! _THE GREAT PILOT MANAGED TO SAVE EVERYBODY ON THE DELTAMAR SHIP_ CONGRATULATIONS _YOU ARE A TRUE HERO! "
205 DATA0,9,1,"IT IS A TRAGEDY! THE PILOT DIED IN AN ACCIDENT WHILE TRYING TO RESCUE PASSENGERS FROM THE DELTAMAR SHIP IT IS A SAD DAY FOR ALL OF US! "
206 DATA0,14,1,"BAD NEWS!...______ RESCUE EFFORTS ON THE DELTAMAR SHIP WERE NOT ENOUGH.__THE SHIP SANK!____ SOME PASSENGERS DID NOT SURVIVE "
207 DATA-2,5120,0,21,1,"ª•¡£ ¥«© ¨©¦• ¤•¬®©§¡§•¯¬§¥®¡¬¯¢©«¤§¥¦¬¤¢ª¤¬ §•¤¢£¥•©¦«¤ ¢¯¡¬¨¦« ª©¦¥«¬£¨©¯®¡¨«ª«¤ ¨©¦¡©¡®£¥¢ª¦¡",-3,0,0,1,"ÝÞßÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßÐÑÒÓÔÕÖ×ØÙÚÛÜíîïàáâãäåæçèéêëìíîïàáâãäåæçèéêëì"
208
208 DATA0,-1,1," \\\\[[[[[[[[[[[[[[",0,11,11,"ÆÅÄÃÇ","µ³µµ¶¹","²´²³µ½","³µ³µµ»","µ²µµ´·¹","µ´³´µ´º","³µ¸´µ·½","µ´³¹·µ»","µ¶µ¸µ¶¼","´³µ³¹·µ","µ·³µ·"
209
209 DATA-2,2048,-2,6144,-1
210 DATA0040,1C1C083E5D5D141400FE103838384400
211
211 DATA02D8,1C1C083E5D5D141400FE1038383844000000183C3C1800000010001000100010GG0010G101B0,04C0,3870E070381C0E1C381C0E07070E1C38381C3870E0E07038381C1C3C787070381C38383C1E0E0E1C1C0E070E1C3870381C3870E0E070381C1C381C381C381C380020D8GG00080836
212 DATAGG000930CC000026GG00091C63GG000868000004000060GG000560000002GG0005060040000000040B00004030GG00055AGG0008040A0040A0GG00081800000056002300000058GG000508000020000BGGFF08A277D47E2F217DC5077CA672D2CF9409405D2D38C422436F6E7CF4AF1F65F694
213 DATA2158CF90EF5B37FC7B1480A4F12FDBAFBB39B3D22E3E993FC0B0F04CFCC639C7C0F03828D8087C348CB41478F028E858E89020A0A06090A8D8EC5C94C4ACD8145CB40E5ABA946C88GG0010BBDF75BBFFFFFFEBFFF76EFDFFFFFFAAFFE7FBFFFFFFEFA5000825
214 DATAGGFF04AA40206AFDFFFFFFBA02AB5FFFFFFFBBAA0448BAGGFF04A3000254EDFEFFFE950000FFFFGG00040303FFFF03030F0F0000FFFF0000C0C00000FCFCGG00043F3FGGC004FFFFF0F0GG0C04FCFC3F3F0F0F3030C0C0F0F0C0C030300C0CFFB3DF5EEDF3FFE6FFFFFF7F9EF1FFDFFFFEFFB6
215 DATA79EF9FFFFFEF1FFEFFFFFFEEFFFFFFEE11FFFFECFFEEF1FFFFFFBECFFFFEFFFF7F9EE13FFFEF1EFDFFEFF1FFFFFDFEDF3FFE7D83FFDF3FFFFFDDE3FFFFDDE1FEF38FFFFFFFFDDE3FFFDDE3DFFFDF3FDDE3FFFB67FFEFF0BFC3FFFFDFFFDDE3FFFD768FFFFFFFDDE2DF3FF9FF1FE7F98EGG0004
216 DATA3FFFB6493F0F0300BBC4FFFFE783000071DF3DFEF1C00000F7B7CABD5FE33F0C31FFFF3EDFE700005EE9FFDF37C30000E7DABF7FDB661C00FF7FBDC681000000F1FE9F619F160907FFD639FFFF5CA3C0FB7689FFFDB37F3CB81FE7F9E6DF0F0338E7FEE71BFECF063EEEF1BFBFDF6600B2CFFFFD
217 DATAF6689C78GGFF0800071F3F3F7F7F7F00E0F8FCFCFEFEFE7F7F7F3F3F1F0700FEFEFEFCFCF8E000FEFCF8F0E0C08000000103070F1F3F7F0080C0E0F0F8FCFE7F3F1F0F07030100GG0008,0EE0,20323032322020207069782052454E41544F4D445240474D41494C2E434F4D20,2000,GG8104
218 DATAGGF108515151F1D1D171F174746161C1F1GGE104A1A1,2680,A800A900AA00A0FFA100A27FA301A61FA79CAB05AC0AAD0CC1620040970E3E0144970E3E0230970F3F03309707344330D04333D44336D84339DC433CD0433FD44342D84345DC4348D0434BD4434ED84351DC4354D04357D4435AD8
219 DATA435DDC4360D04363D44366D84369DC436CD0436FD44372D84375DC4378D0437BD4437ED84381DC4384D04387D4438AD8438DDC4390D04393D44396D84399DC439CD0439FD443A2D843A5DC43A8D043ABD443AED843B1DC43B4D043B7D443BAD843BDDC43C0D043C3D463C697D063C995D463CC93D8
220 DATA63CF91DC63D28FD043D5D40300C0003F0000C0003F0100C0003F0200C0003FC1630040870E3E0120870F3F0220870F18032087081AA0FFA100A80F82208225822A822F8234A0C8A100A80F8239823E82438248824DA0FFA100A80F82528257825C82618266A0C8A100A80F826B82708275827A827F
221 DATAA0FFA100A80F82848289828E82938298A0C8A100A80F829D82A282A782AC82B1A0FFA100A80F82B682BB82C082C582CAA0C8A100A80F82CF82D482D982DE82E3A0FFA100A80F82E882ED82F282F782FCA8000300C000000200C000000100C0000000D07F0F0AE2AA10202C202C202C2020AC082020
222 DATA202020242024AC0620282028202C202CAC042020202020242028AC02202C20202024202860D07E2060D07D2860D07C2060D07B2860D07A2060D0792860D0782060D0772860D0762060D0752860D0742060D0732860D0722060D1712860D3702060D56F2860D76E3060D96D3860DB6C3060DD6B38
223 DATA60DF6A3060E1693860E3684060E5674860E7664060E9654860EB644060ED634860EF624060F1614860F3604060F55F4860F75E4060F95D4860FB5C4060FD5B4860FF5A40AA000000C00000C162E0E0,28FE,E2A800A900AA10A0FFA100A27FA301A61FA79CAB05AC02AD0CC16300FF400F00
224 DATA60FF400860FD420060FB440860F9460060F7480860F54A0060F34C0860F14E0060EF500860ED520060EB540860E9561060E7581860E55A1060E35C1860E15E1060DF601860DD621060DB641860D9661060D7681860D56A1060D36C1860D16E2060D0702860D0722060D0742860D0752060D07628
225 DATA60D0772060D0782860D0792060D07A2860D07B2060D07C2860D07D2060D07E2860D07F20AC0420242028202C2020AC0620242028202C2020AC082020202420242028AC0A2028202C202C202CAC0C2024202420242028AA00E10040870E3E0120870F3F02FF870F1703FF870819A0FFA100A80F82FA
226 DATA82F582F082EB82E6A0C8A100A80F82E182DC82D782D282CDA0FFA100A80F82C882C382BE82B982B4A0C8A100A80F82AF82AA82A582A0829BA0FFA100A80F82968291828C82878282A0C8A100A80F827D82788273826E8269A0FFA100A80F8264825F825A82558250A0C8A100A80F824B82468241
227 DATA823C8237A0FFA100A80F8232822D822882238220C162A8000300C0003E0200C0003E0100C0003E00D58F073840D5E060D28FE460CF91E860CC93EC60C995E060C697E440C3E840C0EC40BDE040BAE440B7E840B4EC40B1E040AEE440ABE840A8EC40A5E040A2E4409FE8409CEC4099E04096E4
228 DATA4093E84090EC408DE0408AE44087E84084EC4081E0GGE00420F4GGE016,2B20,E2A800A900AA00A0FFA100A27FA301A61FA79CAB05AC02AD0CC163GGE0420040870E3E0120870F3F02FF870F1703FF870819A80F82FA82F582F082EB82E6A0C882E182DC82D782D282CDA0FF82C882C382BE82B9
229 DATA82B4A0C882AF82AA82A582A0829BA0FF82968291828C82878282A0C8827D82788273826E8269A0FF8264825F825A82558250A0C8824B82468241823C8237A0FF8232822D822882238220C162A8000300C0003E0200C0003E0100C0003E0000C0003EGGE031,2C47,E2A800A900AA00A0FFA100A27F
230 DATAA301A61FA79CAB05AC02AD0CC1630040870E3E0120870F3F02FF870F1703FF870819A80F82FA82F582F082EB82E6A0C882E182DC82D782D282CDA0FF82C882C382BE82B982B4A0C882AF82AA82A582A0829BA0FF82968291828C82878282A0C8827D82788273826E8269A0FF8264825F825A8255
231 DATA8250A0C8824B82468241823C8237A0FF8232822D822882238220A8000300C0003E0200C0003E0100C0003E00FF400F00AA1060FF400860FD420060FB440860F9460060F7480860F54A0060F34C0860F14E0060EF500860ED520060EB540860E9561060E7581860E55A1060E35C1860E15E10
232 DATA60DF601860DD621060DB641860D9661060D7681860D56A1060D36C1860D16E2060D0702860D0722060D0742860D0752060D0762860D0772060D0782860D0792060D07A2860D07B2060D07C2860D07D2060D07E2860D07F20AC0420242028202C2020AC0620242028202C2020AC08202020242024
233 DATA2028AC0A2028202C202C202CAC0C2024202420242028AA00E10000C0003EC16200D58F073840D5E060D48FE460D390E860D291EC60D192E060D093E460CF94E860CE95EC60CD96E060CC97E440CBE840CAEC40C9E040C8E440C7E840C6EC40C5E040C4E440C3E840C2EC40C1E040C0E440BFE8
234 DATA40BEEC40BDE040BCE440BBE840BAEC40B9E0GGE00420F0GGE016,2E4F,1F7FE79F3F1FFEFEE78E2EFEE7F7759737F77E7EF78E3EFEF7E7759737B775F5F78525B5F7E7759737F775F5F78525B574E4E59434F471F1749131B17474758424A471F1749131B171E1758121B171F1F461C1A171517461
235 DATAC1A171517461C1A1,3800,GG0004010301071F23233F1F0F503FGG0005800080C0E2FFF2C08040F0G10020GG000401FF01071F23233F1F0F503FGG0005FE0080C0E2FFF2C08040F0G10020GG0004010301030708080F0F07040EGG0005800080C0E8FCE8E0C040E0G10020GG000401FF01030708
236 DATA080F0F07040EGG0005FE0080C0E8FCE8E0C040E0G10020GG0004010301030708080F07030408GG0005800080C02020E0C0804020GG0004011F01030708080F07030408GG0005F00080C02020E0C0804020GG000401FF01030708080F07030408GG0005FE0080C02020E0C0804020GG0004011F01
237 DATA030708080F07030408GG0005F00080C02020E0C0804020GG000501000103173F1707030207GG000480C080C0E01010F0F0E02070G10020GG00057F000103173F1707030207GG000480FF80C0E01010F0F0E02070G10020GG00050100010347FF4F0301020FGG000480C080E0F8C4C4FCF8F00AFC
238 DATAG10020GG00057F00010347FF4F0301020FGG000480FF80E0F8C4C4FCF8F00AFCG1002008080F08080F08080F08080F08080F082020E02020E02020E02020E02020E020GG00047FFF30AAFF7D3D180D0703GG0005FEFF18AAFFCFFFCFCBFFFFFF08081F1F13131F1FDFE0FFFF33FFFFFF0000E0E0
239 DATAGGF004F202FFFF33FFFEFCGG00061F3F478787FFF7EBDD08GG0006FECFCF0303CFCFE3DD08GG00067FF3F3C0C0F3F3C7BB10GG0006F8FCE2E1E1FFEFD7BB10GG00040307GG000F80003030FCFC3030000000GG000501000C0C3F3F0C0CGG0007C0E0GG000A1818127E583C6640GG0018181810
240 DATA1818101018GG00181818487E1A7CC602GG00181818081818080818GG0018995A3C1818GG001B1818FF1818GG001B18587E1A382C2404GG0018181A7E581C342420GG0018F00C0300003CC30000000F30C0GG0004030CF0000000C33C0000C0300F00003CC30000000F30C00000030C30C0GG0004
241 DATAC33C0000C0300F00C0300C0300000F30C00000030C30C00000030CF0000000C0300F00C0300C0300F00C03000000030C30C00000030CF0000000C33C0000C0300C0300F00C0300003CC3GG000400030CF0000000C33C0000C0300F0000F00C0300003CC30000000F30C0GG0005C33C0000C030
242 DATA0F00C0300C0300003CC30000000F30C00000030C30C0000000C0300F00C0300C0300F00C030000000F30C00000030C30C00000030CF00000C0300C0300F00C0300003CC3GG0004030C30C00000030CF0000000C33C00000000000146380000443800100C0360GG000408060090600906000832C4
243 DATAGG000680611E000000211E00018870120C000040800000443800000001C63800000002010024180080631C01GG000610E00000201986000002CC30000E0E2F773FFF7F0F3FFF3F7D0D100000004058F4F8E0FCF0F8ECD0E0D0C00000092915AF7F3F7F1F0F3FFF1F2C10000040D0A0F0E0F8E0FC
244 DATAF0ECE0D0E0E000000C0C472F1FDFFF7FFFFF1F372A0A0000001060E0C8F0E0FCFCF0E0E030200000GG0009144803A4245388GG00082609095690A84580GG000980030414932845GG000822054280880A1422GG0008044A0410902845GG0009100629091611284403070703GG0706GG030600808000
245 DATAGG8005GG0006800307070307070F0F0F070606060C181C00808000808080C0A080C060C0C0700000030707030F17171707060E1C383018000080800080C0B080C0E070303C18100307070307070F0F0F0707061E1C100000808000808080C0A080C0C06060607000010100GG0105GG000601C0E0
246 DATAE0C0GGE006GGC00600010100010101030501030603030E00C0E0E0C0E0E0F0F0F0E0606060301838000001010001030D0103070E0C3C180800C0E0E0C0F0E8E8E8E06070381C0C180001010001010103050103030606060EC0E0E0C0E0E0F0F0F0E0E06078380800000003070703GG0009010000
247 DATA008080C0E0E0E0E0GGC00600C1E333190F0703030306060C0C18380083C7CC98F0E0C0C0C060603030181CGGF010GG0010GGFF20
248 DATA-1