home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt5 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  207 lines
  1. 0 rem *** save"@0:inf3.pt5",8
  2. 1 print"";:dv=peek(186):ifdv<8thendv=8
  3. 2 goto460
  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. 288 f$="inf3.pt4":goto291
  20. 289 f$="inf3.pt3":goto291
  21. 290 f$="inf3.pt2":goto291
  22. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  23. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  24. 294 poke631,13:poke632,13:poke198,2:end
  25. 420 rem *** bartender (gordon)
  26. 421 print"[147]      [151][162][184][184][184][184][183][183][183][184][146][162][187][159] [155] ";
  27. 422 print"      [159]                   [151][184]           ";
  28. 423 print" [188][155][146]       [159]                  [152][190] [151]     ";
  29. 424 print"     [185][185] [188][155][146]      [159]                [152][172][151][172][150]";
  30. 425 print"[146][172][152][185] [164][151][172][150][184][184][184][151][187]     [191][152][146][172][188][155][146]      [159]    ";
  31. 426 print"           [152] [167][150][185][162][146] [163][163]    [151][146][188][185][150][146][172][184][184][152][146]";
  32. 427 print"[172]  [155][146]        [159]            [156] [152] [167][129]  [150][146][162]";
  33. 428 print"[151] [150]      [162][146][190][129][184][184][146] [150] [152] [188][155][146]     [159]      ";
  34. 429 print"        [150] [151] [152][172][129] [162] [146][162][151] [150][188]    [146][172][129][190]  [146] ";
  35. 430 print" [150][187][152] [151][146][161][155]     [159]             [150] [151] [129][146][182] ";
  36. 431 print"[188][146][187][162][175] [146][191]  [150]  [129] [162][146]   [150][188][151] [146][181][155]     [159]   ";
  37. 432 print"          [150] [152] [129][146][182][150] [182][182][146] [161][129][190][190][146] [188] [172][146] ";
  38. 433 print"[182][146] [161][129]  [151] [146][180][155]     [159]             [150] [152]";
  39. 434 print" [182][150]  [183][183][183] [129] [146][161] [188]       [152] [146][180] [155]    [159]    ";
  40. 435 print"        [150]  [152][188][182][150]  [146][191]  [129] [150] [129][146][161]    [172]  [146] ";
  41. 436 print"[170][152] [146]  [155]   [159]             [150]     [146][191]  ";
  42. 437 print" [172][187][129][188][146] [172]  [150] [129] [172][146] [170]    [155]   [159]          ";
  43. 438 print" [150]    [170][170] [172][146][190][129][187][162]  [146]  [191] [188] [146]  [170]    [155]  ";
  44. 439 print"[159]             [150]   [182][182] [129][146][162] [188][146][188][187] [146]      ";
  45. 440 print"   [187]   [155]  [159]              [150]  [161]  [129] [150]  [129]";
  46. 441 print" [146][187][162][146]  [187]      [180]   [155]    [159]            [150]";
  47. 442 print"  [161]    [129][187]    [146][187]   [129][191][155][146]  [167]    [155]  [159]  ";
  48. 443 print"             [150]      [146] [162][162][162][162][155][162][162]  [155]   ";
  49. 444 print"[180][146]    [155]  [159]                [156] [150][188]  [129]  [155][146]";
  50. 445 print" [162][175][175][155][185][146][190]    [190][146][190]    [155]  [159]           ";
  51. 446 print"       [150][188][129]   [170][162][162][162][155][162][146]    [190][146][190]     [155] ";
  52. 447 print" [159]                   [150][188]    [129]   [146][190] [150] [190]";
  53. 448 print"[146][190]      [155]  [159]                  [155]  [150][188]   ";
  54. 449 print"   [146]  [191][146]        [155]  [159]                ";
  55. 450 print" [155]     [150][183][184][184][184][184][184][184][155]":return
  56. 460 sys49615:poke781,0:poke782,150:sys49664
  57. 487 vi=53248:pg=64:sa=pg*256:sp=248
  58. 488 ss=49152:pokevi+32,0:pokevi+33,0
  59. 489 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  60. 490 syssa
  61. 491 rem *** poke sprite data
  62. 492 yy=14:fori=0to7
  63. 493 poke2040+i,248+i:rem sprite pointers
  64. 494 pokevi+39+i,i+1:rem sprite colors
  65. 495 pokevi+37,14:pokevi+38,15:next
  66. 496 pokevi+29,255:rem x size
  67. 497 pokevi+23,0:rem y size
  68. 520 rem *** poke sprite data2
  69. 521 pokevi+28,255:rem multicolor on
  70. 522 pokevi+37,5:rem multicolor 1
  71. 523 pokevi+38,13:rem multicolor 2
  72. 524 pokevi+21,0:rem turn sprites on
  73. 525 pokess,7:zz=2:zy=10:zx=zy:gosub930
  74. 526 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  75. 527 pokesa+9,zz:pokesa+10,zy
  76. 528 pokesa+13,zx:pokevi+37,14
  77. 529 pokevi+38,zc:pokevi+39,3
  78. 530 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  79. 531 if zy=40 then zy=10:zx=zx+5
  80. 532 y=y+1:ify<3thenzc=5
  81. 533 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto536
  82. 534 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto540
  83. 535 goto526
  84. 536 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  85. 538 goto534
  86. 540 rem *** turn off sinus
  87. 541 pokevi+21,0:pokevi+32,0:pokevi+33,0
  88. 542 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  89. 543 poke53272,29
  90. 545 rem *** gamestart
  91. 546 pokesa+6,3:pokevi+38,4:print"you know tonight is your snitch's night
  92. 547 [153]"off from working at murphy's bar, so you
  93. 548 print"go to his apartment.":gosub5:pokevi+21,63
  94. 549 fort=1to3000:next:pokevi+21,0:pokevi+38,5
  95. 550 print"[145][145][145][145][145]you are sure he's sleeping in.  gordon's
  96. 551 [153]"growl at your ring proves you are right on the money.       ":[141]5
  97. 552 [151]vi[170]21,63:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,4
  98. 553 [141]420:[153]""[166]23)"you flash a ten-":[153][166]23)"spot at gordon &
  99. 554 printspc(23)"introduce your-":printspc(23)"self as jeremy
  100. 555 [153][166]23)"clark, younger":[153][166]23)"brother to your-
  101. 556 printspc(23)"self.  he buys it":printspc(23)"& invites you in.
  102. 557 [153][166]23)"a good $20 later,":[153][166]23)"you know lacy's
  103. 558 printspc(23)"sister's addy in":printspc(23)"amgoth.":gosub5
  104. 559 gosub930:print"(lacy lune was ken tolsen's girlfriend.
  105. 560 [153]"tolsen was reporter lea lison's favoritesnitch.)":[141]5
  106. 561 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  107. 562 [153]"onononononso wencube was either checking out lea's
  108. 563 print"involvement or she just crossed paths in
  109. 564 [153]"this.  tolsen is dead.":[141]5:[151]vi[170]38,5:[151]vi[170]21,31
  110. 565 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:a$[178]" shell out more cash to snitch"
  111. 566 b$[178]" break into lison's home addy ":c$[178]" go to 'startower' cyber cafe ":x[178]1
  112. 567 [141]770:[141]200:[145]c[137]568,583,290
  113. 568 [141]420:[153]""[166]23)"you part with a":[153][166]23)"tenspot to learn
  114. 569 printspc(23)"that your late":printspc(23)"partner dropped
  115. 570 [153][166]23)"by anna gall's":[153][166]23)"health spa where
  116. 571 printspc(23)"lacy lune kept a":printspc(23)"locker.  you dis-
  117. 572 [153][166]23)"cuss whirry with":[153][166]23)"gordon long enuff
  118. 573 printspc(23)"to learn whirry":printspc(23)"was toxic dumping[145][145]":gosub5
  119. 574 pokevi+38,4:gosub770:print"you drop by anna gall's spa.  though it
  120. 575 [153]"is open, annie isn't around.  she went
  121. 576 print"to your partner's wake.  that's ok, you came to see lacy's locker.
  122. 577 [141]5:[151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
  123. 578 [153]"onononononononyou part with ten bucks to look at an  "
  124. 579 [153]"empty locker.  oh well, you didn't think
  125. 580 print"much would come from this sidetrip!  youreview your options.       "
  126. 581 gosub5:pokevi+21,15:fort=1to3000:next:pokevi+21,0
  127. 582 a$=" visit crime lab tech ragsody ":gosub930:gosub200:oncgoto289,583,290
  128. 583 gosub670:print""spc(18)"breaking into lison's
  129. 584 [153][166]18)"is relatively easy.":[153][166]18)"you find nothing of
  130. 585 printspc(18)"interest.  on the way":printspc(18)"to the subway, you
  131. 586 [153][166]18)"find you picked up a":[153][166]18)"tail.  you lose him.
  132. 587 a$=" go to your partner's wake    ":b$=" visit crime lab tech ragsody "
  133. 588 gosub200:oncgoto288,289,290
  134. 670 rem *** thad vyner (rodent)
  135. 671 print"[147]     [149]     [150]