home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  202 lines
  1. 0 rem *** save"@0:inf3.pt2",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186):print"";
  3. 2 goto120
  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. 120 sys49615:poke781,0:poke782,150:sys49664
  10. 147 vi=53248:pg=64:sa=pg*256:sp=248
  11. 148 ss=49152:pokevi+32,0:pokevi+33,0
  12. 149 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  13. 150 syssa
  14. 151 rem *** poke sprite data
  15. 152 yy=14:fori=0to7
  16. 153 poke2040+i,248+i:rem sprite pointers
  17. 154 pokevi+39+i,i+1:rem sprite colors
  18. 155 pokevi+37,14:pokevi+38,15:next
  19. 156 pokevi+29,255:rem x size
  20. 157 pokevi+23,0:rem y size
  21. 158 pokevi+28,255:rem multicolor on
  22. 159 pokevi+37,5:rem multicolor 1
  23. 160 pokevi+38,13:rem multicolor 2
  24. 161 pokevi+21,0:rem turn sprites on
  25. 162 pokess,7:zz=2:zy=10:zx=zy:gosub870
  26. 163 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  27. 164 pokesa+9,zz:pokesa+10,zy
  28. 166 pokesa+13,zx:pokevi+37,14
  29. 168 pokevi+38,zc:pokevi+39,3
  30. 170 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  31. 171 if zy=40 then zy=10:zx=zx+5
  32. 172 y=y+1:ify<3thenzc=5
  33. 173 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto176
  34. 174 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto180
  35. 175 goto163
  36. 176 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  37. 179 goto174
  38. 180 rem *** turn off sinus
  39. 182 pokevi+21,0:pokevi+32,0:pokevi+33,0
  40. 183 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  41. 184 poke53272,29
  42. 185 rem *** gamestart
  43. 186 print"with the money you keep on a now very
  44. 187 [153]"dusty bookshelf in your apartment, you
  45. 188 print"buy a newspaper to read on the subway[145][145][145]":gosub5:pokesa+6,3
  46. 189 pokevi+38,4:pokevi+21,31:fort=1to3000:next:pokevi+21,0:pokevi+38,5
  47. 190 print"[145][145]ride to the cyber cafe.  the top story
  48. 191 [153]"is the mysterious death of ray wencube.
  49. 192 print"his body was found in the permansu bay.[145][145][145]":gosub5:pokevi+21,31
  50. 193 fort=1to3000:next:pokevi+21,0
  51. 194 gosub210:print"your own death is also in the paper [192][192]
  52. 195 [153]"you read that you died in an explosion
  53. 196 print"at the whirry sewage plant.[145][145][145]":gosub5
  54. 197 print"[145][145]the paper speculates that the case file
  55. 198 [153]"on the metropolis dockside mutilation "
  56. 199 [153]"murders was closed too soon.":[141]5:[137]300
  57. 200 [143] *** options table
  58. 201 [153]""[166]16)"listoptions":[153]" clr 1 wait   list"a$
  59. 202 [153]" clr 2 wait   list"b$:[153]" clr 3 wait   list"c$:c[178]0
  60. 203 [139]x[178]1[167][153]"onononononlist  1    clr"a$
  61. 204 [139]x[178]2[167][153]"onononlist  2    clr"b$
  62. 205 [139]x[178]3[167][153]"onlist  3    clr"c$
  63. 206 [141]5:[139]k$[178]""[175]x[179]3[167]x[178]x[170]1
  64. 207 [139]k$[178]"on"[175]x[177]1[167]x[178]x[171]1
  65. 208 [139]k$[178][199](13)[167]c[178]x:[142]
  66. 209 [137]200
  67. 210 [143] *** james clark2
  68. 211 [153]"load            sys     toandandto  def     print       ";
  69. 212 [153]"      list           sys   *sin   notlogwaitrnd cont print   ";
  70. 213 [153]"             cont list          sys *possin     waitspc(";
  71. 214 [153]"rndwaitrnd def      print          list           sys  sin";
  72. 215 [153]" sin     waitspc(*wait print                list         ";
  73. 216 [153]" sys   sin sin(NULL)pos(NULL)spc(  spc(wait print                list    ";
  74. 217 [153]"     sys   sin sindefnew   newsyswaitsin  wait  print          ";
  75. 218 [153]"     list         sys   sysrnd waitintdefposcos logwaitpossysabssin*wait";
  76. 219 [153]"   print              list             syslogthendefspc(";
  77. 220 [153]" tan spc(syssgnwaitcos    print               list  def     ";
  78. 221 [153]"def      syslogdef(NULL)andandand syswaitcos     print             ";
  79. 222 [153]"                def(NULL) tan (NULL)wait     sys  print    ";
  80. 223 [153]"                        def(NULL)usrusrusrthenwait     ";
  81. 224 [153]"   print                      posfreusrusrtab((NULL)   (NULL)tab(usr";
  82. 225 [153]"usrfrewaitnewandpoke   print                    cos       ";
  83. 226 [153]"         logpokewait   print                 def *log";
  84. 227 [153]"                *defwaitrndpoke   print             ";
  85. 228 [153]"   def*  waitlog              *defstep waitrndpoke   print     ";
  86. 229 [153]"         def*    waitrnd            *defstep   wait";
  87. 230 [153]"rndpoke  list print            def*    waitcos         ";
  88. 231 [153]"     defwaitlog    wait poke list poke print      poke     def   ";
  89. 232 [153]" waitcos rnd            *defwait log   logprintwaitlist":[142]
  90. 235 [143] *** clear text
  91. 236 [129]i[178]h[164]24:[151]781,i:[158]59903:[130]:[151]214,j:[142]
  92. 286 f$[178]"inf3.pt6":[137]291
  93. 288 f$[178]"inf3.pt4":[137]291
  94. 289 f$[178]"inf3.pt3":[137]291
  95. 291 [158]sa[170]3:[151]53280,0:[151]53281,0:[151]49152,0:[158]49935
  96. 293 [153]"stopload"[199](34)f$[199](34)","dv:[153]"run"
  97. 294 [151]631,13:[151]632,13:[151]198,2:[128]
  98. 300 b$[178]" phone newspaper about story  ":c$[178]" call on fave labtech instead ":x[178]2
  99. 301 a$[178]" continue onto startower cafe ":[141]800:[141]200:[145]c[137]302,317,289
  100. 302 [141]900:[153]"no one you know is at the startower cafe
  101. 303 print"this evening.  this is for the best you
  102. 304 [153]"figure.  you take a seat at your fave
  103. 305 print"booth and order some coffee & a bagel.[145][145][145]":gosub5:pokevi+38,4
  104. 306 pokevi+21,7:fort=1to3000:next:pokevi+21,0:pokevi+38,5
  105. 307 print"[145][145][145][145]you log onto a computer and find you've "
  106. 308 print"got e-mail dated after your death!  you
  107. 309 [153]"discover ray wencube was using your e-
  108. 310 print"mail addy for his private records.    [145][145][145]":gosub5:pokevi+21,7
  109. 311 fort=1to3000:next:pokevi+21,0
  110. 312 gosub210:print"obviously, your partner thought there
  111. 313 [153]"were questions about the case, about
  112. 314 print"pete whirry [192][192] the dockside murderer.":gosub5
  113. 315 b$=" go to your partner's wake    ":c$=" call on fave labtech instead ":x=2
  114. 316 a$=" visit local luthelcorp office":gosub800:gosub200:oncgoto325,288,289
  115. 317 h=16:j=16:gosub235:print"[155]the newspaper tells you lea lison was
  116. 318 [153]"their reporter on the sewage plant ex-
  117. 319 print"plosion.  she left for amgoth yesterday.[145][145][145]":gosub5:pokevi+38,4
  118. 320 pokevi+21,15:fort=1to3000:next:pokevi+21,0:pokevi+38,5
  119. 321 print"[145][145][145]you remember her [192][192] she was in another  weird dream, one older ";
  120. 322 print"than the one thatwoke you [192][192] if only you [192][192] it's gone!   [145][145][145]":gosub5
  121. 323 pokevi+21,15:fort=1to3000:next:pokevi+21,0
  122. 324 b$=" go to your partner's wake    ":gosub210:gosub200:oncgoto302,288,325
  123. 325 gosub870:pokevi+38,4:print"according to the records you found at
  124. 326 [153]"your e-mail addy, ray was checking up on
  125. 327 print"whirry's business contracts.[145][145][145]":gosub5:pokevi+21,3:fort=1to3000:next
  126. 328 pokevi+21,0:gosub870:print"a local address for luthelcorp & a door
  127. 329 [151]vi[170]38,5:[153]"access code (clr246801list) were recorded by
  128. 330 print"wencube.  a visit seems mandatory.[145][145][145]":gosub5:pokevi+21,3
  129. 331 fort=1to3000:next:pokevi+21,0:goto286
  130. 700 vi=53248:gosub870:goto185
  131. 800 rem *** cityscape6
  132. 801 print"[147][155]    [156] [158]     [185][185][185][185][185] .         .     ";
  133. 802 print"      .[155] [156] .[156]       [167][154]     [146][180][151]  [155].";
  134. 803 print"              .[155]   . [155] [158]    [156] [155]  .[155] ";
  135. 804 print"[170][154]    [154][180][146]L[175][151] [152]  .       [153].      ";
  136. 805 print"   [155]  [158] [156] [153]. [175][175][175] [155].[167][154]    [154]L  [146][180][159] ";
  137. 806 print".[159] [155]  [155].   [146]  [155].  . [175][175]  [153].[155] [153].[158]  ";
  138. 807 print"[167][154]   [146]L[175][186][154]     [154][180] [146][180]  [155].      [146][175]";
  139. 808 print"[175][175]   [170][154]  [146][180][155]   [158]   [146][186][154] [175][175]     [156][183][183]";
  140. 809 print" [154]L [146]L[175][175][175]      [154]   [146][180] [155].[170][154]  [146]L[175][175][155] ";
  141. 810 print"[175]  [154]    [154][180]    [156]    [154][180]    [146]L[175]     ";
  142. 811 print"[154]  [146]L[175]    [154]L  [146]L[154]   [154][175][175]  [154][180]   [156][183] ";
  143. 812 prin