home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  8.5 KB  |  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 print" [183] [154]L[156]   [154]        [154]    [146][175]    [154]L[175] [156][183][183]";
  144. 813 print"[183]   [156]    [156][183]      [156]    [154][175][175]    [156]   [154][175]";
  145. 814 print"[175][175]      [154]L[156]     [156]   [183] [156]     [183][183]      ";
  146. 815 print"    [156]        [156][183][183][183]  [156]   [183][183]      [159][146]  [156] ";
  147. 816 print"          [156][183][183][183]   [183][183][183][183][183]            [146]   ";
  148. 817 print" [146]    [146]   [146]   [183][183][183]  [146]         [159][146] [156]  ";
  149. 818 print"     [146]    [146]    [146]       [146]      [146]     ";
  150. 819 print"    [146]  [159]     [156]   [146]            [159]  [156] [146]";
  151. 820 print"               [146]         [146]            ";
  152. 821 print"    [146]               [146]                 ";
  153. 822 print"        [146][155]":return
  154. 870 rem *** cityscape8
  155. 871 print"[147][153]        [153]             [153]        [151][184] [184][153]";
  156. 872 print"[146]    [155].[153] [155]  [153]         [153] [151][223][146]   [155].[153]    ";
  157. 873 print" [155].[153]       [151]  [146][191]  [153][146]     [155]  [153]        ";
  158. 874 print" [155] [151] [223][146]  [169][153][146]     [153]    [155].[153]   [151] [191]   [153][146]";
  159. 875 print"     [155]  [153]  [151][221][155] [153]     [155] [151]  [146]   [146]     ";
  160. 876 print" [151]    [153]  [155].[151]   [146][191] [146] [151]  [187] [155][146]  [153] [151][184] [184]";
  161. 877 print"[153][146]     [155] [151] [191] [188] [146]      [151]  [187][170][146] [155].[151][184] ";
  162. 878 print"[191]   [155][146] [151] [191] [190][155][146]  [151][172]   [187][146]    [155] [151]   [191] ";
  163. 879 print"[146]   [152]  [167][151][172][190][146][191][170][146] [151] [191] [190] [191] [155][146] [151] [190][191] [155][146] ";
  164. 880 print" [151]     [146]    [152][207][163][163][163][163][163][163][146]   [191][167][151][164][164][164][152][207][183][183][183][208]";
  165. 881 print"[151] [190] [152][207][183][183][208][151] [188] [155][146] [151][164][188][164][190][164][146]  [151][172] [152][180][191]  [146][191] ";
  166. 882 print"[191]  [188]     [172][188]   [183][183][183]  [191] [163][163][163][155][146] [152][163][163][163][163][163][163][146] [151]";
  167. 883 print"[172][191][152][165][190]   [188] [187][172][155][163][163][163][152][187] [190]  [190] [191][190]  [191][190]  [191][190][190] [190] [190][191]";
  168. 884 print" [187][146] [151][164][164][152][180][191][190] [191]  [172][155][207][187][190] [208][152][187][155][207][183][183][223][152][188]  [190]  [172] ";
  169. 885 print"[191]  [155][207][183][152][191][190] [191]    [187] [187]  [190][188] [155][207]  [187][190] [183] [187][191] [223][152] [190] ";
  170. 886 print"[155][207][183][208][152]   [155][207]  [152]  [190]  [187] [190]   [155][207][183][183][183][183] [187][191]  [191]    ";
  171. 887 print"  [223][152][172] [155][180][188][167][152][172][191][155][207] [188] [152] [155][207][183][183][208][152]  [155][207][183][183][183] [172] [146][191] ";
  172. 888 print"    [191]  [146][191] [187][190][188][167][152]  [155][180][146][191][167][152]  [155][180][188]  [163] [172]  [183][183] ";
  173. 889 print"[172] [191]       [191]        [190] [183][183] [188] [208][152][160][155][180][146][191]  [172][191] [172]";
  174. 890 print"[188] [190][191] [172][172] [190] [190]  [188]  [191]   [146][191] [191]  [191] [146][191] [190] [163][188] [191][190]";
  175. 891 print"                                        ";
  176. 892 print"                                        ":return
  177. 900 rem *** cityscape4
  178. 901 print"[147][154]      [154] [151]  [155].[151]     [154] [151]     [155].[151] [154] [151]  ";
  179. 902 print"   [159].  [151]   [152] [155]    [154] [155]. [151] [154]  [151] [154] [151]    ";
  180. 903 print" [154]  [151]   [154]       [152] [154][207][208][152]  [154][207][208] [155] [154] [155]  ";
  181. 904 print"[159].[155]  [151]     [154]   [151]  [154] [159].       [159].    [155]";
  182. 905 print".[154][207] [170]  [180] [208][155]         [154][207][183][208] [155].      [154][207][183][208]";
  183. 906 print"  [154]   [154]    [154][180] [170]  [180] [170][159].[155]  [154] [155]  [159].[154] [152] [154]";
  184. 907 print"[180] [170] [152]  [154][207][208][152]  [154] [180] [170][158]   [159].  [154]  [154][207]   ";
  185. 908 print"[183][183]  [170][155]   [159].[154] [155]  [152] [154][207]   [208][151] [154][207] [170][152]  [169]  [154]";
  186. 909 print"[146][170] [154] [159]. [154] [151]  [154][207]       [154][146]  [208]  [154]   [155]";
  187. 910 print" [152] [154][180]    [183]   [208][169]   [154][146] [208] [151] [154] [151]  [154][207]   ";
  188. 911 print"     [154][146]     [155][146]  [154][207][183][183]     [154][146]      ";
  189. 912 print"    [154][146] [208][151]  [154][207][183]          [154][146]    [146]  ";
  190. 913 print"  [154][146]       [154][146]         [154][146]  [183][183]      ";
  191. 914 print"          [152][146]    [154][146]   [159][146][207][183][208]  [159][146][207][183][208]";
  192. 915 print"     [154][146]      [154][146]                  [154][146]";
  193. 916 print"   [159][146][180] [170]  [159][146][180]  [183][183][208]  [154][146]  [159][146][207][183][208] ";
  194. 917 print" [154][146]    [159][146][207][183][183][208]            [159][146][180] [170]  [159][146]";
  195. 918 print"[180]    [170]   [159][146][207]   [208]     [159][146][180]   [208]  [159][146][207][183]";
  196. 919 print"[208]      [159][146][180] [170]  [159][146][180]    [170]   [159][146][180]    [208]";
  197. 920 print"   [159][146][207]    [170] [159][146][207]   [208]    [159][146][207]   [183][183]    ";
  198. 921 print"  [183][208] [159][146][180]    [170]  [159][146][207]      [183]     [208]   ";
  199. 922 print"[159][146][180]            [170] [159][146][180]    [170]  [159][146][180]      ";
  200. 923 print"      [170] [159][146][183][183]              [183]      [183][183]              [183][155]":return
  201. 10000 d=peek(186):n$="0:inf3.pt2":open15,d,15,"s"+n$:close15:saven$,d:end
  202.