home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #5 / utv1n5s2.d64 / mystery.exe (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  34KB  |  905 lines
  1. 0 rem by scott calamar/calasoft/published 1987 by softdisk publishing,inc.
  2. 2 restore:poke53276,3:ch=53269:pokech,0:sb=53280:sc=53281:bp=53275:pokebp,0
  3. 3 gosub100:s1=2040:x1=53248:y1=53249:s2=2041:y2=53251:x2=53250
  4. 4 forj=0to62:readx:pokej+832,x:nextj:pokes1,13:poke53285,4:poke53286,10
  5. 5 poke53287,0:poke53288,0:poke53277,1:poke53271,1
  6. 7 gosub 20000
  7. 9 form=0to62:readx:pokem+896,x:next
  8. 10 form=0to62:readx:pokem+704,x:next:ic=0
  9. 12 form=0to62:readx:pokem+960,x:next
  10. 20 poke 198,0
  11. 25 print"[158]     press spacebar to turn the key"
  12. 28 geta$:ifa$<>" " then28
  13. 30 pokesc,0:ti$="000000"
  14. 32 print"[147][154]you are in a dark apartment.":print"what will you do?"
  15. 33 gosub 43000:q$=t$:ifleft$(q$,4)<>"turn"thenifleft$(q$,4)<>"help"then 32
  16. 34 ifright$(q$,4)="ight"then42
  17. 35 ifright$(q$,4)="ghts"then42
  18. 36 ifleft$(q$,4)<>"help"then42
  19. 37 print"[147][156]what? already??":print"[154]try turning on the lights!!!"
  20. 39 gosub6002
  21. 40 goto32
  22. 42 gosub53000:poke53277,1:poke53271,1:pokey1,140:pokex1,150:pokech,1
  23. 43 d=140:fore=159to120step-.5:pokex1,e:d=d+.5:pokey1,d:nexte
  24. 45 print"    you are in the entry hall.":goto10000
  25. 100 dimv$(29),g$(16,1),lk$(31,1),tk$(47,1),op$(16,1),tu$(12,1),rd$(10),ea$(9)
  26. 101 dimlt$(10),cl$(6)
  27. 105 a1=54277:r1=54278:w1=54276:h1=54273:l1=54272:v=54296:a2=54284:r2=54285
  28. 106 w2=54283:h2=54280:l2=54279:a3=54291:r3=54292:w3=54290:h3=54287:l3=54286
  29. 107 print"[147]"chr$(142);
  30. 108 poke sb,11:poke sc,0
  31. 110 gosub 30000:gosub 5100
  32. 130 print"[147]"chr$(142):ford=1to3:printtab(14)"[149]          [146]":nextd
  33. 132 printtab(14)"   21-d   "
  34. 134 ford=1to3:printtab(14)"          [146]":nextd
  35. 135 printtab(14)"        [209] ":printtab(14)"          "
  36. 136 printtab(14)"       [146][153][171][149][215] "
  37. 137 ford=1to5:printtab(14)"          [146]":nextd
  38. 140 printtab(13)"[158][169]         [146][169]":printtab(13)"[157][169] welcome [146][169]"
  39. 141 printtab(11)"[169]         [146][169]"
  40. 150 print"[153]the key jumps from your hand to the lock"
  41. 155 a$="":return
  42. 995 gosub5100:printtab(14)"[150] the end!! ":poke 198,0
  43. 996 print"  would you like to play again? (y/n)";
  44. 997 x$="":getx$:ifx$<>"y"thenifx$<>"n"then997
  45. 998 ifx$="y"then run
  46. 999 load"0:upt.reboot",8
  47. 1000 fork=0to15:ifright$(q$,5)=right$(g$(k,0),5)then j=k:k=15:next:k=j:goto 1002
  48. 1001 next:goto2105
  49. 1002 gm=val(g$(k,1)):ifgm<>rmthenifgm<>10then1299
  50. 1003 ifk>-1thenifk<5thenonk+1gosub50000,51000,52000,53000,54000
  51. 1004 ifk>-1thenifk<5thengosub40000:goto1007
  52. 1005 ifk>4thenonk-4goto1060,1019,1016,1085,1024,1032,1034,1036,1040,1045,1070
  53. 1007 print"you are ";:onrmgoto1008,1009,1010,1011,1012,1013,1014
  54. 1008 print"in the living room":return
  55. 1009 print"in the kitchen":return
  56. 1010 print"in the bathroom":return
  57. 1011 print"in the hall":return
  58. 1012 print"in the bedroom":return
  59. 1013 print"in a closet with a large":print"fireplace":return
  60. 1014 print"on the fire escape":return
  61. 1016 print"you dream you are king of the universe
  62. 1017 [153]"you are assassinated and wake up!":[142]
  63. 1019 [139]rm[179][177]1[167][153]"not from here":[142]
  64. 1020 [139]tk$(21,1)[178]"11"[167][139][200](tk$(21,0),3)[178]"lit"[167][141]56000:[137]1022
  65. 1021 [151]sc,0:[137]42000
  66. 1022 [141]40000:[137]1007
  67. 1024 [153]"stuffy in here...":[142]
  68. 1032 [153]"you don't fit. try opening it":[142]
  69. 1034 [153]"the chain lock is on":[142]
  70. 1036 [139]rm[179][177]6[167][139]rm[179][177]9[167]1299
  71. 1037 [141]55000:[151]x1,76:[151]y1,176:[151]bp,1:[151]ch,3
  72. 1038 [153]"there is a tall, dark chimney above":[142]
  73. 1040 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  74. 1041 [139]tk$(21,1)[179][177]"11"[167]1099
  75. 1042 [141]58000:[153]"you see stars above you!"          
  76. 1043 [153]"this must be a top floor apartment":[142]
  77. 1045 [139]rm[179][177]9[167][139]rm[179][177]7[167][153]"no access":[142]
  78. 1046 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  79. 1047 [139]tk$(21,1)[179][177]"11"[167]1099
  80. 1048 [139][197](tk$(37,1))[179][177]11[167]1054
  81. 1049 [153]"you toss the rope up and it hooks over     the chimney":[141]6000
  82. 1050 u[178][194](y1)[171].5:[139]u[179]1[167][141]57000:[137]1052
  83. 1051 [151]y1,u:[137]1050
  84. 1052 [153]"you are on the roof!":[151]x1,140:[151]y1,180:[151]ch,3:[142]
  85. 1054 [139]rm[178]9[167][153]"walls are too slippery to climb now":[142]
  86. 1056 [153]"crack. uh-oh, the ladder is too weak!!! it brokewait":[141]6000
  87. 1057 [137]42000
  88. 1060 [139]tk$(0,1)[179][177]"11"[167][153]"it's locked":[137]10000
  89. 1061 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  90. 1062 [139]tk$(21,1)[179][177]"11"[167]1099
  91. 1063 [141]55000:[141]40000:[137]1007
  92. 1064 [142]
  93. 1070 [151]x1,190:[153]"it feels very strange!!!":[141]6002:[151]bp,3
  94. 1072 [129]l[178]1[164]35
  95. 1074 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(openspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(clrspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(";
  96. 1075 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(forspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(";
  97. 1076 [153]"verifyspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(defspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(pokespc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(print#spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(";
  98. 1077 [153]"printspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(listspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(";
  99. 1078 [130]l:[151]ch,0:[141]55000:[151]ch,1:[151]bp,0:tk$(24,0)[178]"power of pyramid"
  100. 1080 [153]"you're imbued with the power of magic!":py[178]1:tk$(24,1)[178]"11":[142]
  101. 1085 [139]ck[178]1[167][151]sc,7:[151]sb,2:[153]"arrrgh. it's too hot":[151]ch,0:[137]995
  102. 1086 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  103. 1087 [139]tk$(21,1)[179][177]"11"[167]1099
  104. 1088 [151]sc,0:[151]sb,0:[153]"load":[129]p[178]0[164]5:[153][166]13)"pokespc(spc(spc(spc(spc(spc("
  105. 1089 [130]p:[153]"this oven's very small. can only stay   here for a second"
  106. 1090 hp$[178]"19":[153]"you find:":[141]4116
  107. 1091 q$[178]"":[153]"what will you do?":[141] 43000:q$[178]t$
  108. 1092 [139][200](q$,3)[178]"tak"[167][139][201](q$,4)[178]"foot"[167][139]tk$(44,1)[178]"19"[167]1096
  109. 1093 [139][200](q$,3)[178]"get"[167][139][201](q$,4)[178]"foot"[167][139]tk$(44,1)[178]"19"[167]1096
  110. 1094 [151]sc,7:[141]51000:[151]ch,1
  111. 1095 [153]"can't do that in here!":[142]
  112. 1096 tk$(44,1)[178]"11":ic[178]ic[170]1
  113. 1097 [151]sc,7:[141]51000:[151]ch,1:[153]"you have rabbit's foot":[142]
  114. 1099 [153]"it's too dark!":[142]
  115. 1100 [129]i[178]0[164]30:[139]r$[178][201](lk$(i,0),4)[167]j[178]i:i[178]30:[130]:i[178]j:[137]4150
  116. 1101 [130]:[153]"i see nothing special":[142]
  117. 1102 [139]lr[179][177]rm[167][139]lr[179][177]10[167][139]lr[179][177]11[167]1299
  118. 1103 [139]i[177][171]1[167][139]i[179]9[167][145]i[170]1[137]1109,1185,1111,1192,1192,1115,1160,1150,1150
  119. 1104 [139]i[177]8[167][139]i[179]17[167][145]i[171]8[137]1119,1180,1165,1120,1183,1124,1150,1150
  120. 1105 [139]i[177]16[167][139]i[179]23[167][145]i[171]16[137]1129,1132,1134,1134,1140,1150
  121. 1106 [139]i[177]22[167][145]i[171]22[137]1144,1144,1146,1148,1234,1107,1152,1320
  122. 1107 [139]pl[178]0[167][153]"just a mound of damp soil inside pot":[142]
  123. 1108 [153]"there is a colorful mushroom growing":[142]
  124. 1109 [153]"the cushion is loose":tk$(1,1)[178]"1":[142]
  125. 1111 [139]rm[179][177]1[167][139]rm[179][177]5[167]1299
  126. 1112 [139]rm[178]1[167]1150
  127. 1113 [153]"it's sealed shut":[142]
  128. 1115 [139]tk$(0,1)[179][177]"11"[167][153]"it's locked!":[142]
  129. 1116 [153]"it's a walk-in closet":[142]
  130. 1119 [153]"it seems crooked":[142]
  131. 1120 [153]"you find $50":[142]
  132. 1124 [153]"why not read them?":[142]
  133. 1129 [139]ck[178]1[167]1150
  134. 1130 [153]"it's not lit.":[142]
  135. 1132 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  136. 1133 [153]"the drain is clogged":[142]
  137. 1134 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  138. 1135 [137]1150
  139. 1140 [153]"what a nice toilet!":[142]
  140. 1144 [153]"you see a shower curtain":[142]
  141. 1146 [153]"bleh! nice face!":[153]"onhey -- this cabinet opens":[142]
  142.