home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.pt6 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  193 lines
  1. 0 rem ***** save"@0:inf2.pt6",8
  2. 1 dv=peek(186)
  3. 2 poke53272,29:goto10
  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 sys49615:poke781,0:poke782,150:sys49664
  10. 36 rem *** setup variables
  11. 37 vi=53248:pg=64:sa=pg*256:sp=248:ss=49152
  12. 38 pokevi+32,0:pokevi+33,0:pokevi+29,255:forzd=39to47:pokevi+zd,4:next
  13. 39 rem *** setup sinus interrupt
  14. 40 syssa
  15. 41 rem *** poke sprite data
  16. 51 pokevi+21,0:rem turn sprites on
  17. 52 pokess,7:zz=2:zy=10:zx=zy:gosub340
  18. 53 pokesa+6,3:pokesa+7,3:pokesa+8,zz
  19. 54 pokesa+9,zz:pokesa+10,zy
  20. 56 pokesa+13,zx
  21. 57 pokevi+37,14
  22. 58 pokevi+38,zc
  23. 60 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  24. 61 if zy=40 then zy=10:zx=zx+5
  25. 62 y=y+1:ify<3thenzc=5
  26. 63 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=8thenyy=0:goto66
  27. 64 geta$:if(peek(ss)=0)or(a$<>"")then70
  28. 65 goto53
  29. 66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  30. 67 ifxx=1andpeek(vi+21)=1thengosub770:xx=2
  31. 68 ifxx=3andpeek(vi+21)=1thengosub100:xx=4
  32. 69 goto64
  33. 70 rem *** turn off sinus
  34. 71 pokevi+21,0
  35. 72 pokevi+32,0:pokevi+33,0
  36. 80 rem *** gamestart
  37. 81 gosub600:print"the elevator comes to an abrupt stop.
  38. 82 [153]"it feels like you plummeted several hun-
  39. 83 print"dred feet [192][192] impossible!  it would mean
  40. 84 [153]"the sublevels to this building start at
  41. 85 print"nearly half of its overall height![145][145][145]":gosub5:pokevi+38,4
  42. 86 a$=" proceed left (westward)      ":b$=" proceed right (eastward)     ":x=1
  43. 87 c$=" go straight (northward)      ":gosub340:gosub200:oncgoto88,88,210
  44. 88 ifx=2thengosub770:print"this corridor dead ends with a strange":zs=31:goto90
  45. 89 h=16:j=16:gosub795:print"[155]this corridor dead ends with a strange":zs=63
  46. 90 print"door with a light strip running across
  47. 91 [153]"its center.  you hear gurgling sounds
  48. 92 print"coming from behind the door.":gosub5:pokevi+21,zs:fort=1to3000:next
  49. 95 pokevi+21,0:print"[145][145][145][145][145][145][145]you search the door looking for a way "
  50. 96 print"to open it.  you must've done something
  51. 97 [153]"right because the door opens and you "
  52. 98 [153]"see rows of liquid-filled cylinders.":[141]5:[151]vi[170]38,5:[151]vi[170]21,zs
  53. 99 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5:[141]970:[137]221
  54. 100 [143] *** cityscape
  55. 101 [153]"loadcont                 .list                    ";
  56. 102 [153]"  cont  .list                                 ";
  57. 103 [153]"    cont             pokethenlist                   ";
  58. 104 [153]"       poke         cont.   poke(NULL)fn     cont.list       ";
  59. 105 [153]"            cont     poketo       left$(NULL)           ";
  60. 106 [153]"ortan^ortan^   cont.list    cont poke(NULL)fn sqrthen       peekpeek      ";
  61. 107 [153]"    cont.pokepeeksys.pokepeekpeeksys.pokepeeklist        poke sgn(NULL)tofnsys.poketab((NULL)   ";
  62. 108 [153]"or(NULL)usrusr(NULL)^         pokepeeksys.pokepeekpeeksys.pokepeeklist        poketosgnsys";
  63. 109 [153]".....pokethen to(NULL) sys.... poke(NULL)        pokepeeksys.pokepeekpeeksys.poke";
  64. 110 [153]"/^list       poke  sys.....pokethentofnsys.  sys.. sys .poke(NULL) ";
  65. 111 [153]"    pokeortanexp poke/exp  pokepeeklist       poke            ";
  66. 112 [153]" sys..   poke+  poke(NULL)>(NULL)(NULL)sys... sys. sys.poke(NULL)    pokeor^";
  67. 113 [153]"list print  sys    print             pokeusrusr          print";
  68. 114 [153]" poke(NULL)tolist   pokesgnlist pokefn                         ";
  69. 115 [153]"      print  sys.poke(NULL)to(NULL)list  poke(NULL) "
  70. 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]
  71. 200 [143] *** options table
  72. 201 [153]""[166]16)"listoptions":[153]" clr 1 wait   list"a$
  73. 202 [153]" clr 2 wait   list"b$:[153]" clr 3 wait   list"c$:c[178]0
  74. 203 [139]x[178]1[167][153]"onononononlist  1    clr"a$
  75. 204 [139]x[178]2[167][153]"onononlist  2    clr"b$
  76. 205 [139]x[178]3[167][153]"onlist  3    clr"c$
  77. 206 [141]5:[139]k$[178]""[175]x[179]3[167]x[178]x[170]1
  78. 207 [139]k$[178]"on"[175]x[177]1[167]x[178]x[171]1
  79. 208 [139]k$[178][199](13)[167]c[178]x:[142]
  80. 209 [137]200
  81. 210 [141]100:[153]"onthe corridor, filled with steel drums,
  82. 211 print"with whirry's warehouse mark, dead ends.[145][145]":gosub5:pokevi+21,15
  83. 212 fort=1to3000:next:pokevi+21,0:print"[145][145]you hear someone coming [192][192] ";
  84. 213 print"accidentally":print"press against a door [192][192] it opens!!!     [145][145]"
  85. 216 gosub5:pokevi+38,5:pokevi+21,15:fort=1to3000:next:pokevi+21,0:pokevi+38,4
  86. 217 gosub970:print"you find yourself in a room with a wall
  87. 218 [153]"strangely like an aquarium.  bizarre
  88. 219 print"creatures are floating in an amber fluid
  89. 220 [153]"tantan it looks like they are asleep!onon":[141]5:h[178]17:[141]795
  90. 221 [153]"you hear a slithering":[153]"sound tantan turn and see a
  91. 222 print"terrible monster!  it":print"points a weapon at you [192][192]":gosub5
  92. 223 forh=1to5:poke53281,1:fort=1to5:next:poke53281,0:fort=1to5:next:next
  93. 224 print"there is no way around":print"it [192][192] you're dead!
  94. 225 [153]"only in movies do heroes always win!":[141]5
  95. 226 [153]"load        thank you for dropping by
  96. 227 print"   you are being returned to [155]loadstar":gosub5
  97. 285 f$="hello connect":goto291
  98. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  99. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  100. 294 poke631,13:poke632,13:poke198,2:end
  101. 340 rem *** cityscape3
  102. 341 print"[147][153]       [155] [153]          [152][167][153]                 ";
  103. 342 print"      [155].[153]           [155].[153]  [152] [190][188][146]  [153]  [155].[153] ";
  104. 343 print"        [155].[153]    [155]  [153]        [155] [153] [155].[153]     [152]";
  105. 344 print"[161] [190][146][161][153]     [155].[153]      [155].[153]     [155]  [153]    [155].[153]";
  106. 345 print"           [152][161][187] [146][161][153]                  [155]  ";
  107. 346 print"[153]      [152][172][187][153][146]        [152][165] [190][167][153][146]         [151]";
  108. 347 print"[184] [184][153][146]    [155].[153] [155]  [153]      [152]  [153][146]  [151][223][146]   [155].";
  109. 348 print"[153] [152][165]  [167][155][146].[153]       [151]  [146][191]  [153][146]     [155]  [153] ";
  110. 349 print"    [152][181]  [182][155][146] [151] [223][146]  [169][153][146] [152][165][190] [167][153][146]    [155].[153]";
  111. 350 print"   [151] [191]   [153][146]     [155]  [153]  [151][221][155] [153] [152][165][190] [167][155][146] [151]";
  112. 351 print"  [146]   [152][146][172]    [146][187][151]    [153]  [155].[151]   [146][191] [165]   ";
  113. 352 print" [155][146]  [153] [151][184] [184][153][146] [152][165] [188][167][155][146] [151] [191] [188] [152][165]   [191][167][151] ";
  114. 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]";
  115. 354 print" [151][164][164][164][191] [152][165]    [167][151][191] [191][170] [164][175][162][155][146]           [151] ";
  116. 355 print"    [152][165][188]       [187]     [167][151][164][164][164][170][146][190][155]           ";
  117. 356 print"   [151][164][188][164][190][164][152][165]   [181]         [162][146][184][183][163][163][155]        ";
  118. 357 print"        [152]       [187][187]     [188]  [172][155][146]          ";
  119. 358 print"            [152]    [161]  [190][190]       [172][155][146]       ";
  120. 359 print"                [152]             [185][162][146][184][155]":return
  121. 600 rem *** ray newcube
  122. 601 print"[147]               [149][185][185][162][162][162][162][162][185][175][154]       [155]      ";
  123. 602 print"       [150]       [149]   [129][190][149]         [129][188][149][146][187] ";
  124. 603 print"  [155]               [150]      [149]   [190][129] [149]     ";
  125. 604 print"    [129] [149] [146]    [155]              [150]     [149]    ";
  126. 605 print" [129][163][163][149][163]     [163][129][163][163][149] [146]     [155]             [150]";
  127. 606 print"   [149]       [223][163][146][209][163][149][165] [167][163][146][209][163][149][169] [146]     [155] ";
  128. 607 print"