home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_B.d64 / starfighter.128 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  452 lines
  1. 10 (NULL):(NULL)%:(NULL)0,0,79,24,1:(NULL)6,1:(NULL)5,4:(NULL)4,1:printchr$(14):print"":a=190
  2. 20 fori=1toa
  3. 30 s=int(rnd(1)*20+1)
  4. 40 printspc(s);".";:next
  5. 60 printchr$(14):(NULL)5,16:print"[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][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][184][184][184][184][184][184][184][184][184][184][184][184]":(NULL)5,2
  6. 70 print"                                                                            "
  7. 80 print"                        "
  8. 90 print"                                                            "
  9. 100 print"                                "
  10. 110 print"                                                           "
  11. 120 print"                                            "
  12. 130 print"                                                                            "
  13. 140 print"                                           "
  14. 150 print"                                                               "
  15. 160 print"                                                    "
  16. 170 print"                                                                 "
  17. 180 print"                                                       "
  18. 190 print"                                                                            ":(NULL)5,16
  19. 200 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  20. 210 (NULL)5,4:fori=1to15
  21. 220 s=int(rnd(1)*20+1)
  22. 230 printspc(s);".";:next:print
  23. 240 print".   . .           .  [195]reated by [202]erry [215]. [215]hitfield - 1988[159]    .        .    ..  "
  24. 250 fori=1to23:s=int(rnd(1)*20+1)
  25. 260 printspc(s);".";:next:gosub1500
  26. 280 a=180
  27. 290 fori=1toa
  28. 300 s=int(rnd(1)*20+1)
  29. 310 printspc(s);".";:next
  30. 320 (NULL)5,2:(NULL)2,3,76,22:print"[211]pace....[212]he final frontier!  [215]elcome to [193]reales [214] starfighter!  ";
  31. 330 print"[217]ou are   about to embark on the most exciting adventure of you life!"
  32. 340 print:print"     [212]he dreaded [210]italin [197]mpire has forcefully taken control of several    planets in the [207]rion sector of the galaxy.  ";
  33. 360 print"[207]ne light year ago, the [210]italingained control of [195]ylos [216][201][201], a major industrial planet on the far end of   the galaxy.  [215]ith this planet, the [210]italin ";
  34. 370 print"are within striking range of    [193]reales [214], [193]lliance [195]ommand's [211]ector [200]eadquarters and [211]tarfighter [193]cademy.":print
  35. 380 print"     [212]he nearest [193]lliance battle cruiser is twenty (20) light years away,  and intelligence reports that a [210]italin [211]tar [196]estroyer is in the ";
  36. 390 print"vicinity  of [195]ylos [216][201][201], no doubt preparing for an attack on [193]reales [214].   [193]s a result,the [193]lliance has placed the entire sector on security alert."
  37. 400 print:print"     [193]s the highest ranking cadet at the [211]tarfighter [193]cademy, you have beenvolunteered to neutralize the [211]tar [196]estroyer and re-capture [195]ylos [216][201][201] in ";
  38. 410 print"  time to save [193]reales [214]!  ([204]et's face it......suicide is for rookies!)"
  39. 500 dim p$(7),fuel(7),pc(7),pd(7,7),h(7)
  40. 510 fori=1to7
  41. 520 s=int(rnd(1)*20+1)+10:read p$(i):fuel(i)=s:pc(i)=i
  42. 530 code=int(rnd(1)*8000+1)+1000:h(i)=code
  43. 540 forj=1to7
  44. 550 read pd(i,j):nextj:nexti
  45. 560 data "[193][210][197][193][204][197][211][160][214]",0,10,40,20,40,30,0
  46. 570 data "[203][193][204][213][211]",10,0,45,15,50,35,0
  47. 580 data "[197][211][195][193][212][193][210]",40,45,0,20,35,10,0
  48. 590 data "[214][193][204][197][211][201][201]",20,15,20,0,50,20,0
  49. 600 data "[212][210][201][193][204][201][211] [201][201]",40,50,35,50,0,20,0
  50. 610 data "[217][197][210][210][202][201]",30,35,10,20,20,0,15
  51. 620 data "[195][217][204][207][211][160][216][201][201]",0,0,0,0,0,15,0
  52. 630 gosub1250:gosub1700:gosub1100:gosub1000:(NULL)0,0,79,24,1:a=163
  53. 640 fori=1toa
  54. 650 s=int(rnd(1)*20+1)
  55. 660 printspc(s);"[159].";:next
  56. 670 (NULL)20,9,60,14,1:print:printspc(2)"[208]lease type in starfighter name."
  57. 680 print:printspc(2);:poke21,64:input"[206]ame: ";n$:poke21,0:gosub1600:print:iflen(n$)>20thenprint:printspc(5)"[212]oo long!";:(NULL)1:goto670
  58. 690 print:printspc(2)"[211]tand by......";:(NULL)1:print"programming memory banks";:(NULL)2:(NULL)0,0,79,24,1:goto800
  59. 750 (NULL):fori=1to6:print:next:printspc(29)"[215][197][204][195][207][205][197] [212][207] ";p$(d);"!":printspc(25)pg$(d):print:printspc(29)"[196]ocked..........":(NULL)2:print:printspc(20)"[212]ype in four (4) digit security code"
  60. 755 poke208,0
  61. 760 print:printspc(35):get(NULL)w$:printw$;:get(NULL)x$:printx$;:get(NULL)y$:printy$;:get(NULL)z$:printz$:print:printspc(31)"[214]erified? [217]/[206]?"
  62. 770 get(NULL)m$:ifm$="n"then750
  63. 780 ifm$<>"y"then770
  64. 790 etr$=w$+x$+y$+z$:pc=pc(d):h=h(pc):pd=pd(pc,d):ifval(etr$)<>hthen7200
  65. 795 fori=1to8:ifly>=rk(i)andly<rk(i)+20thenrank$=rank$(i):rn=rn(i):x=xv(i):q=qv(i):i=8
  66. 797 next
  67. 800 (NULL):b$=" [211][212][193][212][201][207][206]  -  [211]pacedock ":c$="                    [211]ecurity [195]ode  "
  68. 810 print" ";:p$=p$(pc):a$=p$+b$+str$(pc)+c$+str$(h):l=len(a$):forj=1tol
  69. 820 print""mid$(a$,j,1);:ifmid$(a$,j,1)=" "thennextj
  70. 830 s=54272:pokes+5,21:pokes+6,0:pokes+24,15:pokes+1,7:pokes,50:pokes+12,21
  71. 840 pokes+13,0:pokes+8,100:pokes+7,50:pokes+2,0:pokes+3,15:pokes+4,65
  72. 850 pokes+11,129:pokes+4,0:pokes+11,0:nextj
  73. 860 printchr$(142):fori=1to80:print"[150][195]";:next:printchr$(14):fori=1to4:print:next
  74. 870 print,,"     1.)  [211]hip [210]epair/[198]uel"
  75. 880 print,,"     2.)  [211]tar [212]raders"
  76. 890 print,,"     3.)  ";p$;" [196]ata [195]omlink"
  77. 900 print,,"     4.)  [211]hip [206]avigations"
  78. 910 print,,"     5.)  [211]tarfighter [211]tatus"
  79. 920 print,,"     6.)  [204]aser [211]abre [193]rena"
  80. 930 print,,"     7.)  [199]alaxy [196]ata"
  81. 940 print,,"     8.)  [204]eave [211]pacedock"
  82. 950 print,,"     9.)  [209]uit"
  83. 955 ifcya>=3then(NULL)2:goto7000
  84. 960 cya=dc+cya:goto1900
  85. 970 m=val(m$):onmgoto3500,4500,5500,980,1200,3000,7500,8000,7150
  86. 980 gosub2000:goto800
  87. 990 (NULL)&:(NULL):print"":(NULL)5,4:end
  88. 1000 print:printspc(24)"[208]ress  [193]ny [203]ey [146] to continue.":poke208,0:get(NULL)m$:return
  89. 1100 rank$="[195]adet":cr=2000:shtp$(0)="[206]one":lt$(0)="[206]one":rn=0
  90. 1110 msl=5:fuel=100:ly=0:x=15:d=1:h=h(1):pc=pc(1):sc=1:lc=1:sh=200:vo=0
  91. 1120 wi=0:ld=0:vl=0:q=2:dc=0:cya=0:n$="commander strykker":mtk=0:sdr=0:return
  92. 1200 gosub4000:goto800
  93. 1250 k=20
  94. 1260 dim ak$(k),ht(k),ap(k)
  95. 1270 fori=1tok:read ak$(i),ht(i),ap(i):next
  96. 1280 data "[211]odermanian [202]unk [214]essel",125,75,"[210]italin [211]cout [211]hip",175,100,"[208]irate [195]argo [211]hip",125,75,"[199]aultian [205]utant [211]huttle",125,75,"[201]ranian [211]tarliner",125,75
  97. 1290 data"[210]italin [215]ar [196]rone",100,1000,"[208]irate [198]reighter",1000,500,"[210]italin [212]anker",1000,500,"[210]italin [212]ransport",500,500,"[210]italin [210]adar [211]hip",500,1000
  98. 1300 data"[210]italin [194]ladeship",2000,1000,"[195]ylonian [208]atrol [211]hip",2500,1850,"[217]jerran [211]pace [195]ruiser",2500,2000,"[212]rialic [208]olice [214]essel",2500,1850
  99. 1310 data"[211]torbeckian [218]one [195]ruiser",2500,2000,"[208]irate [198]ighter",2500,1850,"[213].[211].[211]. [197]nterprise",4500,3000,"[210]italin fighter",4000,3500
  100. 1320 data"[198]innean [211]idewinder",4000,3000,"[195]oalucan [207]sprey [195]ruiser",5000,3500
  101. 1400 dim rank$(8),rk(8),rn(8),xv(8),qv(8)
  102. 1410 fori=1to8:read rank$(i),rk(i),rn(i),xv(i),qv(i):next
  103. 1420 data "[197]nsign",45,1,12,2,"[204]eutenant",65,2,12,2,"[205]ajor",85,3,10,3,"[198]irst [207]fficer",105,4,10,3,"[195]ommander",125,5,8,3,"[195]aptain",145,6,8,4,"[195]ommodore",165,7,8,4
  104. 1430 data "[193]dmiral",185,8,7,4
  105. 1450 dim pg$(7):fori=1to7:read pg$(i):next:return
  106. 1460 data"[212]he [200]appiest [208]lace in [211]pace!"," [194]rought to you by [199]oodyear!","   [207]ver [212]en [194]illion [211]erved   ","    [200]ome of the [215]hopper!    "
  107. 1470 data"[194]uenvenidos, [206]o tengo cerveza","[193]ll females will be inspected","[215]here no man has gone before."
  108. 1500 (NULL)10
  109. 1510 (NULL)"v1o4t7u8x0"
  110. 1520 c$="hehfwghrqr":a$="sesesehcqgscscscsairsghg"
  111. 1530 b$="scscscsairsghgsfsf.sfhdqr":(NULL) c$
  112. 1540 fori=1to2:(NULL) a$:(NULL) b$:next:return
  113. 1600 ifn$>""then(NULL):fori=1tolen(n$)
  114. 1610 mid$(n$,i,1)=chr$(asc(mid$(n$,i,1))and127):next
  115. 1615 (NULL):return
  116. 1616 n$="captain knucklehead":return
  117. 1620 fori=1tolen(m$)
  118. 1630 mid$(m$,i,1)=chr$(asc(mid$(m$,i,1))and127):next:return
  119. 1640 fori=1tolen(bet$)
  120. 1650 mid$(bet$,i,1)=chr$(asc(mid$(bet$,i,1))and127):next:return
  121. 1700 dim shtp$(8),sw(8),sr(8),lt$(8),lw(8),lr(8)
  122. 1710 fori=1to7:read shtp$(i),sw(i),sr(i),lt$(i),lw(i),lr(i):next
  123. 1720 data "[201]ntergalactic [211]huttle",200,700,"[208]ulse [204]aser",150,200,"[212]ransport",575,1650,"[208]article [204]aser",475,600,"[211]tarspeeder",1000,3275,"[194]eam [204]aser",1000,1250
  124. 1730 data "[199]alactic [195]ruiser",2500,5500,"[193]rc [204]aser",2225,2275,"[193]lliance [199]unstar",3700,7000,"[208]hoton [204]aser",3500,3500,"[214]iper-[195]lass [198]ighter",7500,8250
  125. 1740 data "[216]enon [204]aser",4100,4750,"[194]attle [195]ruiser",25000,10000,"[211]odium [204]aser",4700,7000
  126. 1750 dim bs$(4)
  127. 1760 fori=1to4:read bs$(i):next
  128. 1770 data" 1 - forward/fire laser"," 2 - launch missile"," 3 - hyperspace/course"," 4 - status/damage"
  129. 1800 fori=1to7:read info(i):next
  130. 1810 data 2,3,4,5,6,7,1
  131. 1820 return
  132. 1850 ifsc<>0then970
  133. 1855 ifval(m$)<>8then970
  134. 1860 printchr$(19);:fori=1to16:printchr$(17);:next:printspc(25)"[217]ou don't have a ship! ";:(NULL)2
  135. 1870 fori=1to23:forj=1to2:printchr$(157);:next:print" ";:next:goto960
  136. 1900 forj=1to8:printchr$(142);:printchr$(19);:fori=1to21:printchr$(17);:next
  137. 1910 readg$:printg$;
  138. 1920 printchr$(17);"[163][163][163]";:fori=1to4:print"[163][163]";:foru=1to2:printchr$(145);:print"[206]";:next:print"[205]";
  139. 1930 foru=1to3:printchr$(17);:print"[205]";:next:print"[206]";:foru=1to2:printchr$(145);:print"[206]";:next:print"[205]";:printchr$(17);:foru=1to6:print"[163]";:next:next
  140. 1950 getm$:ifval(m$)<>0thenj=8:next:restore1990:goto1970
  141. 1960 foru=1to200:next:next:restore1990:goto1900
  142. 1970 printchr$(14);:goto1850
  143. 1990 data"[159]","","[155]","[149]","[150]","[156]","[154]","[151]"
  144. 2000 (NULL):printchr$(142);:fori=1to80:print"[155][198]";:next
  145. 2010 print" s h i p ' s   n a v i g a t i o n   c o m p u t e r "
  146. 2020 fori=1to80:print"[155][196]";:next
  147. 2030 fori=1to6:print:next:printchr$(14)
  148. 2040 print,"        1.)  [208]rogram [196]estination [195]oordinates"
  149. 2050 print,"        2.)  [199]alaxy [205]ap"
  150. 2060 print,"        3.)  [210]eturn to [205]ain
  151. 2070 [161][249]m$:m[178][197](m$):[139]m[178]0[167]2070
  152. 2080 [139]m[177]3[167]2070
  153. 2090 [145]m[137]2100,2500,2660
  154. 2100 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"listasc";:[130]:[153][199](14):[153]
  155. 2110 [129]i[178]1[164]7
  156. 2120 [139] p$(i)[178]p$[167]2150
  157. 2130 [139] pd(pc,i)[178]0[167]2150
  158. 2140 [153]"         "p$(i);,," str$istance - ";:[153]pd(pc,i);" (NULL)ight (NULL)ears"
  159. 2150 [130]:[153]:[129]i[178]1[164]80:[153][199](142);:[153]"listasc";:[130]:[153][199](14):[153]
  160. 2160 [153]"    (NULL)ype the first letter of the planet name to choose a course.  (NULL)o return to  the navigation menu type '0'.";
  161. 2170 [153]"      lenourse presently set for ";p$(d);".":[153]
  162. 2180 [161][249]m$
  163. 2190 [139]m$[178]"a"[175]pd(pc,1)[179][177]0[167]d[178]1:[137]2300
  164. 2200 [139]m$[178]"k"[175]pd(pc,2)[179][177]0[167]d[178]2:[137]2300
  165. 2210 [139]m$[178]"e"[175]pd(pc,3)[179][177]0[167]d[178]3:[137]2300
  166. 2220 [139]m$[178]"v"[175]pd(pc,4)[179][177]0[167]d[178]4:[137]2300
  167. 2230 [139]m$[178]"t"[175]pd(pc,5)[179][177]0[167]d[178]5:[137]2300
  168. 2240 [139]m$[178]"y"[175]pd(pc,6)[179][177]0[167]d[178]6:[137]2300
  169. 2250 [139]m$[178]"c"[175]pd(pc,7)[179][177]0[167]d[178]7:[137]2300
  170. 2260 [139]m$[179][177]"0"[167]2180
  171. 2270 [137]2000
  172. 2300 [153]"      (NULL)avigation coordinates now set for ";p$(d);"  lenorrect?  (NULL)/(NULL)?"
  173. 2310 [161][249]m$:[139]m$[178]"n"[167]d[178]pc:[137]2100
  174. 2320 [139]m$[179][177]"y"[167]2310
  175. 2330 [153]:[153],,"lenoordinates now verified..............":pd[178]pd(pc,d):[254]2:[137]2000
  176. 2500 [153][199](142):[232]:[153]"open .    ..       .    .       .   (NULL)open  ..        .   .     .      .           .   .     "
  177. 2510 [153]".           .    .          .  cylos xiiopen     ..        .      .     .  "
  178. 2520 [153]"     .        .            ..         .                 .       .    (NULL)open"
  179. 2530 [153]".         .          . .           .      .  .     .     .      trialis iiopen"
  180. 2540 [141]2650:[141]2650:[153]".            ..  "
  181. 2550 [153]"escataropen  .  .          .      .          . .     .       .    .          .  "
  182. 2560 [153]"  .(NULL)open    .           .    .         . (NULL)open   . .           .      . .  .     "
  183. 2570 [153]"      .        ..          .    .yerrjiopen           .       .         . .    "
  184. 2580 [153]"  .       .         . .      .         .       .          .      .    .       "
  185. 2590 [129]i[178]1[164]9:[141]2650:[130]:[153]".     ."
  186. 2595 [153]".   .         .   . .         .            . .      .     . . (NULL)open   . "
  187. 2600 [153]" .  .  (NULL)open      .            . .        .        .       .    areales vopen        .  .  valesiiopen  .      .    .    .       .           .     .   . "
  188. 2610 [153]" .   .        .    .      .           .      .    .      .           .   . "
  189. 2620 [153]"       .         .          . .         . .  kalusopen.           .   .   .   .   . "
  190. 2630 [153]"  .      . .       .       .     .      .     (NULL)open";
  191. 2640 [153]"  . .                 .    .      ";:[153][199](14);:[161][249]m$:[137]2000
  192. 2650 [129]j[178]0[164]6:z[178][181]([187](1)[172]15[170]1):[153][166]z)".";:[130]:[142]
  193. 2660 [142]
  194. 3000 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"clrasc";:[130]
  195. 3010 [153]" l a s e r   s a b r e   s k i l l   a r e n a"
  196. 3020 [129]i[178]1[164]80:[153]"clrstr$";:[130]:[153][199](14):[153]:bet$[178]"0"
  197. 3030 [153]"     (NULL)elcome to the (NULL)aser (NULL)abre atnrena!  left$ere you can bet on your fighting skill by battling computer simulated starfighter's in mock battles.";
  198. 3040 [153]"  right$f you win you   could triple your credits, however, if you lose, the entire amount that you bet is forfeit.";
  199. 3050 [153]"  valach battle last three (3) turns, and the best out of three wins.  (NULL)our chance of winning varies, depending on your rank.  chr$ood (NULL)uck!":[153]
  200. 3060 [153]"     left$ow much do you want to bet?  (NULL)ou currently have ";cr;" credits.":[133]"((NULL)ype '0' to return to (NULL)pacedock)";bet$:[141]1640
  201. 3070 [139] [197](bet$)[179][178]0[167]800
  202. 3080 bet[178][181]([197](bet$)):[139] bet[177]cr[167][153]:[153][166]20)"(NULL)ou don't have that many credits!":[254]2:[137]3000
  203. 3090 os[178]0:yc[178]0:cr[178]cr[171]bet:[153]:[153][166]20)"(NULL)he starfighter's take the field!":[153]:[254]2:[129]i[178]1[164]3:w[178][181]([187](1)[172]x[170]1)
  204. 3100 [139]w[177]5[167]os[178]os[170]1:[153][166]11)"(NULL)(NULL)asc!  (NULL)our opponent smacks you with his laser sabre!":[254]2:[137]3120
  205. 3110 yc[178]yc[170]1:[153][166]10)"(NULL)left$atn(NULL)!  (NULL)our sabre knocks your opponent across the arena!":[254]2
  206. 3120 [130]:[139]os[177]yc[167][153]:[153][166]11)"(NULL)ou (NULL)ose!  (NULL)othing worse than 'the atngony of str$efeat!'":[137]3140
  207. 3130 [153]:[153][166]11)"(NULL)ou (NULL)in!  (NULL)ictory and ";bet[172]2;" credits - what a life!":bet[178]bet[172]3:cr[178]cr[170]bet:bet[178]0:bet$[178]" "
  208. 3140 [153]:[153][166]24)"(NULL)ant to try again?  (NULL)/(NULL)?"
  209. 3150 [161][249]m$:[139]m$[178]"n"[167]800
  210. 3160 [139]m$[179][177]"y"[167]3150
  211. 3170 [153]:[137]3000
  212. 3500 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"verifyasc";:[130]
  213. 3510 [153]" g a l a x y   l u b e   a n d   t u n e "
  214. 3520 [129]i[178]1[164]80:[153]"verifystr$";:[130]:[153][199](14):[153]
  215. 3530 [153][166]15)"(NULL)elcome to ";p$;" (NULL)hip (NULL)epair peekay - (NULL)tation ";pc:[153]:[153]"      ascuel on this planet ";
  216. 3540 [153]"is";fuel(pc);"credits per unit.  atnll other repairs/services   are 200 credits.   (NULL)ype in the appropriate number or '5' to return to spacedock.":[153]:[153]
  217. 3550 [153][166]27)"1.)  peekuy ascuel"
  218. 3560 [153][166]27)"2.)  (NULL)epair (NULL)asers"
  219. 3570 [153][166]27)"3.)  (NULL)epair (NULL)issile (NULL)auncher"
  220. 3580 [153][166]27)"4.)  valnergize (NULL)hields"
  221. 3585 [153][166]27)"5.)  (NULL)eturn to (NULL)pacedock"
  222. 3590 [161][249]m$:[139][197](m$)[178]0[167]3590
  223. 3600 m[178][197](m$):[139]m[177]5[167]3590
  224. 3610 [145]m[137]3620,3700,3790,3810,800
  225. 3620 [141]3830
  226. 3630 [153][166]20)"left$ow many units do you want?  (";100[171]fuel;"maximum )"
  227. 3640 m$[178]"0":[153][166]31):[133]"ascuel (NULL)nits";m$:[141]1620:[139][197](m$)[178][179]0[167]3500
  228. 3650 m[178][181]([197](m$)):[139]m[177]100[171]fuel[167][153]:[153][166]20)"(NULL)hip fuel tank capacity exceeded!":[254]2:[137]3500
  229. 3660 [139]fuel(pc)[172]m[177]cr[167][153]:[153][166]24)"(NULL)ou don't have enough credits!":[254]2:[137]3500
  230. 3665 [139]sc[178]0[167][153]:[153][166]24)"(NULL)ou don't own a spacecraft!":[254]2:[137]3500
  231. 3670 [153]:[153][166]27)"ascilling your fuel tank......";:[254]2:[129]i[178]1[164]29:[153]" ";:[129]j[178]1[164]2:[153][199](157);:[130]:[129]j[178]1[164]50:[130]:[130]
  232. 3672 [139]m[170]fuel[179]100[167][153]"(NULL)ou now have";m[170]fuel;"units of fuel.":[254]2:[137]3680
  233. 3675 [153]"(NULL)our tank is now full!":[254]2
  234. 3680 fuel[178]fuel[170]m:cr[178]cr[171](fuel(pc)[172]m):[137]3500
  235. 3700 [141]3830:[153][166]21)"str$o you want your lasers repaired? (NULL)/(NULL)?":[141]3720
  236. 3710 [153]"(NULL)our lasers are now repaired!":wi[178]0:[254]2:[137]3500
  237. 3720 [161][249]m$:[139]m$[178]"n"[167]3500
  238. 3730 [139]m$[179][177]"y"[167]3720
  239. 3740 [139]cr[179]200[167][153]:[153][166]24)"(NULL)ou don't have enough credits!":[254]2:[137]3500
  240. 3750 [139]wi[178]0[175]m[178]2[167][153]:[153][166]24)"(NULL)our lasers are not damaged!":[254]2:[137]3500
  241. 3760 [139]ld[178]0[175]m[178]3[167][153]:[153][166]24)"(NULL)our launcher is not damaged!":[254]2:[137]3500
  242. 3770 [139]sc[178]0[175]m[178]4[167][153]:[153][166]24)"(NULL)ou don't own a spacecraft!":[254]2:[137]3500
  243. 3775 [139]sh[178]sw(sc)[175]m[178]4[167][153]:[153][166]24)"(NULL)our shields are not depleated!":[254]2:[137]3500
  244. 3780 [153]:[153][166]27)"(NULL)ow commencing repairs......";:[254]2:[129]i[178]1[164]28:[153]" ";:[129]j[178]1[164]2:[153][199](157);:[130]:[129]j[178]1[164]50:[130]:[130]:cr[178]cr[171]200:[142]
  245. 3790 [141]3830:[153][166]19)"str$o you want your launcher repaired? (NULL)/(NULL)?":[141]3720
  246. 3800 [153]"(NULL)our missile launcher is now repaired!":ld[178]0:[254]2:[137]3500
  247. 3810 [141]3830:[153][166]19)"str$o you want your shields energized? (NULL)/(NULL)?":[141]3720
  248. 3820 [153]"(NULL)our shields are now energized!":sh[178]sw(sc):[254]2:[137]3500
  249. 3830 [153]:[153][166]29)"(NULL)ou have";cr;"credits.":[142]
  250. 4000 [232]:[153][199](142):m[178]80[171][195](n$):w[178](m[173]2):[153][166]w[171]1);:[129]i[178]1[164][195](n$)[170]2:[153]"def(NULL)";:[130]:[153]" "
  251. 4010 [153][166]w)n$:[153][166]w[171]1);:[129]i[178]1[164][195](n$)[170]2:[153]"defval";:[130]:[153][199](14)
  252. 4020 [129]i[178]1[164]3:[153]:[130]
  253. 4030 [153]"open     (NULL)left$right$(NULL)close(NULL)(NULL)(NULL)val: ";shtp$(sc):[153][199](145);:[153][166]45)"open(NULL)atn(NULL)val(NULL)close(NULL)(NULL)(NULL)val: ";lt$(lc)
  254. 4040 [153]"open     (NULL)atn(NULL)(NULL): ";rank$:[153][199](145);:[153][166]45)"openlen(NULL)valstr$right$(NULL)(NULL): ";cr
  255. 4050 [153]"open     asc(NULL)val(NULL): ";fuel:[153][199](145);:[153][166]45)"open(NULL)left$right$val(NULL)str$ (NULL)(NULL)(NULL)val(NULL): ";sh
  256. 4060 [153]"open     (NULL)right$(NULL)(NULL)right$(NULL)val(NULL): ";msl:[153][199](145);:[153][166]45)"open(NULL)right$chr$left$(NULL) (NULL)valatn(NULL)(NULL) (NULL)asc (NULL)right$(NULL)(NULL)right$(NULL)(NULL) ";ly
  257. 4070 [153]"open     len(NULL)(NULL)(NULL)str$right$(NULL)atn(NULL)val(NULL)close(NULL)val(NULL)closeasc(NULL)(NULL):  ";p$(d)
  258. 4080 [139]wi[178]1[175]ld[178]1[167]dmg$[178]lt$(lc)[170]"       "[170]"(NULL)issile (NULL)auncher":[137]4120
  259. 4090 [139]wi[178]1[167]dmg$[178]lt$(lc):[137]4120
  260. 4100 [139]ld[178]1[167]dmg$[178]"(NULL)issile (NULL)auncher":[137]4120
  261. 4110 dmg$[178]"atnll systems operational":[139]sc[178]0[167]dmg$[178]"(NULL)ou don't have a ship!":[137]4120
  262. 4115 [137]4140
  263. 4120 [153]:[153]:[153]"     (NULL)left$right$(NULL)closestr$atn(NULL)atnchr$valclose(NULL)(NULL)atn(NULL)(NULL)(NULL):   def";:[153][199](15);:[153]dmg$;:[153][199](143):[153]"":[129]i[178]1[164]3:[153]:[130]
  264. 4130 [141]1000:[142]
  265. 4140 [153]:[153]:[153]"     (NULL)left$right$(NULL)closestr$atn(NULL)atnchr$valclose(NULL)(NULL)atn(NULL)(NULL)(NULL):   def";:[153]dmg$;:[153]"":[129]i[178]1[164]3:[153]:[130]:[141]1000:[142]
  266. 4500 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"contasc";:[130]
  267. 4510 [153]" i n t e r g a l a c t i c    s h i p   e x c h a n g e "
  268. 4520 [129]i[178]1[164]80:[153]"contstr$";:[130]:[153][199](14):[153]
  269. 4530 [153]"     (NULL)elcome to (NULL)tar (NULL)raders!  (NULL)he only one stop intergalactic ship exchange    chain in the universe!  left$ere you can buy or sell spacecraft or weapons.";
  270. 4540 [153]"  valach   item we sell is fully guaranteed for 10 light years or three (3) laser attacks, whichever comes first.  ((NULL)our mileage may vary.)";
  271. 4550 [153]"  (NULL)ur highly trained staff is   here to help you....if you can find them!  (NULL)lease choose your preference by     typing the corresponding number.":[153]:[153]
  272. 4560 [153],,"     1.)  peekuy (NULL)pacecraft"
  273. 4570 [153],,"     2.)  (NULL)eapons and atnccessories"
  274. 4580 [153],,"     3.)  (NULL)ell (NULL)pacecraft or (NULL)asers"
  275. 4590 [153],,"     4.)  (NULL)eturn to (NULL)pacedock"
  276. 4600 [161][249]m$:[139][197](m$)[178]0[167]4600
  277. 4610 m[178][197](m$):[139]m[177]4[167]4600
  278. 4620 [145]m[137]4700,4800,5100,800
  279. 4700 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"contasc";:[130]:[153][199](14):[153]
  280. 4710 [129]i[178]1[164]7:[153][166]20)i;")  ";shtp$(i);"  -  ";sr(i);"crs":[130]:[153]
  281. 4720 [153][199](142);:[129]i[178]1[164]80:[153]"contstr$";:[130]:[153][199](14):[153]
  282. 4730 [153]"(NULL)ype in the number of the ship you want or '0' to return to the exchange."
  283. 4740 [153]"chr$alactic law requires new spacecraft to be sold with only (10) units of fuel.":[153]:[153][166]27)"(NULL)ou have";cr;"credits."
  284. 4750 [161][249]m$:[139][197](m$)[178]0[167]4500
  285. 4760 m[178][197](m$):[139]m[177]7[167]4750
  286. 4770 [139]cr[179]sr(m)[167][153]:[153][166]24)"(NULL)ou don't have enough credits!":[254]2:[137]4500
  287. 4780 [139]sc[177]0[167][153]:[153][166]16)"(NULL)ou'd better sell your ";shtp$(sc);" first!":[254]2:[137]4500
  288. 4790 sc[178]m:[153]:[153]:[153][166]5)"(NULL)hank you ";:[153][199](142);:[153]n$;:[153][199](14);:[153]"!  (NULL)ou now own an/a ";shtp$(sc);".":cr[178]cr[171]sr(m):sh[178]sw(m):fuel[178]10:ld[178]0:[254]3:[137]4500
  289. 4800 [232]:[153][199](142);:[129]i[178]1[164]80:[153]"contasc";:[130]:[153][199](14):[153]
  290. 4810 [129]i[178]1[164]7:[153][166]20)i;")  ";lt$(i);"  -  ";lr(i);"crs":[130]:[153]
  291. 4815 [153][166]20)"left$igh (NULL)elocity left$oming (NULL)issile  -  200 crs":[153]
  292. 4820 [153][199](142);:[129]i[178]1[164]80:[153]"contstr$";:[130]:[153][199](14):[153]
  293. 4830 [153][166]17)"(NULL)ype your choice or '0' to return to exchange":[153]
  294. 4840 [153],,"           1.)  (NULL)asers":[153],,"           2.)  (NULL)issiles":[153]
  295. 4850 [161][249]m$:[139][197](m$)[178]0[167]4500
  296. 4860 m[178][197](m$):[139]m[177]2[167]4850
  297. 4870 [145]m[137]4900,5000
  298. 4900 [153]"(NULL)ype in the number of the laser you want or '0' to return to the exchange."
  299. 4910 [153][166]27)"(NULL)ou have";cr;"credits."
  300. 4920 [161][249]m$:[139][197](m$)[178]0[167]4500
  301. 4930 m[178][197](m$):[139]m[177]7[167]4920
  302. 4940 [139]cr[179]lr(m)[167][153]:[153][166]24)"(NULL)ou don't have enough credits!":[254]2:[137]4500
  303. 4950 [139]lc[177]0[167][153]:[153][166]20)"(NULL)ou'd better sell your ";lt$(lc);" first!":[254]2:[137]4500
  304. 4960 [153]:[153][166]5)"(NULL)hank you ";:[153][199](142);:[153]n$;:[153][199](14);:lc[178]m:[153]"!  (NULL)ou now own an/a ";lt$(lc);".":cr[178]cr[171]lr(m):[254]4:[137]4500
  305. 5000 [153]:[153][166]20)"(NULL)ou have";cr;"credits and";msl;"missile(s).":[153][166]23):m$[178]"":[133]"left$ow many missiles do you want";m$:[139][197](m$)[179][178]0[167]4800
  306. 5010 m[178][197](m$):[139]m[172]200[177]cr[167][153]:[153][166]24)"(NULL)ou don't have enough credits!":[254]2:[137]4500
  307. 5020 [139]m[177]20[171]msl[167][153]:[153][166]24)"(NULL)hip's missile capacity exceeded!":[254]2:[137]4500
  308. 5030 msl[178]msl[170]m:cr[178]cr[171](m[172]200):[153][166]21)"(NULL)hank you!  (NULL)ou now have";msl;"missile(s).":[254]2:[137]4500
  309. 5100 [153]:[153][166]20)"str$o you want to sell (NULL)waitpacecraft or (NULL)waitaser?"
  310. 5110 [161][249]m$:[139]m$[178]"s"[167]5200
  311. 5120 [139]m$[179][177]"l"[167]4500
  312. 5130 [139]lc[178]0[167][153]:[153][166]25)"(NULL)ou don't have a laser to sell!":[254]3:[137]4500
  313. 5140 [139]wi[178]1[167][153]:[153][166]12)"right$t is (NULL)tar (NULL)raders' policy not to buy damaged equipment.":[254]3:[137]4500
  314. 5150 [153]:[153][166]20)"(NULL)our laser is sold for";[181](lr(lc)[173]2);"credits.":cr[178]cr[170][181](lr(lc)[173]2):lc[178]0:[254]3:[137]4500
  315. 5200 [139]sc[178]0[167][153]:[153][166]21)"(NULL)ou don't have a spacecraft to sell!":[254]3:[137]4500
  316. 5210 [139]ld[177]0[167][153]:[153]"chr$alactic law states, '(NULL)o spacecraft can be sold with a defective launcher.'":[254]3:[137]4500
  317. 5220 [153]:[153][166]17)"(NULL)our spacecraft is sold for";[181](sr(sc)[173]2);"credits."
  318. 5230 [139]fuel[177]0[167][153][166]20)"................and thanks for the fuel!"
  319. 5240 cr[178]cr[170][181](sr(sc)[173]2):fuel[178]0:sc[178]0:sh[178]0:[254]3:[137]4500
  320. 5500 [232]:[153][166]15)"openor";:[129]i[178]1[164]43:[153][199](142)"len";:[130]:[153]"^":[153][166]15)"(NULL)";
  321. 5510 [153][199](142)" p l a n e t a r y  d a t a  c o m l i n k open";:[153]"(NULL)":[153][166]15)"/";:[129]i[178]1[164]43:[153][199](142)"len";:[130]:[153]"exp"
  322. 5550 [129]i[178]1[164]7:[139]pc[178]i[167]info[178]info(i):[141]5600:i[178]7
  323. 5560 [130]
  324. 5570 [141]1000:[137]800
  325. 5600 [129]j[178]1[164]5:[153]:[130]:[145]pc[137]5650,5670,5690,5710,5730,5750,5770
  326. 5610 [153]"ascailure to use proper code at docking platforms will result in arrest.  (NULL)ecurity code for ";p$(info);" is as follows: ";h(info):[142]
  327. 5650 [153]"     left$eavy spacecraft activity in all areas of the sector.  chr$alactic lenommand    reports several (NULL)italin ship sightings have been confirmed."
  328. 5660 [137]5610
  329. 5670 [153]"     (NULL)italin vessels traveling into and around valscatar.  atnll ships in this      area are well-armed and considered hostile.  (NULL)se extreme caution."
  330. 5680 [137]5610
  331. 5690 [153]"     chr$alactic lenommand reports that several frieghters were destroyed in         unprovoked attacks near (NULL)alesii.  left$igh-power lasers manditory in sector."
  332. 5700 [137]5610
  333. 5710 [153]"     (NULL)rialis right$right$ station surrounded by alien ships.  (NULL)italin's are using alien       vessels to destroy atnlliance chr$unstars.  valxtremely hazardous area!"
  334. 5720 [137]5610
  335. 5730 [153]"     atnll traffic to lenylos (NULL)right$right$ has been cut off.  (NULL)nly access is through          (NULL)italin military corridor via (NULL)jerri.  atnll ships are heavily armed."
  336. 5740 [137]5610
  337. 5750 [153]"     (NULL)italin (NULL)tar str$estroyer was sighted by atnlliance fighter near lenylos (NULL)right$right$.      atnlso, you are in danger.  (NULL)our mission has been c- - - - [len(NULL)(NULL)(NULL)right$(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)]"
  338. 5760 [137]5610
  339. 5770 [153]"     (NULL)tarfighter!  (NULL)ou must (NULL)valatn(NULL)val lenylos (NULL)right$right$ at once!  right$ntelligence reports      that you have been led into a (NULL)(NULL)atn(NULL)!  (NULL)he (NULL)italins were told of your mi";
  340. 5780 [153]"ssion by  your valvil (NULL)win!  (NULL)he (NULL)tar str$estroyer is equipped with a new type of shield which draws power directly from the ship's main power supply.":[153]
  341. 5790 [153][166]5)"chr$val(NULL) (NULL)(NULL)(NULL)!  (NULL)our mission has been compromised!  (NULL)he (NULL)italin's have orders to str$val(NULL)(NULL)(NULL)(NULL)(NULL) you at atn(NULL)(NULL) cost!    valven if it means str$val(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)chr$ len(NULL)(NULL)(NULL)(NULL) (NULL)right$right$!"
  342. 5800 dc[178]1:vo[178]1:[137]5610
  343. 6000 [153][166]15)"(NULL)closevalclose(NULL)close(NULL)closecloseclosestr$ (NULL)close(NULL)closevalclosecloseclose(NULL)close(NULL)closeatnclose(NULL)closeasccloseright$closechr$closeleft$close(NULL)closevalclose(NULL)close!close!close!":[129]i[178]1[164]4:[153]:[130]
  344. 6010 [153][166]5)"open(NULL)ou did it!  (NULL)ou saved the atnlliance!  mid$ust think, you'll have fame, fortune...your own mini-series!  (NULL)ou can now spend the rest of your life on a";
  345. 6020 [153]" tropical planet with big breasted chicks!  (NULL)ah mon, no problem!  atnnd don't forget, as    soon as you get back to atnreales (NULL) a group of people will surr";
  346. 6030 [153]"ound you and ask,  left$ey!  (NULL)ou just took on the entire (NULL)italin valmpire and survived......what are you going to do now?........................":[153]
  347. 6040 [153]".....atnnd of course your going to say - right$'m going to str$isneyland!.......after all,50000 credits is 50000 credits!":[153]:[141]1000:[137]990
  348. 7000 [232]:[129]i[178]1[164]10:[153]:[130]:[153][166]35)"peek (NULL) (NULL) (NULL) !":[254]3
  349. 7010 [232]:[129]i[178]1[164]5:[153]:[130]:[153][166]5)"(NULL)ell, the (NULL)italins decided that they really wanted you dead, considering   they evaporated an entire planet to get you!";
  350. 7020 [153][166]2)"(NULL)ooks like they got their wish.":[153]"(NULL)h well, maybe you'll come back in a atnlenatnstr$val(NULL)(NULL) right$(NULL) / (NULL)valatn(NULL)lenleft$ asc(NULL)(NULL) ";[199](142)n$;"!":[153]
  351. 7030 [153]"    peekut then again, that only happens in the movies................"
  352. 7040 [153]:[153][166]30)"(NULL)ou are dead!":[141]1000:[137]7250
  353. 7050 [254]1:[254]0,0,79,24,1:[232]:[129]i[178]1[164]5:[153]:[130]:[153][166]5)"(NULL)othing like being out of gas in deep space..........just floating around  with no food.  ";
  354. 7060 [153]"ascunny thing is, the (NULL)italins thought you were an asteroid when   they blew your ship to bits.  (NULL)eah, life's a................well you know!"
  355. 7070 [153]:[153][166]30)"(NULL)ou are dead!":[141]1000:[137]7250
  356. 7100 [254]1:[254]0,0,79,24,1:[232]:[129]i[178]1[164]5:[153]:[130]:[153][166]4)"(NULL)ow!  (NULL)ooks like that last battle really was your (NULL)atn(NULL)(NULL) battle!  atnt least youdidn't go down ";
  357. 7110 [153]"without a fight.  (NULL)f course, the atnlliance will never find your   body or your ship, since they're both scattered across the galaxy.  (NULL)ook at the bright ";
  358. 7120 [153]"side, at least you don't have to write that thesis paper for your academygraduation!  peekut then again, you won't be doing atn(NULL)(NULL)(NULL)left$right$(NULL)chr$ for a long while!"
  359. 7130 [153]:[153][166]30)"(NULL)ou are dead!":[141]1000:[137]7250
  360. 7150 [232]:[129]i[178]1[164]7:[153]:[130]:[153][166]11)"(NULL)hat!  (NULL)uit this incredible game!  atnre you sure?  (NULL)/(NULL)?":[161][249]m$:[139]m$[179][177]"y"[167]800
  361. 7160 [137]990
  362. 7200 [254]1:[232]:[129]i[178]1[164]3:[153]:[130]:[153][166]25)"defright$ (NULL) (NULL) (NULL) (NULL) str$ val (NULL)   atn (NULL) val (NULL) (NULL)";[199](143):[153]:[153]
  363. 7210 [153][166]5)"(NULL)(NULL)(NULL)(NULL)!  (NULL)omebody didn't use the proper security code!  (NULL)oo bad the atnlliance doesn't tolerate simple mistakes.  str$arn that luck, huh?  peeky the time ";
  364. 7220 [153]"you get    out of galactic prison, the (NULL)italins will have taken over the universe and thosewacky valarthlings will have colonies on (NULL)luto.  atnnd right$'m sure ";
  365. 7230 [153]"you've heard about  what happens to newcomers in galactic prison!  left$ope you're feeling romantic!":[153]:[153][166]25)"chr$ame over..........dear!":[141]1000:[137]7250
  366. 7250 [232]:[129]i[178]1[164]8:[153]:[130]:[153][166]23)"str$o you want to play again?  (NULL)/(NULL)?"
  367. 7260 [151]208,0:[161][249]m$:[139]m$[178]"y"[167][232]:[153]"open":[138]280
  368. 7270 [139]m$[179][177]"n"[167]7260
  369. 7280 [137]990
  370. 7500 [232]:[129]i[178]1[164]2:[153]:[130]:[153][166]20)"atn (NULL) (NULL) right$ atn (NULL) len val    str$ right$ (NULL) val len (NULL) right$ (NULL) val (NULL)cont":[153]:[153]
  371. 7510 [153]," 1.   (NULL)rite down all security codes.":[153]
  372. 7520 [153]," 2.   (NULL)wo (2) units of fuel are used for each light year travelled.":[153]
  373. 7530 [153]," 3.   atnlien laser and shield power varies with each ship.":[153]
  374. 7540 [153]," 4.   atnlways check str$ata lenomlink for security codes and clues.":[153]
  375. 7550 [153]," 5.   (NULL)abre atnrena odds increase with your rank.":[153]
  376. 7560 [153]," 6.  'lenourse' can only be selected on ship screen if destination had                  not been previously designated.":[153]
  377. 7570 [153]," 7.  'left$yperspace' instantly returns ship to planet of origin and                      uses all available fuel.":[153]:[141]1000:[232]:[153]:[153]
  378. 7580 [153]," 8.  lenonstantly monitor your fuel and shield status.":[153]
  379. 7590 [153]," 9.  peekecome familiar with alien laser and shield capabilities.":[153]
  380. 7600 [153],"10.  (NULL)pend your credits wisely.":[153]
  381. 7610 [153],"11.  atnll ships have a maximum fuel capacity of 100 units.":[153]
  382. 7620 [153],"12.  atnliens become more dangerous as time progresses.":[153]
  383. 7630 [153],"13.  atnll aliens are scum and must be destroyed.":[153]
  384. 7640 [153],"14.  str$on't worry ..... peeke happy!":[153]:[141]1000:[137]800
  385. 8000 [153][199](142):[232]:[153]"poke";:m$[178]"":m[178]0
  386. 8010 [153]"or";:[129]i[178]1[164]78:[153]"len";:[130]:[153]"^"
  387. 8020 [129]j[178]1[164]17:[153]"(NULL)";:[153][166]78);:[153]"(NULL)":[130]
  388. 8030 [153]"-";:[129]i[178]1[164]25:[153]"len";:[130]:[153]"=";:[129]i[178]1[164]26:[153]"len";:[130]:[153]"=";:[129]i[178]1[164]25:[153]"len";:[130]:[153]"<"
  389. 8040 [153]"(NULL)";:[153]"";:[153]bs$(1);:[153]"poke";:bs$[178]bs$(1):g[178]25[171][195](bs$):[153][166]g);:[153]"(NULL)";:[153][166]26);:[153]"(NULL)";:[153][166]25);:[153]"(NULL)"
  390. 8050 [153]"(NULL)";:[153]"";:[153]bs$(2);:[153]"poke";:bs$[178]bs$(2):g[178]25[171][195](bs$):[153][166]g);:[153]"-";:[129]i[178]1[164]26:[153]"len";:[130]:[153]"<";:[153][166]25);:[153]"(NULL)"
  391. 8060 [129]i[178]3[164]4:[153]"(NULL)";:[153]"";:[153]bs$(i);:[153]"poke";:bs$[178]bs$(i):g[178]25[171][195](bs$):[153][166]g);:[153]"(NULL)";:[153][166]26);:[153]"(NULL)";:[153][166]25);:[153]"(NULL)":[130]
  392. 8070 [153]"/";:[129]i[178]1[164]25:[153]"len";:[130]:[153]">";:[129]i[178]1[164]26:[153]"len";:[130]:[153]">";:[129]i[178]1[164]25:[153]"len";:[130]:[153]"exp":[141]9000
  393. 8075 [254]2,1,76,17:[129]i[178]1[164]115:s[178][181]([187](1)[172]20[170]1):[153][166]s);"open.";:[130]
  394. 8080 [254]0,0,79,24:[151]208,0:[161][249]m$:[139][197](m$)[178]0[167]8080
  395. 8090 m[178][197](m$):[139]m[177]4[167]8080
  396. 8095 [139]vo[177]0[167]sdr[178]vo[170]sdr
  397. 8100 [145]m[137]9100,9150,8120,8110
  398. 8110 [139]vl[178]1[167][141]9430:[137]8080
  399. 8115 [141]4000:[137]8000
  400. 8120 [139]pd[178]0[167][141]2000:[137]8000
  401. 8130 [141]9920:[254]0,0,79,24,1:fuel[178]0:d[178]pc:vl[178]0:[137]750
  402. 9000 [153][199](142);:[153]"";:[224]1,55,19,"fuel ":[153][251]"###";fuel
  403. 9010 [224]1,55,20,"missiles ":[153][251]"##";msl
  404. 9020 [224]1,55,21,"shields ":[153][251]"#####";sh
  405. 9030 [224]1,55,22,"distance  ":[153][251]"##";pd
  406. 9040 [224]1,28,19,"destination: ":[153]"print";:[153]"";p$(d):[153]""
  407. 9050 [139]wi[178]1[167][153][199](15);:[153]"def";:[224]1,32,21,"(NULL)aser (NULL)alfunction":[153][199](143);:[153]""
  408. 9060 [139]ld[178]1[167][153][199](15);:[153]"def";:[224]1,30,22,"(NULL)auncher (NULL)alfunction":[153][199](143);:[153]""
  409. 9070 [139]wi[178]0[167][224]1,32,21,"                  "
  410. 9080 [139]ld[178]0[167][224]1,30,22,"                    "
  411. 9090 [142]
  412. 9100 [139]pd[178]0[175]pc[178]d[167] [224]1,25,8,"(NULL)ou have to set a course.":[137]8080
  413. 9103 [139]vl[178]1[167][137]9107
  414. 9105 [137]9200
  415. 9107 [137]9300
  416. 9110 fuel[178]fuel[171]2:pd[178]pd[171]1:ly[178]ly[170]1:[141]9960
  417. 9120 [139]pd[178]0[167][254]0,0,79,24,1:[137]750
  418. 9130 [139]fuel[178][179]0[167][137]7050
  419. 9140 [137]8080
  420. 9150 [137]9300
  421. 9200 [254]21,7,58,8,1
  422. 9210 z[178][181]([187](1)[172]q[170]1):[139]z[178]1[167][153]"cont********* len(NULL)(NULL)str$right$(NULL)right$(NULL)(NULL)closechr$(NULL)valval(NULL) cont*********** ";:[153]"      (NULL)o ships detected in area";:sh[178]sw(sc):[137]9290
  423. 9220 [153]" ********** atn(NULL)(NULL)atnlen(NULL)close(NULL)atn(NULL)(NULL)right$(NULL)chr$ ********** ";:[141]9800
  424. 9225 [139]sdr[177][178]2[167]ak$[178]"(NULL)italin (NULL)tar str$estroyer":ht[178]15000:hr[178]ht:ap[178]5000:vl[178]1:[137]9250
  425. 9230 z[178][181]([187](1)[172]15[170]1):[139]z[178]1[167]ak$[178]"(NULL)our valvil (NULL)win":ht[178]sw(sc):hr[178]ht:ap[178]lw(lc):vl[178]1:[137]9250
  426. 9240 [141]9600
  427. 9250 l[178][195](ak$):i[178](38[171]l)[173]2:[153][166]i)ak$;
  428. 9260 z[178][181]([187](1)[172]3[170]1):[139]z[177]1[167][254]21,10,58,12,1:[153]"atnlien maneuvering to attack formation ";:[137]8080
  429. 9270 [254]21,10,58,12,1:[153]"atnlien maneuvering to attack formation ";:[141]9850:[153]"*(NULL)(NULL)(NULL)!*  (NULL)hields hit with";ap;"units!";
  430. 9280 sh[178]sh[171]ap:[141]9700:[141]9500:[141]9950:[137]8080
  431. 9290 [254]21,10,58,12,1:[153]"            atnll lenlear";:[137]9110
  432. 9300 [254]21,10,58,12,1:[139]m[178]2[167]9350
  433. 9305 [139]wi[178]1[167][153]"        (NULL)aser not operational!       ";:[137]9390
  434. 9310 z[178][181]([187](1)[172]9[170]1):[139]z[178]1[167][153]" asciring!.......";:[141]9910:[254]1:[153]"(NULL)aser narrowly misses! ";:[137]9390
  435. 9315 [139]mtk[179]2[175]ak$[178]"(NULL)italin (NULL)tar str$estroyer"[167][141]9470:[137]9390
  436. 9320 [153]"asciring!...";:[141]9890:[153]"atnlien takes";:[153][251]"#####";lw(lc);:[153]" unit hit!":ht[178]ht[171]lw(lc)
  437. 9330 [139]ht[179][178]0[167]9450
  438. 9340 [137]9390
  439. 9350 [139]vl[178]0[167][153]"(NULL)aunch aborted!  (NULL)o target detected!";:[137]8080
  440. 9352 [139]ld[178]1[167][153]"     (NULL)issile launcher is damaged!    ";:[137]9390
  441. 9355 [139]msl[178]0[167][153]"       (NULL)issile supply expended        ";:[137]9390
  442. 9360 [153]"(NULL)issile away!";:[141]9930:[139]mtk[179]2[175]ak$[178]"(NULL)italin (NULL)tar str$estroyer"[167][141]9480:[137]9390
  443. 9365 [139]ak$[178]"(NULL)italin (NULL)tar str$estroyer"[167] [153]" ":[153]"(NULL)tar str$estroyer takes 5000 unit hit!":msl[178]msl[171]1:ht[178]ht[171]5000:[137]9380
  444. 9370 [153]"..............str$irect hit!";:msl[178]msl[171]1:ht[178]ht[171]25000
  445. 9380 [139]ht[179][178]0[167]9450
  446. 9390 z[178][181]([187](1)[172]5[170]1):[139]z[178]1[167][141]9870:[153]" (NULL)ou evade the alien's laser blast!";:[137]8080
  447. 9400 [139]d[177]6[167]z[178][181]([187](1)[172]3[170]1):[139]z[178]1[167][141]9940:[153]"*len(NULL)atn(NULL)left$!*  (NULL)issile explodes on shields!";:sh[178]sh[171]5000:[141]9700:[141]9500:[141]9960:[137]8080
  448. 9410 [141]9850:[153]" *(NULL)(NULL)(NULL)!*  (NULL)hields hit with";ap;" units!";:sh[178]sh[171]ap:[141]9700:[141]9500:[141]9960:[137]8080
  449. 9430 [254]21,10,58,12,1:[153]"(NULL)creen not accessable during combat";:[142]
  450. 9450 [139]ak$[178]"(NULL)italin (NULL)tar str$estroyer"[167][153]"*(NULL)val(NULL)peek(NULL)atn(NULL)!*  (NULL)tar str$estroyer destroyed!":[254]3:[254]0,0,79,24,1:[137]6000
  451. 9460 [153]"atnlien destroyed! (NULL)ou get ";:[153][251]"#####";hr;:[153]" crs!";
  452.