home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  202 lines
  1. 0 rem *** save"@0:inf3.pt3",8
  2. 1 dv=peek(186):ifdv<8thendv=8
  3. 2 poke53272,29:print"";:goto240
  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. 200 rem *** options table
  10. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  11. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  12. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  13. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  14. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  15. 206 gosub5:ifk$=""andx<3thenx=x+1
  16. 207 ifk$="[145]"andx>1thenx=x-1
  17. 208 ifk$=chr$(13)thenc=x:return
  18. 209 goto200
  19. 235 rem *** clear text
  20. 236 fori=hto24:poke781,i:sys59903:next:poke214,j:return
  21. 240 sys49615:poke781,0:poke782,150:sys49664
  22. 267 vi=53248:pg=64:sa=pg*256:sp=248
  23. 268 ss=49152:pokevi+32,0:pokevi+33,0
  24. 269 pokevi+29,255:forzd=0to7:pokevi+zd,5:next
  25. 270 syssa
  26. 271 rem *** poke sprite data
  27. 272 yy=14:fori=0to7
  28. 273 poke2040+i,248+i:rem sprite pointers
  29. 274 pokevi+39+i,i+1:rem sprite colors
  30. 275 pokevi+37,14:pokevi+38,15:next
  31. 276 pokevi+29,255:rem x size
  32. 277 pokevi+23,0:rem y size
  33. 278 pokevi+28,255:rem multicolor on
  34. 279 pokevi+37,5:rem multicolor 1
  35. 280 pokevi+38,13:rem multicolor 2
  36. 281 pokevi+21,0:rem turn sprites on
  37. 282 goto340
  38. 286 f$="inf3.pt6":goto291
  39. 287 f$="inf3.pt5":goto291
  40. 288 f$="inf3.pt4"
  41. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  42. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  43. 294 poke631,13:poke632,13:poke198,2:end
  44. 340 pokess,7:zz=2:zy=10:zx=zy:gosub900
  45. 341 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  46. 342 pokesa+9,zz:pokesa+10,zy
  47. 343 pokesa+13,zx:pokevi+37,14
  48. 344 pokevi+38,zc:pokevi+39,3
  49. 345 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  50. 346 if zy=40 then zy=10:zx=zx+5
  51. 347 y=y+1:ify<3thenzc=5
  52. 348 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto351
  53. 349 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto355
  54. 350 goto341
  55. 351 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  56. 354 goto349
  57. 355 rem *** turn off sinus
  58. 356 pokevi+21,0:pokevi+32,0:pokevi+33,0
  59. 357 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  60. 358 poke53272,29
  61. 360 rem *** gamestart
  62. 361 pokesa+6,3:pokevi+38,4:print"though you found your cash stash (and
  63. 362 [153]"spare gun) before you left your apart-
  64. 363 print"ment, you are trying to conserve cash.
  65. 364 [153]"you take the subway to nick ragsody's.ononon":[141]5:[151]vi[170]21,1
  66. 365 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
  67. 366 [153]"ononononyou fall asleep on the train & dream...
  68. 367 print"   you & a redheaded reporter are in a
  69. 368 [153]"   strange factory.  people are chasing
  70. 369 print"   you.  they all have the same face! [145][145][145]":gosub5:pokevi+21,1
  71. 370 fort=1to3000:next:pokevi+21,0
  72. 371 gosub400:print""spc(15)"you manage to push your"
  73. 372 printspc(15)"way by nick into his":printspc(15)"apartment.  he objects,
  74. 373 [153][166]15)"demanding you show some":[153][166]15)"id, then pauses for a
  75. 374 printspc(15)"long moment.  'i'm his":printspc(15)"brother', you quickly
  76. 375 [153]"explain.  (the truth is way too strange
  77. 376 print"to believe.  in fact, you know that if
  78. 377 [153]"you give it too much thought, you'll go
  79. 378 print"back to bed and wait for this horrible  nightmare to end!)":gosub5
  80. 379 print""spc(15)"nick apologizes for being
  81. 380 [153][166]15)"rude (he wasn't, you":[153][166]15)"were) and is willing to
  82. 381 printspc(15)"tell you everything he ":printspc(15)"knows.  he tells you ray
  83. 382 [153][166]15)"was investigating pete":[153][166]15)"whirry's biz contacts.
  84. 383 print"the evening ray died, it looked like he
  85. 384 [153]"was planning to break into luthelcorp's
  86. 385 print"local office using an access code he got
  87. 386 [153]"from tolsen's old girlfriend.  the num- ber was clr246801list!   ":[141]5
  88. 387 [153]""[166]15)"internal affairs, nick   "
  89. 388 [153][166]15)"tells you, is ruining the":[153][166]15)"reps of two good ";
  90. 389 [153]"men!  as":[153][166]15)"for tolsen's girlfriend,
  91. 390 printspc(15)"lacy lune, she may have ":printspc(15)"taken off again or may
  92. 391 [153][166]15)"be slinking about town.":h[178]15:j[178]15:[141]235
  93. 392 c$[178]" drop in on luthelcorp office ":a$[178]" call on all-time fave snitch ":x[178]3
  94. 393 b$[178]" go to your partner's wake    ":[141]200:[145]c[137]287,288,394
  95. 394 [151]vi[170]38,4:[141]870:[153]"on leaving nick's, you feel eyes watch-
  96. 395 print"ing you (or maybe nick's).  the feeling
  97. 396 [153]"gets stronger as you reach the subway.onon":[141]5:[151]vi[170]21,255
  98. 397 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5:[137]500
  99. 400 [143] *** nick ragsody
  100. 401 [153]"load    cos*fre  frewaitnew           ";
  101. 402 [153]"    list print cont              new         wait   ";
  102. 403 [153]"          list  print cont             cos        ";
  103. 404 [153]"  logwait              print cont            int   ";
  104. 405 [153]"   andnewposand  abswait           list  print cont           ";
  105. 406 [153]" log *  anddefwaittan  newnewget*wait             list print cont";
  106. 407 [153]"             sinsinwaitlognewusrthendefposposfn waitget        ";
  107. 408 [153]"      list print cont              defgetwaitintandandsqrdef  ";
  108. 409 [153]"(NULL)andwaitcos              list cont             get defget";
  109. 410 [153]"    ascasc  wait              list  print cont          ";
  110. 411 [153]"   rndlogdefrnd      *wait              list  cont    ";
  111. 412 [153]"           posrnddef  frefrefre wait                ";
  112. 413 [153]"list print cont             cos  defwaitlog  fre waitcossin     ";
  113. 414 [153]"         list  print cont            get    frefre(NULL)cos wait";
  114. 415 [153]"getget             list  cont             get     ";
  115. 416 [153]" abs  absabswaitlist":[142]
  116. 500 [153]"onononyou are certain that you have a tail.  "
  117. 501 [153]"(definitely someone has been watching   ragsody's expecting ";
  118. 502 [153]"trouble!)         onon":[141]5:[151]vi[170]21,255:[129]t[178]1[164]3000:[130]
  119. 503 [151]vi[170]21,0:[141]670:[153]""[166]18)"you decide to play a
  120. 504 printspc(18)"few tricks on your":printspc(18)"tail.  in zero time
  121. 506 [153][166]18)"flat, you're able to":[153][166]18)"turn it around & get
  122. 507 printspc(18)"a good look at him.":printspc(18)"you know this vermin
  123. 508 [153][166]18)"tantan it's thad vyner!":a$[178]" shake tail tan on to luthelcorp "
  124. 509 c$[178]" turn it around tan tail vyner  ":[141]200:[145]c[137]286,288,510
  125. 510 [141]900:[151]vi[170]38,4:[153]"you watch thad with amusement:  he goes
  126. 511 print"into a panic when he loses you, then he
  127. 512 [153]"regains control and makes a phone call. he seems to be waiting.onon
  128. 513 gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5
  129. 514 print"[145][145][145][145][145][145]you realize this train station may now "
  130. 515 print"get terribly crowded with people who may
  131. 516 [153]"recognize you before you have a clue to who they are.  you split.onon
  132. 517 gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5:goto286
  133. 670 rem *** thad vyner (rodent)
  134. 671 print"[147]     [149]     [150]                     ";
  135. 672 print"           [149]  [185][185][185][185][184][184][184][184][146][185]   [150]           ";
  136. 673 print"               [149] [190]          [146] [150]        ";
  137. 674 print"                   [149]             [188][150][146]   ";
  138. 675 print"                       [149][187] [185][185][150][190][149][162]   [150][188][149] ";
  139. 676 print"   [150][146]                         [149][190]  [150] [192][192] ";
  140. 677 print"   [192][192] [149]  [188][150][146]               [155]  [150]       [149]";
  141. 678 print"[190]  [150][172][146][187][162][150][188]  [146][190][187][184][150][187][149]   [150][146]            ";
  142. 679 print"   [155]  [150]       [149][188]  [150][188][183][183][190]  [188][183][183][190][149]  [146][190][150]    ";
  143. 680 print"           [155]  [150]        [149][187] [150]  [206][188][187][172][190][205]  [149] ";
  144. 681 print"[172][150][146]                [155]  [150]        [149]  [150] [167]  ";
  145. 682 print"[188][190]  [165] [149]  [150][146]                [155]  [150]         ";
  146. 683 print"[149] [