home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.3 KB  |  221 lines
  1. 0 rem *** save"@0:inf4.main",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0
  3. 2 goto10
  4. 5 poke198,0
  5. 6 getk$:ifk$=""then6
  6. 7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
  7. 8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
  8. 9 return
  9. 10 dv=peek(186):ifdv<8thendv=8
  10. 12 sys57812"inf4.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  11. 14 sys57812"etal.mus",dv,0:poke780,0:poke781,0:poke782,150:sys65493
  12. 18 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  13. 20 print"[147]":poke53272,29:gosub490
  14. 22 poke214,17:print:print"         alien infiltration iv
  15. 24 [153]"         by cheryl de boissiere
  16. 33 sys57812"alien.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  17. 34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  18. 35 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
  19. 36 sys49615:poke781,0:poke782,150:sys49664
  20. 37 vi=53248:pg=64:sa=pg*256:sp=248
  21. 38 ss=49152:pokevi+32,0:pokevi+33,0
  22. 39 rem *** setup sinus interrupt
  23. 40 syssa
  24. 41 rem *** poke sprite data
  25. 42 yy=14:fori=0to7
  26. 43 poke2040+i,248+i:rem sprite pointers
  27. 44 pokevi+39+i,i+1:rem sprite colors
  28. 45 pokevi+37,14:pokevi+38,15:next
  29. 46 pokevi+29,255:rem x size
  30. 47 pokevi+23,0:rem y size
  31. 48 pokevi+28,255:rem multicolor on
  32. 49 pokevi+37,5:rem multicolor 1
  33. 50 pokevi+38,13:rem multicolor 2
  34. 51 pokevi+21,0:rem turn sprites on
  35. 52 pokess,7:zz=2:zy=10:zx=zy:gosub490
  36. 53 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  37. 54 pokesa+9,zz:pokesa+10,zy
  38. 56 pokesa+13,zx:pokevi+37,14
  39. 58 pokevi+38,zc:pokevi+39,3
  40. 60 z=z+1:if z=15 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  41. 61 if zy=40 then zy=10:zx=zx+5
  42. 62 y=y+1:ify<3thenzc=5
  43. 63 ify>2thenzc=4:ify>5theny=0:yy=yy+1:ifyy=15thenyy=0:goto66
  44. 64 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto70
  45. 65 goto53
  46. 66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  47. 69 goto64
  48. 70 rem *** turn off sinus
  49. 72 pokevi+21,0:pokevi+32,0:pokevi+33,0
  50. 73 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  51. 74 poke53272,29
  52. 80 rem *** gamestart
  53. 81 print"you are lea lison, star reporter, hot-
  54. 82 [153]"shot newspaperwoman.  a month ago, you
  55. 83 print"were contacted by tolsen, street snitch.
  56. 84 [153]"toxic dumping, eco-terrorists -- the
  57. 85 print"story was going in a wild direction!":gosub5
  58. 86 print"[145][145][145][145][145][145][145][145][145]it eventually led to you teaming up with
  59. 87 [153]"a street cop, james clark. together, you
  60. 88 print"went to whirry's sewage plant where you "
  61. 89 print"saw an alien spaceship and were attack-
  62. 90 [153]"ed by clones. one helped you escape!":[141]5
  63. 91 [141]690:[153]"however, that morning, tolsen was dead.
  64. 92 print"so was whirry. and james clark was miss-
  65. 93 [153]"ing. with no proof of your story and the
  66. 94 print"truth being too strange to believe, you
  67. 95 [153]"decided silence was golden (which ticked
  68. 96 print"off ray wencube, clark's partner)!":gosub5
  69. 97 print"[145][145][145][145][145][145][145][145][145][145][145]some weeks later -- you saw a newsphoto "
  70. 98 print"of rex luthel, mysterious millionaire,  "
  71. 99 print"opening a new chemical plant in amgoth. "
  72. 100 print"rex luthel looks exactly like the male  "
  73. 101 print"clones that attacked you and the strange
  74. 102 [153]"ally who led you safely to the surface.":[141]5
  75. 103 [153]"onononononononononononso you took a quick flight to amgoth -- "
  76. 104 [153]"to uncover luthel's connection to whirry"
  77. 105 [153]"and the alien spaceship. but direct con-"
  78. 106 [153]"tact with luthel is dangerous. he is not
  79. 107 print"the clone that helped you. and there are
  80. 108 [153]"other people worth visiting.           ":[141]5
  81. 109 a$[178]" see lacy lune (tolsen's girl)":b$[178]" see martha kent (colleague)  ":x[178]1
  82. 110 c$[178]" stakeout rex luthel's hotel  ":[141]490:[141]200:[145]c[137]111,137,289
  83. 111 [141]530:[153]"you arrive at lacy's sister's place. no
  84. 112 print"one is home. in fact, the place looks
  85. 113 [153]"deserted. you open the mailbox with a
  86. 114 print"paperclip & a lot of talent and estab-
  87. 115 [153]"lish no one has been home last 2 weeks.ononon":[141]5:[151]vi[170]38,4
  88. 116 [151]vi[170]21,255:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  89. 117 [153]"ononononononyou decide to check out lacy's sister's
  90. 118 print"apartment. you try the front door and
  91. 119 [153]"it is unlocked. inside looks like a tiny
  92. 120 print"whirlwind hit. yes, these two birds have
  93. 121 [153]"flown the coop! you hit a dead end.    ononon":[141]5:[151]vi[170]38,5
  94. 122 [151]vi[170]21,255:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  95. 123 a$[178]" call your newspaper /update ":[141]690:[141]200:[145]c[137]124,137,289
  96. 124 [141]510:[153]"your editor tells you that ray wencube
  97. 125 print"has been killed. his funeral was yester-
  98. 126 [153]"day. clark's younger brother, jeremy,
  99. 127 print"called round for you and was told you
  100. 128 [153]"were in amgoth.  a nick ragsody, crime":[141]5:[151]vi[170]38,4
  101. 129 [151]vi[170]21,127:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:x[178]2
  102. 130 [153]"onononononononononlab technician, also called. as well as
  103. 131 print"thad vyner, a 'friend' of ken tolsen's. "
  104. 132 print"otherwise, metropolis has been quietier
  105. 133 [153]"than normal. also martha kent of amgoth
  106. 134 print"said she would like to meet for drinks.":pokevi+38,5:pokevi+21,127
  107. 135 fort=1to3000:next:pokevi+21,0:gosub5:b$=" see martha kent (colleague)  "
  108. 136 a$=" visit local newsie club / bar":gosub690:gosub200:oncgoto290,137,289
  109. 137 gosub550:print"you call martha kent at home and she is
  110. 138 [153]"out. no surprise. her paper has no idea
  111. 139 print"where she is but suggest you try phil's,
  112. 140 [153]"the newsie hangout. the editor, nathan":[141]5:[151]vi[170]38,4
  113. 141 [151]vi[170]21,63:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]5
  114. 142 [153]"onononononononclojack inquires if this is about luthel
  115. 143 print"and when you say it is, he tells you   "
  116. 144 print"martha was hoping you would get in touch
  117. 145 [153]"with her. but he doesn't know why.    ":[151]vi[170]38,5:[151]vi[170]21,63:x[178]3
  118. 146 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]5:a$[178]" call your newspaper / update "
  119. 147 b$[178]" visit local newsie club / bar":[141]690:[141]200:[145]c[137]124,290,289
  120. 200 [143] *** options table
  121. 201 [153]""[166]16)"listoptions":[153]" clr 1 wait   list"a$
  122. 202 [153]" clr 2 wait   list"b$:[153]" clr 3 wait   list"c$:c[178]0
  123. 203 [139]x[178]1[167][153]"onononononlist  1    clr"a$
  124. 204 [139]x[178]2[167][153]"onononlist  2    clr"b$
  125. 205 [139]x[178]3[167][153]"onlist  3    clr"c$
  126. 206 [141]5:[139]k$[178]""[175]x[179]3[167]x[178]x[170]1
  127. 207 [139]k$[178]"on"[175]x[177]1[167]x[178]x[171]1
  128. 208 [139]k$[178][199](13)[167]c[178]x:[142]
  129. 209 [137]200
  130. 235 [143] *** clear text
  131. 236 [129]i[178]h[164]24:[151]781,i:[158]59903:[130]:[151]214,j:[142]
  132. 289 f$[178]"inf4.pt3":[137]291
  133. 290 f$[178]"inf4.pt2"
  134. 291 [158]sa[170]3:[151]53281,0:[151]53280,0:[158]49935
  135. 293 [153]"stopload"[199](34)f$[199](34)","dv:[153]"run"
  136. 294 [151]631,13:[151]632,13:[151]198,2:[128]
  137. 490 [143] *** cityscape11
  138. 491 [153]"loadcont                                        ";
  139. 492 [153]" cont                                    ";
  140. 493 [153]"   listwait cont                         posposrnd    ";
  141. 494 [153]"       listwait cont      *waitlog               waitfrecos";
  142. 495 [153]"sys*cos cont      waitcos    listwait cont  new   wait syscoscontnewrnd  ";
  143. 496 [153]"wait sys** contnewnew   wait sysrndlog  logcont   andandnewnewwait logcoslist   sys";
  144. 497 [153]"logcont syscos cont  wait syscoscos   log  log cos cont  wait  syscoscont syscosverify ";
  145. 498 [153]"cont   verifywait sys  sinwait  list sysloglist  sys logcont   *wait syslogcont  sys";
  146. 499 [153]"coscont syscoscont syssincont    rnd wait syscoscont   syssincontwait   wait syslogcont ";
  147. 500 [153]"   syssinlist   syssincont syslogcont  wait   syslogcont    syscoscont  syscoscont  ";
  148. 501 [153]"  wait   syscoscont   rnd wait   syslogcont   list    cont   *wait ";
  149. 502 [153]" syslogcont syslogcont syssincont    syssincont syscoscont  wait  syssincont  syscoscont  ";
  150. 503 [153]" wait syscoscont syssincontwait  syslogcont    syslogcont  int   syslogcont      sys";
  151. 504 [153]"coscont  syssincont  wait    syscoscont   *wait     syscoscont syssincont   sys";
  152. 505 [153]"sinlogcont int syslogcont   syslogcont  syssincont  syssincontwait    wait  syscoscont  ";
  153. 506 [153]"syssincont     syscoscos cont         int  syssincontwait   syssincont    ";
  154. 507 [153]" syscoscont   wait syssincontwait syssincont      syssincontwait    syscoslist":[142]
  155. 510 [143] *** cityscape12
  156. 511 [153]"loadclr                                        ";
  157. 512 [153]"                                        ";
  158. 513 [153]"                                        ";
  159. 514 [153]"                                        ";
  160. 515 [153]"             openwait  clr  newrnd         *newrndpos    ";
  161. 516 [153]" newrnd          wait  rnd wait   newwait   wait      newrnd";
  162. 517 [153]"wait       toandopenwait clr  andpos   wait fre cos   *wait      ";
  163. 518 [153]" wait    *wait       rnd  wait  open     clrnew waitcos   ";
  164. 519 [153]"         open  clr wait    int          wait       ";
  165. 520 [153]"               open  clr wait    int          wait     ";
  166. 521 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist":[142]
  167. 530 [143] *** cityscape13
  168. 531 [153]"load                                        ";
  169. 532 [153]"                                        ";
  170. 533 [153]"                 +           wait  abs      ";
  171. 534 [153]"+       +                 wait    waitcos   rnd ";
  172. 535 [153]"                              wait    wait   ";
  173. 536 [153]"                               + contwait   ";
  174. 537 [153]" wait cont        wait    get           +     wait";
  175. 538 [153]"    *wait   cont   cont   cont    wait   list getwait  ";
  176. 539 [153]"               wait            cont     waitcoslist ";
  177. 540 [153]"   getpokewait  cont              waitget     poke   ";
  178. 541 [153]"  cont  cont  cont   wait    list  poke    +    waitfrefre";
  179. 542 [153]"     waitget    poke             wait  list    print#  cont";
  180. 543 [153]"      wait   cont     waitget    poke         cont ";
  181. 544 [153]"      list         waitcos      wait   waitget      ";
  182. 545 [153]"    cont list         cont poke list   cont    wait     ";
  183. 546 [153]"cont wait   cont wait  cont              list     cont";
  184. 547 [153]" poke   closecont  wait           cont waitlist":[142]
  185. 550 [143] *** cityscape14
  186. 551 [153]"load                                      ";
  187. 552 [153]"   .     .           .           .      ";
  188. 553 [153]"              .           .             ";
  189. 554 [153]"     .  wait    wait(NULL)     wait            ";
  190. 555 [153]"wait                 wait     wait (NULL)  waitstep ";
  191. 556 [153]"waitlog sin  .    wait         .      (NULL)  wait cos ";
  192. 557 [153]"  wait  poke    wait       poke   wait  poke   ";
  193. 558 [153]"          wait    wait  log  wait sin cos poke   ";
  194. 559 [153]"     poke sin wait  poke *waitfreusrtab(list   poke   list * cos   ";
  195. 560 [153]"sin   wait   sin poke sin cos   rnd   toandnewlistwait         ";
  196. 561 [153]"  poke    wait     poke   print#  or    poke log   coswaitcoslist  ";
  197. 562 [153]"            poke log cos      print#usrusr or oror  poke print# or ";
  198. 563 [153]" listwait                poke     print# rndrndrnd+ or  or  or";
  199. 564 [153]" poke print# or waitfrelist                print#   +poke print# coscoscos+";
  200. 565 [153]" or or or     waitusrlist                  print#sin log+poke ";
  201. 566 [153]"print#    +  or or  posposwaitusrusrlist                   print#";
  202. 567 [153]"         + or  andnewwait              list        ";
  203. 568 [153]"  print#       totosqrnewwaitfretab(list  print#list":[142]
  204. 690 [143] *** lea lison2
  205. 691 [153]"loadlist       abs       for   newnewposand  list      get     ";
  206. 692 [153]"           get      for   cos usrfrecoslogwaitrndlist      abs ";
  207. 693 [153]"               abs      for  cos*towaitcosdeffrewaitrndfor**";
  208. 694 [153]"waitrndlist     get                get     def for  sin+def";
  209. 695 [153]"waitnew waitnewthenforfnget listwait     abs                abs   ";
  210. 696 [153]"  def for  int+def and waitgetforrndsinloglistwait     get           ";
  211. 697 [153]"     get      for *coslogdefrnd *forcoscosabswaitgetrndlist    abs     ";
  212. 698 [153]"           abs      for  sin waitrnddeffrewaitrndforfnwaitsinlogwaitcos";
  213. 699 [153]"*listwait    get                get def list   for  defstepfor";
  214. 700 [153]"coswait*defcos  tab(waitrnddef(NULL)for waitcoslist    abs              ";
  215. 701 [153]"  abs  def list  for defthen int (NULL)defrnd (NULL) defintforwait*coslist    get  ";
  216. 702 [153]"              get   def list for defabs wait(NULL)  waitcos  wait";
  217. 703 [153]"stepdefcoswait list     abs                abs    def list defabs";
  218. 704 [153]" forwait (NULL)frefrefre(NULL)waitdef+ listwait      get":[142]
  219. 900 [141]490:vi[178]53248:[137]80
  220. 10000 d[178][194](186):n$[178]"0:inf4.main":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  221.