home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.pt2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  197 lines
  1. 0 rem ***** save"@0:inf2.pt2",8
  2. 1 dv=peek(186):ifdv<8thendv=8
  3. 2 poke53272,29:goto360
  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. 140 rem *** cityscape2
  10. 141 print"[147][155]    [156] [158]     [185][185][185][185][185] [151] [156] [155]   [156] [159] [156]   .";
  11. 142 print"  [156]   [156]     [155]   [158] [156] [158]    [156]  [156] [159] [181][151]  ";
  12. 143 print" [182] [151]   [156] [159]     [156]    [156]    [156]   . [155] ";
  13. 144 print" [158]    [155].     [181]   [182] [151]  . [156] [158]      [156]  ";
  14. 145 print" [158].       [155]  [158] .      [155]. [181][151]   [188][183][208][156] [159]";
  15. 146 print"     .  [156]     [155].      [155]  [158]   [167][183][183][183][204]";
  16. 147 print"[175][175][181]     [167]  [156] [158]     [156]   .    [167][183][183][180][155]   ";
  17. 148 print"[158]  [159].[167]            [167][175][175][175][175] [156] [159]   [167][184][184][184][180]  [167]";
  18. 149 print"  [165][155]   [175][175][175][186]             [151]   [167][175][175][175][175][175][186]   ";
  19. 150 print"[204][175] [167]  [183][183][183][204]               [154]  [159]   [154]    [151] ";
  20. 151 print"      [167][175][186][155]                [159]           ";
  21. 152 print"                   [159]                  ";
  22. 153 print" [159]                      [155][175][210][175] [154]     [159] ";
  23. 154 print"         [155][175][178][175][159]         [155][175][178][175][159]     [156][164][209][155]";
  24. 155 print"[200][209] [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][209][155][221][209][159] [156][164][164][164][164][164][164][164][159] [209]";
  25. 156 print"[155][221][153][209][156][164][164][164][164][159]   [155][200]  [159]               [155] [221]";
  26. 157 print"[159]   [159]   [159]   [159]  [155][221][159]       [153] [155][200]  [159]   ";
  27. 158 print"            [159] [155][221][159]  [159]    [159]    [159] [155][221]":return
  28. 200 rem *** options table
  29. 201 print"[155]                options  ":print" [156] 1 [146]   [155]"a$
  30. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  31. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  32. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  33. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  34. 206 gosub5:ifk$=""andx<3thenx=x+1
  35. 207 ifk$="[145]"andx>1thenx=x-1
  36. 208 ifk$=chr$(13)thenc=x:return
  37. 209 goto200
  38. 287 f$="inf2.pt5":goto291
  39. 288 f$="inf2.pt4":goto291
  40. 289 f$="inf2.pt3":goto291
  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 rem *** cityscape3
  45. 341 print"[147][153]       [155] [153]          [152][167][153]                 ";
  46. 342 print"      [155].[153]           [155].[153]  [152] [190][188][146]  [153]  [155].[153] ";
  47. 343 print"        [155].[153]    [155]  [153]        [155] [153] [155].[153]     [152]";
  48. 344 print"[161] [190][146][161][153]     [155].[153]      [155].[153]     [155]  [153]    [155].[153]";
  49. 345 print"           [152][161][187] [146][161][153]                  [155]  ";
  50. 346 print"[153]      [152][172][187][153][146]        [152][165] [190][167][153][146]         [151]";
  51. 347 print"[184] [184][153][146]    [155].[153] [155]  [153]      [152]  [153][146]  [151][223][146]   [155].";
  52. 348 print"[153] [152][165]  [167][155][146].[153]       [151]  [146][191]  [153][146]     [155]  [153] ";
  53. 349 print"    [152][181]  [182][155][146] [151] [223][146]  [169][153][146] [152][165][190] [167][153][146]    [155].[153]";
  54. 350 print"   [151] [191]   [153][146]     [155]  [153]  [151][221][155] [153] [152][165][190] [167][155][146] [151]";
  55. 351 print"  [146]   [152][146][172]    [146][187][151]    [153]  [155].[151]   [146][191] [165]   ";
  56. 352 print" [155][146]  [153] [151][184] [184][153][146] [152][165] [188][167][155][146] [151] [191] [188] [152][165]   [191][167][151] ";
  57. 353 print"  [170][184][155][146].[151][184] [162][146][184][183][163][155] [151][163][163][163][163][155]  [151][172]   [187][152][165]  [167][155][146]";
  58. 354 print" [151][164][164][164][191] [152][165]    [167][151][191] [191][170] [164][175][162][155][146]           [151] ";
  59. 355 print"    [152][165][188]       [187]     [167][151][164][164][164][170][146][190][155]           ";
  60. 356 print"   [151][164][188][164][190][164][152][165]   [181]         [162][146][184][183][163][163][155]        ";
  61. 357 print"        [152]       [187][187]     [188]  [172][155][146]          ";
  62. 358 print"            [152]    [161]  [190][190]       [172][155][146]       ";
  63. 359 print"                [152]             [185][162][146][184][155]":return
  64. 360 sys49615:poke781,0:poke782,150:sys49664
  65. 387 vi=53248:pg=64:sa=pg*256:sp=248
  66. 388 ss=49152:pokevi+32,0:pokevi+33,0
  67. 389 pokevi+29,255:forzd=39to47:pokevi+zd,4:next:goto480
  68. 480 rem *** setup sinus interrupt
  69. 481 syssa
  70. 492 pokevi+21,0:rem turn sprites on
  71. 493 pokess,7:zz=2:zy=10:zx=zy:gosub140
  72. 494 pokesa+6,3:pokesa+7,3:pokesa+8,zz
  73. 495 pokesa+9,zz:pokesa+10,zy
  74. 496 pokesa+13,zx
  75. 497 pokevi+37,14
  76. 498 pokevi+38,zc
  77. 500 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  78. 501 if zy=40 then zy=10:zx=zx+5
  79. 502 y=y+1:ify<3thenzc=5
  80. 503 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=8thenyy=0:goto506
  81. 504 geta$:if(peek(ss)=0)or(a$<>"")then510
  82. 505 goto494
  83. 506 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  84. 507 ifxx=1andpeek(vi+21)=1thengosub340:xx=2
  85. 508 ifxx=3andpeek(vi+21)=1thengosub730:xx=4
  86. 509 goto504
  87. 510 rem *** turn off sinus
  88. 511 pokevi+21,0
  89. 512 pokevi+32,0:pokevi+33,0
  90. 513 gosub140
  91. 515 rem *** gamestart
  92. 516 print"tolsen lived in an abandoned building [192][192]
  93. 517 [153]"he was a junkie tantan so there is a chance
  94. 518 print"he left something behind that will give
  95. 519 [153]"you some idea of what whirry was into.":[141]5:[151]vi[170]38,4
  96. 520 [151]vi[170]21,31:[129] t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
  97. 521 [153]"ononononononon(you know this case is not as simple as "
  98. 522 [153]"it looks.)  as you climb the stairs of "
  99. 523 [153]"tolsen's place, you hear tantan someone is "
  100. 524 [153]"searching tolsen's place!             ":[141]5:[151]vi[170]21,31
  101. 525 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]640:[153]"it is lacy lune!  though
  102. 526 print"she has cut and dyed her":print"hair, you recognize her
  103. 527 [153]"immediately.  (you heard":[153]"she was back in town but
  104. 528 print"this isn't where you expec-":print"ted to find this rabbit!)
  105. 529 [153]"she makes a break for it":[153]"but you catch her with ease.  she ";
  106. 530 [153]"breaks":[153]"into tears but you are not moved though
  107. 531 print"it may not be completely an act.":gosub5:h=18:j=0:gosub795
  108. 532 print"lacy gives in.  she tells":print"you tolsen kept a metal "
  109. 533 print"box under the floorboards.":print"you find it empty except
  110. 534 [153]"for a scrap of paper that":[153]"reads:  clrluthelcorp 246801  "
  111. 535 [153]"list(lacy is disappointed.  you":[153]"let her go.)"
  112. 536 c$[178]" drop by murphy's to smalltalk":b$[178]" visit local luthelcorp office":x[178]3
  113. 537 a$[178]" visit whirry's old warehouse ":[141]200:[145]c[137]287,288,289
  114. 600 [143] *** ray newcube
  115. 601 [153]"load               verifyposposnewnewnewnewnewposandcont       list      ";
  116. 602 [153]"       def       verify   forcosverify         forlogverifywaitrnd ";
  117. 603 [153]"  list               def      verify   cosfor verify     ";
  118. 604 [153]"    for verify wait    list              def     verify    ";
  119. 605 [153]" fortab(tab(verifytab(     tab(fortab(tab(verify wait     list             def";
  120. 606 [153]"   verify       (NULL)tab(wait(NULL)tab(verifyfn thentab(wait(NULL)tab(verifystep wait     list ";
  121. 607 [153]"            def   verify     for(NULL)verify for tab(tab(tab(verify for verify for";
  122. 608 [153]"tab(tab(tab( verify for(NULL)verifywait     list            def  verify      for";
  123. 609 [153]"(NULL)verify for(NULL)  (NULL)   (NULL)  (NULL)verify forwaitstepverify       list         ";
  124. 610 [153]" def  verify       (NULL)thenfor  verify usrfreusr f