home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  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