home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / GUNSHIP1.D64 / begin (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-07-01  |  23.6 KB  |  773 lines
  1. 0 REM(null)
  2. 2 POKE52,116:POKE56,116:CLR:PRINT""CHR$(8);:OF=53265
  3. 3 FORI=.TO63:CL$=CL$+CHR$(.):NEXT:GOTO691
  4. 4 CZ=PEEK(53280)AND15:CZ=-12*(CZ<>12)-11*(CZ<>11):POKE53280,CZ:POKE53281,CZ
  5. 5 RETURN
  6. 6 POKE55822,I:POKE55862,I:POKE55902,I:RETURN
  7. 7 POKE55942,I:POKE55982,I:RETURN
  8. 8 I=.:FORJ=6TO121:IF(PEEK(ET+J)AND47)=38THENH%(I)=J:I=I+1:GOSUB4
  9. 9 NEXT:J=H%(INT(RND(0)*I)):RETURN
  10. 10 GOSUB11:PRINTI$;:RETURN
  11. 11 I$=LEFT$("000000",SD+1-LEN(STR$(V)))+RIGHT$(STR$(V),LEN(STR$(V))-1):RETURN
  12. 12 IFFU+I>376THENI=376-FU
  13. 13 IFFU+I<.THENI=FU
  14. 14 J=CW:J=J+6.5*I:IF J>MX THEN 22
  15. 15 FU=FU+I:CW=J:POKE 214,14:PRINT:POKE211,23
  16. 16 SD=4:V=FU:GOSUB10:Z=22-INT(FU/16.3):U=12-INT(FU/28.9)
  17. 17 IFZ>.THENPOKE51080+Z,.
  18. 18 IFZ<22THENPOKE51082+Z,255
  19. 19 IFU>.THENPOKE51060+U,.
  20. 20 IFU<12THENPOKE51062+U,255
  21. 21 GOTO25
  22. 22 POKE214,18:PRINT"":POKE211,30
  23. 23 V=CW:SD=5:GOSUB10
  24. 24 FORI=1TO100:NEXT
  25. 25 POKE214,18:PRINT"[159]":POKE211,30
  26. 26 V=CW:SD=5:GOTO10
  27. 27 J=CW:J=J+I*26:IFJ>MXTHEN 22
  28. 28 RN=RN+I:CW=J:I=RN*20:POKE 214,13:PRINT:POKE211,23
  29. 29 V=I:SD=4:GOSUB10:PRINT:GOTO25
  30. 30 IF(I<>.)AND(I<>4)THENRETURN
  31. 31 J=CW-W%(S1)+W%(I):IFJ>MXTHEN 22
  32. 32 U=S1:S1=I:CW=J:POKESP+2,225+S1:POKESP+7,225+S1:POKE53289,C%(S1)
  33. 33 POKE53294,C%(S1):GOSUB25
  34. 34 WP%(U)=WP%(U)-1:WP%(I)=WP%(I)+1
  35. 35 IFU>.THENJ=U:GOSUB38
  36. 36 IFI>.THENJ=I:GOSUB38
  37. 37 RETURN
  38. 38 Z=WP%(J)*WC%(J):POKE214,12+J:PRINT:POKE211,37
  39. 39 V=Z:SD=2:GOTO10
  40. 40 J=CW-W%(S2)+W%(I):IFJ>MXTHEN22
  41. 41 U=S2:S2=I:CW=J:POKESP+3,225+S2:POKESP+6,225+S2:POKE53290,C%(S2)
  42. 42 POKE53293,C%(S2):GOSUB25:GOTO34
  43. 43 J=CW-W%(S3)+W%(I):IFJ>MXTHEN22
  44. 44 U=S3:S3=I:CW=J:POKESP+4,225+S3:POKESP+5,225+S3:POKE53291,C%(S3)
  45. 45 POKE53292,C%(S3):GOSUB25:GOTO34
  46. 46 J=CW-CH*20+I*20:IFJ>MXTHEN22
  47. 47 CW=J:CH=I
  48. 48 I=8:IFCH=1THENI=15
  49. 49 GOSUB6:GOTO54
  50. 50 J=CW-FR*20+I*20:IFJ>MXTHEN22
  51. 51 CW=J:FR=I
  52. 52 I=8:IFFR=1THENI=10
  53. 53 GOSUB7
  54. 54 POKE214,15:PRINT:POKE211,23:I=CH*30
  55. 55 V=I:SD=4:GOSUB10:PRINT:POKE211,23:I=FR*30:V=I:GOSUB10:GOTO25
  56. 56 I=PEEK(MB+I*12+1):J=INT((PEEK(EH+I)+8)/16-1):GOSUB58:I$=A$+"-"
  57. 57 J=INT((PEEK(EY+I)+8)/16-1):GOSUB58:I$=I$+A$:RETURN
  58. 58 A$=LEFT$("00",3-LEN(STR$(J)))+RIGHT$(STR$(J),LEN(STR$(J))-1):RETURN
  59. 59 I=PEEK(MB+(I-1)*12):IFI=1THENPRINT"AT";:RETURN
  60. 60 PRINT"IN THE VICINITY OF";:RETURN
  61. 61 POKE53269,.:F$="HISCORES":GOSUB682
  62. 63 SYS65484:GOTO69
  63. 64 SYSKE+66:FORI=.TO3:POKE(140+I)*256,1:POKE(140+I)*256+1,I+2:NEXT
  64. 65 POKE142*256+192,CP:POKE53269,.
  65. 66 SYSKE+54:F$="HISCORES":OPEN15,8,15,"S0:"+F$:CLOSE15:GOSUB687:POKE808,237
  66. 67 POKEA6,0:POKEA7,140:POKE780,A6:POKE781,0:POKE782,144:SYS65496
  67. 68 SYS65484
  68. 69 OPEN15,8,15,"U;":CLOSE15:POKE808,234:POKE792,193:SYSKE+3:RETURN
  69. 70 IFUN=.THENI$="[214]ERY [204]OW ":I=.:GOTO 82
  70. 71 I=FL+LN+WT:IFI=2THENI=1
  71. 72 I=I+UN+(2-QU)+SF*2-(SF=2)+1
  72. 73 ONIGOSUB75,75,75,76,76,77,77,78,78,79,79,80,80,81,81
  73. 74 GOTO82
  74. 75 I$="[214]ERY [204]OW ":RETURN
  75. 76 I$="[204]OW      ":RETURN
  76. 77 I$="[205]ODERATE ":RETURN
  77. 78 I$="[200]IGH     ":RETURN
  78. 79 I$="[156][214]ERY [200]IGH":RETURN
  79. 80 I$="[156][197]XTREME  ":RETURN
  80. 81 I$="[213]LTIMATE ":RETURN
  81. 82 PRINTI$;:RETURN
  82. 83 L=20:F$="":M=0:POKE211,X:FORI=1TOL:PRINT"-";:NEXT:PRINT"<";:POKE211,X
  83. 84 PRINT"[179][157]";
  84. 85 GETKY$:IFKY$=""THEN85
  85. 86 A$="-":IFM=LTHENA$="<"
  86. 87 IFKY$=CHR$(13)THENPRINTA$;:RETURN
  87. 88 IFKY$<>CHR$(20)THEN91
  88. 89 IFM=0THEN85
  89. 90 PRINT"[157][179]"A$"[157][157]";:M=M-1:F$=LEFT$(F$,LEN(F$)-1)
  90. 91 IFKY$="[147]"THEN83
  91. 92 IFKY$=" "THENIFM<LTHENPRINT"-[179][157]";:GOTO98
  92. 93 IFASC(KY$)>192ANDASC(KY$)<219THEN96
  93. 94 IFASC(KY$)<32ORASC(KY$)>95THEN85
  94. 95 IFKY$=CHR$(34)THEN85
  95. 96 IFM=LTHEN85
  96. 97 PRINTKY$"[179][157]";
  97. 98 F$=F$+KY$:M=M+1:GOTO85
  98. 99 PRINT" ";
  99. 100 I=ASC(MID$(RS$(P),21,1)):GOSUB311:PRINTI$;
  100. 101 PRINT "  ";LEFT$(RS$(P),20);
  101. 102 POKE211,28:I=P:GOSUB 312:V=SC:GOSUB122:PRINT" PTS.":J=P:GOSUB110
  102. 103 PRINT "                                      ";:POKE211,3:PRINT""DC$
  103. 104 RETURN
  104. 105 I$=N$+LEFT$(CL$,20-LEN(N$)):I$=I$+CHR$(R):V=SC:GOSUB125
  105. 106 I$=I$+CHR$(LO)+CHR$(HI):I$=I$+MID$(RS$(CP),24,17):I$=I$+CHR$(FL)+CHR$(LN)
  106. 107 I$=I$+CHR$(WT)+CHR$(QU)+CHR$(UN)+CHR$(SF)
  107. 108 PRINT"[147]            [208]LEASE [211]TAND [194]Y"
  108. 109 I$=I$+CL$:RS$(CP)=LEFT$(I$,64):RETURN
  109. 110 V=ASC(MID$(RS$(J),47,1)):DC$="":IFVTHENDC$=MID$("[203][201][193][205][201][193]",V*3-2,3)
  110. 111 M=0:FOR I=12 TO 0 STEP -1
  111. 112 A=ASC(MID$(RS$(J),24+I,1)):IFA=0THEN 118
  112. 113 M=M+1:I$=MID$(M$,I*5+1,5):J$=" "
  113. 114 FOR X=1 TO 5:IFMID$(I$,X,1)<>" "THENJ$=J$+MID$(I$,X,1)
  114. 115 NEXT:J$=J$+"[151]":IFA>1THENJ$=J$+RIGHT$(STR$(A),LEN(STR$(A))-1)
  115. 116 J1$=DC$+J$:IF LEN(J1$)-M*2>35 THEN I=-1:GOTO 118
  116. 117 DC$=J1$
  117. 118 NEXT:J$="":J1$="":RETURN
  118. 119 V=F:GOSUB125:POKEA0,LO:POKEA1,HI:V=T:GOSUB125:POKEA2,LO:POKEA3,HI
  119. 120 V=L:GOSUB125:POKEA4,LO:POKEA5,HI:SYSKE+48:RETURN
  120. 121 F=BF+MP*512+EN*256:L=256:GOTO119
  121. 122 I$=STR$(V*10):IFLEFT$(I$,1)=" "THENPRINTRIGHT$(I$,LEN(I$)-1);:RETURN
  122. 123 PRINTI$;:RETURN
  123. 124 V=ASC(MID$(RS$(CP),I+1,1)):RETURN
  124. 125 IFV<0THENV=65536+V
  125. 126 HI=INT(V/256):LO=V-HI*256:RETURN
  126. 127 GOSUB125:POKEDB+I*2,LO:POKEDB+I*2+1,HI:I=I+1:RETURN
  127. 128 REM
  128. 129 GOSUB673:POKEA0,0:SYSKE+60:GOTO145
  129. 130 PRINT"[144][147]":POKE214,14:PRINT
  130. 131 QQ=INT(RND(0)*20)+1:F$="I"+RIGHT$(STR$(QQ),LEN(STR$(QQ))-1)
  131. 132 GOSUB681:SYS29988
  132. 133 FORI=1TO10:READF$:POKE211,1:PRINT"[129][161][163][144] "F$;:READF$
  133. 134 POKE211,21:PRINT"[129][161][163][144] "F$;
  134. 135 IFI<>10THEN PRINT
  135. 136 NEXT
  136. 137 POKE214,10:PRINT:PRINT"                                        ";
  137. 138 PRINT"[144] [213]SE JOYSTICK TO SELECT IDENTIFICATION,"
  138. 139 PRINT"      THEN PRESS THE FIRE BUTTON:"
  139. 140 POKEKE+554,15*4:POKEOF,0
  140. 141 SYSKE+12:SYSKE+39
  141. 142 SS=1:GOSUB674
  142. 143 POKEA1,SM:SYSKE:OP=PEEK(A0):OP=QQ-1:REM******
  143. 144 IFOP<>(QQ-1)THEN149
  144. 145 POKEOF,0:SYSKE+12:GOSUB675:GOSUB673
  145. 146 CP=ASC(MID$(RS$(8),1,1)):IFCP=11THENCP=0:GOTO267
  146. 147 J=CP:GOSUB110:GOSUB299:I=46:GOSUB124:IFVTHEN267
  147. 148 GOTO185
  148. 149 POKEOF,0:SYSKE+12:GOSUB675
  149. 150 PRINT"[147]    [201][206][195][207][210][210][197][195][212][160][214][197][200][201][195][204][197][160][201][196][197][206][212][201][198][201][195][193][212][201][207][206][144]"
  150. 151 PRINT"          [217]OU ARE ASSIGNED TO"
  151. 152 PRINT"          [212]RAINING IN THE [213][211][193]"
  152. 153 GOSUB674:FORI=0TO2500:NEXT
  153. 154 CP=11:BD=1:GOSUB299:GOTO228
  154. 155 POKEOF,0
  155. 156 SYSKE+12
  156. 157 PRINT"[147] [144][211][197][204][197][195][212][160][210][197][193][204][201][212][217][160][204][197][214][197][204][211]:"
  157. 158 PRINT" [144][198][204][217][201][206][199] [217][207][213][210][160][200][197][204][201][195][207][208][212][197][210]"
  158. 159 PRINT"[155]  [172][172][173] [210]EALISTIC: "FL$(1);
  159. 160 PRINT"  [172][172][173] [197]ASY: "FL$(0)
  160. 161 PRINT" [144][204][193][206][196][201][206][199][160][217][207][213][210] [200][197][204][201][195][207][208][212][197][210]"
  161. 162 PRINT"[155]  [172][172][173] [210]EALISTIC: "LN$(1);
  162. 163 PRINT"  [172][172][173] [197]ASY: "LN$(0)
  163. 164 PRINT" [144][215][197][193][212][200][197][210] [197][198][198][197][195][212][211]"
  164. 165 PRINT"[155]  [172][172][173] [210]EALISTIC: "WT$(1);
  165. 166 PRINT"  [172][172][173] [197]ASY: "WT$(0)
  166. 167 PRINT"[152][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][177]";
  167. 168 PRINT"[144] [211][197][204][197][195][212] [197][206][197][205][217][160][209][213][193][204][201][212][217]:"
  168. 169 PRINT"[155]  [172][172][173] 1ST [204]INE"
  169. 170 PRINT"  [172][172][173] 2ND [204]INE"
  170. 171 PRINT"  [172][172][173] 3RD [204]INE"
  171. 172 PRINT"        [144][207]VERALL [210]ISK - ";:GOSUB70
  172. 173 POKEA0,1:SYSKE+60:GOSUB 670
  173. 174 PRINT"[152][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][177]";
  174. 175 POKESL+2-FL,1:POKESL+4-LN,1:POKESL+6-WT,1
  175. 176 POKESL+7+QU,1
  176. 177 POKEA1,SM:SYSKE+21:SS=63:GOSUB674
  177. 178 POKEA1,SM:SYSKE:OP=PEEK(A0)
  178. 179 IFOP=0THEN185
  179. 180 IFOP>0ANDOP<3THENFL=1-(OP-1):GOTO184
  180. 181 IFOP>2ANDOP<5THENLN=1-(OP-3):GOTO184
  181. 182 IFOP>4ANDOP<7THENWT=1-(OP-5):GOTO184
  182. 183 QU=OP-7
  183. 184 POKE214,22:PRINT:POKE211,23:GOSUB70:GOTO178
  184. 185 IFCP=11THEN129
  185. 186 I=PEEK(DB+124):IFITHENPOKEDB+124,0:ONIGOTO228,342,315,267
  186. 187 GOSUB673
  187. 188 PRINT"[147][144] [195][213][210][210][197][206][212][160][208][201][204][207][212]":PRINT"  "R$" "N$"";
  188. 189 POKE211,28:V=SC:GOSUB122:PRINT"PTS."
  189. 190 PRINT"  "DC$
  190. 191 PRINT" [144][195][213][210][210][197][206][212][160][196][213][212][217][160][193][211][211][201][199][206][205][197][206][212]":PRINT"       ";
  191. 192 GOSUB193:PRINT:GOTO 199
  192. 193 ONUN+1GOTO194,195,196,197,198
  193. 194 I$="038114":PRINT"[198]LIGHT TRAINING IN THE [213][211][193]";:RETURN
  194. 195 I$="136114":PRINT"1ST [195]AVALRY IN [211]OUTHEAST [193]SIA";:RETURN
  195. 196 I$="240114":PRINT"82ND [193]IRBORNE IN [195]ENTRAL [193]MERICA";:RETURN
  196. 197 I$="340114":PRINT"101ST [193]IR [193]SSAULT IN [205]IDDLE [197]AST";:RETURN
  197. 198 I$="435114":PRINT"3RD [193]RMORED IN [215]ESTERN [197]UROPE";:RETURN
  198. 199 POKERL,148:POKERL+1,0:POKESH,VAL(LEFT$(I$,1)):POKESX,VAL(MID$(I$,2,2))
  199. 200 POKESY,VAL(RIGHT$(I$,3))
  200. 201 PRINT"        VS ";
  201. 202 ONQUGOTO204,205
  202. 203 PRINT"1ST";:GOTO206
  203. 204 PRINT"2ND";:GOTO206
  204. 205 PRINT"3RD";
  205. 206 PRINT" [204]INE [197]NEMY"
  206. 207 POKE 214,11:PRINT:PRINT "[144] [195][213][210][210][197][206][212][160][211][212][217][204][197] [207][198][160][198][204][217][201][206][199]":POKE211,9
  207. 208 GOSUB209:PRINT:GOTO 213
  208. 209 ONSF+1GOTO210,211,212
  209. 210 I$="548154":PRINT"[210]EGULAR [205]ISSIONS[144]";:RETURN
  210. 211 I$="646154":PRINT"[214]OLUNTEER [205]ISSIONS[144]";:RETURN
  211. 212 I$="746154":PRINT"[214]OLUNTEER [200]AZARDOUS [196]UTY[144]";:RETURN
  212. 213 POKESH+1,VAL(LEFT$(I$,1)):POKESX+1,VAL(MID$(I$,2,2))
  213. 214 POKESY+1,VAL(RIGHT$(I$,3))
  214. 215 PRINT" [144][195][213][210][210][197][206][212] [210][197][193][204][201][212][217] [204][197][214][197][204][211]"
  215. 216 PRINT"   [180] "FL$(FL)
  216. 217 PRINT"   [180] "LN$(LN)
  217. 218 PRINT"   [180] "WT$(-WT*(UN>0))
  218. 219 PRINT"   [144][195]URRENT LEVEL OF RISK IS:";:GOSUB70
  219. 220 SYSKE+18
  220. 221 POKEA0,2:SYSKE+60
  221. 222 PRINT" [144][195]HANGE:"
  222. 223 PRINT"[152][182][208]ILOT[146][182][196]UTY[146][182][211]TYLE[146][182][210]EALITY[146]";
  223. 224 GOSUB670
  224. 225 SS=255:GOSUB674
  225. 226 POKEA1,SM:SYSKE:OP=PEEK(A0)
  226. 227 ONOPGOTO267,315,342,155
  227. 228 POKE53265,0:SYSKE+12:POKE53280,11:POKE53281,11:GOSUB105:POKE53265,27
  228. 229 I$=MID$("TNSECAMEWE",UN*2+1,2):MP=INT(RND(0)*4):EN=INT(RND(0)*2)
  229. 230 IFUN=0THENMP=0:EN=0
  230. 231 F$="MISSION."+I$:GOSUB680:T=MB:GOSUB121
  231. 232 MS=200:GOSUB239:M2=MS:M2$=MD$:GOSUB239
  232. 233 F$="TILES."+I$:GOSUB680:T=TB:F=BF+256*MP:L=256:GOSUB119
  233. 234 F$="ENEMIES."+I$:GOSUB680:T=EH:F=BF+1280*MP+640*EN:L=640:GOSUB119
  234. 235 F$="BITMAP."+I$:GOSUB680:T=BB:GOSUB121
  235. 236 F$="ARM":GOSUB680:IFUN=0THENI$="WE"
  236. 237 F$="MAP.CHR."+I$:GOSUB680:F$="MAP.CHR."+I$+"1":GOSUB680
  237. 238 MP=MP+1:EN=EN+1:GOTO243
  238. 239 I=INT(RND(0)*13)+1:IFI=MSTHEN239
  239. 240 IFPEEK(MB+(I-1)*12)=0THEN239
  240. 241 MS=I:GOTO603
  241. 242 RETURN
  242. 243 ONUNGOTO245,246,247,248
  243. 244 TP=76:GOTO250
  244. 245 I=36:A=70:J=31:B=60:GOTO249
  245. 246 I=31:A=75:J=26:B=65:GOTO249
  246. 247 I=36:A=75:J=26:B=55:GOTO249
  247. 248 I=41:A=50:J=26:B=40:GOTO249
  248. 249 TP=INT(RND(1)*I)+A:IFDY$="NIGHT" THEN TP=INT(RND(1)*J)+B
  249. 250 IFWT=0ORUN=0THENTP=76:WN=2
  250. 251 FORJ=1TO11:A=PEEK(MB+(MS-1)*12+J):POKEET+A,PEEK(ET+A)OR144
  251. 252 A=PEEK(MB+(M2-1)*12+J):POKEET+A,PEEK(ET+A)OR80:NEXT
  252. 253 POKEKE+556,0:POKEKE+557,4
  253. 254 I=MS-1:GOSUB56:G1$=I$
  254. 255 I=M2-1:GOSUB56:G2$=I$
  255. 256 GOSUB598
  256. 257 OD$="":FORI=0TO6:OD$=OD$+CHR$(48+INT(RND(0)*10)):NEXT
  257. 258 PS=INT(RND(0)*16):GOSUB563
  258. 259 TM=INT(RND(0)*24)+1:DY$="DAY":IFTM<6ORTM>20THENDY$="NIGHT":GOTO261
  259. 260 TM=INT(TM/2)*2
  260. 261 V=TM*100:SD=4:GOSUB11:TM$=I$
  261. 262 DR=INT(RND(0)*360):V=DR:SD=3:GOSUB11:DR$=I$
  262. 263 WN=INT(RND(0)*10)+2:IFINT(RND(0)*8)>5THENWN=WN+10
  263. 264 IFWT=0ORUN=0THENTP=76:WN=2
  264. 265 GOSUB4:GOSUB8:HX=PEEK(EH+J):HY=PEEK(EY+J)
  265. 266 GOTO 365
  266. 267 GOSUB673:POKE53270,200
  267. 268 PRINT "[147][144] [193][200]-64[193] [208]ILOT [210]OSTER & [211]ERVICE [210]ECORDS"
  268. 269 FORZ=0TO7:P=Z:GOSUB99:IFZ/2=INT(Z/2)THENGOSUB4
  269. 270 NEXT:PRINT"[159][170][197]RASE [208]ILOT[146]";
  270. 271 POKEA0,3:SYSKE+60
  271. 272 SYSKE+12:GOSUB670
  272. 273 POKESL+2+CP,1:POKEA1,SM:SYSKE+21:SS=1:GOSUB674
  273. 274 POKEA1,SM:SYSKE:OP=PEEK(A0)
  274. 275 IFOP=0THEN289
  275. 276 IFOP<>1THENCP=OP-2:GOTO274
  276. 277 POKESL+1,0
  277. 278 PRINT "[159][170][197]RASE [208]ILOT[146]";
  278. 279 POKE214,21:PRINT:PRINT "[144]        [197]NTER NEW [208]ILOT'S [206]AME"
  279. 280 PRINT "        >";:POKE198,0:X=9:GOSUB83:IFF$=""THEN283
  280. 281 RS$(CP)=F$+LEFT$(CL$,20-LEN(F$))+LEFT$(CL$,20)+CHR$(1)+LEFT$(CL$,2)
  281. 282 RS$(CP)=RS$(CP)+CHR$(2)+LEFT$(CL$,40)
  282. 283 POKE 214,21:PRINT:PRINT "                                "
  283. 284 PRINT "                                "
  284. 285 POKE214,4+CP*2:PRINT:PRINT"                                       ";
  285. 286 V=(5+CP*2)*40+39:POKE51200+V,32:POKE55296+V,6
  286. 287 POKE214,4+CP*2:PRINT:P=CP:GOSUB99
  287. 288 GOTO 273
  288. 289 IFASC(MID$(RS$(CP),47,1))=0THEN296
  289. 290 POKE214,21:PRINT:PRINT" [217]OU CANNOT USE A [205]ISSING OR [196]EAD [208]ILOT"
  290. 291 PRINT"[144]   [197]RASE THIS PILOT OR SELECT ANOTHER.";
  291. 292 POKESL,0:I=0:GOSUB297:I=16:GOSUB297
  292. 293 POKE214,21:PRINT:PRINT"                                       "
  293. 294 PRINT"                                      ";
  294. 295 PRINT"";:POKE 211,30:PRINT"[182][195]ONTINUE[146][144]":GOTO274
  295. 296 GOSUB299:GOTO185
  296. 297 IF(PEEK(56320)AND16)=ITHEN297
  297. 298 RETURN
  298. 299 N$="":I=0
  299. 300 IFI=20ORMID$(RS$(CP),I+1,1)=CHR$(0)THEN302
  300. 301 N$=N$+MID$(RS$(CP),I+1,1):I=I+1:GOTO300
  301. 302 I=ASC(MID$(RS$(CP),21,1)):R=I:GOSUB311:R$=I$
  302. 303 J=CP:GOSUB110:I=CP:GOSUB312:SC$=I$
  303. 304 I=40:GOSUB124:FL=V
  304. 305 I=41:GOSUB124:LN=V
  305. 306 I=42:GOSUB124:WT=V
  306. 307 I=43:GOSUB124:QU=V
  307. 308 I=44:GOSUB124:UN=V
  308. 309 I=45:GOSUB124:SF=V
  309. 310 RETURN
  310. 311 I$=MID$("[211][199][212][215][207]12[204][212]1[204][212][195][208][212][205][193][202][204][212][195][195][207][204]",I*3+1,3):RETURN
  311. 312 SC=ASC(MID$(RS$(I),22,1))+256*ASC(MID$(RS$(I),23,1))
  312. 313 IFSC>32767THENSC=SC-65536
  313. 314 I$=STR$(SC):RETURN
  314. 315 POKEOF,0
  315. 316 PRINT"[144][147] [195][200][207][207][211][197] [217][207][213][210][160][196][213][212][217][160][193][211][211][201][199][206][205][197][206][212]:":I$="       "
  316. 317 PRINTI$"[159][198]LIGHT [212]RAINING IN THE [213][211][193]:"
  317. 318 PRINTI$"[155][204]EARN TO FLY AND SHOOT AGAINST"
  318. 319 PRINTI$"ENEMIES USING "CHR$(34)"BLANKS/"CHR$(34)"[157]."
  319. 320 PRINTI$"[159]1ST [195]AVALRY IN [211]OUTHEAST [193]SIA:"
  320. 321 PRINTI$"[155][193] GOOD FIRST TOUR; THE ENEMY HAS"
  321. 322 PRINTI$"POOR WEAPONS, BUT IS HARD TO FIND"
  322. 323 PRINTI$"[159]82ND [193]IRBORNE IN [195]ENTRAL [193]MERICA:";
  323. 324 PRINTI$"[155][212]OUGHER RUMBLES IN THE JUNGLE."
  324. 325 PRINTI$"[199]UERILLAS HAVE BETTER ARMAMENTS."
  325. 326 PRINTI$"[159]101ST [193]IR [193]SSAULT IN [205]IDDLE [197]AST:";
  326. 327 PRINTI$"[155][196]ESERT DUELS: [194]EWARE THE [210]USSIAN-";
  327. 328 PRINTI$"BUILT [211][193][205]S AND FLAK GUNS."
  328. 329 PRINTI$"[159]3RD [193]RMORED IN [215]ESTERN [197]UROPE:"
  329. 330 PRINTI$"[155][196]ESPERATE MISSIONS TO STOP THE"
  330. 331 PRINTI$"RED STEAMROLLER FROM THE EAST."
  331. 332 POKEA0,4:SYSKE+60
  332. 333 GOSUB 670
  333. 334 SYSKE+6
  334. 335 PRINT"[144] [207]VERALL [210]ISK: ";:GOSUB70
  335. 336 POKESL+1+UN,1
  336. 337 POKEA1,SM:SYSKE+21:GOSUB674
  337. 338 POKEA1,SM:SYSKE+0:OP=PEEK(A0)
  338. 339 IFOP=0THENGOTO185
  339. 340 UN=OP-1
  340. 341 PRINT"":POKE211,15:GOSUB70:GOTO338
  341. 342 POKEOF,0
  342. 343 PRINT"[147][144] [215][200][193][212][160][211][212][217][204][197][160][207][198][160][205][201][211][211][201][207][206][211] [215][201][204][204][160][217][207][213][160][198][204][217]?":I$="         "
  343. 344 PRINTI$"[159][210]EGULAR [205]ISSIONS"
  344. 345 PRINTI$"[155][217]OUR BEST CHANCE OF SURVIVING"
  345. 346 PRINTI$"THE WAR: DO WHAT YOU'RE TOLD"
  346. 347 PRINTI$"AND COME BACK HOME INTACT!"
  347. 348 PRINTI$"[159][214]OLUNTEER [205]ISSIONS"
  348. 349 PRINTI$"[155][211]TEP FORWARD FOR TOUGHER"
  349. 350 PRINTI$"MISSIONS, EXTRA RISKS, AND"
  350. 351 PRINTI$"A CHANCE TO BE A HERO."
  351. 352 PRINTI$"[159][214]OLUNTEER [200]AZARDOUS [196]UTY"
  352. 353 PRINTI$"[155][202]UST THE TICKET FOR GUNG-HO"
  353. 354 PRINTI$"SUPERHEROES WHO DON'T WORRY"
  354. 355 PRINTI$"ABOUT DETAILS LIKE SURVIVAL."
  355. 356 POKE214,21:PRINT:POKE211,15:GOSUB70
  356. 357 SYSKE+9
  357. 358 POKE214,20:PRINT:PRINT"     [144][217]OUR OVERALL LEVEL OF RISK IS"
  358. 359 POKEA0,5:SYSKE+60:GOSUB 670
  359. 360 POKESL+1+SF,1
  360. 361 POKEA1,SM:SYSKE+21:GOSUB674
  361. 362 POKEA1,SM:SYSKE:OP=PEEK(A0)
  362. 363 IFOP=0THEN185
  363. 364 SF=OP-1:POKE214,21:PRINT:POKE211,15:GOSUB70:GOTO362
  364. 365 POKEOF,0:POKE53270,200:PRINT"[147]";
  365. 366 SYSKE+12:IFUN=0THEN 396
  366. 367 POKE648,4
  367. 368 FORI=0TO16:POKE53248+I,0:NEXT
  368. 369 GOSUB582
  369. 370 PRINT"[147][144][207][208][211][160][207][210][196][197][210] "OD$;
  370. 371 PRINT"^[144][193][212][203][160][200][197][204][160][194][206], "UN$;
  371. 372 PRINT"^[144][207][208][211][160][208][193][211][211][215][207][210][196]: "PS$;
  372. 373 PRINT"^^[144][200]-[200][207][213][210] "TM$"^^[144][205][201][211][211][201][207][206]: "MS$"^";
  373. 374 PRINT"^[144][207][194][202][197][195][212][201][214][197]:^  [152][217]OU ARE TO ";
  374. 375 PRINT""MD$" [152]";:I=MS:GOSUB59
  375. 376 PRINT" GRID ("G1$;
  376. 377 PRINT")[152]. [200]OWEVER, AS A SECONDARY OBJECTIVE, YOU MAY BE ";
  377. 378 PRINT"ORDERED TO ";
  378. 379 PRINT""M2$" [152]";:I=M2:GOSUB59
  379. 380 PRINT" GRID ("G2$;
  380. 381 PRINT")[152].^^   [212]HIS IS A "DY$"[152] MISSION. [212]HE WIND IS BLOWING AT"WN;
  381. 382 PRINT"KTS FROM ";
  382. 383 I=DR+11:IFI>359THENI=I-360
  383. 384 I=INT(I/22.5)
  384. 385 I$=MID$(" [206] [206][206][197] [206][197][197][206][197] [197] [197][211][197] [211][197][211][211][197] [211] [211][211][215] [211][215][215][211][215] [215] [215][206][215] [206][215][206][206][215]",I*3+1,3):A$=""
  385. 386 FORI=1TO3:J$=MID$(I$,I,1):IFJ$="[206]"THENA$=A$+"NORTH"
  386. 387 IFJ$="[211]"THENA$=A$+"SOUTH"
  387. 388 IFJ$="[197]"THENA$=A$+"EAST"
  388. 389 IFJ$="[215]"THENA$=A$+"WEST"
  389. 390 NEXT:I$=CHR$(ASC(LEFT$(A$,1))+128)+RIGHT$(A$,LEN(A$)-1):PRINTI$;
  390. 391 PRINT" (";
  391. 392 V=DR:SD=3:GOSUB10
  392. 393 PRINT"$) AND THE TEMPERATURE IS"TP"[157]$_";
  393. 394 POKE 648,SM:POKEA1,4:POKEA5,SM:SYSKE+15
  394. 395 OP=0:GOTO583
  395. 396 GOSUB673
  396. 397 PRINT"[147][144] [207][208][211] [207][210][196][197][210]: [212][210][193][201][206][201][206][199] [198][204][201][199][200][212]"
  397. 398 PRINT" [144][213][211][160][193][210][205][217][160][200][197][204][201][195][207][208][212][197][210][160][212][210][193][201][206][201][206][199][160][195][197][206][212][197][210]"
  398. 399 PRINT" [206][207][160][207][208][211][160][208][193][211][211][215][207][210][196] [210][197][209][213][201][210][197][196]"
  399. 400 PRINT" [200]-[200][207][213][210]: "TM$
  400. 401 PRINT" [144][205][201][211][211][201][207][206]: [198][204][201][199][200][212] &[160][199][213][206][206][197][210][217][160][212][210][193][201][206][201][206][199]"
  401. 402 PRINT" [144][207][194][202][197][195][212][201][214][197]:":PRINT "   [152][217]OU ARE CLEARED FOR A TRAINING"
  402. 403 PRINT" FLIGHT OVER THE GUNNERY RANGE.  [193]LL"
  403. 404 PRINT" ENEMIES ARE ARMED WITH SIMULATORS"
  404. 405 PRINT" THAT CANNOT HURT YOU. [195]OMPLETE FLIGHT"
  405. 406 PRINT" BY RETURNING TO THE CENTRAL HELI-BASE."
  406. 407 PRINT"   [215]EATHER IS PERFECT.  [212]HIS WILL"
  407. 408 PRINT" BE A "DY$" FLIGHT."
  408. 409 PRINT"[159]  [211]EE [146]":PRINT "  [205]AP [146]";
  409. 410 POKEA0,6:SYSKE+60
  410. 411 GOSUB670:GOSUB582:GOSUB674
  411. 412 POKEA1,SM:SYSKE:OP=PEEK(A0)
  412. 413 IFOP=0THEN508
  413. 414 GOTO415
  414. 415 POKEOF,0:SYSKE+12
  415. 416 POKEA0,0:POKEA1,168:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,8:SYSKE+51
  416. 417 POKEKE+556,12:POKEKE+557,12
  417. 418 PRINT"[147]12"SPC(36);
  418. 419 FORI=12TO2STEP-1:IFI/3=INT(I/3)THENGOSUB4
  419. 420 V=I:SD=2:GOSUB10:PRINT"[]"SPC(36)"[]";:V=I-1:GOSUB10:PRINTSPC(36);:NEXT
  420. 421 PRINT"01[]"SPC(36)"[]  =01=02=03=04=05=06=07=08=09=10=11=12";
  421. 422 POKEA0,7:SYSKE+60
  422. 423 POKE53282,6:POKE53283,13:POKE53288,0:POKESP+1,230:POKE53275,0
  423. 424 POKES+3,47+(192-(HY-24)):V=39+(HX-24)*1.5:GOSUB125:POKES+2,LO
  424. 425 POKES+16,HI*2:SYSKE+57:SS=3:BK=5:GOSUB674:POKE198,0
  425. 426 IF(PEEK(56320)AND16)=0THEN428
  426. 427 GETI$:IFI$=""THEN426
  427. 428 POKE53265,0:POKE53270,200:POKE53281,1
  428. 429 POKEA0,0:POKEA1,168:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,8:SYSKE+51
  429. 430 GOTO365
  430. 431 POKE53265,0:PRINT"[147]";
  431. 432 POKE648,4
  432. 433 PRINT"[147][144][207][208][211][160][207][210][196][197][210] "OD$;
  433. 434 PRINT"^[144][193][212][203][160][200][197][204][160][194][206], "UN$;
  434. 435 PRINT"^[144][205][201][211][211][201][207][206]: "MS$;
  435. 436 PRINT"^^^[144][199]-2 [201][206][212][197][204][204][201][199][197][206][195][197][160][194][210][201][197][198][201][206][199]:^  [152]";
  436. 437 ONUNGOTO 438,439,440,441
  437. 438 PRINT"[206][214][193] AND [214][195]";:GOTO 442
  438. 439 PRINT"[198][211][204][206]";:GOTO 442
  439. 440 PRINT"[193]RAB";:GOTO 442
  440. 441 PRINT"[215]ARSAW [208]ACT";
  441. 442 PRINT" FORCES ARE EXPECTED TO HAVE ";
  442. 443 ONQUGOTO445,446
  443. 444 PRINT"ELITE TROOPS WITH THE LATEST EQUIPMENT";:GOTO 447
  444. 445 PRINT"TRAINED TROOPS WITH GOOD EQUIPMENT";:GOTO447
  445. 446 PRINT"INEXPERIENCED TROOPS WITH OBSOLETE EQUIPMENT";
  446. 447 PRINT" IN THIS AREA.  [212]HEY CARRY ";
  447. 448 GOSUB4:GOSUB633:PRINT""I$;
  448. 449 PRINT"[152] FOR PROTECTION.^  [197]NEMY LOCAL AIR DEFENSES INCLUDE ";
  449. 450 GOSUB647:PRINTA$;
  450. 451 PRINT"[152].^  [197]NEMY [205]I-24 [200]IND HELICOPTERS ";
  451. 452 IFUN=1THENPRINT"ARE NOT";:GOTO454
  452. 453 PRINT"[193][210][197]";
  453. 454 PRINT"[152] BELIEVED TO BE OPERATING IN THIS AREA.^^";
  454. 455 PRINT"  [207]VERALL, [199]-2 EXPECTS THIS MISSION'S DIFFICULTY TO BE [150]";:GOSUB70
  455. 456 PRINT"_";
  456. 457 POKE648,SM:POKEA1,4:POKEA5,SM:SYSKE+15
  457. 458 OP=2:GOTO583
  458. 459 POKEOF,0:PRINT"[147]";
  459. 460 POKE 648,4:POKE53270,200
  460. 461 PRINT"[144][147][193][212][203][160][200][197][204] [194][206], "UN$;
  461. 462 PRINT"^[208][210][197]-[198][204][201][199][200][212] [195][200][197][195][203][204][201][211][212]:^^";
  462. 463 PRINT"[144][196][207][160][217][207][213][160][203][206][207][215] [217][207][213][210] [195][207][213][206][212][197][210][211][201][199][206]?^";
  463. 464 PRINT"[152]   [201]F YOU DON'T YOUR OWN AIR DEFENSES WILL SHOOT ";
  464. 465 PRINT"YOU DOWN!^^[144][196][207][160][217][207][213][160][203][206][207][215][160][217][207][213][210][160][212][193][210][199][197][212][211]?^";
  465. 466 PRINT"[152]   [201]T'S HARD TO SUCCEED IN YOUR MISSION IF YOU FORGET YOUR";
  466. 467 PRINT" ORDERS! ";
  467. 468 PRINT"[206]OTHING IS MORE EMBARRASSING THAN ";
  468. 469 PRINT"FORGETTING WHERE TO FIND THE TARGET!^^";
  469. 470 PRINT"[144][210][197][205][197][205][194][197][210][160][212][200][197][160][212][201][205][197][160][193][206][196][160][215][197][193][212][200][197][210]^";
  470. 471 PRINT"[152]   [201]T'S A "DY$" [205]ISSION!^";
  471. 472 PRINT"   [212]HE WIND IS"WN"KTS FROM"DR;
  472. 473 PRINT"[157]$^   [212]HE TEMPERATURE IS"TP"[157]$[198] WHICH ";
  473. 474 PRINT"WILL AFFECT WEIGHT YOU CAN CARRY._"
  474. 475 POKE648,SM:POKEA1,4:POKEA5,SM:SYSKE+15
  475. 476 POKE214,21:PRINT
  476. 477 PRINT"[159][170][217]ES,    [146]                  [170] [206]O, RETURN[146]"
  477. 478 PRINT"[170][195]ONTINUE[146]                  [170]TO BRIEFING[146]";
  478. 479 POKEA0,8:SYSKE+60:POKEKE+562,39:POKEKE+563,91
  479. 480 SYSKE+12:SS=1:GOSUB674
  480. 481 POKEA1,SM:SYSKE:OP=PEEK(A0)
  481. 482 POKEOF,0
  482. 483 IFOP=1THEN365
  483. 484 GOTO508
  484. 485 POKEOF,0
  485. 486 POKEKE+551,0
  486. 487 PRINT"[147] [199]OING ON [211]ICK [195]ALL?"
  487. 488 PRINT" [152][201]T'S A FAVORITE WAY FOR MALINGERERS"
  488. 489 PRINT" AND COWARDS TO AVOID TOUGH MISSIONS."
  489. 490 PRINT" [217]OU'LL BE SCRUBBED FROM THIS MISSION,"
  490. 491 PRINT" BUT THE [195][207] WON'T BE HAPPY ABOUT IT."
  491. 492 PRINT" [200]E WILL ARRANGE FOR YOUR TRANSFER"
  492. 493 PRINT" TO ANOTHER UNIT, IMMEDIATELY."
  493. 494 PRINT" [200]E'LL ALSO PUT A REPRIMAND IN YOUR"
  494. 495 PRINT" PERSONNEL FILE, MAKING PROMOTIONS"
  495. 496 PRINT" MUCH HARDER!"
  496. 497 PRINT" [144][196]O YOU REALLY WANT TO GO ON"
  497. 498 PRINT" [211]ICK [195]ALL?"
  498. 499 PRINT" [159] [217]ES [146]                             [159] [206]O [146]";
  499. 500 POKEA0,9:SYSKE+60
  500. 501 POKEKE+562,39:POKEKE+563,94
  501. 502 SYSKE+12:SS=1:GOSUB674
  502. 503 POKEA1,SM:SYSKE:OP=PEEK(A0)
  503. 504 IFOP=1THEN365
  504. 505 UN=UN-1:I$=LEFT$(RS$(CP),23):I=ASC(MID$(RS$(CP),24,1)):IFI<255THENI=I+1
  505. 506 I$=I$+CHR$(I)+RIGHT$(RS$(CP),40):RS$(CP)=I$:J=CP:GOSUB110
  506. 507 GOTO185
  507. 508 GOSUB673:POKE53264,0
  508. 509 D$="1":GOSUB758:GOSUB64
  509. 510 GOSUB673:POKE53264,0
  510. 511 POKEKE+551,1:IFTP<76THENTP=76
  511. 512 PRINT"[147][159]";
  512. 513 GOSUB561
  513. 514 POKEA0,10:SYSKE+60:POKE53281,1
  514. 515 POKEA0,0:POKEA1,188:POKEA2,0:POKEA3,216:POKEA4,0:POKEA5,4:SYSKE+48
  515. 516 MX=21000-50*ABS(76-TP):CW=10760:S1=0:S2=0:S3=0
  516. 517 FORI=0TO4:WP%(I)=0:POKESP+I+2,225:NEXT:POKESP+7,225
  517. 518 ONUNGOTO520,521,522,523
  518. 519 MX=MX-700:FU=376:RN=60:CH=1:FR=1:HL=1:F1=1:F2=0:SW=1:GOTO524
  519. 520 MX=MX-350:FU=376:RN=60:CH=1:FR=1:HL=0:F1=1:F2=1:SW=0:GOTO524
  520. 521 FU=376:RN=60:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1:GOTO524
  521. 522 MX=MX-700:FU=376:RN=30:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1:GOTO524
  522. 523 FU=374:RN=60:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1
  523. 524 CW=CW+FU*6.5+RN*26:FORI=51082TO51103:POKEI,255:NEXT
  524. 525 POKE214,20:PRINT:FORI=51062TO51073:POKEI,255:NEXT
  525. 526 POKE211,36-LEN(STR$(MX)):PRINTRIGHT$(STR$(MX),LEN(STR$(MX))-1);
  526. 527 I=CH:CH=0:GOSUB46:I=FR:FR=0:GOSUB50:GOSUB4
  527. 528 I=0:GOSUB12:I=0:GOSUB27:GOSUB4
  528. 529 I=SW*4:GOSUB30:I=F2*2:GOSUB43:I=F1*3:GOSUB40:GOSUB4
  529. 530 IFS2=0THENI=HL:GOSUB40:GOTO532
  530. 531 IFS3=0THENI=HL:GOSUB43
  531. 532 BK=0:GOSUB674
  532. 533 POKEKE+562,147:POKEKE+563,94:IFUN>0THEN535
  533. 534 POKEL1+12,41:J=8:FORI=56216TO56225:POKEI,J:POKEI+40,8:J=0:NEXT
  534. 535 HD=0:POKESP+1,225
  535. 536 POKEA1,SM:SYSKE:OP=PEEK(A0)
  536. 537 IF(OP=0)AND(RN<60)THENI=1:GOSUB27:GOTO535
  537. 538 IF(OP=1)AND(RN>0)THENI=-1:GOSUB27:GOTO535
  538. 539 IF(OP=2)AND(FU<376)THENI=8:GOSUB12:GOTO535
  539. 540 IF(OP=3)AND(FU>0)THENI=-8:GOSUB12:GOTO535
  540. 541 IFOP=4ANDCH<1THENI=CH+1:GOSUB46:GOTO535
  541. 542 IFOP=5ANDCH>0THENI=CH-1:GOSUB46:GOTO535
  542. 543 IFOP=6ANDFR<1THENI=FR+1:GOSUB50:GOTO535
  543. 544 IFOP=7ANDFR>0THENI=FR-1:GOSUB50:GOTO535
  544. 545 IFOP=8THENHD=1:POKESP+1,226:GOTO536
  545. 546 IFOP=9THENHD=2:POKESP+1,227:GOTO536
  546. 547 IFOP=10THENHD=4:POKESP+1,229:GOTO536
  547. 548 IFOP=11THENHD=3:POKESP+1,228:GOTO536
  548. 549 IFOP<>15THEN554
  549. 550 XX=PEEK(KE+560):POKESL+15,0:IFXX>45ORXX<6THENI=HD:GOSUB30:GOTO535
  550. 551 IFXX>38ORXX<13THENI=HD:GOSUB40:GOTO535
  551. 552 IFXX>31ORXX<19THENI=HD:GOSUB43:GOTO535
  552. 553 GOTO536
  553. 554 IFOP=12THENPOKEOF,0:GOSUB559:GOSUB561:GOTO485
  554. 555 IFOP=14THENPOKEOF,0:GOSUB561:GOTO715
  555. 556 IFOP=13THEN558
  556. 557 GOTO 535
  557. 558 POKEOF,0:GOSUB559:GOTO524
  558. 559 CW=CW-FU*6.5-RN*26-(CH+FR)*20:FU=376:RN=00:CH=0:FR=0:HL=0:F1=0:F2=0:SW=0
  559. 560 FORI=0TO4:POKESP+2+I,225:NEXT:POKESP+7,225:RETURN
  560. 561 POKEA0,0:POKEA1,176:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  561. 562 RETURN
  562. 563 IFPS>9THEN565
  563. 564 ONPS+1GOTO566,567,568,569,570,571,572,573,574,575
  564. 565 ONPS-9GOTO576,577,578,579,580,581
  565. 566 PS$="[193][195][195][197][206][212]":RETURN
  566. 567 PS$="[194][201][204][204][194][207][193][210][196]":RETURN
  567. 568 PS$="[195][210][207][205][193][199][206][207][206]":RETURN
  568. 569 PS$="[196][193][203][207][212][193]":RETURN
  569. 570 PS$="[197][204][197][195][212][210][193]":RETURN
  570. 571 PS$="[198][207][207][212][200][207][204][196]":RETURN
  571. 572 PS$="[199][210][197][206][193][196][201][197][210]":RETURN
  572. 573 PS$="[200][197][196][199][197][200][207][199]":RETURN
  573. 574 PS$="[201][214][207][210][217]":RETURN
  574. 575 PS$="[203][206][207][195][203][207][213][212]":RETURN
  575. 576 PS$="[204][207][218][197][206][199][197]":RETURN
  576. 577 PS$="[205][193][218][213][210][203][193]":RETURN
  577. 578 PS$="[206][197][194][213][204][193]":RETURN
  578. 579 PS$="[207][214][193][212][201][207][206]":RETURN
  579. 580 PS$="[208][197][206][212][200][207][213][211][197]":RETURN
  580. 581 PS$="[209][213][193][210][212][218]":RETURN
  581. 582 POKEA0,11:SYSKE+60:SS=31:RETURN
  582. 583 PRINT"[159]";
  583. 584 FORI=0TO3:IFI=OPTHENPRINT "       ";:GOTO 586
  584. 585 PRINT "[166][164]"OP$(I,0)"[146][165]";
  585. 586 NEXT:PRINT
  586. 587 FORI=0TO3:IFI=OPTHENPRINT "       ";:GOTO 589
  587. 588 PRINT "[170]"OP$(I,1)"[146]";
  588. 589 NEXT
  589. 590 POKERS+1,0:POKERS,67:POKEG1,33:POKEG2,33:POKEV1,0:POKEV2,0:POKEG1+1,33
  590. 591 POKEG2+1,33:POKEV1+1,1:POKEV2+1,1:SYSKE+24:GOSUB 582
  591. 592 POKEA0,12:SYSKE+60:GOSUB 670
  592. 593 POKEL1+1+OP,41
  593. 594 GOSUB674
  594. 595 POKEA1,SM:SYSKE:I=PEEK(A0)
  595. 596 ONIGOTO365,415,431,485
  596. 597 GOTO 459
  597. 598 ONUNGOTO599,600,601,602
  598. 599 UN$="6 [210][197][199][212], 1 [195][193][214][160][196][201][214]":RETURN
  599. 600 UN$="[195][194][193][193], 82 [193][194][206] [196][201][214]":RETURN
  600. 601 UN$="[195][194][193][193], 101 [193][193][211][160][196][201][214]":RETURN
  601. 602 UN$="[195][194][193][193], 3 [193][210][205] [196][201][214]":RETURN
  602. 603 IFUN=0THEN RETURN
  603. 604 IFMS>10THEN 607
  604. 605 ONMSGOSUB609,610,611,612,613,614,615,616,617,618
  605. 606 GOTO622
  606. 607 ONMS-10GOSUB619,620,621
  607. 608 GOTO622
  608. 609 MD$="[196]HEADQUARTERS1":RETURN
  609. 610 MD$="[196]DEPOT1":RETURN
  610. 611 MD$="[196]HELI-BASE1":RETURN
  611. 612 MD$="[196][193][193] GUNS2":RETURN
  612. 613 MD$="[196]MOBILE [211][193][205]S2":RETURN
  613. 614 MD$="[196]TANKS3":RETURN
  614. 615 MD$="[196][194][205][208]S & [194][212][210]S3":RETURN
  615. 616 MD$="[196]INFANTRY3":RETURN
  616. 617 MD$="[196]BUNKER3":RETURN
  617. 618 MD$="[211]TROOPS3":RETURN
  618. 619 MD$="[211]BASE3":RETURN
  619. 620 MD$="[195]LEAR [204][218]3":RETURN
  620. 621 MD$="[211]EARCH & [196]ESTROY5":RETURN
  621. 622 I=VAL(RIGHT$(MD$,1)):MD$=LEFT$(MD$,LEN(MD$)-1)
  622. 623 ONIGOSUB624,625,626,627,628:GOTO 629
  623. 624 MS$="[201]NTERDICTION [211]TRIKE":RETURN
  624. 625 MS$="[212]ACTICAL [211]TRIKE":RETURN
  625. 626 MS$="[199]ROUND [211]UPPORT":RETURN
  626. 627 MS$="[201]NTERCEPTION":RETURN
  627. 628 MS$="[211]EARCH & [196]ESTROY":RETURN
  628. 629 IFLEFT$(MD$,1)="[196]"THENMD$="DESTROY ENEMY "+RIGHT$(MD$,LEN(MD$)-1)
  629. 630 IFMS=13THENRETURN
  630. 631 IFLEFT$(MD$,1)="[211]"THENMD$="SUPPORT FRIENDLY "+RIGHT$(MD$,LEN(MD$)-1)
  631. 632 RETURN
  632. 633 I=(UN-1)*3+(2-QU)
  633. 634 IFI=11THENI$="[211][193]-14":GOTO646
  634. 635 ONIGOTO636,637,638,639,640,641,642,643,644,645
  635. 636 I$="MOSTLY [205]ACHINE-GUNS, SOME [211][193]-7":GOTO 646
  636. 637 I$="[211][193]-7":GOTO646
  637. 638 I$="[211][193]-7":GOTO646
  638. 639 I$="[211][193]-7":GOTO646
  639. 640 I$="[211][193]-7[194]":GOTO646
  640. 641 I$="[211][193]-7":GOTO646
  641. 642 I$="[211][193]-7[194]":GOTO646
  642. 643 I$="[211][193]-7[194]":GOTO646
  643. 644 I$="[211][193]-7":GOTO646
  644. 645 I$="[211][193]-7[194]"
  645. 646 I$=I$+" SHORT RANGE [201][210] MISSILES":RETURN
  646. 647 I=(UN-1)*3+(2-QU)
  647. 648 IFI=11THEN I$="[211][193]-11 AND [211][193]-13[206][218][211][213]-30 [193][193][212]AND[199][195]":GOTO661
  648. 649 ONIGOTO651,652,653,654,655,656,657,658,659,660
  649. 650 I$="[211]-60 57MM GUNS WITHOUT RADAR AND [218][213]-23[204]":GOTO661
  650. 651 I$="[157][199][210] AND [218][213]-23[204]":GOTO661
  651. 652 I$="[157][199][195] AND [218][213]-23[204]":GOTO661
  652. 653 I$="[211][193]-9[206][157][199][210], AND [218][213]-23[204]":GOTO661
  653. 654 I$="[211][193]-9[206][218][211][213]-57-2 [193][193][212][157][199][210], AND [218][213]-23[204]":GOTO661
  654. 655 I$="[211][193]-9[206][218][211][213]-23-4 [193][193][212][157][199][195], AND [218][213]-23MM[204]":GOTO661
  655. 656 I$="[211][193]-9[206][211][213]-57-2 [193][193][212]AND[199][210]":GOTO661
  656. 657 I$="[211][193]-8 AND [211][193]-9[206][218][211][213]-23-4 [193][193][212]AND[199][210]":GOTO661
  657. 658 I$="[211][193]-8[194] AND [211][193]-9[194][206][218][211][213]-23-4[205] [193][193][212]AND[199][195]":GOTO661
  658. 659 I$="[211][193]-8 AND [211][193]-9[206][218][211][213]-23-4 [193][193][212]AND[199][210]":GOTO661
  659. 660 I$="[211][193]-8[194] AND [211][193]-9[194][206][218][211][213]-23-4[205] [193][193][212]AND[199][195]"
  660. 661 A$="":FORI=1TOLEN(I$):B$=MID$(I$,I,1):IFI/5=INT(I/5)THENGOSUB4
  661. 662 IFB$="[206]"THENA$=A$+" MISSILES, ":GOTO669
  662. 663 IFB$="[212]"THENA$=A$+" TANKS, ":GOTO669
  663. 664 IFB$="[199]"THENA$=A$+" [211]-60 57MM GUNS WITH ":GOTO669
  664. 665 IFB$="[195]"THENA$=A$+"RADAR FIRE CONTROL":GOTO669
  665. 666 IFB$="[210]"THENA$=A$+"SEARCH RADAR":GOTO669
  666. 667 IFB$="[204]"THENA$=A$+" LIGHT CANNONS":GOTO669
  667. 668 A$=A$+B$
  668. 669 NEXT:RETURN
  669. 670 PRINT"";:POKE211,30:PRINT"[182][195]ONTINUE[146][144]"
  670. 671 PRINT"[144][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  671. 672 POKEA0,13:SYSKE+60:POKEKE+562,143:POKEKE+563,6:RETURN
  672. 673 POKEOF,0:POKEKE+552,0:POKEKE+553,159:POKEKE+554,0:POKEKE+555,99:RETURN
  673. 674 POKE53269,SS:SS=255:POKE53280,11:POKE53281,BK:BK=1:POKE53265,27:RETURN
  674. 675 SYSKE+12:POKEOF,0:POKE 56576,0:POKE648,200:POKE53272,32:POKE53270,216
  675. 676 FORI=2TO16:POKE53248,0:NEXT
  676. 677 POKE53269,255
  677. 678 POKESP,177:POKE53287,12
  678. 679 POKE53280,11:POKE53281,1:RETURN
  679. 680 REM
  680. 681 POKE53269,0:SYSKE+54
  681. 682 GOSUB687
  682. 683 POKE781,B-INT(B/256)*256:POKE782,B/256
  683. 684 POKE780,0:POKE56333,127:POKE808,237:SYS65493:POKE808,234
  684. 685 IF(ST AND191)<>0THEN682
  685. 686 POKE808,234:POKE792,193:SYSKE+3:RETURN
  686. 687 FORI=0TOLEN(F$)-1:POKE1006+I,ASC(MID$(F$,I+1,1)):NEXT
  687. 688 POKE780,8:POKE781,8:POKE782,8:SYS65466
  688. 689 POKE780,LEN(F$):POKE781,238:POKE782,3:SYS65469
  689. 690 RETURN
  690. 691 KE=117*256
  691. 692 IFPEEK(828+58*2)=0THENCP=11
  692. 693 DIMRS$(11),W%(4),WC%(4),C%(4)
  693. 694 SM=200:S=53248:SP=SM*256+1016:SH=KE+120:RL=SH+6:SX=RL+6:SY=SX+6
  694. 695 A0=165:A1=A0+1:A2=A1+1:A3=A2+1:A4=A3+1:A5=A4+1:A6=A5+1:A7=A6+1
  695. 696 NO=KE+144:L1=NO+1:T1=L1+24:R1=T1+24:B1=R1+24:C1=B1+24:EX=C1+24:GR=EX+24
  696. 697 SL=GR+24:CR=SL+24:L2=CR+24:T2=L2+24:R2=T2+24:B2=R2+24:C2=B2+24
  697. 698 RS=KE+481:G1=RS+5:V1=G1+5:G2=V1+5:V2=G2+5:SS=255:BK=1
  698. 699 BT=KE+539:PT=BT+2:HR=PT+2:ML=HR+2:BC=ML+2:PC=BC+2
  699. 700 DB=828:SV=49*256:OC=21464:MB=144*256:CB=145*256:TB=146*256:BB=147*256
  700. 701 EH=148*256:EY=EH+128:EG=EY+128:EO=EG+128:ET=EO+128:BF=160*256
  701. 702 M$="[152][211][210]  [152][206][196][211] [152][211][197][193][195][152][195][193][195] [152][205][197][195] [152][215][197][195] [152][193][205]  [152][208][200]  [152][193][195][205] [152][194][211][214] [152][211][211]  [152][196][211][195] [152][195][205][207][200]"
  702. 703 FORI=0TO3:FORJ=0TO1:READOP$(I,J):NEXT:NEXT
  703. 704 READFL$(1),FL$(0),LN$(1),LN$(0),WT$(1),WT$(0)
  704. 705 READDM$(0),DM$(1),DM$(2)
  705. 706 READW%(0),W%(1),W%(2),W%(3),W%(4)
  706. 707 READWC%(0),WC%(1),WC%(2),WC%(3),WC%(4)
  707. 708 READC%(0),C%(1),C%(2),C%(3),C%(4)
  708. 709 FORI=0TO11:RS$(I)=CL$:NEXT
  709. 710 GOSUB61:SYSKE+63
  710. 711 IFCP<>11THENCP=ASC(MID$(RS$(8),1,1))
  711. 712 J=CP:GOSUB110:GOSUB299
  712. 713 POKEOF,0:SYSKE+3:GOSUB675:POKEKE+551,0:POKE53271,0:POKE53277,0
  713. 714 POKE53276,0:GOTO185
  714. 715 GOSUB673
  715. 716 V=PS:I=0:GOSUB127
  716. 717 V=-(DY$="NIGHT"):GOSUB127
  717. 718 V=3-QU:GOSUB127
  718. 719 V=FU*.415*128:GOSUB127
  719. 720 V=FU*.585*128:GOSUB127
  720. 721 V=FL*2+LN:GOSUB127
  721. 722 V=(SF+1)*-(UN>0):GOSUB127
  722. 723 V=INT(ABS(76-TP)/5):GOSUB127
  723. 724 V=INT(((WN-2)*COS(DR*((null)/180)))/2):GOSUB127
  724. 725 V=INT(((WN-2)*SIN(DR*((null)/180)))/2):GOSUB127:GOSUB4
  725. 726 V=RN:GOSUB127
  726. 727 V=WP%(4)*2:GOSUB127
  727. 728 V=WP%(2)*7+WP%(3)*19:GOSUB127
  728. 729 V=WP%(1)*8:GOSUB127
  729. 730 V=FR*10:GOSUB127
  730. 731 V=CH*10:GOSUB127
  731. 732 V=(M2-1)*256+(MS-1):GOSUB127
  732. 733 V=UN:GOSUB127
  733. 734 V=MP+EN*256:GOSUB127:GOSUB4
  734. 735 FORJ=1TO64:POKEDB+37+J,ASC(MID$(RS$(CP),J,1)):NEXT:GOSUB4
  735. 736 V=0:I=43:GOSUB127
  736. 737 V=HX*256:I=52:GOSUB127
  737. 738 V=HY*256+128*(UN=3):GOSUB127
  738. 739 V=0:GOSUB127:GOSUB127:GOSUB127:GOSUB127:GOSUB127
  739. 740 V=CP:I=59:GOSUB127
  740. 741 V=-4*(UN=0):GOSUB127
  741. 742 V=TP:GOSUB127
  742. 743 V=0:GOSUB127
  743. 744 FORI=0TO9:POKEDB+I+128,31:NEXT
  744. 745 FORI=1TOLEN(PS$):POKEDB+127+I,ASC(MID$(PS$,I,1))-192:NEXT:GOSUB4
  745. 746 D$="2":GOSUB758:F$="6.":GOSUB682
  746. 747 SYSKE+54:POKEOF,27:POKE 53270,200:POKE 56576,3:POKE53272,22:POKE53269,0
  747. 748 POKE53281,11:POKE53280,11:POKE53282,0:POKE648,4:POKE808,237
  748. 749 PRINT"[147][151]LOAD"CHR$(34)"6"CHR$(34)",8,1"CHR$(13)"RUN:"
  749. 750 PRINT"            [208]LEASE [211]TAND [194]Y[151]";
  750. 751 POKE631,13:POKE632,13:POKE198,2:POKEOF,27:NEW
  751. 752 POKE53269,0:PRINT"[147]      [212]URN DISK OVER AND INSERT IT"
  752. 753 IFD$="2"THENPRINT"           [194]ACKSIDE FACE "CHR$(34)"[213][208]"CHR$(34)
  753. 754 IFD$="1"THENPRINT"           [198]RONTSIDE FACE "CHR$(34)"[213][208]"CHR$(34)
  754. 755 PRINT"         PRESS [194][213][212][212][207][206] WHEN READY"
  755. 756 BK=11:SS=0:GOSUB674
  756. 757 IFPEEK(56320)AND16THEN757
  757. 758 PRINT"[147]":POKE53269,0:OPEN15,8,15,"I0:":OPEN2,8,2,"#1"
  758. 759 PRINT#15,"U1";2;0;18;0:PRINT#15,"B-P";2;163:GET#2,I$:CLOSE2:CLOSE15
  759. 760 IFI$<>D$THEN752
  760. 761 POKEOF,0:RETURN
  761. 762 DATA"[211]EE ","[194]RIEF ","[211]EE "," [205]AP  ","[211]EE ","[201]NTEL "
  762. 763 DATA"[211]ICK"," [195]ALL "
  763. 764 DATA"REAL FLIGHT PERFORMANCE","SIMPLIFIED FLIGHT"
  764. 765 DATA"CRASH LANDINGS POSSIBLE","ALL LANDINGS ARE PERFECT"
  765. 766 DATA"HIGHLY VARIABLE WEATHER","LIGHT WINDS, TEMP. 76$[198]"
  766. 767 DATA" [153][207]PERATIONAL"," [158][196]AMAGED"," [150][196][197][211][212][210][207][217][197][196]"
  767. 768 DATA0,2400,1600,2640,400,0,8,14,38,2,0,7,3,13,1
  768. 769 DATA"[212]-74","[205]1[193]1 [193]BRAMS","[194][205][208]-2","[205]2[193]1 [194]RADLEY","[205][212]-[204][194]","[205]113[193]3 [193][208][195]"
  769. 770 DATA"[194][212][210]-70","[205]163 [214]ULCAN","[211][193]-6 [199]AINFUL","[205]247 [211]GT [217]ORK","[211][193]-8 [199]ECKO"
  770. 771 DATA"[205]48[193]1 [195]HAPARRAL","[211][193]-9 [199]ASKIN","[213][200]-60 [194]LACKHAWK","[211][193]-13 [199]OPHER"
  771. 772 DATA"[205]ERKAVA [205]K2","[218][211][213]-23-4 [211]HILKA","[218][211][213]-57-2"
  772. 773 DATA"[205]I-24 [200]IND-[196]","[200]UGHES 500[205][196]"
  773.