home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / GUNSHIP2.D64 / e (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-07-01  |  23.3 KB  |  724 lines
  1. 5 POKE56333,127:POKE808,234:POKE792,193:POKE52,116:POKE56,116:CLR
  2. 6 PRINT"";CHR$(8);
  3. 7 OF=00
  4. 8 FORI=0TO63:CL$=CL$+CHR$(0):NEXTI
  5. 10 GOTO20000
  6. 12 POKE55822,I:POKE55862,I:POKE55902,I:RETURN
  7. 14 POKE55942,I:POKE55982,I:RETURN
  8. 18 GOSUB19:PRINTI$;:RETURN
  9. 19 I$=LEFT$("000000",SD+1-LEN(STR$(V)))+RIGHT$(STR$(V),LEN(STR$(V))-1):RETURN
  10. 20 IFFU+I>376THENI=376-FU
  11. 21 IFFU+I<0THENI=FU
  12. 22 J=CW:J=J+6.5*I:IFJ>MX THEN 30
  13. 23 FU=FU+I:CW=J:POKE214,14:PRINT:POKE211,23
  14. 24 SD=4:V=FU:GOSUB18:Z=22-INT(FU/16.3):U=12-INT(FU/28.9)
  15. 25 IFZ>0THENPOKE51080+Z,0
  16. 26 IFZ<22THENPOKE51082+Z,255
  17. 27 IFU>0THENPOKE51060+U,0
  18. 28 IFU<12THENPOKE51062+U,255
  19. 29 GOTO36
  20. 30 POKE214,18:PRINT"":POKE211,30
  21. 34 SD=5:V=CW:GOSUB18
  22. 35 FORI=1TO100:NEXT I
  23. 36 POKE214,18:PRINT"[159]":POKE211,30
  24. 37 SD=5:V=CW:GOSUB18
  25. 38 RETURN
  26. 40 J=CW:J=J+I*26:IFJ>MXTHEN30
  27. 44 RN=RN+I:CW=J:I=RN*20:POKE214,13:PRINT:POKE211,23
  28. 46 SD=4:V=I:GOSUB18:PRINT:GOTO36
  29. 50 IF(I<>0)AND(I<>4)THENRETURN
  30. 54 J=CW-W(S1)*BW+W(I)*BW:IFJ>MXTHEN 30
  31. 56 U=S1:S1=I:CW=J:POKESP+2,225+S1*LW:POKESP+7,225+S1*RW:POKE53289,C(S1)
  32. 58 POKE53294,C(S1):GOSUB36
  33. 60 WP(U)=WP(U)-1:WP(I)=WP(I)+1
  34. 64 IFU>0THENJ=U:GOSUB70
  35. 66 IFI>0THENJ=I:GOSUB70
  36. 68 RETURN
  37. 70 Z=WP(J)*WC(J)*BW:POKE214,12+J:PRINT:POKE211,37
  38. 74 SD=2:V=Z:GOSUB18:RETURN
  39. 80 J=CW-W(S2)*BW+W(I)*BW:IFJ>MXTHEN 30
  40. 84 U=S2:S2=I:CW=J:POKESP+3,225+S2*LW:POKESP+6,225+S2*RW:POKE53290,C(S2)
  41. 86 POKE53293,C(S2):GOSUB36:GOTO60
  42. 90 J=CW-W(S3)*BW+W(I)*BW:IF J>MX THEN 30
  43. 94 U=S3:S3=I:CW=J:POKESP+4,225+S3*LW:POKESP+5,225+S3*RW:POKE53291,C(S3)
  44. 96 POKE53292,C(S3):GOSUB36:GOTO60
  45. 100 J=CW-CH*20*CD+I*20*CD:IFJ>MXTHEN30
  46. 104 CW=J:CH=I*CD
  47. 106 IFCH=1ANDFR=2THENI=1:GOSUB110
  48. 108 IFCH=2THENI=0:GOSUB110
  49. 109 GOTO120
  50. 110 J=CW-FR*20*FD+I*20*FD:IFJ>MXTHEN30
  51. 114 CW=J:FR=I*FD
  52. 116 IFFR=1ANDCH=2THENI=1:GOSUB100
  53. 118 IFFR=2THENI=0:GOSUB100
  54. 120 IFCH>0THENI=15:GOSUB12:IFCH=2THENGOSUB14
  55. 122 IFFR>0THENI=10:GOSUB14:IFFR=2THENGOSUB12
  56. 124 IFCH=1ANDFR=0THENI=8:GOSUB14
  57. 126 IFFR=1ANDCH=0THENI=8:GOSUB12
  58. 128 IFCH=0ANDFR=0THENI=8:GOSUB12:GOSUB14
  59. 130 POKE214,15:PRINT:POKE211,23:I=CH*30
  60. 132 SD=4:V=I:GOSUB18:PRINT
  61. 134 POKE211,23:I=FR*30
  62. 136 SD=4:V=I:GOSUB18
  63. 138 GOTO36
  64. 140 I=PEEK(MB+I*12+1):J=INT((PEEK(EH+I)+8)/16-1):GOSUB150:I$=A$+"-"
  65. 142 J=INT((PEEK(EY*256+I)+8)/16-1):GOSUB150:I$=I$+A$:RETURN
  66. 150 A$=LEFT$("00",3-LEN(STR$(J)))+RIGHT$(STR$(J),LEN(STR$(J))-1):RETURN
  67. 160 I=PEEK(MB+(I-1)*12):IFI=1THENPRINT "AT";:RETURN
  68. 162 PRINT"IN THE VICINITY OF";:RETURN
  69. 200 POKE53269,0:F$="0:HISCORES":GOSUB16010
  70. 230 SYS65484:RETURN
  71. 250 SYSKE+66:FORI=0TO3:POKE(140+I)*256,1:POKE(140+I)*256+1,I+2:NEXTI
  72. 254 POKE142*256+192,CP:POKE53269,0
  73. 260 POKE53269,0:F$="HISCORES":OPEN15,8,15,"S0:"+F$:CLOSE15:GOSUB16050
  74. 270 POKEA6,0:POKEA7,140:POKE780,A6:POKE781,0:POKE782,144:POKE808,237:SYS65496
  75. 280 SYS65484:POKE808,234:RETURN
  76. 400 HL=0:LS=0:NM=0:NR=0:V=XP:GOSUB980:X=HI:DS=999:I=43:GOSUB930:S=V
  77. 412 V=YP:GOSUB980:Y=HI:DE=0:H=0
  78. 420 FORI=6TO121:J=PEEK(ET+I):IFJTHEN430
  79. 422 V=PEEK(EG+I)AND47:IFV=0THEN450
  80. 424 H=H-(V<32)+(V>31):S=S+S%(V):GOTO450
  81. 430 V=ABS(PEEK(EH+I)-X)+ABS(PEEK(EY+I)-Y)
  82. 440 IFV<=DSTHENDS=V:DE=I
  83. 450 NEXT I
  84. 460 V=PEEK(ET+DE)AND47:IFV=38ANDDS<5THENHL=1
  85. 470 IFV>31THENLS=1
  86. 471 S=((S+HH*30)-100*((OBAND2)=2)-200*((OBAND1)=1))*U(UN)*Q(QU)*SF(SF):H=H+HH
  87. 472 IFFL=0THENS=S*.9
  88. 473 IFL3=0THENS=S*.8
  89. 474 IFWT=0THENS=S*.8
  90. 475 IFTM>4096THENS=S*(4096/TM)
  91. 476 IFUN=0THENS=-20*(LN<4)-10*(OB>0)
  92. 477 IFLS=0THENS=S*.6
  93. 478 IFLS=1ANDHL=0THENS=S*.8
  94. 479 S=INT(S/10)
  95. 480 SC=SC+S:IFSC>32767THENSC=32767
  96. 481 IFSC<-32760THENSC=-32760
  97. 482 RETURN
  98. 486 V=SC:GOSUB980:V=LO:I=21:GOSUB900:V=HI:I=22:GOSUB900
  99. 487 V=S:GOSUB980:V=LO:I=48:GOSUB900:V=HI:I=49:GOSUB900
  100. 488 IFR=7OR(OB=0ANDR>0)THEN498
  101. 490 NR=1:I=23:GOSUB970:NR=NR*1.1^V:I=29:GOSUB970:NR=NR*.9^V:J=0
  102. 492 FORI1=32TO33:I=I1:GOSUB970:J=J+V:I=I1+2:GOSUB970:J1=J1+V:NEXTI1
  103. 496 NR=NR*.9^J*.8^J1:J=R(R)*NR:NR=0:IFSC>=JTHENNR=R+1:R=NR:V=R:I=20:GOSUB900
  104. 498 IFUN=0THEN550
  105. 500 IFOB=0THENI=47:GOSUB910:IFLM>3+(R>1)+(R>4)THENR(0)=23:NM=1:V=0:I=47:GOSUB900
  106. 501 IFS<0THENR(0)=23:NM=1
  107. 502 IF(OB>0)THENV=0:I=47:GOSUB900
  108. 503 IFWD=2THENR(NM)=30:NM=NM+1
  109. 504 CN(UN)=CN(UN)-1*(OB>0)
  110. 506 IFCN(UN)>2THENCN(UN)=0:R(NM)=UN:NM=NM+1
  111. 507 V=CN(UN):I=35+UN:GOSUB900
  112. 508 BM=0:IFOB=0THEN520
  113. 510 I=31:J=60:GOSUB590:IFS>VTHENBM=31
  114. 512 I=32:J=110:GOSUB590:IF(S>V)AND(R>0)THENBM=32
  115. 514 I=33:J=200:GOSUB590:IF(S>V)AND(R>1)THENBM=33
  116. 516 I=34:J=350:GOSUB590:IF(S>V)AND(R>2)THENBM=34
  117. 518 I=35:J=500:GOSUB590:IF(S>V)AND(R>2)AND(HT>0)THENBM=35
  118. 519 IFBM>0THENR(NM)=BM:NM=NM+1
  119. 520 RETURN
  120. 550 IFLN<4ANDH>1THENR(0)=24:NM=1
  121. 560 RETURN
  122. 590 GOSUB970:V=J*(V+1):I=8000+(31-I)*500:IFV>ITHENV=I
  123. 592 RETURN
  124. 800 V=ASC(MID$(RS$(J),47,1)):DC$(J)="":IFVTHENDC$(J)=MID$("[203][201][193][205][201][193]",V*3-2,3)
  125. 802 M=0:FOR I=12 TO 0 STEP -1
  126. 804 A=ASC(MID$(RS$(J),24+I,1)):IFA=0THEN 820
  127. 806 M=M+1:I$=MID$(M$,I*5+1,5):J$=" "
  128. 810 FOR X=1 TO 5:IFMID$(I$,X,1)<>" "THENJ$=J$+MID$(I$,X,1)
  129. 812 NEXTX:J$=J$+"[151]":IFA>1THENJ$=J$+RIGHT$(STR$(A),LEN(STR$(A))-1)
  130. 814 J1$=DC$(J)+J$:IFLEN(J1$)-M*2>35THENI=-1:GOTO820
  131. 816 DC$(J)=J1$
  132. 820 NEXTI:J$="":J1$="":RETURN
  133. 900 I$=LEFT$(RS$(CP),I)+CHR$(V)+RIGHT$(RS$(CP),63-I):RS$(CP)=I$:RETURN
  134. 910 V=ASC(MID$(RS$(CP),I+1,1)):V=V-1*(V<255):GOTO900
  135. 920 FORX=0TO19:POKETX+X,ASC(MID$(I$,X+1,1)):NEXTX
  136. 922 POKEA2,255:POKEA3,170:POKEA0,I:POKEA1,J:SYSKE+75:RETURN
  137. 930 V=PEEK(DB+I*2)+256*PEEK(DB+I*2+1):RETURN
  138. 940 I$=STR$(V*10):IFLEFT$(I$,1)=" "THENPRINTRIGHT$(I$,LEN(I$)-1);:RETURN
  139. 942 PRINTI$;:RETURN
  140. 950 FORI=0TO19:POKETX+I,V:NEXTI:RETURN
  141. 960 POKEKE+562,143:POKEKE+563,98:RETURN
  142. 970 V=ASC(MID$(RS$(CP),I+1,1)):RETURN
  143. 980 IFV<0THENV=65536+V
  144. 982 HI=INT(V/256):LO=V-HI*256:RETURN
  145. 990 GOSUB980:POKEDB+I*2,LO:POKEDB+I*2+1,HI:RETURN
  146. 1000 IFLN<2THEN21000
  147. 1021 IFLN>127THENOP=-1:GOTO27310
  148. 1022 GOTO7000
  149. 4300 N$="":I=0
  150. 4302 IFI=20ORMID$(RS$(CP),I+1,1)=CHR$(0)THEN4304
  151. 4303 N$=N$+MID$(RS$(CP),I+1,1):I=I+1:GOTO4302
  152. 4304 I=ASC(MID$(RS$(CP),21,1)):R=I:GOSUB4600:R$=I$
  153. 4305 DC$=DC$(CP):I=CP:GOSUB4610:SC$=I$
  154. 4306 I=40:GOSUB970:FL=V
  155. 4308 I=41:GOSUB970:L3=V
  156. 4310 I=42:GOSUB970:WT=V
  157. 4312 I=43:GOSUB970:QU=V
  158. 4313 I=16:GOSUB930:GOSUB980:MS=LO+1
  159. 4314 I=44:GOSUB970:UN=V:GOSUB14110
  160. 4316 I=45:GOSUB970:SF=V
  161. 4317 I=36:GOSUB970:CN(1)=V
  162. 4318 I=37:GOSUB970:CN(2)=V
  163. 4319 I=38:GOSUB970:CN(3)=V
  164. 4320 I=39:GOSUB970:CN(4)=V
  165. 4321 I=47:GOSUB970:LM=V
  166. 4390 RETURN
  167. 4600 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
  168. 4610 SC=ASC(MID$(RS$(I),22,1))+256*ASC(MID$(RS$(I),23,1))
  169. 4611 IFSC>32767THENSC=SC-65536
  170. 4612 I$=STR$(SC):RETURN
  171. 5000 GOSUB21300:GOSUB486
  172. 5122 BM=0:IFNM=0THENRETURN
  173. 5124 FORJ=0TONM-1:IF R(J)>5 THEN 5130
  174. 5126 I=R(J)+24:GOSUB970:IFV=0THEN:R(J)=R(J)+24
  175. 5128 IFVTHENR(J)=29
  176. 5130 I=R(J):GOSUB910:IFR(J)>BMTHENBM=R(J)
  177. 5132 NEXTJ
  178. 5138 IFR(0)<>23THEN5144
  179. 5140 FORI=0TONM-2:R(I)=R(I+1):NEXTI:NM=NM-1:J=J-1
  180. 5144 RETURN
  181. 6000 POKE53269,0
  182. 6010 PRINT"[147]      [212]URN DISK OVER AND INSERT IT"
  183. 6015 IFD$="2"THENPRINT"           [194]ACKSIDE FACE ";CHR$(34);"[213][208]";CHR$(34)
  184. 6020 IFD$="1"THENPRINT"           [198]RONTSIDE FACE ";CHR$(34);"[213][208]";CHR$(34)
  185. 6030 PRINT "         PRESS [194][213][212][212][207][206] WHEN READY":POKE198,0
  186. 6040 POKE53280,11:BK=11:SS=0:GOSUB14450
  187. 6045 IFPEEK(56320)AND16THEN6045
  188. 6050 PRINT"[147]";
  189. 6060 POKE53269,0
  190. 6065 OPEN15,8,15,"I0:":OPEN2,8,2,"#1":PRINT#15,"U1";2;0;18;0
  191. 6070 PRINT#15,"B-P";2;163:GET#2,I$:CLOSE2:CLOSE15:IFI$<>D$THEN6010
  192. 6080 POKE53265,0:RETURN
  193. 7000 GOSUB400:V=DM:GOSUB980
  194. 7012 WD=0:IFHT>2THENWD=1
  195. 7014 IF(HT>4)AND((TMAND32)=32)THENWD=2
  196. 7050 J=0:V=128:FORI=0TO7:IF(LOANDV)=VTHENJ=J+1
  197. 7052 IF(HIANDV)=VTHENJ=J+1
  198. 7054 V=V/2:NEXTI:DN=J:IFDN>11THENWD=2
  199. 7990 GOTO 22000
  200. 10000 I$="":GOSUB14400
  201. 10020 POKEA0,0:POKEA1,208:POKEA2,0:POKEA3,168:POKEA4,0:POKEA5,8:SYSKE+78
  202. 10900 D$="2":GOSUB6060:SYSKE+54:POKE648,4
  203. 10905 F$="6.":GOSUB16010:SYSKE+54
  204. 10910 PRINT"[151][147]NEW:LOAD ";CHR$(34);"6";CHR$(34);",8,1"CHR$(13)"RUN:"
  205. 10920 PRINT"         [208]REFLIGHT SYSTEMS CHECK"
  206. 10930 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  207. 10940 POKE56576,3:POKE53272,22:POKE53269,0:POKE53270,200:POKE53281,11
  208. 10950 POKE53265,27:PRINT"[151]";:POKE808,237:NEW
  209. 12000 I$="[210]EPAIRING [196]AMAGE":GOSUB14400:SYSKE+12
  210. 12020 V=0:I=55:GOSUB990
  211. 12030 V=0:I=57:GOSUB990
  212. 12040 V=0:I=54:GOSUB990:DM=0
  213. 12042 I=43:V=S:GOSUB990
  214. 12050 FORI=6TO121:IFPEEK(ET+I)THEN12100
  215. 12052 J=PEEK(EG+I):IF(JAND192)<>0THEN12100
  216. 12053 IFJ=0THEN12100
  217. 12054 IFRND(0)>DN/5THEN12100
  218. 12060 POKEET+I,JAND239-16*(UN=0):X=PEEK(EH+I)+8:IFX>255THENX=X-256
  219. 12070 Y=PEEK(EY+I)+8:IFY>255THENY=Y-256
  220. 12075 J=INT(Y/16)*16+INT(X/16)
  221. 12080 POKE(EG+I),J:POKEBB+J,PEEK(BB+J)OR(2^(PEEK(EO+I)AND7))
  222. 12100 NEXTI
  223. 13000 I=61:GOSUB930:TP=V
  224. 13002 V=DM:GOSUB980:LW=-((HIAND8)=0):RW=-((HIAND4)=0):BW=LW/2+RW/2
  225. 13004 CD=-((HIAND32)=0):FD=-((LOAND128)=0)
  226. 13010 POKE53265,0:F$="AR":B=176*256:GOSUB16005
  227. 13012 POKEKE+551,1:POKE53265,0
  228. 13020 PRINT"[147][159]";
  229. 13025 POKEA0,0:POKEA1,176:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  230. 13026 POKEA0,0:POKEA1,188:POKEA2,0:POKEA3,216:POKEA4,0:POKEA5,4:SYSKE+48
  231. 13030 POKEA0,10:SYSKE+60
  232. 13070 MX=21000-50*ABS(76-TP):CW=10760:S1=0:S2=0:S3=0
  233. 13072 FORI=0TO4:WP(I)=0:NEXTI
  234. 13080 ONUNGOTO13090,13100,13110,13120
  235. 13081 MX=MX-700:FU=376:RN=60:CH=1:FR=1:HL=1:F1=1:F2=0:SW=1:GOTO13130
  236. 13090 MX=MX-350:FU=376:RN=60:CH=1:FR=1:HL=0:F1=1:F2=1:SW=0:GOTO13130
  237. 13100 FU=376:RN=60:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1:GOTO13130
  238. 13110 MX=MX-700:FU=376:RN=30:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1:GOTO13130
  239. 13120 FU=374:RN=60:CH=1:FR=1:HL=1:F1=0:F2=1:SW=1
  240. 13130 CW=CW+FU*6.5+RN*26:FORI=51082TO51103:POKEI,255:NEXTI
  241. 13131 POKE214,20:PRINT:FORI=51062TO51073:POKEI,255:NEXTI
  242. 13132 POKE211,36-LEN(STR$(MX)):PRINTRIGHT$(STR$(MX),LEN(STR$(MX))-1);
  243. 13134 I=CH:CH=0:GOSUB100:I=FR:FR=0:GOSUB110
  244. 13140 I=0:GOSUB20:I=0:GOSUB40
  245. 13142 I=SW*4:GOSUB50:I=F2*2:GOSUB90:I=F1*3:GOSUB80
  246. 13144 IFS2=0THENI=HL:GOSUB80:GOTO13150
  247. 13146 IFS3=0THENI=HL:GOSUB90
  248. 13150 BK=0:GOSUB14450
  249. 13190 POKEKE+562,147:POKEKE+563,94
  250. 13191 POKEL1+12,41:J=8:FORI=56216TO56225:POKEI,J:POKEI+40,8:J=0:NEXTI
  251. 13195 HD=0:POKESP+1,225
  252. 13200 POKEA1,SM:SYSKE:OP=PEEK(A0)
  253. 13210 IF(OP=0)AND(RN<60)THENI=1:GOSUB40:GOTO13195
  254. 13212 IF(OP=1)AND(RN>0)THENI=-1:GOSUB40:GOTO13195
  255. 13214 IF(OP=2)AND(FU<376)THENI=8:GOSUB20:GOTO13195
  256. 13216 IF(OP=3)AND(FU>0)THENI=-8:GOSUB20:GOTO13195
  257. 13220 IFOP=4ANDCH<1THENI=CH+1:GOSUB100:GOTO13195
  258. 13222 IFOP=5ANDCH>0THENI=CH-1:GOSUB100:GOTO13195
  259. 13224 IFOP=6ANDFR<1THENI=FR+1:GOSUB110:GOTO13195
  260. 13226 IFOP=7ANDFR>0THENI=FR-1:GOSUB110:GOTO13195
  261. 13230 IFOP=8THENHD=1:POKESP+1,226:GOTO13200
  262. 13232 IFOP=9THENHD=2:POKESP+1,227:GOTO13200
  263. 13234 IFOP=10THENHD=4:POKESP+1,229:GOTO13200
  264. 13236 IFOP=11THENHD=3:POKESP+1,228:GOTO13200
  265. 13238 IFOP<>15THEN13244
  266. 13239 XX=PEEK(KE+560):POKESL+15,0
  267. 13240 IFXX>45+(1-RW)*200ORXX<6*LWTHENI=HD:GOSUB50:GOTO13195
  268. 13241 IFXX>38+(1-RW)*200ORXX<13*LWTHENI=HD:GOSUB80:GOTO13195
  269. 13242 IFXX>31+(1-RW)*200ORXX<19*LWTHENI=HD:GOSUB90:GOTO13195
  270. 13243 GOTO13200
  271. 13244 REM
  272. 13246 IFOP=14THEN13920
  273. 13248 IFOP=13THEN13300
  274. 13250 GOTO 13195
  275. 13300 I$="":GOSUB14400:GOSUB13320:GOTO13130
  276. 13320 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
  277. 13325 FORI=0TO4:POKESP+2+I,225:NEXTI:POKESP+7,225:RETURN
  278. 13900 POKEA0,0:POKEA1,176:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  279. 13910 GOTO 12000
  280. 13920 POKE53265,0:V=FU*.415*128:I=3:GOSUB990
  281. 13921 V=FU*.585*128:I=4:GOSUB990
  282. 13922 V=RN:I=10:GOSUB990
  283. 13923 V=WP(4)*2*BW:I=11:GOSUB990
  284. 13924 V=(WP(2)*7+WP(3)*19)*BW:I=12:GOSUB990
  285. 13925 V=WP(1)*8*BW:I=13:GOSUB990
  286. 13926 V=FR*10*FD:I=14:GOSUB990
  287. 13927 V=CH*10*CD:I=15:GOSUB990
  288. 13930 GOTO10000
  289. 14029 STOP
  290. 14110 ONUNGOTO14120,14121,14122,14123
  291. 14112 UN$="[212]RAINING [195]AMP":AR$="[213][211][193]":RETURN
  292. 14120 UN$="6 [210][197][199][212], 1 [195][193][214][160][196][201][214]":AR$="[211]OUTHEAST [193]SIA":RETURN
  293. 14121 UN$="[195][194][193][193], 82 [193][194][206] [196][201][214]":AR$="[195]ENTRAL [193]MERICA":RETURN
  294. 14122 UN$="[195][194][193][193], 101 [193][193][211][160][196][201][214]":AR$="THE [205]IDDLE [197]AST":RETURN
  295. 14123 UN$="[195][194][193][193], 3 [193][210][205] [196][201][214]":AR$="[215]ESTERN [197]UROPE":RETURN
  296. 14150 IFUN=0THENMD$="[212]RAINING":RETURN
  297. 14154 IFMS>10THEN14158
  298. 14156 ONMSGOSUB14160,14161,14162,14163,14164,14165,14166,14167,14168,14169
  299. 14157 GOTO14180
  300. 14158 ONMS-10GOSUB14170,14171,14172
  301. 14159 GOTO14180
  302. 14160 MD$="[196]HEADQUARTERS1":RETURN
  303. 14161 MD$="[196]DEPOT1":RETURN
  304. 14162 MD$="[196]HELI-BASE1":RETURN
  305. 14163 MD$="[196][193][193] GUNS2":RETURN
  306. 14164 MD$="[196]MOBILE [211][193][205]S2":RETURN
  307. 14165 MD$="[196]TANKS3":RETURN
  308. 14166 MD$="[196][194][205][208]S & [194][212][210]S3":RETURN
  309. 14167 MD$="[196]INFANTRY3":RETURN
  310. 14168 MD$="[196]BUNKER3":RETURN
  311. 14169 MD$="[211]TROOPS3":RETURN
  312. 14170 MD$="[211]BASE3":RETURN
  313. 14171 MD$="[195]LEAR [204][218]3":RETURN
  314. 14172 MD$="[211]EARCH & [196]ESTROY5":RETURN
  315. 14180 MD$=LEFT$(MD$,LEN(MD$)-1)
  316. 14183 MS$=""
  317. 14190 IFLEFT$(MD$,1)="[196]"THENMD$="DESTROY ENEMY "+RIGHT$(MD$,LEN(MD$)-1)
  318. 14191 IFMS=13THEN14193
  319. 14192 IFLEFT$(MD$,1)="[211]"THENMD$="SUPPORT FRIENDLY "+RIGHT$(MD$,LEN(MD$)-1)
  320. 14193 RETURN
  321. 14400 POKE53265,OF:POKE648,4:POKEA0,0:POKEA1,4:POKEA2,1:POKEA3,4:POKEA4,255
  322. 14402 POKEA5,3:POKE1024,32:SYSKE+48:FORI=217TO242:POKEI,PEEK(I)OR128:NEXTI
  323. 14404 POKE214,11:PRINT:POKE53281,11
  324. 14406 POKE211,20-INT(LEN(I$)/2+.5):PRINTI$;:POKE53272,22:POKE56576,3:POKE648,SM
  325. 14408 POKE53269,0:POKE53265,27
  326. 14410 POKEKE+552,0:POKEKE+553,159:POKEKE+554,0:POKEKE+555,99:RETURN
  327. 14440 POKE53280,2
  328. 14450 POKE53265,0:POKE56576,0:POKE53272,32:POKE53269,SS:SS=255:POKE53281,BK
  329. 14490 BK=1:POKE53265,27:RETURN
  330. 14500 SYSKE+12:POKE53265,0:POKE 56576,0:POKE648,200:POKE53272,32:POKE53270,216
  331. 14520 POKE53269,255:POKESP,177
  332. 14540 POKE53280,11:POKE53281,1:RETURN
  333. 14600 IFMD>10THENONMD-10GOTO14680,14690,14700
  334. 14605 ONMDGOTO14610,14630,14640,14640,14640,14640,14650,14620,14660,14670
  335. 14610 PRINT"[217]OUR COMMANDER WAS OUTRAGED BY YOUR FAILURE TO DESTROY YOUR ";
  336. 14611 PRINT"OBJECTIVES.  [200]E PLACES A REPRIMAND IN YOUR RECORD. ";
  337. 14612 PRINT"[217]OU'RE OFF THE FLIGHT LINE AND PEELING POTATOES FOR THE NEXT";
  338. 14613 PRINT" WEEK!";:F$="PO":RETURN
  339. 14620 PRINT"^^[217]OU WERE WOUNDED IN COMBAT. [196]URING YOUR RECOVERY AT THE BASE ";
  340. 14621 PRINT"HOSPITAL YOU RECEIVE THE [208]URPLE [200]EART.";:F$="PU":RETURN
  341. 14630 PRINT"^[195]ONGRATULATIONS "N$".^^[217]OUR PERFORMANCE DURING TRAINING";
  342. 14631 PRINT" WAS SUPERIOR, YOU RECEIVE THE [206]ATIONAL [196]EFENSE [211]ERVICE [205]EDAL.";
  343. 14632 F$="ST":RETURN
  344. 14640 PRINT"^[195]ONGRATULATIONS "N$".^^[217]OU HAVE SUCCESSFULLY COMPLETED";
  345. 14641 PRINT" A TOUR OF DUTY IN "AR$" AND RECEIVE ";
  346. 14642 IFUN<>3THENPRINT"THE ";
  347. 14643 PRINTAR$" CAMPAIGN RIBBON._";:F$="ST":RETURN
  348. 14650 PRINT"^[195]ONGRATULATIONS "R$" "N$".^^[217]OU HAVE COMPLETED ANOTHER ";
  349. 14651 PRINT"MISSION SUCCESSFULLY. [217]OU RECEIVE THE [193]IR [205]EDAL, HONORING ";
  350. 14652 PRINT"COMBAT FLIGHT HOURS.";:F$="ST":RETURN
  351. 14660 PRINT"^[217]OUR COMMANDING OFFICER WAS PLEASED WITH YOUR EXCELLENT ";
  352. 14661 PRINT"PERFORMANCE ON THE MISSION. [217]OU RECEIVE THE [193]RMY [195]OMMENDATION ";
  353. 14662 PRINT"[205]EDAL.";:F$="ST":RETURN
  354. 14670 PRINT"^^[217]OUR BRAVE BEHAVIOR ON THIS MISSION WAS NOTICED BY YOUR ";
  355. 14671 PRINT"COMMANDER. [217]OU RECEIVE THE [194]RONZE [211]TAR FOR [214]ALOR.";
  356. 14672 F$="ST":RETURN
  357. 14680 PRINT"^[217]OUR HEROIC AND GALLANT BEHAVIOR ON THIS MISSION WAS NOTICED. ";
  358. 14681 PRINT"[217]OU WILL RECEIVE THE [211]ILVER [211]TAR FROM THE [193]RMY [195]HIEF OF [211]TAFF.";
  359. 14682 F$="SI":RETURN
  360. 14690 PRINT"[217]OUR EXTRAORDINARILY HEROIC WORK ON THIS MISSION WAS NOTICED. ";
  361. 14691 PRINT"[217]OU RECEIVE [193]MERICA'S SECOND HIGHEST AWARD:^^   [212]HE [196]ISTINGUISHED ";
  362. 14692 PRINT"[211]ERVICE [195]ROSS.";:F$="SI":RETURN
  363. 14700 PRINT"^[217]OUR CONSPICUOUS GALLANTRY ABOVE AND BEYOND THE CALL OF DUTY ";
  364. 14701 PRINT"HAS BEEN RECOGNIZED. [217]OU RECEIVE [193]MERICA'S HIGHEST AWARD: ";
  365. 14702 PRINT"[212]HE [195]ONGRESSIONAL [205]EDAL OF [200]ONOR FROM THE [208]RESIDENT OF THE ";
  366. 14703 PRINT"[213]NITED [211]TATES.";:F$="TH":BB=6:LL=120:RETURN
  367. 15000 I$="":GOSUB14400:SYSKE+12:D$="1":GOSUB6060:GOSUB250:SYSKE+54:POKE32772,0
  368. 15010 SYS64738
  369. 16000 REM
  370. 16005 POKE53269,0:IFSMTHENSYSKE+54
  371. 16010 GOSUB16050
  372. 16020 POKE781,B-INT(B/256)*256:POKE782,B/256
  373. 16030 POKE780,0:POKE56333,127:POKE808,237:SYS65493:POKE808,234
  374. 16035 IF(ST AND191)<>0THEN16010
  375. 16039 POKE792,193:IFSMTHENSYSKE+3
  376. 16040 RETURN
  377. 16050 FORI=0TOLEN(F$)-1:POKE1006+I,ASC(MID$(F$,I+1,1)):NEXTI
  378. 16070 POKE780,8:POKE781,8:POKE782,8:SYS65466
  379. 16080 POKE780,LEN(F$):POKE781,238:POKE782,3:SYS65469
  380. 16090 RETURN
  381. 20000 KE=117*256
  382. 20011 F$="OP":GOSUB16000
  383. 20012 F$="OP.":GOSUB16000
  384. 20013 F$="OP..":GOSUB16000
  385. 20014 F$="OP...":GOSUB16000
  386. 20015 F$="HIRES":GOSUB16000
  387. 20100 DIM RS$(11),S%(47),DC$(11)
  388. 20110 SM=200:SP=SM*256+1016:SH=KE+120:RL=SH+6:SX=RL+6:SY=SX+6
  389. 20120 A0=165:A1=A0+1:A2=A1+1:A3=A2+1:A4=A3+1:A5=A4+1:A6=A5+1:A7=A6+1
  390. 20130 NO=KE+144:L1=NO+1:T1=L1+24:R1=T1+24:B1=R1+24:C1=B1+24:EX=C1+24:GR=EX+24
  391. 20132 SL=GR+24:CR=SL+24:L2=CR+24:T2=L2+24:R2=T2+24:B2=R2+24:C2=B2+24
  392. 20140 RS=KE+481:G1=RS+5:V1=G1+5:G2=V1+5:V2=G2+5
  393. 20150 BT=KE+539:PT=BT+2:HR=PT+2:ML=HR+2:BC=ML+2:PC=BC+2
  394. 20160 DB=828:SV=49*256:OC=21464:RS=828+38:YH=KE+554:YL=YH+1
  395. 20170 MB=144*256:CB=145*256:TB=146*256:BB=147*256:EH=148*256:EY=EH+128
  396. 20180 EG=EY+128:EO=EG+128:ET=EO+128:TX=KE+564:SS=255:BK=1
  397. 20190 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]"
  398. 20206 READ W(0),W(1),W(2),W(3),W(4)
  399. 20208 READ WC(0),WC(1),WC(2),WC(3),WC(4)
  400. 20210 READ C(0),C(1),C(2),C(3),C(4)
  401. 20220 FORI=1TO13:READS%(I):NEXTI
  402. 20230 READS%(33),S%(34),S%(38)
  403. 20240 READ U(1),U(2),U(3),U(4)
  404. 20250 READ Q(0),Q(1),Q(2)
  405. 20260 READ SF(0),SF(1),SF(2)
  406. 20270 READ R(0),R(1),R(2),R(3),R(4),R(5),R(6)
  407. 20312 FORI=0TO11:RS$(I)=CL$:NEXTI
  408. 20410 I=59:GOSUB930:CP=V:IFCP=11THENPOKE648,SM:SYSKE+3:GOTO27320
  409. 20420 RS$(CP)="":FORI=RSTORS+63:RS$(CP)=RS$(CP)+CHR$(PEEK(I)):NEXTI:GOSUB4300
  410. 20500 I=52:GOSUB930:XP=V
  411. 20501 I=53:GOSUB930:YP=V
  412. 20502 I=54:GOSUB930:DM=V
  413. 20503 I=55:GOSUB930:HT=V
  414. 20504 I=56:GOSUB930:TM=V
  415. 20505 I=57:GOSUB930:HH=V
  416. 20506 I=58:GOSUB930:LN=V
  417. 20507 I=60:GOSUB930:OB=VAND3
  418. 20508 I=3:GOSUB930:FU=V
  419. 20509 I=4:GOSUB930:FU=FU+V
  420. 20900 POKE53265,0:SYSKE+3:GOSUB14500:POKEKE+551,0:POKE53277,0:POKE53271,0
  421. 20990 I$="[208]LEASE [211]TAND [194]Y":GOSUB14400:POKE53276,0:GOTO1000
  422. 21000 I$="[208]LEASE [211]TAND [194]Y":GOSUB14400:PRINT"[147]":POKE214,12:PRINT:GOSUB400
  423. 21010 B=152*256-5:F$="CR":GOSUB16005:SYS29988
  424. 21020 POKEBT,1:POKEBT+1,0
  425. 21022 POKEPT,56:POKEPT+1,32
  426. 21024 POKEHR,59:POKEHR+1,27
  427. 21026 POKEML,216:POKEML+1,200
  428. 21028 POKEBC,0:POKEBC+1,1
  429. 21030 POKEPC,140:POKEPC+1,0
  430. 21040 SYSKE+12:SYSKE+39
  431. 21100 PRINT"[144] [198][193][212][193][204][160][195][210][193][211][200]!"
  432. 21110 PRINT" "R$" "N$
  433. 21120 PRINT"[144] [217][207][213][210][160][195][193][210][197][197][210][160][193][211][160][193][160][208][201][204][207][212][160][201][211][160][207][214][197][210],":PRINT " [208][197][210][205][193][206][197][206][212][204][217]."
  434. 21130 PRINT" [217]OUR PERSONAL EFFECTS WILL BE SENT      TO YOUR NEXT OF KIN."
  435. 21140 POKE214,23:PRINT
  436. 21160 PRINT"[159]                              [170][195]ONTINUE[146]";
  437. 21170 POKENO,0:POKEL1,30:POKER1,39:POKE T1,24
  438. 21180 POKEB1,25:POKEC1,1:POKE EX,0:POKEGR,I:POKESL,0
  439. 21182 POKEYH,70
  440. 21185 POKECR,1:SS=1:GOSUB14450:GOSUB960
  441. 21200 POKEA1,SM:SYSKE:OP=PEEK(A0):POKE53265,0:SYSKE+12:POKE53265,0
  442. 21210 I=46:GOSUB910:GOSUB14500:GOSUB5000:GOTO26000
  443. 21300 F$="ME":B=152*256-5:GOSUB16005:SYS29988:POKE53281,11:SYSKE+45:RETURN
  444. 22000 POKE53265,0:POKE53270,200:POKE53275,0
  445. 22020 V=DM:GOSUB980
  446. 22090 PRINT"[147] [144][215]HAT NEXT, HOTSHOT?"
  447. 22200 PRINT"[144]";:I=0
  448. 22210 POKE 214,3:PRINT:I$="       "
  449. 22212 PRINTI$"[208]ERSONALLY INSPECT YOUR MACHINE"
  450. 22214 PRINTI$"FOR DAMAGE"
  451. 22218 X=0:GOSUB22800
  452. 22250 PRINT"[144]";:I=0:IF((LOAND12)=12)OR((OB=3)AND(HL=1))THENPRINT"[155]";:I=1
  453. 22252 IFWD>1ORFU=0THENPRINT"[155]";:I=1
  454. 22260 POKE 214,7:PRINT
  455. 22262 PRINTI$"[212]AKE OFF AGAIN IMMEDIATELY"
  456. 22268 X=1:GOSUB 22800
  457. 22300 PRINT"[144]";:I=0:IF((OB=3)AND(HL=1))THENPRINT"[155]";:I=1
  458. 22302 IF(HL=0)OR(WD>1)THENPRINT"[155]";:I=1
  459. 22310 POKE214,11:PRINT
  460. 22312 PRINTI$"[210]EARM AND [210]EFUEL TO CONTINUE"
  461. 22314 PRINTI$"MISSION WITHOUT REPAIRING DAMAGE"
  462. 22318 X=2:GOSUB22800
  463. 22350 PRINT"[144]";:I=0:IF((OB=3)AND(HL=1))THENPRINT"[155]";:I=1
  464. 22352 IF(DM=0)OR(WD>1)OR(HL=0)THENPRINT"[155]";:I=1
  465. 22360 POKE214,15:PRINT
  466. 22362 PRINTI$"[210]EARM, [210]EFUEL, AND REPAIR DAMAGE"
  467. 22364 PRINTI$"THEN CONTINUE THE MISSION"
  468. 22368 X=3:GOSUB 22800
  469. 22400 PRINT"[144]";:I=0
  470. 22410 POKE214,19:PRINT
  471. 22412 PRINTI$"[204]EAVE YOUR CHOPPER AND CALL IT"
  472. 22414 PRINTI$"QUITS FOR THIS MISSION"
  473. 22418 X=4:GOSUB 22800
  474. 22450 POKENO,4
  475. 22460 SYSKE+27:POKEKE+562,128:POKEKE+563,87
  476. 22480 FORI=0TO4:POKE214,I*4+3:PRINT"[154]":GOSUB22600:NEXTI:SS=255:GOSUB14450
  477. 22500 POKEA1,SM:SYSKE:OP=PEEK(A0)
  478. 22501 POKE53265,0:SYSKE+12
  479. 22502 ONOP+1GOTO23000,10000,13000,12000,23500
  480. 22600 PRINT"      [146]":PRINT"      [146]":PRINT" [167][167][167][167][167]";:RETURN
  481. 22800 J=40:IFI=1THENI=40:J=41
  482. 22802 POKEL1+X,I:POKER1+X,J:POKEB1+X,X*4+7:POKET1+X,X*4+4:POKEC1+X,2
  483. 22804 POKEEX+X,0:POKESL+X,0:POKEGR+X,X:POKECR+X,1
  484. 22808 RETURN
  485. 23000 POKE53265,0
  486. 23011 POKE53280,11:POKE53270,216:POKE53282,15:POKE53283,11:POKE53281,0
  487. 23020 POKEA0,0:POKEA1,160:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  488. 23022 POKEA0,0:POKEA1,172:POKEA2,0:POKEA3,216:POKEA4,0:POKEA5,4:SYSKE+48
  489. 23100 POKEL1,31:POKER1,40:POKET1,23:POKEB1,25:POKEC1,1:POKEEX,0:POKEGR,0
  490. 23110 POKESL,0:POKECR,1:POKENO,0
  491. 23120 SYS52227:GOSUB960:GOSUB23450
  492. 23190 POKESP,177:BK=0:SS=1:GOSUB14450
  493. 23200 POKEA1,SM:SYSKE
  494. 23210 POKE53265,0:POKE53270,216
  495. 23220 POKEA0,0:POKEA1,160:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  496. 23222 POKEA0,0:POKEA1,176:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  497. 23242 POKEA0,0:POKEA1,188:POKEA2,0:POKEA3,216:POKEA4,0:POKEA5,4:SYSKE+48
  498. 23310 SYS52224:GOSUB960:GOSUB23450
  499. 23390 POKESP,177:BK=0:SS=1:GOSUB14450
  500. 23400 POKESL,0:POKEA1,SM:SYSKE
  501. 23410 POKE53265,0
  502. 23420 POKEA0,0:POKEA1,176:POKEA2,0:POKEA3,192:POKEA4,0:POKEA5,12:SYSKE+51
  503. 23430 GOTO22000
  504. 23450 POKE214,22:PRINT:POKE211,31:PRINT"[151][182][183][183][183][183][183][183][183]":POKE211,31
  505. 23460 PRINT"[184][159][185][186][189][187][188][189][190][146]";:POKE56255,11:POKE56295,3:POKE52159,247:POKE52199,255
  506. 23470 RETURN
  507. 23500 IFLS=1ORWD<2THEN23600
  508. 23505 I=46:GOSUB910:GOSUB910
  509. 23510 PRINT"[144][147]     [217]OU ARE SERIOUSLY WOUNDED AND"
  510. 23520 PRINT" ABANDON YOUR CRAFT BEHIND ENEMY LINES."
  511. 23530 PRINT" [201]N THE CHAOS OF WAR YOU COMPLETELY"
  512. 23540 PRINT" DISAPPEAR.  [217]OU'RE MISSING IN ACTION"
  513. 23550 PRINT" ([205][201][193][144]).":S=0:GOTO23900
  514. 23600 IFLS=1THEN23700
  515. 23610 PRINT"[144][147]      [217]OU ABANDONED YOUR CRAFT BEHIND"
  516. 23620 PRINT"  ENEMY LINES.  [200]OWEVER, YOU ARE LUCKY"
  517. 23630 PRINT"  AND EVADE CAPTURE WHILE GETTING BACK"
  518. 23640 PRINT"  TO FRIENDLY LINES.":GOTO23900
  519. 23700 IFHL=1THEN24000
  520. 23710 PRINT"[144][147]      [217]OU ABANDONED YOUR CRAFT BEHIND"
  521. 23720 PRINT"  FRIENDLY LINES.  [217]OUR [195][207] FROWNS ON"
  522. 23730 PRINT"  PILOTS WHO ABANDON MULTI-MILLION-"
  523. 23740 PRINT"  DOLLAR HELICOPTERS, BUT IS HAPPY TO"
  524. 23750 PRINT"  HAVE A PILOT BACK."
  525. 23900 SS=1:GOSUB30000:POKE53265,0
  526. 23910 I=46:GOSUB970:IFVTHENPOKE53265,0:GOSUB21300:GOTO26000
  527. 24000 I$="[210]EVIEWING [217]OUR [210]ECORD":GOSUB14400:GOSUB5000:POKEKE+535,41
  528. 24003 I=16:GOSUB930:MS=V-INT(V/256)*256+1:GOSUB14150:POKE53265,0
  529. 24010 POKE53270,200:PRINT"[147]";:POKE648,4
  530. 24020 PRINT"[147][144][196][197][194][210][201][197][198][201][206][199][160][207][198] "R$" "N$;
  531. 24030 PRINT"^[144][205][201][211][211][201][207][206]: "MD$;
  532. 24040 PRINT"^^[152][217]OUR MISSION WAS ";
  533. 24041 IF(S<0)AND(OB=0)THENPRINT"A TOTAL DISASTER";:GOTO 24050
  534. 24042 IF(OB=3)THENPRINT"AN OUTSTANDING SUCCESS";:GOTO 24050
  535. 24044 IF(OB=1)THENPRINT"MODERATELY SUCCESSFUL";:GOTO 24050
  536. 24045 IF(OB=2)THENPRINT"MARGINALLY SUCCESSFUL";:GOTO 24050
  537. 24046 PRINT"IMPROPERLY EXECUTED";
  538. 24050 PRINT"[152], THE PRIMARY OBJECTIVE WAS ";:I=-2*((OBAND1)=1):GOSUB24500
  539. 24051 PRINT"[152], THE SECONDARY OBJECTIVE WAS ";:I=-2*((OBAND2)=2):GOSUB24500
  540. 24052 IFH<1THENPRINT"[152], AND THE ENEMY WAS OVERJOYED BY YOUR HELP";:GOTO24060
  541. 24053 PRINT"[152], OTHER EMEMIES ";
  542. 24054 IFH<4THENPRINT"WERE VIRTUALLY UNTOUCHED";:GOTO24060
  543. 24055 IFH<9THENPRINT"TOOK LIGHT CASUALTIES";:GOTO24060
  544. 24056 IFH<17THENPRINT"TOOK MODERATE CASUALTIES";:GOTO24060
  545. 24057 PRINT"TOOK HEAVY CASUALTIES";
  546. 24060 PRINT"[152].^^[144][205]ISSION [211]CORE:";:V=S:GOSUB940
  547. 24062 PRINT" [144][212]OTAL [211]CORE:";:V=SC:GOSUB940:PRINT"_";
  548. 24070 POKE648,SM:POKEA1,4:POKEA5,SM:SYSKE+15:POKEKE+535,121
  549. 24080 I$="[210]EVIEWING [217]OUR [210]ECORD":GOSUB14400
  550. 24100 POKEBT,1:POKEBT+1,0
  551. 24102 POKEPT,56:POKEPT+1,32
  552. 24104 POKEHR,59:POKEHR+1,27
  553. 24106 POKEML,216:POKEML+1,200
  554. 24108 POKEBC,0:POKEBC+1,1
  555. 24110 POKEPC,240:POKEPC+1,140
  556. 24200 POKE35840,17:POKEA0,0:POKEA1,140:POKEA2,1:POKEA3,140:POKEA4,255:POKEA5,3
  557. 24202 SYSKE+48
  558. 24205 V=160:GOSUB950:POKEA2,255:POKEA3,0
  559. 24210 FORI=11TO17:POKEA0,I:POKEA1,1:SYSKE+75:NEXTI:POKETX+19,27
  560. 24212 POKEA3,85:POKEA1,0:J=28:FORI=18TO22:POKETX,J:POKEA0,I:SYSKE+75:J=29
  561. 24213 POKE55296+I*40,1:POKE35840+I*40+1,205:POKE55296+I*40+1,1:NEXTI
  562. 24216 POKEA1,1:V=31:GOSUB950:POKETX,30:POKETX+19,160:POKEA0,23:SYSKE+75
  563. 24217 FORI=36760TO36799:POKEI,204:NEXTI
  564. 24230 FORI=0TO19:POKE51640+I,17:POKE51660+I,160:NEXTI
  565. 24240 FORI=2TO38:POKE48320+I*8,0:NEXTI
  566. 24250 IFNR=0THEN24300
  567. 24260 I$="    [195]ONGRATULATIONS,":I=12:J=0:GOSUB920
  568. 24262 I$="     YOU HAVE BEEN  ":I=13:J=0:GOSUB920
  569. 24264 I$="      PROMOTED TO   ":I=14:J=0:GOSUB920
  570. 24266 ONNRGOTO24267,24268,24269,24270,24271,24272,24273
  571. 24267 I$="    [215]ARRANT [207]FFICER.":GOTO24280
  572. 24268 I$="     2ND [204]IEUTENANT ":GOTO24280
  573. 24269 I$="     1ST [204]IEUTENANT ":GOTO24280
  574. 24270 I$="        [195]APTAIN     ":GOTO24280
  575. 24271 I$="         [205]AJOR.     ":GOTO24280
  576. 24272 I$="      [204]T. [195]OLONEL.  ":GOTO24280
  577. 24273 I$="        [195]OLONEL.    ":GOTO24280
  578. 24280 I=15:J=2:GOSUB920
  579. 24290 POKEA0,14+NR:POKEA1,1:POKEA2,12:SYSKE+42
  580. 24300 IFNM=0THEN24400
  581. 24302 IFNM>1THEN24310
  582. 24304 X=18:I=0:GOSUB24600:GOTO24400
  583. 24310 IFNM>2THEN24320
  584. 24312 X=27:I=0:GOSUB24600
  585. 24314 X=9:I=1:GOSUB24600:GOTO24400
  586. 24320 X=6:I=0:GOSUB24600
  587. 24322 X=30:I=1:GOSUB24600
  588. 24324 X=18:I=2:GOSUB24600
  589. 24400 I$="    [205]EDALS [193]WARDED  ":IFNM=1THENI$="    [205]EDAL [193]WARDED:  "
  590. 24401 IFNM>0THENI=17:J=6:GOSUB920
  591. 24450 POKE214,23:PRINT:POKE211,30:PRINT"[159][170][195]ONTINUE[146]";
  592. 24460 POKENO,0:POKEL1,30:POKER1,39:POKET1,24:POKEB1,25:POKEC1,1:POKEEX,0
  593. 24462 POKEGR,0:POKESL,0:POKECR,1:POKEYH,97:GOSUB960:POKEA0,11:SYSKE+12
  594. 24497 SYSKE+39:POKEA0,11:SYSKE+60:SS=31:GOSUB14450:PRINT "";:POKEA1,SM:SYSKE
  595. 24499 GOTO25000
  596. 24500 ONI+1GOTO24501,24502,24503
  597. 24501 PRINT "UNTOUCHED";:RETURN
  598. 24502 PRINT "DAMAGED";:RETURN
  599. 24503 PRINT "ANNIHILATED";:RETURN
  600. 24600 IFR(I)=35THEN24620
  601. 24610 POKEA0,R(I)-24:POKEA1,X:POKEA2,18:SYSKE+42:RETURN
  602. 24620 IFX=18THENX=13
  603. 24624 IFX=9THENX=7
  604. 24630 FORJ=11TO13:POKEA0,J:POKEA1,X:POKEA2,18:SYSKE+42:X=X+5:NEXTJ:RETURN
  605. 25000 POKE53265,0:SYSKE+12:GOSUB14500
  606. 25002 IFBM=0THEN26000
  607. 25003 MD=BM-22:POKE53280,0
  608. 25010 PRINT "[144][147]";:POKE648,4:BB=0:LL=112
  609. 25020 PRINT"[144][147][144]^^^^^^^^^^^^^";:GOSUB14600:PRINT "_";
  610. 25030 POKE648,SM:POKEA1,4:POKEA5,SM:SYSKE+15
  611. 25040 IFF$="ST"THENLL=120
  612. 25050 B=152*256-5:GOSUB16005:SYS29988
  613. 25110 POKEBT,1:POKEBT+1,0
  614. 25120 POKEPT,56:POKEPT+1,32
  615. 25130 POKEHR,59:POKEHR+1,27
  616. 25140 POKEML,216:POKEML+1,200
  617. 25150 POKEBC,BB:POKEBC+1,0
  618. 25160 POKEPC,52+LL:POKEPC+1,0
  619. 25170 POKE53265,0:SYSKE+12:SYSKE+39:POKEKE+535,121:POKEKE+536,38:POKEYH,80
  620. 25200 SS=1:GOSUB30000
  621. 25210 GOSUB14500
  622. 26000 D$="1":GOSUB6000:I$="[207]NE [205]OMENT [208]LEASE":GOSUB14400
  623. 26030 I$=RS$(CP):GOSUB200:SYSKE+63:RS$(CP)=I$:GOSUB4300
  624. 26040 R(1)=ASC(MID$(RS$(9),49,1))+256*ASC(MID$(RS$(9),50,1))
  625. 26050 R(2)=ASC(MID$(RS$(10),49,1))+256*ASC(MID$(RS$(10),50,1))
  626. 26052 IFS<=R(2)THEN26056
  627. 26054 RS$(9)=RS$(10):RS$(10)=RS$(CP):GOTO26060
  628. 26056 IFS<=R(1)THEN26060
  629. 26058 RS$(9)=RS$(CP)
  630. 26060 PRINT"[147][144]  [183][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][185]"
  631. 26061 PRINT"  [186] [156]   [199]REATEST [199]UNSHIP [205]ISSIONS   [144] [187]"
  632. 26062 PRINT"  [188][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][190]"
  633. 26065 I=ASC(MID$(RS$(10),21,1)):GOSUB4600:PRINT"  "I$" "LEFT$(RS$(10),20);
  634. 26070 POKE211,27:V=ASC(MID$(RS$(10),49,1))+256*ASC(MID$(RS$(10),50,1)):GOSUB940
  635. 26071 PRINT" PTS."
  636. 26075 J=10:GOSUB800:PRINT"   "DC$(10)
  637. 26085 I=ASC(MID$(RS$(9),21,1)):GOSUB4600:PRINT"  "I$" "LEFT$(RS$(9),20);
  638. 26090 POKE211,27:V=ASC(MID$(RS$(9),49,1))+256*ASC(MID$(RS$(9),50,1)):GOSUB940
  639. 26091 PRINT" PTS."
  640. 26095 J=9:GOSUB800:PRINT"   "DC$(9)
  641. 26100 PRINT"[151][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174][174]";
  642. 26102 PRINT"[144]      [217]OUR [195]URRENT [211]ERVICE[160][210]ECORD"
  643. 26110 PRINT"  "R$" "LEFT$(RS$(CP),20)" ";:V=S:GOSUB940:PRINT" PTS."
  644. 26120 POKEBT,1:POKEBT+1,0
  645. 26122 POKEPT,56:POKEPT+1,32
  646. 26124 POKEHR,59:POKEHR+1,27
  647. 26126 POKEML,216:POKEML+1,200
  648. 26128 POKEBC,0:POKEBC+1,1
  649. 26130 POKEPC,240:POKEPC+1,148
  650. 26134 POKE35840,17:POKEA0,0:POKEA1,140:POKEA2,1:POKEA3,140:POKEA4,255:POKEA5,3
  651. 26136 SYSKE+48
  652. 26138 V=160:GOSUB950:POKEA2,255:POKEA3,0
  653. 26140 POKEA0,12:POKEA1,1:SYSKE+75:POKEA3,85:POKEA1,0:J=28:POKETX+19,27
  654. 26141 FORI=13TO22:POKETX,J:POKEA0,I:SYSKE+75:POKE55296+I*40,1:J=29
  655. 26142 POKE35840+I*40+1,204:POKE55296+I*40+1,1:NEXTI
  656. 26143 POKEA1,1:V=31:GOSUB950:POKETX,30:POKETX+19,160:POKEA0,23:SYSKE+75
  657. 26144 FORI=36760TO36799:POKEI,204:NEXTI
  658. 26149 FORI=0TO19:POKE51680+I,17:POKE51700+I,160:NEXTI
  659. 26150 J=0:I=20:GOSUB970:I=V+38:GOSUB26600:I=35
  660. 26151 FORX=13TO17:FORY=3TO7:POKE55296+X*40+Y,0:NEXTY:NEXTX
  661. 26152 IFASC(MID$(RS$(CP),I+1,1))=0THEN26160
  662. 26154 IFI=35THENGOSUB26600:I=36:GOSUB26600:I=37:GOSUB26600:I=35:GOTO26160
  663. 26156 GOSUB26600
  664. 26160 IFJ<14THENI=I-1:IFI>23THEN26152
  665. 26162 FORI=2TO38:POKE48320+I*8,0:NEXTI
  666. 26170 POKE214,23:PRINT
  667. 26172 PRINT"[159][170][195]LEAR [212]OP [211]CORES[146]  [170][197]ND [199]AME[146]  [170][195]ONTINUE[146]";
  668. 26174 POKEL1,0:POKER1,17:POKEL1+2,30:POKER1+2,39:POKEL1+1,20:POKER1+1,28
  669. 26176 FORI=0TO2:POKET1+I,24:POKEB1+I,25:POKEC1+I,1:POKEEX+I,0:POKEGR+I,I
  670. 26178 POKESL+I,0:POKECR+I,1:NEXTI
  671. 26180 POKENO,2:POKECR,64:GOSUB960
  672. 26190 POKEYH,97:SYSKE+12:SYSKE+39:SS=1:GOSUB14450
  673. 26200 POKEA1,SM:SYSKE:OP=PEEK(A0)
  674. 26210 IFOP=0THENPOKE53265,0:GOSUB14500:RS$(9)=CL$:RS$(10)=CL$:GOTO26060
  675. 26215 IFOP=1THEN15000
  676. 26220 POKE53265,0:SYSKE+12:D$="1":GOSUB6060
  677. 26230 I$="[210]ECORDING [205]ISSION [210]ESULTS":GOSUB14400:GOSUB250:GOTO27000
  678. 26600 POKEA0,I-24:POKEA1,(J-INT(J/7)*7)*5+3:POKEA2,INT(J/7)*5+13:SYSKE+42
  679. 26610 J=J+1:RETURN
  680. 26999 GOSUB30000
  681. 27000 I=46:GOSUB970:IFVTHENOP=3:GOTO27310
  682. 27001 POKEKE+535,207:POKEKE+536,32:POKE53275,0
  683. 27010 POKE53265,0:POKE53270,200:PRINT "[147]";:POKE648,4
  684. 27020 PRINT"[147][144]^[198]LY ANOTHER ";:GOSUB27900:PRINT" [144]IN "AR$;
  685. 27030 PRINT"^^^[144][195]HANGE YOUR STYLE OF MISSION, BUT REMAIN IN "AR$;
  686. 27040 PRINT"^^^[144][212]RANSFER TO A NEW UNIT IN A DIFFERENT PART OF THE WORLD.^^^";
  687. 27050 PRINT"[199]O ON EXTENDED [210]&[210] --^[204]ET SOME OTHER GUY RISK HIS LIFE FOR A";
  688. 27060 PRINT" WHILE!_"
  689. 27190 POKE 648,SM:POKEA1,4:POKEA5,SM:SYSKE+15:POKEKE+535,121:POKEKE+536,38
  690. 27200 PRINT" [144]"R$" "N$
  691. 27210 PRINT" [144][215]HAT [206]EXT ?"
  692. 27220 POKE214,5:PRINT:PRINT" [154]    [146][169]":PRINT"     [146][169]":PRINT" [167][167][167][167][171]"
  693. 27222 PRINT" [154]    [146][169]":PRINT"     [146][169]":PRINT" [167][167][167][167][171]"
  694. 27224 PRINT" [152]    [146][169]":PRINT"     [146][169]":PRINT" [167][167][167][167][171]"
  695. 27226 PRINT" [150]    [146][169]":PRINT"     [146][169]":PRINT" [154][167][167][167][167][171]"
  696. 27230 FORI=0TO3:POKEL1+I,0:POKER1+I,40:POKET1+I,I*4+6:POKEB1+I,I*4+9
  697. 27232 POKEC1+I,2:POKEEX+I,0:POKEGR+I,I:POKESL+I,0:POKECR+I,1:NEXT I
  698. 27234 POKENO,3:POKEKE+562,112:POKEKE+563,30
  699. 27290 SYSKE+30:GOSUB14450
  700. 27300 POKEA1,SM:SYSKE:OP=PEEK(A0)
  701. 27310 POKE53265,0:I=62:V=OP+1:GOSUB990
  702. 27320 D$="1":GOSUB6060:POKE648,4
  703. 27330 PRINT"[151][147]LOAD "CHR$(34)"BEGIN"CHR$(34)",8,1"CHR$(13)"RUN:"
  704. 27340 PRINT"            [208]LEASE [211]TAND [194]Y[151]";
  705. 27350 SYSKE+54:POKE631,13:POKE632,13:POKE198,2
  706. 27360 POKE56576,3:POKE53272,22:POKE53269,0:POKE53270,200:POKE53281,11
  707. 27370 POKE53265,27:POKE808,237:NEW
  708. 27900 ONSFGOTO27920,27930
  709. 27910 PRINT"[210]EGULAR [205]ISSION";:RETURN
  710. 27920 PRINT"[214]OLUNTEER [205]ISSION";:RETURN
  711. 27930 PRINT"[200]AZARDOUS [205]ISSION";:RETURN
  712. 30000 POKE214,23:PRINT:POKE211,30:PRINT"[159][170][195]ONTINUE[146]";
  713. 30002 POKENO,0:POKEL1,30:POKER1,39:POKET1,24:POKEB1,25:POKEC1,1:POKEEX,0
  714. 30004 GOSUB960:GOSUB14450:POKEGR,0:POKESL,0:POKECR,1:POKEA1,SM:SYSKE:RETURN
  715. 32006 DATA 0,2400,1600,2640,400
  716. 32007 DATA 0,8,14,38,2
  717. 32008 DATA 0,7,3,13,1
  718. 32010 DATA 16,20,16,24,28,20,20,20,22,26,25,0,14
  719. 32020 DATA -60,-30,-80
  720. 32030 DATA 1,1.5,1.8,2.0
  721. 32040 DATA 1.5,1.2,1
  722. 32050 DATA 1,1.5,2.0
  723. 32060 DATA 1,120,400,1000,2500,5000,10000
  724.