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