home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt6 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  222 lines
  1. 0 rem *** save"@0:inf4.pt6",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto100
  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. 40 rem *** door
  11. 41 print"[147][152][170][155][146]                       [152] [155] [152]      ";
  12. 42 print" [155] [152]      [170][151][146]                       [152] [155]";
  13. 43 print" [152]       [155] [152]      [170][151][146]                  ";
  14. 44 print"   [146]  [155]                [152][170][151][146]   [155] [146] [152] [155]";
  15. 45 print"[146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151] [146]  [152] ";
  16. 46 print"    [155] [152]      [155] [152]   [151][183][146]   [155] [146][160][152] [155][146]  [152] ";
  17. 47 print"[155][146]  [152] [155][146][160] [152] [155][146]  [152] [155][146]  [151] [146]  [152]     [155] ";
  18. 48 print"[152]  [160]   [155] [152]   [151][183][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152]";
  19. 49 print" [155][146]  [152] [155][146]  [152][160][155][146] [160][151] [146]  [152]     [155] [152]     ";
  20. 50 print" [155] [152]   [151][183][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152]";
  21. 51 print" [155][146]  [152][160][155][146] [160][151] [146]  [152]     [155] [152]      [155] [152]  ";
  22. 52 print" [208][151][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  ";
  23. 53 print"[152][160][155][146]  [151] [146]  [155]                [152][170][151][146]   [155]";
  24. 54 print" [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151]";
  25. 55 print" [146]  [152] [155] [152]       [155] [152]      [155][170][151][146]   [155] [146] [152]";
  26. 56 print" [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151] [146]  [152]";
  27. 57 print" [155] [152]       [155] [152]      [170][151][146]   [155] [146] [152] [155][146]  [152]";
  28. 58 print" [155][146]  [152] [155][146]  [152] [155][146]  [152][160][155][146]  [151] [146]  [152] [155] [152] ";
  29. 59 print"      [155] [152]      [170][151][146]   [155][206] [152] [155]  [152] [155]  [152] [155]  ";
  30. 60 print"[152] [155]  [152] [155] [205][151] [146]  [152] [155] [152]       [155] [152]      [170][151][146]";
  31. 61 print"                     [146]  [155]             ";
  32. 62 print"   [152][170][151][146]                       [152]     [155] [152]";
  33. 63 print"      [155] [152]   [155][170][151][146]                       [152]";
  34. 64 print"     [155] [152]      [155] [152]   [170][151][146]                ";
  35. 65 print"       [152]     [155] [152]      [155] [152]   [151][183][146]        ";
  36. 66 print"              [155] [152]     [155] [152]      [155] [152]   [151][183]";
  37. 67 print"[146]                       [155]              ";
  38. 68 print"  [151][183][146]                       [152] [155] [152]      [155] [152]       [155]":return
  39. 100 sys49615:poke781,0:poke782,150:sys49664
  40. 101 vi=53248:pg=64:sa=pg*256:sp=248
  41. 102 ss=49152:pokevi+32,0:pokevi+33,0
  42. 103 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  43. 104 syssa
  44. 105 rem *** poke sprite data
  45. 106 yy=14:fori=0to7
  46. 107 poke2040+i,248+i:rem sprite pointers
  47. 108 pokevi+39+i,i+1:rem sprite colors
  48. 109 pokevi+37,14:pokevi+38,15:next
  49. 110 pokevi+29,255:rem x size
  50. 111 pokevi+23,0:rem y size
  51. 112 pokevi+28,255:rem multicolor on
  52. 113 pokevi+37,5:rem multicolor 1
  53. 114 pokevi+38,13:rem multicolor 2
  54. 115 pokevi+21,0:rem turn sprites on
  55. 116 pokess,7:zz=2:zy=10:zx=zy:gosub530
  56. 117 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  57. 118 pokesa+9,zz:pokesa+10,zy
  58. 119 pokesa+13,zx:pokevi+37,14
  59. 120 pokevi+38,zc:pokevi+39,3
  60. 121 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  61. 122 if zy=40 then zy=10:zx=zx+5
  62. 123 y=y+1:ify<3thenzc=5
  63. 124 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto127
  64. 125 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto130
  65. 126 goto117
  66. 127 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  67. 128 goto125
  68. 130 rem *** turn off sinus
  69. 132 pokevi+21,0:pokevi+32,0:pokevi+33,0
  70. 133 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  71. 134 poke53272,29
  72. 135 rem *** gamestart
  73. 136 print"you are walking down the street when a
  74. 137 [153]"car drives up. 'get in!', martha kent
  75. 138 print"says. 'i know i am going to regret this
  76. 139 [153]"in the morning.' you jump in her car and
  77. 140 print"soon you're off to luthelcorp's local[145][145][145]":gosub5:pokevi+38,4
  78. 141 pokevi+21,255:fort=1to3000:next:pokevi+21,0
  79. 142 print"[145][145][145][145][145][145]office. it is a quick drive. martha kent
  80. 143 [153]"makes it very clear that she is a party
  81. 144 print"to this misadventure. what the hey, you
  82. 145 [153]"like the idea of company! the front of  "
  83. 146 [153]"building's locked so you go round back.ononon":[141]5:[151]vi[170]38,5
  84. 147 [151]vi[170]21,255:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  85. 148 [141]40:[153]"there is a heavy metal door here and a
  86. 149 print"keypad. nothing more. you enter [156]246801
  87. 150 [153]"listand hear a click. the door swings open!ononon":[141]5
  88. 151 [153]"ononinside you see an elevator and 2 doors.
  89. 152 print"'i hope you know what you're doing',  "
  90. 153 print"martha comments. you make no reply.    [145][145][145]":gosub5
  91. 154 a$=" take a ride on the elevator  ":b$=" go through the leftmost door ":x=2
  92. 155 c$=" go through the rightmost door":gosub690:gosub200:oncgoto172,156,164
  93. 156 gosub570:print"you wind up in the lobby. there's noth-
  94. 157 [153]"ing here except for a receptionist desk
  95. 158 print"and three phones. you search the desk &[145][145][145]":gosub5:pokevi+38,4
  96. 159 pokevi+21,127:fort=1to3000:next:pokevi+21,0
  97. 160 print"[145][145]find the drawers aren't locked! there's
  98. 161 [153]"a log book in the bottom drawer. you   "
  99. 162 [153]"take some pictures. go back thru door. ononon":[141]5:[151]vi[170]38,5
  100. 163 [151]vi[170]21,127:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[137]154
  101. 164 [141]570:[153]"you find the door is locked. you take
  102. 165 print"out a small jeweler's kit & to martha's
  103. 166 [153]"surprise, pick the lock with expertononon":[141]5:[151]vi[170]38,4
  104. 167 [151]vi[170]21,63:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  105. 168 [153]"ononskill. you find it's only a janitor's
  106. 169 print"closet. you examine it very carefully  "
  107. 170 print"and find nothing. you give it a sigh.[145][145][145]":gosub5:pokevi+38,5
  108. 171 pokevi+21,63:fort=1to3000:next:pokevi+21,0:goto154
  109. 172 gosub530:print"you see a zero on the elevator panel.
  110. 173 [153]"press it and nothing happens. none of
  111. 174 print"other floors work either! when you press
  112. 175 [153]"a second time, the numbers cancel out.
  113. 176 print"with sudden inspiration, you tap out[145][145][145]":gosub5:pokevi+38,4
  114. 177 pokevi+21,31:fort=1to3000:next:pokevi+21,0
  115. 178 print"[145][145][145][145][145][145][156]2-4-6-8-0-1[155]. suddenly, the elevator is
  116. 179 [153]"in motion! it plummets at an impressive
  117. 180 print"speed then comes to an abrupt stop. you "
  118. 181 print"are now some place underground. there  "
  119. 182 print"are light panels on the walls.      [145][145][145]":gosub5:pokevi+38,4
  120. 183 pokevi+21,31:fort=1to3000:next:pokevi+21,0
  121. 184 gosub690:print"you touch a darkened panel on one wall &
  122. 185 [153]"a door opens. inside you see a giantic
  123. 186 print"aquarium. something is floating inside
  124. 187 [153]"of it -- gray octopi-like creatures!
  125. 188 print"'they don't look real!', martha whispers
  126. 189 [153]"softly. you nod. you explore futher andononon":[141]5
  127. 190 [141]40:[153]"find another heavy metal door! even your
  128. 191 print"borderline criminal talents cannot open
  129. 192 [153]"it but you're willing to try!     ononon":[141]5
  130. 193 [153]"ononmartha, however, wants to leave. you spy
  131. 194 print"a key pad and smile. one more open ses-
  132. 195 [153]"ame act. 'let's leave!', martha begs.  ononon":[141]5
  133. 196 a$[178]" enter code on key pad 246801 ":b$[178]" checkout rest of installation":x[178]2
  134. 197 c$[178]" leave with nervous friend    ":[141]690:[141]200:[145]c[137]210,210,210
  135. 200 [143] *** options table
  136. 201 [153]""[166]16)"listoptions":[153]" clr 1 w