home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  8.6 KB  |  208 lines
  1. 0 rem *** save"@0:inf3.pt4",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186):print"";
  3. 2 goto590
  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. 210 rem *** james clark2
  20. 211 print"[147]            [158]     [164][175][175][164]  [150]     [153]       ";
  21. 212 print"      [155]           [158]   [172][191]   [168][188][146][187] [154] [153]   ";
  22. 213 print"             [154] [155]          [158] [172][185][191]     [146][166]";
  23. 214 print"[187][146][187] [150]      [153]          [155]           [158]  [191]";
  24. 215 print" [191]     [146][166][172][146] [153]                [155]         ";
  25. 216 print" [158]   [191] [191][220][185][220][166]  [166][146] [153]                [155]    ";
  26. 217 print"     [158]   [191] [191][150][162]   [162][158][146][191]  [146]  [153]          ";
  27. 218 print"     [155]         [158]   [158][187] [146][181][150][185][190] [188][146][185][158][182][191][172][146]";
  28. 219 print"   [153]              [155]             [158][188][167][150][166]";
  29. 220 print" [192] [166][158][180][146][190]    [153]               [155]  [150]     ";
  30. 221 print"[150]      [158][188][150][220][175][175][175] [158][146][190]     [153]             ";
  31. 222 print"                [150][205] [192] [206][146]     [158]  [153]    ";
  32. 223 print"                        [150][220][183][183][183][167][146]     ";
  33. 224 print"   [153]                      [185][184][183][183][163][220]   [206][163][183]";
  34. 225 print"[183][184][146][162][175][151]   [153]                    [190]       ";
  35. 226 print"         [188][151][146]   [153]                 [150] [172][188]";
  36. 227 print"                [172][150][146][187][151]   [153]             ";
  37. 228 print"   [150][172]  [146][188]              [172][150][169] [146][187][151]   [153]     ";
  38. 229 print"         [150][172]    [146][187]            [172][150][169]   [146]";
  39. 230 print"[187][151]  [155] [153]            [150][172]    [146][190]         ";
  40. 231 print"     [150][146][188]    [146] [151] [155] [151] [153]      [151]     [150]   ";
  41. 232 print" [146][190] [187]            [172][150][146] [188]   [188][153][146][155]":return
  42. 235 rem *** clear text
  43. 236 fori=hto24:poke781,i:sys59903:next:poke214,j:return
  44. 285 f$="hello connect":goto291
  45. 286 f$="inf3.pt6":goto291
  46. 290 f$="inf3.pt2":goto291
  47. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  48. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  49. 294 poke631,13:poke632,13:poke198,2:end
  50. 590 sys49615:poke781,0:poke782,150:sys49664
  51. 617 vi=53248:pg=64:sa=pg*256:sp=248
  52. 618 ss=49152:pokevi+32,0:pokevi+33,0
  53. 619 pokevi+29,255:forzd=0to7:pokevi+zd,4:next:goto640
  54. 620 rem *** anna gall
  55. 621 print"[147][150]         [190] [190][187]                         ";
  56. 622 print"        [187][190]     [172] [187]                      ";
  57. 623 print" [155]      [187]   [190]      [187]                   ";
  58. 624 print"        [187]  [172]   [149] [175][146][187] [191] [191][155]           ";
  59. 625 print"               [190]    [149]   [172][149][181][146][187] [152]  ";
  60. 626 print"[187][155]                         [188] [149][181][182] [175]  ";
  61. 627 print"   [146][172] [172][155][180]                        [149] [172] ";
  62. 628 print"[172][150][146] [149][187][172][149][180] [172][185][182][150][146] [149]  [187][149]  [150]             ";
  63. 629 print"     [155]    [149][172] [172][150][146] [191] [149][187]  [146][172][190][149][182][188][146] [191]";
  64. 630 print"[149][184][184][146][187]       [150]           [155]   [149][172] [172][146][191] ";
  65. 631 print" [155]  [149][184][162][185][185][146][190]  [158] [149][187]  [146][187]   [150]           ";
  66. 632 print"   [155]  [149][172]  [150][146]  [188]   [191][149][175][158][190][223][149]   [158] [188][149][187]  [146]";
  67. 633 print"     [150]            [155]  [149]   [183][183][183][183][183][183]   [158][180][223]";
  68. 634 print"[149]  [158]  [149][146][188] [160][188][146]           [150]     [155]  [149][187] ";
  69. 635 print"          [158][180] [223][149] [158]  [223][149][187]  [146]              ";
  70. 636 print"  [155]   [156] [149][163][183][183][183][183][183][163][163][150] [158][207]       [146][187][149]  [188][146]  ";
  71. 637 print"             [155]             [158]    [180]   ";
  72. 638 print"[170][149][146][188]  [146][155] ":return
  73. 640 rem *** setup sinus interrupt
  74. 641 syssa
  75. 642 rem *** poke sprite data
  76. 643 yy=14:fori=0to7
  77. 644 poke2040+i,248+i:rem sprite pointers
  78. 645 pokevi+39+i,i+1:rem sprite colors
  79. 646 pokevi+37,14:pokevi+38,15:next
  80. 647 pokevi+29,255:rem x size
  81. 648 pokevi+23,0:rem y size
  82. 650 rem *** poke sprite data2
  83. 651 pokevi+28,255:rem multicolor on
  84. 652 pokevi+37,5:rem multicolor 1
  85. 653 pokevi+38,13:rem multicolor 2
  86. 654 pokevi+21,0:rem turn sprites on
  87. 655 pokess,7:zz=2:zy=10:zx=zy:gosub830
  88. 656 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  89. 657 pokesa+9,zz:pokesa+10,zy
  90. 658 pokesa+13,zx:pokevi+37,14
  91. 659 pokevi+38,zc:pokevi+39,3
  92. 660 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  93. 661 if zy=40 then zy=10:zx=zx+5
  94. 662 y=y+1:ify<3thenzc=5
  95. 663 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto666
  96. 664 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto700
  97. 665 goto656
  98. 666 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  99. 668 goto664
  100. 700 rem *** turn off sinus
  101. 701 pokevi+21,0:pokevi+32,0:pokevi+33,0
  102. 702 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  103. 703 poke53272,29
  104. 705 rem *** gamestart
  105. 706 pokesa+6,3:pokevi+38,4:print"wencube's wake is rather loud.  a lot of
  106. 707 [153]"people are surprised to see you.ononon":[141]5:[151]vi[170]21,7
  107. 708 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
  108. 709 [153]"all of them buy your alias (being james "
  109. 710 [153]"clark's 'younger brother').     ononon":[141]5:[151]vi[170]21,7:[129]t[178]1[164]3000
  110. 711 [130]:[151]vi[170]21,0:[141]620:[153]""[166]25)"you are unsuc-
  111. 712 printspc(25)"cessful at get-":printspc(25)"ting your for-
  112. 713 [153][166]25)"mer associates":[153][166]25)"to talk about
  113. 714 printspc(25)"ray wencube.":printspc(25)"they won't even
  114. 715 [153][166]25)"talk about your":[153]"late 'brother'.  you decide to corner
  115. 716 print"your captain.  (success, at last, if it
  116. 717 [153]"can be called that.)  he tells you they
  117. 718 print"haven't got a clue who killed wencube.
  118. 719 [153]"you suddenly spot anna gall.ononon":[141]5
  119. 720 [153]""[166]25)"you go over   ":[153][166]25)"just to talk.  "
  120. 721 [153][166]25)"you learn more":[153][166]25)"from her than "
  121. 722 [153][166]25)"anyone else. ":[153][166]25)"ray wencube was
  122. 723 printspc(25)"checking out   ":printspc(25)"some old leads.":h=16:gosub235
  123. 724 b$=" hunt down tolsen's girlfriend":c$=" go to 'startower' cyber cafe ":x=2
  124. 725 a$=" hang at wake a little longer  ":gosub200:oncgoto726,735,290
  125. 726 pokevi+38,4:gosub930:print"people open up more as time goes by.
  126. 727 [153]"you hear about an internal affairs in-
  127. 728 print"vestigation that's headed nowhere.[145][145][145]":gosub5:pokevi+21,3
  128. 729 fort=1to3000:next:pokevi+21,0:pokevi+38,5
  129. 730 print"[145][145]it makes no sense.  but someone up high
  130. 731 [153]"isn't happy with ray's negative reports
  131. 732 print"and suspicions about luthelcorp.  [145][145][145]":gosub5:pokevi+21,3
  132. 733 fort=1to3000:next:pokevi+21,0:a$=" overdue visit to luthelcorp  "
  133. 734 h=18:gosub235:gosub200:oncgoto286,735,290
  134. 735 gosub210:print"anna gall tells you that lacy lune most
  135. 736 [153]"definitely has left town.  you make a
  136. 737 print"few phone calls and quickly confirm it.[145][145]":gosub5
  137. 738 print"[145][145][145]lacy lune is in amgoth, california.  so is that reporter lea ";
  138. 739 print"lison.  maybe you  should drop by and see both ladies.    [145][145]":gosub5
  139. 740 a$=" overdue visit to luthelcorp  ":b$=" night flight to lea & amgoth "
  140. 741 gosub930:gosub200:oncgoto286,742,290
  141. 742 print"[147]wise choice [155][192][192] many of your answers lie
  142. 743 [153]"with clrlea lison in amgothlist.":[153][166]9)"thank you for playing.
  143. 744 print"you are now being returned to [156]loadstar.":gosub5:goto285
  144. 790 gosub5:stop
  145. 830 rem *** cityscape7
  146. 831 print"[147][155][176][192][192][174][151]        [150]      [151] [154]      [151] [154]    [151] ";
  147. 832 print"   [151]     [150] [155]{$7d}[158][190] [155][173]{$60}{$60}[174][159].[151]   [150] [151] [150]     [154]";
  148. 833 print" [150] [154]             [155].  [151]   [150] [155]{$7d}[158][190] [188] [155] {$7d}";
  149. 834 print"[151]   +[151] [150]   [155].[150]   [154]       [155].[154]   .    [151] ";
  150. 835 print"[175][175][175][150] [155]{$7d}[158][190] [188] [155] {$7d}[151]  [159].[149]            +[149]  [159].";
  151. 836 print"[149]          [151][180][158][172] [151][180][155]{$7d} [158][191][151] [158][188][188][155]{$7d}[151]      ";
  152. 837 print" [150] [149] [155]+[149]        [151]      .[151]   [175][180][158][187] [151]L[155]{$7d}[158]";
  153. 838 print"[190] [188] [188][155]{$7d}[152][163][165][149]   [159].[129]  [149]    [151]         .[151]   ";
  154. 839 print"   [165][158] [172] [150] [155]{$7d}[158][190] [188]  [155]{$7d}[158].[152][165][151] [149] [151]          ";
  155. 840 print"              [165][158]   [150] [155]{$7d}[158] [191][151]  [158][188][155]{$7d}[158].[152][165][151] ";
  156. 841 print"[155].[151]    [159].[151]   [149]   [155][176]{$60}{$60}{$60}{$60}[174][151]   [152][186]OL[151] [165] [158][172] ";
  157. 842 print"[150] [155]{$7d} [158] [188]  [155]{$7d}[158].[152][165].[151]         .[151]  [155]{$7d}[158] :";
  158. 843 print"::[155]{$7d}[151][163][163][165][152][180][158]{$7c}{$7c}[152][180][151][165][158] [187] [150] [155]{$7d}[158][190] [172]  [155]{$7d}[158].[152][165] ";
  159. 844 print"[151]  [152].[151]  [155][164][164][164][164][164][164][164]{$7d}[158]::::[155]{$7d}[158][190][190][151][165][152][165][158]{$7c}{$7c}[152][165][151][165][158] ";
  160. 845 print" [187][150] [155]{$7d} [158][191][146]   [155]{$7d}[151] [152][165][151]     [152][170][158][168]::[152][171][179][158]:[168]";
  161. 846 print"[152][165][158]:: :[155]{$7d}[152] [158][190][151][165][152][165][158] {$7c}[152][165][151][165][158]   [150] [155]{$7d}     [155]";
  162. 847 print"{$7d}[158].[155]O[183][180]O[183][180][152][170][158][168] :[152][171][179][158]:[168][152][165][158]::::[155]{$7d}[152]  [151][165][152][165][158]{$7c}";
  163. 848 print"{$7c}[152][165][151][180][158] [187] [150] [155]{$7d} [158][190]  [158][191][155]{$7d}[158].[155][180][158][190][155][180][165][158] [155][165][152][170]";
  164. 849 print"[158][168]::[152][171][179][158]:[168][152][165][158]: ::[155]{$7d}[158][190] [151][165][152][165][158]{$7c}{$7c}[152][165][151][165] [158]  [150]";
  165. 850 print" [155]{$7d}   [158][191] [155]{$7d} [155][180][158][190][155]L[180][158][190][152][183][183][158][168]  [152][173][189] [158][168]";
  166. 851 print" [158]::::   [151]L[152][165][158]{$7c} [151][183][158]  [187] [150] [155][189] [158][188]   [155][177]";
  167. 852 print"{$60}     [158][190] [158][168]::  [158]:  [158]: [158]::  [158][190]  [158]{$7c}";
  168. 853 print"  [158][172]   [150]   [158][190]  [158][191]   [158][190]  [158][190][190] [158][168]: ";
  169. 854 print"  [158]:[168]  [158]::: [158][190]   [158]{$7c}{$7c}     [150] [191][190][188][146]  ";
  170. 855 print"[190][188][146]  [190][188][146][187]  [191][191][188][146]  [190][191][146][187]  [187] ";
  171. 856 print"[172][162][162]  [162][158]{$7c}{$7c}[191][146][162][185][158][187] [150] [191] [172][188] [146][191] [188][190]  [191][184]";
  172. 857 print"[146][191]   [188][146][191] [146][187] [146][191] [188][146] [188][146][191] [146][191][191] [190][146][191] [146][191]";
  173. 858 print"[191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190] [146][191][191][191] [146][191][191][162][146][191]";
  174. 859 print" [191][191][190][191][146][191][191][190] [191][191][190][188]  [146][191][191] [149][187][172][146][190][191] [149][190][146][188][149][188]";
  175. 860 print"[172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190][146][184][172][149][172][187][191][172][146][191][172][149]";
  176. 861 print"[146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190][149][182][161][150] [149][182][150] [149][188][172][146][190][184][161][188]";
  177. 862 print"[161][161][150][146] [149][187][150][146] [149][188][150][146] [149][188][161][150] [149][188][161][172][161][188][172][161][146][190][162][146][161][172]";
  178. 863 print"[190][155][146] [149][161][188][187][146] [172][146][190][155]":return
  179. 900 gosub830:vi=53248:goto705
  180. 930 rem *** cityscape10
  181. 931 print"[147][154]      [154] [151]  [154].[151]     [154] [151]     [154].[151] [154] [151]  ";
  182. 932 print"   [154].  [151]   [152] [155]    [154] . [151] [154]  [151] [154] [151]     ";
  183. 933 print"[154]  [151]   [154]       [152]     [152]   [155] [154] [155]  [154].[155] ";
  184. 934 print" [151]     [154]   [151]  [154] .       [154].    [154].[152]   ";
  185. 935 print"     [155]         [152]    [154].      [152]     [154] ";
  186. 936 print"  [154]    [152]        [154].[155]  [154] [155]  [154], [152]  [174][174][146] [152]";
  187. 937 print"      [154] [152]   [158]   [154].  [154]  [152]  [176][146][161] [161] [146] ";
  188. 938 print" [155]   [154]. [155]  [152]  [174][174][174][146] [151] [152]     [152] [164][164]  [154] .";
  189. 939 print" [154] [151]  [152]  [182][176] [146] [176] [146][181]    [154]   [155] [152]     [146]";
  190. 940 print"[175]   [176] [146][164][206]  [165]  [151] [154] [151]  [152]   [182][176] [146] [176] [146][181]  ";
  191. 941 print"  [155]  [152]  [174][174][151][146]    [152][204] [176] [151][146]    [152] [165][169][174][174][174][146] ";
  192. 942 print"    [176]  [146][164][176][176][176][146][161]  [175][175]     [151][146]     [152][180] [151][146] ";
  193. 943 print"    [152]  [174][174]   [146][164]  [169] [146]       [146] [206]  [204][175] [174][151]";
  194. 944 print"[146]  [155][176][176] [151][146] [152][180][155] [174][174][151][146]     [152] [174] [151][146]   [152][205]  ";
  195. 945 print"[151][146]       [152] [146][164][165][151] [152] [151]  [152][165] [151][146]  [155][176]  [151][146] [152][204]";
  196. 946 print"[155] [174] [174][174][151][146]   [152] [174][155][176][176] [151][146]  [152][204] [151][146]  [155] [174] [174][151][146]";
  197. 947 print"        [152][165][151]   [155][176][176] [151][146]  [155] [174] [174] [174][151][146]  [152] [155][176]";
  198. 948 print" [176][176] [151][146]  [152] [151][146]  [155] [174][174]  [151][146]  [155][176][176] [151][146]  [152][204][151]  ";
  199. 949 print" [155][176]  [151][146]  [155] [174] [174] [174][151][146]   [155][176][176][176] [176] [151][146]   [155] [174]";
  200. 950 print"  [174][174][151][146] [155][176] [176][176] [151][146]    [155][176][176][176] [151][146]  [155]  [174][174] [174] [174]";
  201. 951 print"[151][146] [155]  [176][176]  [151][146]  [155] [174]  [174] [174][151][146] [155][176][176] [176][176] [151][146]   ";
  202. 952 print"[155][176] [176]  [151][146] [155] [174] [174][174][174] [174][151][146] [155][176][176][176] [176] [151][146]  [155]   ";
  203. 953 print"[174] [174][174] [176]  [176]  [151][146] [155][176][176] [176] [176]   [174][174] [174] [174][174] [176] [176][176][176]  ";
  204. 954 print" [174] [174] [174] [174]  [176] [176][176][176]                         ";
  205. 955 print"                                        ";
  206. 956 print"                [146]":return
  207. 10000 d=peek(186):n$="0:inf3.pt4":open15,d,15,"s"+n$:close15:saven$,d:end
  208.