home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Teleporter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  190 lines
  1. 10 rem ***************************
  2. 15 rem *      teleporter         *
  3. 20 rem *by cleveland m. blakemore*
  4. 25 rem ***************************
  5. 30 poke53281,.:poke53280,12:dim a(63,2),s$(48)
  6. 35 vi=5:k=.:f=.:nb=.:nt=.:w=.:w$="":i$="":c$=i$:d$=i$:c=.:cl=.:sb=.:sc=.:l=.
  7. 40 x$="[144]":r$=""
  8. 45 x=rnd(-ti/37):plot=65520:print"[147] please wait...initializing game."
  9. 50 s$(.)="[155][146]&captain:                              ":s$(1)=" stand by ....."
  10. 55 s$(2)="prepare for ":s$(3)="krell":s$(4)="algon":s$(5)="beta iv":s$(6)="ceta
  11. 60 s$(7)[178]"alphan":s$(8)[178]"sol":s$(9)[178]"tirus":s$(10)[178]"ambassador":s$(11)[178]"trader
  12. 65 s$(12)="crewmember":s$(13)="pilot":s$(14)="engineer":s$(15)="inspector
  13. 70 s$(16)[178]"officer":s$(17)[178]"passing thru radiation storm"
  14. 75 s$(18)[178]" $%&# computer on the fritz !":s$(19)[178]"transmission garbled!"
  15. 80 s$(20)[178]"phony...":s$(21)[178]"we try to conserve energy here":s$(22)[178]"lunchtime
  16. 85 s$(23)="meteor belt-turbulence ahead":s$(24)="another alien freeloader."
  17. 90 s$(25)="you just fried the ":s$(26)="you're fired!get off my ship!"
  18. 95 s$(27)="good job."
  19. 100 forx=.to10:reada$:s$(28+x)=a$:next
  20. 105 forx=.to9:reada$:s$(39+x)=a$:next
  21. 110 forx=.to32:reada:poke679+x,a:next
  22. 115 poke56334,peek(56334)and254
  23. 120 poke1,peek(1)and251:sys679:poke1,peek(1)or4:poke56334,peek(56334)or1
  24. 125 reada:ifa=-1then135
  25. 130 forx=.to7:readd:poke61440+a*8+x,d:next:goto125
  26. 135 poke648,192:print"[147] welcome aboard the u.s.s. nefarius !"
  27. 140 poke56576,peek(56576)and252:poke53272,12:v=53248:pokev+21,.
  28. 145 d=49152:forx=.to319:reada:poked+20*64+x,a:next:pokev,92:pokev+1,208
  29. 150 pokev+8,240:pokev+9,210:pokev+23,27:pokev+43,14
  30. 155 pokev+27,23:pokev+28,12:pokev+29,27:forx=.to48:poked+25*64+x,255:next
  31. 160 forx=48to63:poked+25*64+x,.:next
  32. 165 forx=.to63:poked+26*64+x,255:next
  33. 170 pokev+4,250:pokev+5,216:poked+1016,20:poked+1017,26:poked+1018,24
  34. 175 poked+1019,24:pokev+6,159:pokev+7,133:pokev+39,11:pokev+40,peek(v+33)
  35. 180 a=780:x=781:y=782:p=783:pokev+2,159:gosub380
  36. 185 pokev+3,133:s=54272:forsc=stos+24:pokesc,.:next
  37. 190 gosub510:prints$(.);
  38. 195 pokes+1,34:pokes,10:pokes+5,129:pokes+6,129:pokes+24,10:pokes+4,129
  39. 200 pokev+21,27:forsc=26to255:poked+1016,sc:poked+1020,sc:next:gosub550
  40. 205 poked+1020,25:poked+1016,20:pokes+4,.:gosub510:printtab(9)s$(1);
  41. 210 f=.:gosub640:r%=22+rnd(0)*3:ifrnd(1)>.5thenf=1
  42. 215 nb=int(rnd(1)*45+50):nt=int(rnd(1)*30+65)
  43. 220 nb=nb+int(rnd(1)*10)/10:nt=nt+int(rnd(1)*10)/10:poked+1018,r%
  44. 225 poked+1019,r%:iffandrnd(1)*7>lthenpoked+1019,22+int(rnd(0)*3)
  45. 230 gosub550
  46. 235 n$=s$(3+(rnd(1)*7)):t$=s$(10+(rnd(1)*7)):n$=n$+chr$(32)+t$
  47. 240 gosub510:printtab(9);chr$(18);s$(2);n$;chr$(19):gosub550
  48. 245 pokex,20:pokey,16:pokep,.:sysplot:printi$;mid$(str$(nb)+".0",2,4);
  49. 250 pokex,22:pokey,16:pokep,.:sysplot:printmid$(str$(nt)+".0",2,4);
  50. 255 poked+1016,21:pokev+37,rnd(0)*10:pokev+38,rnd(0)*10:pokev+41,rnd(0)*10
  51. 260 pokev+42,peek(v+41):iffandrnd(1)*12>lthenpokev+42,rnd(0)*10
  52. 265 pokev+21,peek(v+21)or4
  53. 270 w=int(rnd(0)*5)*2:w$=s$(39+w)
  54. 275 pokex,20:pokey,23:pokep,.:sysplot:printw$;:gosub550
  55. 280 gosub640:ifl>12thengosub565
  56. 285 gosub550:forsc=stos+24:pokesc,.:next:pokes,.:pokes+5,8
  57. 290 pokes+6,123:pokes+24,15:pokes+4,21:sc=133
  58. 295 forir=.to1:f1=peek(v+3):pokes+15,f1*.1:pokes+1,f1*.01
  59. 300 ec=(int(rnd(1)*vi)+int(rnd(1)*8*f))*.1:vi=-vi
  60. 305 pokex,20:pokey,16:pokep,.:sysplot:printc$;mid$(str$(nb+ec)+".0",2,4);
  61. 310 print"[157][157][157][157]";mid$(str$(nt+ec)+".0",2,4);
  62. 315 ifsbthenpokev+22,(peek(v+22)and248)orrnd(1)*8
  63. 320 pokex,22:pokey,23:pokep,.:sysplot:printd$;s$(39.6+w+abs(ec)):next
  64. 325 poked+1016,21.5-abs(ec)-(rnd(1)*.1)
  65. 330 ifpeek(56321)=239then615
  66. 335 sc=sc-1:pokev+3,sc:ifsc>90then295
  67. 340 pokev+22,(peek(v+22)and248):pokes+4,.
  68. 345 gosub510:prints$(.);:gosub510
  69. 350 iffthenprinttab(9)s$(24);:poked+1016,20:k=k+1:gosub640:gosub520:goto360
  70. 355 gosub550:printtab(9)s$(27);:poked+1016,21
  71. 360 l=l+1:gosub640:c$=i$:d$=i$:pokev+21,27:sb=.
  72. 365 ifl<21thengosub550:goto185
  73. 370 ifk>6thengosub510:prints$(.);:gosub510:printtab(9);s$(26);
  74. 375 goto650
  75. 380 print"[147]"tab(8)"[152][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
  76. 385 [153][163]9)"(NULL) step   teleporter   (NULL)wait (NULL)
  77. 390 printtab(9)"[212][169][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146][217]
  78. 395 [153][163]9)"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait(NULL)
  79. 400 printtab(9)"[212]    [212][163][163][163][163][163][163][163][163][163][163][146][217]    [217]
  80. 405 [153][163]9)"(NULL)    (NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) wait(NULL)    (NULL)
  81. 410 printtab(9)"[212]    [212] [215]      [215] [146][217]    [217]
  82. 415 [153][163]9)"(NULL)    (NULL) (NULL)  step(NULL)  (NULL) wait(NULL)    (NULL)
  83. 420 printtab(9)"[212]    [212] [215] [169]  [223] [215] [146][217]    [217]
  84. 425 [153][163]9)"(NULL)    (NULL) (NULL) (NULL)  step (NULL) wait(NULL)    (NULL)
  85. 430 printtab(9)"[212]    [212] [215]  [223][169]  [215] [146][217]    [217]
  86. 435 [153][163]9)"(NULL)    (NULL) (NULL)      (NULL) wait(NULL)    (NULL)
  87. 440 printtab(9)"[212]    [212] [215][215][215][215][215][215][215][215] [146][217]    [217]
  88. 445 [153][163]9)"(NULL)    (NULL) tototototototototowait(NULL)    (NULL)
  89. 450 printtab(8)"[206][183][183][183][169][206] [206][207][183][183][183][183][183][183][208][205] [205][223][146][183][183][183][205]
  90. 455 [153][163]7)"(NULL)   step(NULL)to(NULL)waitstep        (NULL)(NULL)to(NULL)(NULL)wait   (NULL)
  91. 460 printtab(6)"[206]   [169][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146]   [205]
  92. 465 [153][163]5)"(NULL)    (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait    (NULL)
  93. 470 printtab(4)"[206]"spc(30)"[205]"
  94. 475 printtab(3)"[206]  [169][165][176]helm[195][178][195][195][195][195][195][178][195][195][195][195][195][178]image[195][167][223][146] [205]
  95. 480 [153][163]2)"(NULL)  step(NULL)fnpeekwait     peekprintbwaitprint#    peekprintr_waitprint#   peekwait      then(NULL)(NULL)wait (NULL)
  96. 485 print" [206]  [169][209] [165][194][146]     [194][153] [146][152]    [194][153]  [146][152]   [194][146]      [167] [209][223][146] [205]
  97. 490 [153]"(NULL)  step(NULL)  fnpeekwait     peekprinttwaitprint#    peekprintw_waitprint#   peekwait      then  (NULL)(NULL)wait (NULL)";
  98. 495 [153]"  step(NULL)   fnpeekwait     peekprint waitprint#    peekprint  waitprint#   peekwait      then   (NULL)(NULL)wait ";s$(0);
  99. 500 [153][199](157);[199](148);[199](32);[199](19);:[142]
  100. 505 [143] set cursor
  101. 510 [151]p,.:[151]y,.:[151]x,24:[158]plot:[142]
  102. 515 [143] abort/fry alien
  103. 520 [129]sc[178]s[164]s[170]24:[151]sc,.:[130]:[151]s[170]1,10:[151]s[170]5,75:[151]s[170]6,30:[151]s,25
  104. 525 [151]s[170]24,15:[151]s[170]4,23:[151]v[170]3,90
  105. 530 [141]510:[153]s$(.);:[141]510:[153][163]9)"list(NULL) (NULL) (NULL) (NULL) (NULL) abort ! (NULL) (NULL) (NULL) (NULL)";
  106. 535 [129]sc[178].[164]64:[153][199](14);:[151]v[170]33,sc:[153][199](142);:[151]s[170]15,sc:[130]
  107. 540 [151]v[170]3,133:[151]s[170]4,.:[141]550:[141]640:[141]510:[153]s$(.);:[142]
  108. 545 [143] beep
  109. 550 [129]sc[178]s[164]s[170]24:[151]sc,.:[130]:[151]s[170]24,15
  110. 555 [151]s[170]1,25:[151]s,5:[151]s[170]5,20:[151]s[170]6,20:[151]s[170]4,33:[129]sc[178].[164]75:[130]
  111. 560 [151]s[170]4,.:[142]
  112. 565 [141]510:[153]s$(.);:[141]510:[153][163]9);
  113. 570 [145]l[171]12[141]580,605,580,585,590,595,600,605
  114. 575 [141]640:[141]510:[153]s$(.);:[142]
  115. 580 c$[178]x$:[153]s$(18);:[142]
  116. 585 [151]v[170]21,30:[153]s$(22);:[142]
  117. 590 d$[178]x$:sb[178]1:[153]s$(17);:[142]
  118. 595 [151]d[170]1018,[187](0)[172]3[170]22:[153]s$(19);:[142]
  119. 600 c$[178]x$:d$[178]x$:[153]s$(21);:[142]
  120. 605 sb[178]1:d$[178]x$:[153]s$(23);:[142]
  121. 610 [143] check for correct abort
  122. 615 [151]v[170]22,[194](v[170]22)[175]248
  123. 620 [141]520:[141]510:[139]f[167][153][163]9)s$(20);:[141]510:[137]355
  124. 625 [141]510:[153]s$(.);:[141]510:[153][163]9)s$(25);t$;"!";:k[178]k[170]1:[141]510
  125. 630 [151]d[170]1016,20:[141]640:[137]360
  126. 635 [143] delay
  127. 640 [129]sc[178].[164]3000:[130]:[142]
  128. 645 [143] rate performance
  129. 650 [141]550:[141]640:[141]550
  130. 655 [141]510:[153]s$(.);:[141]510:[153][163]9)r$;"ratinglenlen>";
  131. 660 [129]x[178].[164]10:[139]x[172]2[178]20[171]k[176]x[172]2[170]1[178]20[171]k[167][153]s$(28[170]x);:[141]550
  132. 665 [130]:[141]640:[141]640:[141]550
  133. 670 [151]648,4:[151]679,.:[158]679
  134. 675 [143] ratings
  135. 680 [131] raw recruit,space cadet,ensign,specialist,lieutenant,1st lieutenant
  136. 685 [131] captain,major,admiral,galactic whiz kid,regular ricky rocket
  137. 690 ren wave[129]m [131]
  138. 695 [131] $$$,%%%,%$$,$%$,*(*,(*(,)(),()(,$%%,%$$
  139. 700 [143] ml copydown routine
  140. 705 [131] 169,,133,251,133,253,169,208,133,252,169,240,133,254,162,8
  141. 710 [131] 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
  142. 715 [143] character data
  143. 720 [131]036,000,004,010,017,160,064,000,000
  144. 725 [131]037,000,032,080,136,005,002,000,000
  145. 730 [131]038,239,199,147,147,131,131,147,187
  146. 735 [131]040,000,056,040,040,239,000,000,000
  147. 740 [131]041,000,000,000,000,251,010,010,014
  148. 745 [131]042,000,016,040,040,199,000,000,000,-1
  149. 750 [143] sprite data
  150. 755 [131]255,255,255,135,255,193,143,254
  151. 760 [131]225,143,252,097,132,000,065,133
  152. 765 [131]147,065,132,214,065,134,016,193
  153. 770 [131]132,040,065,132,000,065,186,124
  154. 775 [131]189,197,069,067,130,130,129,129
  155. 780 [131]125,033,128,130,113,128,124,113
  156. 785 [131]128,000,081,128,000,001,128,000
  157. 790 [131]001,128,000,001,255,255,255,060
  158. 795 [131]255,255,255,135,255,193,143,254
  159. 800 [131]225,143,252,097,132,000,065,132
  160. 805 [131]214,065,132,016,065,134,016,193
  161. 810 [131]132,040,065,132,130,065,186,068
  162. 815 [131]189,197,057,067,130,130,129,129
  163. 820 [131]125,033,128,130,113,128,124,113
  164. 825 [131]128,000,081,128,000,001,128,000
  165. 830 [131]001,128,000,001,255,255,255,060
  166. 835 [131]005,020,080,000,085,000,000,215
  167. 840 [131]000,000,125,000,000,020,000,001
  168. 845 [131]085,064,005,086,080,020,085,020
  169. 850 [131]080,085,005,064,150,001,064,170
  170. 855 [131]001,097,085,073,133,065,082,149
  171. 860 [131]000,086,020,000,020,020,000,020
  172. 865 [131]020,000,020,020,000,020,020,000
  173. 870 [131]020,028,000,052,252,000,063,044
  174. 875 [131]000,065,000,001,020,064,012,040
  175. 880 [131]048,000,020,000,000,065,000,000
  176. 885 [131]020,000,000,020,000,001,085,064
  177. 890 [131]004,020,016,144,020,006,032,085
  178. 895 [131]008,129,020,066,004,020,016,004
  179. 900 [131]150,016,036,020,024,008,085,032
  180. 905 [131]032,085,008,001,215,064,005,085
  181. 910 [131]080,006,065,144,020,000,020,044
  182. 915 [131]000,000,000,001,065,064,007,215
  183. 920 [131]208,007,150,208,001,085,064,000
  184. 925 [131]105,000,000,020,000,001,150,064
  185. 930 [131]005,105,080,020,105,020,016,105
  186. 935 [131]004,016,150,004,016,020,004,020
  187. 940 [131]020,020,016,020,004,004,085,016
  188. 945 [131]000,085,000,001,065,064,005,000
  189. 950 [131]080,005,000,080,021,000,084,044
  190.