0 REM Time Switch 1 REM An adventure by Colin Carruthers (1983/4) 2 REM Direct Spectrum Conversion 3 REM By Jon Ripley 1989 4 MODE7 10 a$="":fed=0:i=0:set=1000:init=5000 12 GOSUB 8000 15 GOSUB init 20 no=0:we=no:ea=no:so=no:up=no:do=no 30 l$="":GOSUB set 40 CLS:PRINT'l$ 60 found=0:FOR n=1 TO 11+(set<>1180):IF l(n)<>set NEXT:GOTO 90 63 IF NOT found PRINT'"I can see...":found=1 65 PRINT"a ";o$(n) 70 NEXT 80 GOTO 100 90 IF a$="look" AND NOT found PRINT"I can't see anything special" 100 VDU7:INPUT LINE "What shall I do?"i$:IF i$="" GOTO100 102 i2$="":FOR n=1 TO LENi$:i3$=MID$(i$,n,1):IF i3$>="A" AND i3$<="Z" i2$=i2$+CHR$(ASC(i3$)+32) ELSE i2$=i2$+i3$ 103 NEXT:i$=i2$ 105 IF set=1240 AND RND(100)>95 PRINT"The dog awoke and killed you !":GOTO9000 107 GOSUB 500:REM PRINT a$;" ";b$ 110 IF a$="n" AND no set=no:GOTO20 120 IF a$="s" AND so set=so:GOTO20 130 IF a$="e" AND ea set=ea:GOTO20 140 IF a$="w" AND we set=we:GOTO20 150 IF a$="d" AND do set=do:GOTO20 155 IF a$="u" GOTO6100 160 IF a$="r" GOTO40 170 IF a$="help" PRINT"No chance !":GOTO100 180 IF a$="take" OR a$="get" GOTO2000 190 IF a$="put" OR a$="drop" GOTO4500 200 IF a$="open" GOTO 2500 205 IF a$="feed" GOTO3500 210 IF a$="look" GOTO60 215 IF a$="swim" GOTO4000 220 IF a$="break" OR a$="smash" GOTO6000 225 IF a$="light" GOTO7500 230 IF a$="read" GOTO6500 240 IF a$="unlock" GOTO3000 250 IF a$="i" GOSUB5500:GOTO100 260 IF a$="insert" GOTO7000 275 IF a$="quit" GOTO9000 280 REMOVED LINE 490 IF LENa$=1 PRINT"I can't !":GOTO100 499 PRINT "I can't ";a$;" the ";b$;" ":GOTO100 500 IF ASC(i$)=32 AND LENi$>1 i$=RIGHT$(i$,LENi$-1):GOTO500 502 sp=0:a$="":b$="":FOR n=1 TO LENi$ 505 IF MID$(i$,n,1)=" " AND sp=0 sp=1:GOTO520 510 IF sp=0 a$=a$+MID$(i$,n,1) 515 IF sp=1 b$=b$+MID$(i$,n,1) 520 NEXT 530 RETURN 1000 l$="You are in a forest. There are paths leading north and south." 1010 no=1390:so=1030 1020 RETURN 1030 l$="You are in a forest, with paths leading north and east and a clearing to the west." 1040 no=1000:ea=1090:we=1060 1050 RETURN 1060 l$="You are in a clearing. In the centre is a time machine, which lacks a power source. Exit east." 1070 ea=1030 1080 RETURN 1090 l$="You are in a forest. There is a path running east-west." 1100 we=1030:ea=1120 1110 RETURN 1120 l$="You are in the forest. Through a gap to the north you can see a lake. The path runs east-west and there is a cave to the south." 1130 ea=1300:we=1090:so=1150 1140 RETURN 1150 l$="You are in a small cave. Daylight is to the north. There is a door to the west and an opening to the south." 1160 so=1180:no=1120 1170 RETURN 1180 l$="You are in a large cavern. There is a chest lying in one corner, and a skeleton in another. The only exit is tothe north." 1190 no=1150 1200 RETURN 1210 l$="I can't see a thing !" 1220 up=1150 1230 RETURN 1240 l$="You are in a long passage. You can hear the sound of dripping water. To the north is a stair with a large dog sleeping on the bottom step." 1250 so=1210 1260 RETURN 1270 l$="You are on an island in the centre of a lake. There is a hole in the ground with a stair in it." 1280 do=1240 1290 RETURN 1300 l$="You are beside a lake. There is an island in the middle of the lake. To thewest is the forest and to the north is arockery." 1310 no=1330:we=1120 1320 RETURN 1330 l$="You are in a rockery. The lake is to thewest, and there are some reeds to the north." 1340 no=1360:so=1300 1350 RETURN 1360 CLS:PRINT"I have just fallen into a swamp. Glug. Glug.. Glug........":GOTO9000 1390 l$="You are in shrubbery. The lake is to theeast. The forest is to the south, and meadow is to the north." 1400 no=1420:so=1000 1410 RETURN 1420 l$="You are in a meadow. The lake is to the south-east. To the south is the shrubbery and to the east is a tower." 1430 ea=1450:so=1390 1440 RETURN 1450 l$="You are at the foot of a tower. There isno door to be seen. To the west is the meadow and to the east are some reeds." 1460 we=1420:ea=1360:up=1480 1470 RETURN 1480 l$="You are at the top of the tower. To the south you can see the lake with the island in the centre and the forest beyond. In the centre of the platform isa glass case with a golden key inside." 1490 do=1450 1500 RETURN 2000 IF i>=5 PRINT"I can't carry any more !":GOTO100 2002 IF b$="" PRINT a$;" what ??":GOTO100 2005 found=0:FOR n=1 TO 12:IF o$(n)=b$ AND l(n)=set AND i<5 PRINT"Ok..":found=1:l(n)=0:i=i+1 2010 NEXT 2020 IF found=0 GOTO 499 2030 GOTO100 2500 IF b$="" INPUT LINE "Open what?:"b$:GOTO2500 2505 IF b$="door" AND set<>1150 PRINT"What door ?":GOTO100 2507 IF b$="door" AND und=0 PRINT"It's locked dumbo !":GOTO100 2510 IF b$="door" PRINT"There is a stair going down.":do=1210:GOTO100 2515 IF b$="chest" AND set<>1180 PRINT"I see no chest !":GOTO100 2517 IF b$="chest" AND unc=0 PRINT"It's locked !":GOTO100 2520 IF b$="chest" PRINT"OK":l(11)=set:GOTO100 2530 GOTO499 3000 IF b$="" INPUT LINE "Unlock what?:"b$:GOTO3000 3005 IF b$="door" AND set<>1150 PRINT"What door ?":GOTO100 3007 IF l(7) GOTO499 3010 IF b$="door" und=1:PRINT"Click !":GOTO100 3015 IF b$="chest" AND set<>1180 PRINT"What chest ?":GOTO100 3020 IF b$="chest" unc=1:PRINT"Clunk !":GOTO100 3030 GOTO499 3500 IF b$="" INPUT LINE "Feed what?:"b$:GOTO3500 3510 IF b$<>"dog" PRINT "Don't be silly !":GOTO499 3520 IF set<>1240 PRINT"There's no dog here !":GOTO100 3530 IF l(12) PRINT"I have no dog food !":GOTO 100 3540 i=i-1:fed=1:up=1270:PRINT"Munch, munch !":l(12)=1180:GOTO100 3550 GOTO499 4000 IF set=1120 OR set=1270 OR set=1300 OR set=1330 OR set=1420 PRINT "Brr. The water is too cold !":GOTO100 4010 PRINT"There is no water here !":GOTO100 4500 found=0:FOR n=1 TO 12:IF o$(n)=b$ AND l(n)=0 PRINT"Ok..":found=1:l(n)=set:i=i-1 4502 IF b$="" PRINT a$;" what ??":GOTO100 4510 NEXT 4520 IF found=0 PRINT "I don't have ";b$;" !" 4530 GOTO100 5000 und=0:unc=0 5010 DIM o$(12),l(13) 5020 RESTORE 5030 5030 DATA rope,1330,rock,1330,ladder,1300,gold ring,1090,gun,1390,13 amp plug,1420 5035 DATA golden key,1,torch,1150,battery,1270,log,1270,manuscript,1,bone,1180 5040 FOR n=1 TO 12:READ o$(n),l(n):NEXTn 5080 RETURN 5500 found=0:pf=0:FOR n=1 TO 12:IF l(n)<>0 NEXT:GOTO5540 5510 IF NOT found AND pf=0 PRINT"I have the following...":found=1:pf=1 5520 PRINT"a ";o$(n) 5530 NEXT 5540 IF found=0 PRINT"I don't have anything !" 5550 RETURN 6000 IF b$="" INPUT LINE "Break what ?:"b$:GOTO6000 6010 IF b$<>"glass" OR set<>1480 GOTO499 6020 IF l(2) PRINT"Nothing to ";a$;" it with !":GOTO100 6030 PRINT"Smash ! Tinkle !":i=i-1:l(7)=set:l(2)=set:GOTO100 6100 IF set=1240 GOTO6200 6105 IF set<>1450 AND up set=up:GOTO20 6110 IF l(3) PRINT"There's no way up !":GOTO100 6120 IF up set=up:GOTO20 6130 PRINT"I can't go up !":GOTO100 6200 IF fed=0 PRINT"There's a dog in the way !":GOTO100 6210 set=1270:GOTO20 6220 GOTO499 6500 IF b$="" INPUT LINE "Read what ?:"b$:GOTO6500 6510 IF b$<>"manuscript" GOTO499 6520 IF l(11) PRINT"I do not have ";b$:GOTO100 6530 PRINT "It say's: PP3-TM Island ?":GOTO100 6540 GOTO499 7000 IF l(9) OR set<>1060 GOTO499 7010 PRINT''"You have successfully completed the adventure.":GOTO9000 7500 IF b$="" INPUT LINE "Light what ?:"b$:GOTO7500 7510 IF l(8) GOTO499 7520 IF set=1210 no=1240:l$="You are in a small room. There is a staircase to the east and a damp passageto the north.":GOTO40 7530 PRINT"That didn't do much good.":GOTO100 8000 CLS:PRINT''''TAB(10)"T I M E S W I T C H"'TAB(10)STRING$(20,"=") 8010 PRINT'''" You are stranded in the dim and distantpast. You must find your way back to your own time." 8020 PRINT''''" Press any key to start.";:REPEATUNTILGET 8030 FORn=100 TO 60 STEP -4:SOUND 1,-15,n,n/10:NEXT 8500 RETURN 9000 INPUT LINE "Do you want to try again ?:"a$ 9010 IF a$="y" OR a$="Y" RUN 9020 END