home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  210 lines
  1. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0
  2. 2 goto10
  3. 5 poke198,0
  4. 6 getk$:ifk$=""then6
  5. 7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
  6. 8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
  7. 9 return
  8. 10 dv=peek(186):ifdv<8thendv=8
  9. 12 sys57812"inf2.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 14 sys57812"sinfonia.mus",dv,0:poke780,0:poke781,0:poke782,150:sys65493
  11. 18 sys57812"inf2.font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  12. 20 print"[147]":poke53272,29:gosub770
  13. 22 poke214,19:print:print"         alien infiltration ii
  14. 24 [153]"        by  cheryl de boissiere
  15. 33 sys57812"alien.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  16. 34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  17. 35 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
  18. 36 sys49615:poke781,0:poke782,150:sys49664
  19. 37 vi=53248:pg=64:sa=pg*256:sp=248
  20. 38 ss=49152:pokevi+32,0:pokevi+33,0
  21. 39 rem *** setup sinus interrupt
  22. 40 syssa
  23. 41 rem *** poke sprite data
  24. 42 yy=7:fori=0to7
  25. 43 poke2040+i,248+i:rem sprite pointers
  26. 44 pokevi+39+i,i+1:rem sprite colors
  27. 45 pokevi+37,14:pokevi+38,15:next
  28. 46 pokevi+29,255:rem x size
  29. 47 pokevi+23,0:rem y size
  30. 48 pokevi+28,255:rem multicolor on
  31. 49 pokevi+37,5:rem multicolor 1
  32. 50 pokevi+38,13:rem multicolor 2
  33. 51 pokevi+21,0:rem turn sprites on
  34. 52 pokess,7:zz=2:zy=10:zx=zy
  35. 53 pokesa+6,3:pokesa+7,3:pokesa+8,zz
  36. 54 pokesa+9,zz:pokesa+10,zy
  37. 56 pokesa+13,zx
  38. 57 pokevi+37,14
  39. 58 pokevi+38,zc
  40. 59 pokevi+39,3
  41. 60 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  42. 61 if zy=40 then zy=10:zx=zx+5
  43. 62 y=y+1:ify<3thenzc=5
  44. 63 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=8thenyy=0:goto66
  45. 64 geta$:if(peek(ss)=0)or(a$<>"")then70
  46. 65 goto53
  47. 66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  48. 67 ifxx=1andpeek(vi+21)=1thengosub340:xx=2
  49. 68 ifxx=3andpeek(vi+21)=1thengosub100:xx=4
  50. 69 goto64
  51. 70 poke781,20:sys59903:poke781,22:sys59903
  52. 71 pokevi+21,0
  53. 72 pokevi+32,0:pokevi+33,0
  54. 80 rem *** gamestart
  55. 81 print""spc(20)"you are ray wencube,":printspc(20)"[145]                   "
  56. 82 printspc(20)"[145]homicide detective.":printspc(20)"                   "
  57. 83 printspc(20)"[145]three weeks ago, you":printspc(20)"[145][145]                  "
  58. 84 printspc(20)"[145]and your partner,":printspc(20)"                   "
  59. 85 printspc(20)"[145]james clark, were   ":printspc(20)"[145][145]                    "
  60. 86 printspc(20)"[145]investigating the   ":printspc(20)"[145][145]                    "
  61. 87 printspc(20)"[145]metropolis dockside ":printspc(20)"[145][145]                    "
  62. 88 printspc(20)"[145]mutilation murders. ":printspc(20)"              "
  63. 89 printspc(20)"[145]your primary suspect":printspc(20)"was pete whirry, the
  64. 90 [153][166]20)"garbage king.":[141]5:[151]sa[170]6,3:[151]vi[170]38,4:[151]vi[170]21,255
  65. 91 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  66. 92 [153]""[166]20)"lea lison, star re- ":[153][166]20)"onporter, walked right"
  67. 93 [153][166]20)"oninto your stakeout  ":[153][166]20)"onon whirry's dockside
  68. 94 printspc(20)"[145]warehouse.  so clark":printspc(20)"[145]was forced to take
  69. 95 [153][166]20)"her with him when he":[153][166]20)"onfollowed a truck to "
  70. 96 [153][166]20)"the water treatment ":[153][166]20)"plant (pete whirry's"
  71. 97 [153][166]20)"sewage plant).      ":[141]5:[151]vi[170]38,5:[151]vi[170]21,255
  72. 98 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[137]210
  73. 100 [143] *** cityscape
  74. 101 [153]"loadcont                 .list                    ";
  75. 102 [153]"  cont  .list                                 ";
  76. 103 [153]"    cont             pokethenlist                   ";
  77. 104 [153]"       poke         cont.   poke(NULL)fn     cont.list       ";
  78. 105 [153]"            cont     poketo       left$(NULL)           ";
  79. 106 [153]"ortan^ortan^   cont.list    cont poke(NULL)fn sqrthen       peekpeek      ";
  80. 107 [153]"    cont.pokepeeksys.pokepeekpeeksys.pokepeeklist        poke sgn(NULL)tofnsys.poketab((NULL)   ";
  81. 108 [153]"or(NULL)usrusr(NULL)^         pokepeeksys.pokepeekpeeksys.pokepeeklist        poketosgnsys";
  82. 109 [153]".....pokethen to(NULL) sys.... poke(NULL)        pokepeeksys.pokepeekpeeksys.poke";
  83. 110 [153]"/^list       poke  sys.....pokethentofnsys.  sys.. sys .poke(NULL) ";
  84. 111 [153]"    pokeortanexp poke/exp  pokepeeklist       poke            ";
  85. 112 [153]" sys..   poke+  poke(NULL)>(NULL)(NULL)sys... sys. sys.poke(NULL)    pokeor^";
  86. 113 [153]"list print  sys    print             pokeusrusr          print";
  87. 114 [153]" poke(NULL)tolist   pokesgnlist pokefn                         ";
  88. 115 [153]"      print  sys.poke(NULL)to(NULL)list  poke(NULL) "
  89. 116 [153]"clrtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(list":[142]
  90. 200 [143] *** options table
  91. 201 [153]""[166]16)"listoptions":[153]" clr 1 wait   list"a$
  92. 202 [153]" clr 2 wait   list"b$:[153]" clr 3 wait   list"c$:c[178]0
  93. 203 [139]x[178]1[167][153]"onononononlist  1    clr"a$
  94. 204 [139]x[178]2[167][153]"onononlist  2    clr"b$
  95. 205 [139]x[178]3[167][153]"onlist  3    clr"c$
  96. 206 [141]5:[139]k$[178]""[175]x[179]3[167]x[178]x[170]1
  97. 207 [139]k$[178]"on"[175]x[177]1[167]x[178]x[171]1
  98. 208 [139]k$[178][199](13)[167]c[178]x:[142]
  99. 209 [137]200
  100. 210 [153]""[166]20)"the plant suffered a":[153][166]20)"onseries of explosions"
  101. 211 [153][166]20)"onafter they entered  ":[153][166]20)"onthe building.  lison
  102. 212 printspc(20)"[145]showed up four hours":printspc(20)"[145]later without clark,
  103. 213 [153][166]20)"onshe won't talk about":[153][166]20)"onthe plant except to "
  104. 214 [153][166]20)"say she was abruptly":[153][166]20)"separated from clark"
  105. 215 [153][166]20)"who's still missing!":[141]5:[151]vi[170]38,4:[151]vi[170]21,127
  106. 216 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  107. 217 [153]""[166]20)"your partner's body ":[153][166]20)"onwas never recovered "
  108. 218 [153][166]20)"onfrom the plant ex-  ":[153][166]20)"onplosion.  garbage   "
  109. 219 [153][166]20)"onking whirry disap-  ":[153][166]20)"onpeared but showed up
  110. 220 printspc(20)"[145]days later, floating":printspc(20)"[145]in the permansu bay."
  111. 221 printspc(20)"officially the case ":printspc(20)"is closed but you   "
  112. 222 printspc(20)"won't let it rest [192][192]":gosub5:pokevi+38,5:pokevi+21,127
  113. 223 fort=1to3000:next:pokevi+21,0:gosub600:a$=" check on / keep tabs on lison"
  114. 224 b$=" drop in on snitch at murphy's":c$=" check out ken tolsen's place ":x=1
  115. 225 gosub200:oncgoto226,289,290
  116. 226 gosub340:print"you arrive at lison's apartment.  the
  117. 227 [153]"lights are out.  no one's home.  you de-
  118. 228 print"cide on a little breaking and entering.
  119. 229 [153]"something interesting might turn up.onon":[141]5
  120. 230 [151]vi[170]38,4:[151]vi[170]21,63:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  121. 231 h[178]16:j[178]16:[141]795:[153]"on a kitchen counter, you find a news-
  122. 232 print"paper with the back page torn out and a
  123. 233 [153]"telephone directory open to airlines.
  124. 234 print"it looks like lison has flown the coop.[145][145]":gosub5
  125. 235 pokevi+38,5:pokevi+21,63:fort=1to3000:next:pokevi+21,0:gosub600
  126. 236 b$=" drop in on snitch at murphy's":a$=" go to the twin cities airport":x=1
  127. 237 c$=" check out ken tolsen's place ":gosub200:oncgoto238,289,290
  128. 238 gosub100:print"[145]lison's plane has already left for cali-
  129. 239 [153]"fornia.  you've reached a dead end.onon":[141]5
  130. 240 [151]vi[170]38,4:[151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  131. 241 [153]"onyou buy a newspaper & look for the torn "
  132. 242 [153]"page and find an article on luthelcorp.onon":[141]5:[151]vi[170]38,5
  133. 243 [151]vi[170]21,31
  134. 244 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]600:a$[178]" visit local luthelcorp office"
  135. 245 b$[178]" drop in on snitch at murphy's":c$[178]" check out ken tolsen's place ":x[178]2
  136. 246 [141]200:[145]c[137]288,289,290
  137. 288 f$[178]"inf2.pt4":[137]291
  138. 289 f$[178]"inf2.pt3":[137]291
  139. 290 f$[178]"inf2.pt2"
  140. 291 [158]sa[170]3:[151]53281,0:[151]53280,0:[158]49935
  141. 293 [153]"stopload"[199](34)f$[199](34)","dv:[153]"run"
  142. 294 [151]631,13:[151]632,13:[151]198,2:[128]
  143. 340 [143] *** cityscape3
  144. 341 [153]"loadprint       list print          print#thenprint