home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.0 KB  |  216 lines
  1. 0 rem *** save"@0:inf4.pt7",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto850
  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. 10 dv=peek(186):ifdv<8thendv=8
  10. 34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  11. 200 rem *** options table
  12. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  13. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  14. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  15. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  16. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  17. 206 gosub5:ifk$=""andx<3thenx=x+1
  18. 207 ifk$="[145]"andx>1thenx=x-1
  19. 208 ifk$=chr$(13)thenc=x:return
  20. 209 goto200
  21. 240 rem *** martha kent
  22. 241 print"[147]    [153] [155]      [155]    [220] [220]  [220]   [155] [149] [155]      ";
  23. 242 print"              [153] [155]     [155] [220]   [220]    [220] [220] ";
  24. 243 print"[155]                         [220] [220]   [220]  [220] [220] ";
  25. 244 print"  [220]     [155]  [153] [155]                     [149] ";
  26. 245 print"[146]     [220]   [220]  [155]                 [153] [155]    ";
  27. 246 print"  [220][149]    [146]  [220]           [155]    [153] [155]       ";
  28. 247 print"     [220]  [149]  [164][164][164]   [146][220]  [220]    [220] [155]        ";
  29. 248 print"             [220][149]     [205] [206]   [146][220][149]    [220]  ";
  30. 249 print"[155]   [153] [155]            [149]   [220][149]  [153][207][146][187][153][208][208][149]";
  31. 250 print"   [153][207][146][187][153][208][208][149][146] [220]      [155]           [153] [155] ";
  32. 251 print"[153] [155]    [220] [149]            [146] [220]    [149]   [155]  ";
  33. 252 print" [153] [155]      [150]      [220] [220] [149]     ..    [146]   ";
  34. 253 print" [220]     [155]            [150] [149]  [220] [220]  [149]       ";
  35. 254 print"   [146] [220]   [153] [149]     [155]          [150]  [149]  [220]  ";
  36. 255 print"[149] [220] [149]  [192][192][192][192][192]  [146] [220]  [220] [149]    [155]         ";
  37. 256 print"    [150] [149]   [153][194] [220][149][223]   [185][185][185]   [146]  [153][194] [220] [149] ";
  38. 257 print"  [153] [155]   [153] [155]          [149]   [153] [146] [149]  [223]   ";
  39. 258 print"    [146][169][160] [153] [146]  [153]   [155]            [153] [155]   ";
  40. 259 print"  [220][153] [146][220] [149]  [188][185][185][185][185][185][146][190]  [220][153] [146][220] [149]  [155] ";
  41. 260 print"  [153] [155]           [153] [155]  [149]  [153] [220] [220][149]   [183][146][162][185]";
  42. 261 print"[175]   [220][153]    [155]                    [149]  [150] ";
  43. 262 print"[149]  [149]       [146][155]":return
  44. 283 f$="hello connect":goto291
  45. 291 syssa+3:poke53281,0:poke53280,0:sys49935
  46. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  47. 294 poke631,13:poke632,13:poke198,2:end
  48. 490 rem *** cityscape11
  49. 491 print"[147][154]                                        ";
  50. 492 print" [154]                                    ";
  51. 493 print"   [155][146] [154]                         [185][185][187]    ";
  52. 494 print"       [155][146] [154]      [172][146][188]               [146][184][190]";
  53. 495 print"[158][172][190] [154]      [146][190]    [155][146] [154]  [162]   [146] [158][190][154][162][187]  ";
  54. 496 print"[146] [158][172][172] [154][162][162]   [146] [158][187][188]  [188][154]   [175][175][162][162][146] [188][190][155]   [158]";
  55. 497 print"[188][154] [158][190] [154]  [146] [158][190][190]   [188]  [188] [190] [154]  [146]  [158][190][154] [158][190][149] ";
  56. 498 print"[154]   [149][146] [158]  [191][146]  [155] [158][188][155]  [158] [188][154]   [172][146] [158][188][154]  [158]";
  57. 499 print"[190][154] [158][190][154] [158][191][154]    [187] [146] [158][190][154]   [158][191][154][146]   [146] [158][188][154] ";
  58. 500 print"   [158][191][155]   [158][191][154] [158][188][154]  [146]   [158][188][154]    [158][190][154]  [158][190][154]  ";
  59. 501 print"  [146]   [158][190][154]   [187] [146]   [158][188][154]   [155]    [154]   [172][146] ";
  60. 502 print" [158][188][154] [158][188][154] [158][191][154]    [158][191][154] [158][190][154]  [146]  [158][191][154]  [158][190][154]  ";
  61. 503 print" [146] [158][190][154] [158][191][154][146]  [158][188][154]    [158][188][154]  [181]   [158][188][154]      [158]";
  62. 504 print"[190][154]  [158][191][154]  [146]    [158][190][154]   [172][146]     [158][190][154] [158][191][154]   [158]";
  63. 505 print"[191][188][154] [181] [158][188][154]   [158][188][154]  [158][191][154]  [158][191][154][146]    [146]  [158][190][154]  ";
  64. 506 print"[158][191][154]     [158][190][190] [154]         [181]  [158][191][154][146]   [158][191][154]    ";
  65. 507 print" [158][190][154]   [146] [158][191][154][146] [158][191][154]      [158][191][154][146]    [158][190][155]":return
  66. 510 rem *** cityscape12
  67. 511 print"[147][156]                                        ";
  68. 512 print"                                        ";
  69. 513 print"                                        ";
  70. 514 print"                                        ";
  71. 515 print"             [159][146]  [156]  [162][187]         [172][162][187][185]    ";
  72. 516 print" [162][187]          [146]  [187] [146]   [162][146]   [146]      [162][187]";
  73. 517 print"[146]       [164][175][159][146] [156]  [175][185]   [146] [184] [190]   [172][146]      ";
  74. 518 print" [146]    [172][146]       [187]  [146]  [159]     [156][162] [146][190]   ";
  75. 519 print"         [159]  [156] [146]    [181]          [146]       ";
  76. 520 print"               [159]  [156] [146]    [181]          [146]     ";
  77. 521 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]":return
  78. 550 rem *** cityscape14
  79. 551 print"[147]                                      ";
  80. 552 print"   .     .           .           .      ";
  81. 553 print"              .           .             ";
  82. 554 print"     .  [146]    [146][223]     [146]            ";
  83. 555 print"[146]                 [146]     [146] [223]  [146][169] ";
  84. 556 print"[146][188] [191]  .    [146]         .      [221]  [146] [190] ";
  85. 557 print"  [146]  [151]    [146]       [151]   [146]  [151]   ";
  86. 558 print"          [146]    [146]  [188]  [146] [191] [190] [151]   ";
  87. 559 print"     [151] [191] [146]  [151] [172][146][184][183][163][155]   [151]   [155] [172] [190]   ";
  88. 560 print"[191]   [146]   [191] [151] [191] [190]   [187]   [164][175][162][155][146]         ";
  89. 561 print"  [151]    [146]     [151]   [152]  [176]    [151] [188]   [190][146][190][155]  ";
  90. 562 print"            [151] [188] [190]      [152][183][183] [176] [176][176]  [151] [152] [176] ";
  91. 563 print" [155][146]                [151]     [152] [187][187][187][170] [176]  [176]  [176]";
  92. 564 print" [151] [152] [176] [146][184][155]                [152]   [170][151] [152] [190][190][190][170]";
  93. 565 print" [176] [176] [176]     [146][183][155]                  [152][191] [188][170][151] ";
  94. 566 print"[152]    [170]  [176] [176]  [185][185][146][183][183][155]                   [152]";
  95. 567 print"         [170] [176]  [175][162][146]              [155]        ";
  96. 568 print"  [152]       [164][164][186][162][146][184][163][155]  [152][155]":return
  97. 690 rem *** lea lison2
  98. 691 print"[147][155]       [182]       [129]   [162][162][185][175]  [155]      [161]     ";
  99. 692 print"           [161]      [129]   [190] [183][184][190][188][146][187][155]      [182] ";
  100. 693 print"               [182]      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  101. 694 print"[146][187][155]     [161]                [161]     [150] [129]  [191][170][150]";
  102. 695 print"[146][162] [146][162][167][129][165][161] [155][146]     [182]                [182]   ";
  103. 696 print"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]     [161]           ";
  104. 697 print"     [161]      [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155]    [182]     ";
  105. 698 print"           [182]      [129]  [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]";
  106. 699 print"[172][155][146]    [161]                [161] [150] [155]   [129]  [150][169][129]";
  107. 700 print"[190][146][172][150][190]  [163][146][187][150][223][129] [146][190][155]    [182]              ";
  108. 701 print"  [182]  [150] [155]  [129] [150][167] [181] [208][150][187] [207] [150][181][129][146][172][190][155]    [161]  ";
  109. 702 print"              [161]   [150] [155] [129] [150][182] [146][223]  [146][190]  [146]";
  110. 703 print"[169][150][190][146] [155]     [182]                [182]    [150] [155] [150][182]";
  111. 704 print" [129][146] [207][184][184][184][208][146][150][170] [155][146]      [161]":return
  112. 850 sys49615:poke781,0:poke782,150:sys49664
  113. 851 vi=53248:pg=64:sa=pg*256:sp=248
  114. 852 ss=49152:pokevi+32,0:pokevi+33,0
  115. 853 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  116. 854 syssa
  117. 855 rem *** poke sprite data
  118. 856 yy=14:fori=0to7
  119. 857 poke2040+i,248+i:rem sprite pointers
  120. 858 pokevi+39+i,i+1:rem sprite colors
  121. 859 pokevi+37,14:pokevi+38,15:next
  122. 860 pokevi+29,255:rem x size
  123. 861 pokevi+23,0:rem y size
  124. 862 pokevi+28,255:rem multicolor on
  125. 863 pokevi+37,5:rem multicolor 1
  126. 864 pokevi+38,13:rem multicolor 2
  127. 865 pokevi+21,0:rem turn sprites on
  128. 866 pokess,7:zz=2:zy=10:zx=zy:gosub490
  129. 867 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  130. 868 pokesa+9,zz:pokesa+10,zy
  131. 869 pokesa+13,zx:pokevi+37,14
  132. 870 pokevi+38,zc:pokevi+39,3
  133. 871 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  134. 872 if zy=40 then zy=10:zx=zx+5
  135. 873 y=y+1:ify<3thenzc=5
  136. 874 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=16thenyy=0:goto877
  137. 875 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto880
  138. 876 goto867
  139. 877 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  140. 879 goto875
  141. 880 rem *** turn off sinus
  142. 882 pokevi+21,0:pokevi+32,0:pokevi+33,0
  143. 883 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  144. 884 poke53272,29
  145. 885 rem *** gamestart
  146. 886 print"'your help is sincerely appreciated!',
  147. 887 [153]"you tell martha as city scenery whizzes
  148. 888 print"by. 'there's an understatement!', she
  149. 889 [153]"replies, her eyes barely raking the road
  150. 890 print"ahead. 'tell me why this is not a mis-
  151. 891 [153]"take, lea!' you give a wide smile as anononon":[141]5:[151]vi[170]38,4
  152. 892 [151]vi[170]21,3:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  153. 893 [153]"ononononononononanswer. martha kent shakes her head & "
  154. 894 [153]"says, 'now i know i'm in real trouble.'
  155. 895 print"'just good old fashion reporting!', you
  156. 896 [153]"return. 'you're a regular lois lane!',  "
  157. 897 [153]"your friend says with a smirk on her  "
  158. 898 [153]"face. and you've arrived at the plant! ononon":[141]5:[151]vi[170]38,5
  159. 899 [151]vi[170]21,3:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[137]901
  160. 900 [141]490:vi[178]53248:[137]885
  161. 901 [141]690:[153]"the plant is closed at this hour. you
  162. 902 print"pick a door lock while martha shakes her
  163. 903 [153]"head. 'i thought you had a door code',
  164. 904 print"she says. 'no keypad. but i'm sure that
  165. 905 [153]"it works on a high security door some-
  166. 906 print"where', you reply. the door opens --":gosub5
  167. 907 gosub240:print"'now i know why you don't own a car --',
  168. 908 [153]"martha comments, 'you do any time for
  169. 909 print"grand theft auto?' you don't bother with
  170. 910 [153]"an answer, too busy looking at scenery.ononon":[141]5
  171. 911 a$[178]" take elevator to other floor ":b$[178]" check out present plant floor":x[178]1
  172. 912 c$[178]" look for a floor directory   ":[141]690:[141]200:[145]c[137]942,923,913
  173. 913 [141]550:[153]"your search goes nowhere. just down one
  174. 914 print"corridor and up another. you find an
  175. 915 [153]"office and open the door with martha
  176. 916 print"shaking her head in the background. you[145][145][145]":gosub5:pokevi+38,4
  177. 917 pokevi+21,7:fort=1to3000:next:pokevi+21,0
  178. 918 print"[145][145][145][145]find only an ordinary office. it would "
  179. 919 print"take too long to search every office on
  180. 920 [153]"this floor. you close the door, return
  181. 921 print"to search and find another elevator.   [145][145][145]":gosub5:pokevi+38,5
  182. 922 pokevi+21,7:fort=1to3000:next:pokevi+21,0:goto911
  183. 923 gosub510:print"you find vats, a lot of pipes, & regul-
  184. 924 [153]"arly strange chemical plant stuff. you
  185. 925 print"see an eerie green pipe in a cluster of
  186. 926 [153]"pipes. you swallow hard. you remember
  187. 927 print"seeing such a pipe at the sewage plant
  188. 928 [153]"back in metropolis. 'they're here!',ononon":[141]5:[151]vi[170]38,4
  189. 929 [151]vi[170]21,1:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  190. 930 [153]"ononononononononyou think, 'somewhere nearby!' the eerie
  191. 931 print"green pipe goes downward. therre must be
  192. 932 [153]"a sub-basement! you must get down there.
  193. 933 print"clark might be here, you think wildly.
  194. 934 [153]"no, time to face it -- he's dead! you "
  195. 935 [153]"come to an elevator / stairwell --  ononon":[141]5:[151]vi[170]38,5
  196. 936 [151]vi[170]21,1:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  197. 937 b$[178]" take stairwell to sub-base   ":[141]690:[141]200:[145]c[137]942,938,913
  198. 938 [141]240:[153]"'let's not go primitive, lea!', martha
  199. 939 print"says and rings the elevator. you give it
  200. 940 [153]"a small shrug, put your jeweler's tool
  201. 941 print"kit away and join her on the elevator.[145][145][145]":gosub5
  202. 942 gosub490:print"there is no basement or sub-basement ac-
  203. 943 [153]"cording to the elevator yet you are sure
  204. 944 print"there is one. you press [156]2-4-6-8-0-1 [155]and
  205. 945 [153]"the elevator plummets downward. martha
  206. 946 print"applauds! it is a longer trip downward
  207. 947 [153]"than you like. elevator doors open --ononon":[141]5
  208. 948 [153]"ononononononononthere is definitely a base here but it  "
  209. 949 [153]"has been abandoned! you find large tanks
  210. 950 print"filled with amber fluid but otherwise it
  211. 951 [153]"is empty. you realize you are going to
  212. 952 print"be very busy. you're going to be staying
  213. 953 [153]"in amgoth a few more days -- or a week!ononon":[141]5
  214. 954 [153]"loadyou are being returned to clrloadstarlist!":[141]5:[137]283
  215. 10000 d[178][194](186):n$[178]"0:inf4.pt7":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  216.