99HOME
100? "checking status"
110 d$=CHR$(4)
115? d$; "OPEN STATUS"
120? d$; "READ STATUS"
125INPUT a$
130INPUT b$
135INPUT knife$
140INPUT dia$
145INPUT flower$
150INPUT note$
155INPUT key$
160INPUT je$
165INPUT coin$
170? CHR$(4)
175? CHR$(4); "CLOSE STATUS"
180? CHR$(7)
185?:? "Status now entered"
190GOSUB 1002
195? "Now "; a$; " where did we leave  off?":GOSUB           1003:GOSUB 550
198TEXT:HOME
199? "sorry I guess I did it again"
200?:? " Oh yes now I remember "; a$
201GOSUB 1002:HOME
202SPEED =255
205INVERSE:? "TIME:1152:":? " UNDERGROUND ":NORMAL
208 c=0
209? "USE (Y) OR (N)"
210?:?:INPUT "Would you like to inventory    before we       continue? "; q$
215IF q$="Y" OR q$="y" THEN 300
220IF q$="N" OR q$="n" THEN 1100
225? "TRY AGAIN"
226GOTO 209
300HOME
305INVERSE:? "YOU ARE CARRYING:":NORMAL
310IF knife$="KNIFE" THEN ?:HTAB 20:? "KNIFE"
315IF dia$="DIAMOND" THEN HTAB 20:? "DIAMOND"
320IF flower$="FLOWER" THEN HTAB 20:? "FLOWER"
325IF note$="NOTE" THEN HTAB 20:? "NOTE"
330IF key$="KEY" THEN HTAB 20:? "KEY"
335IF je$="JEWELED EGG" THEN HTAB 20:? "JEWELED EGG"
340IF coin$="GOLD COIN" THEN HTAB 20:? "GOLD COIN"
400GOSUB 1010:GOTO 1100
500END
549REM          ***GLIDER***
550HGR
552HCOLOR =9
554HPLOT 70, 85 TO 130, 60 TO 190, 85 TO 185, 90 TO 175, 90  TO 130, 80 TO 85, 90 TO 75, 90 TO 70, 85
556HCOLOR =13
558HPLOT 105, 70 TO 130, 70 TO 110, 95 TO 150, 95 TO 130, 70 TO 155, 70 TO 130, 70 TO 130, 60 TO 130, 80
560HCOLOR =15
562HPLOT 125, 87 TO 125, 90 TO 128, 95 TO 132, 95 TO 135, 90 TO 135, 87 TO 125, 87
564HPLOT 125, 90 TO 120, 90 TO 115, 95 TO 117, 97 TO 118, 95 TO 119, 97 TO 120, 95 TO 123, 95 TO 125, 100 TO 135, 100 TO  137, 95
566HPLOT 140, 95 TO 142, 97 TO 143, 95 TO 144, 97 TO 145, 95 TO 140, 90 TO 135, 90
568HCOLOR =3
570HPLOT 125, 87 TO 128, 85 TO 132, 85 TO 135, 87 TO 125, 87
572HCOLOR =9
574HPLOT 125, 102 TO 125, 105 TO 120, 120 TO 123, 120 TO     130, 105 TO 131, 120 TO 134, 120 TO 135, 105 TO 135, 102 TO  125, 102
576HCOLOR =5
578HPLOT 121, 120 TO 115, 122 TO 116, 124 TO 123, 121
580HPLOT 123, 120 TO 132, 123 TO 134, 123 TO 134, 120
582HCOLOR =10
584HPLOT 128, 88 TO 129, 88 TO 128, 89
586HPLOT 132, 88 TO 131, 88 TO 132, 89
588HPLOT 130, 89 TO 130, 91
590HPLOT 128, 92 TO 130, 93 TO 132, 92
592HPLOT 1, 130 TO 255, 130
594HPLOT 90, 130 TO 105, 110 TO 120, 110
596HPLOT 140, 110 TO 155, 110 TO 165, 130
600FOR d=1 TO 15
602HCOLOR =d
604HPLOT 1, 70 TO 65, 40 TO 105, 60 TO 130, 40 TO 175, 70 TO 210, 35 TO 255, 70
606HPLOT 1, 70 TO 90, 70
608HPLOT 165, 70 TO 255, 70
610NEXT d
612HCOLOR =0
614HPLOT 125, 102 TO 125, 105 TO 120, 120 TO 123, 120 TO     130, 105 TO 131, 120 TO 134, 120 TO 135, 105 TO 135, 102 TO  125, 102
616HPLOT 1, 130 TO 255, 130
618HPLOT 90, 130 TO 105, 110 TO 120, 110
620HPLOT 140, 110 TO 155, 110 TO 165, 130
622HPLOT 121, 120 TO 115, 122 TO 116, 124 TO 123, 121
624HPLOT 132, 120 TO 132, 123 TO 134, 123 TO 134, 120
626FOR e=0 TO 4
628HCOLOR =e
630HPLOT 1, 70 TO 65, 40 TO 105, 60 TO 130, 40 TO 175, 70 TO 210, 35 TO 255, 70
632HPLOT 1, 70 TO 90, 70
634HPLOT 165, 70 TO 255, 70
636NEXT e
637FOR x=1 TO 15
640FOR f=0 TO 4
642HCOLOR =f
644HPLOT 1, 169 TO 50, 135 TO 130, 135 TO 160, 140 TO 180,   130 TO 185, 169
648HPLOT 185, 145 TO 220, 130 TO 255, 165
650SPEED =70:? "Sorry wrong story again!"
655? "stand by":GOSUB 1003:RETURN
999REM          ***time delay***
1000FOR t=1 TO 500:NEXT:RETURN
1001FOR t=1 TO 1000:NEXT:RETURN
1002FOR t=1 TO 2000:NEXT:RETURN
1003FOR t=1 TO 3000:NEXT:RETURN
1004FOR t=1 TO 4000:NEXT:RETURN
1005FOR t=1 TO 5000:NEXT:RETURN
1006FOR t=1 TO 6000:NEXT:RETURN
1007FOR t=1 TO 7000:NEXT:RETURN
1008FOR t=1 TO 8000:NEXT:RETURN
1009FOR t=1 TO 9000:NEXT:RETURN
1010FOR t=1 TO 10000:NEXT:RETURN
1100HOME
1150INVERSE:HTAB 10:? " TIME ROOM ":NORMAL
1155?:?
1160? "You are in a room that has 3   walls."
1162IF bl$="PULL" THEN ?:? " The room is moving slowly       moving up and down"
1165?:IF bl$<>"PULLED" THEN ? "There seems to be no exits    from this room"
1170IF bl$="PULLED" THEN ? "There is an exit (U)"
1175IF bb$="PUSHED" THEN ?:? "The room seems to be slowly    rotating!"
1177IF wh$="ON" THEN ?:? "Colorfull lights now reflect   off all walls!"
1178IF rb$="PUSHED" THEN ?:FLASH:? " AUTOMATIC SELF DESTRUCT IS ON":NORMAL
1180?:? "By one wall is a panel with a  (BLUE BUTTON)a(BLUE  LEVER)  a  (RED BUTTON)&(WHITE KNOB)"
1250?:INPUT "what now? "; q$
1257IF c>=10 THEN FLASH:? "destruction                       complete!!!":NORMAL:GOTO 1001:END:END
1275HOME
1277IF rb$="PUSHED" THEN  c=c+1
1278IF rb$="PUSHED" THEN ?:?:? " DESTRUCTION TAKES PLACE IN  10  MOVES IT HAS NOW BEEN "; c
1279IF rb$="PUSHED" THEN GOSUB 1005:?:?
1280IF q$="TURN WHITE KNOB" AND wh$<>"ON" THEN  wh$="ON":?   "THE WHITE KNOB IS NOW ON":GOSUB 1003:GOTO 1150
1282IF q$="TURN WHITE KNOB" AND wh$="ON" THEN ? "THE KNOB IS NOW TURNED OFF": wh$="OFF":GOSUB 1004:GOTO 1100
1285IF q$="I" THEN ? "NOT NOW PLEASE,THERE IS TOO    MUCH AT RISK"
1286IF q$="I" THEN GOSUB 1005
1287IF q$="I" THEN ?:? "IF YOU HAVE THE (NOTE) WITH    YOU   THEN YOU MAY READ IT!":GOSUB 1005:GOTO 1100
1290IF q$="READ NOTE" AND note$="NOTE" THEN ? "SET THE       CONTROLS ALL IN THEIR  PROPER PLACE AND TIME MOVES":GOSUB    1008
1295IF q$="READ NOTE" AND note$="NOTE" THEN ?:? "THIS IS NOT A DEVICE OF TRAVEL BUT THE TIME WARP IS OPEN NOW"
1300IF q$="READ NOTE" AND note$="NOTE" THEN ?:? "TO SET THE  CONTROLS PROPERLY   IS THE ONLY WAY OUT":GOSUB 1010:GOTO     1100
1310IF q$="U" AND bl$="PULLED" THEN  bl$="PULL":? "ALL WAS   NOT IN ORDER AS YOU    TRY TO LEAVE! NOW THE HOLE            ABOVE.."
1315IF q$="U" AND bl$="PULL" THEN ? "CLOSED! YOU MAY NOT     LEAVE THIS ROOM TILL TIME CHANGES":GOSUB 1010:GOTO 1100
1320IF bb$="PUSHED" AND wh$="ON" THEN 1477
1330IF q$="PUSH BLUE BUTTON" AND bb$<>"PUSHED" THEN ?        "MOTION NOW SET!": bb$="PUSHED":GOSUB 1003:GOTO 1100
1335IF q$="PUSH BLUE BUTTON" AND bb$="PUSHED" THEN ? "MOTION STOP ACTIVATED!": bb$="STOP":GOSUB 1004:GOTO 1100
1340IF q$="PUSH BLUE LEVER" THEN ? "THE BLUE LEVER IS        PUSHED!": bl$="PUSHED":GOSUB 1003:GOTO 1100
1345IF q$="PULL BLUE LEVER" AND bl$<>"PULLED" THEN           bl$="PULLED":? "BLUE LEVER IS PULLED!":GOSUB 1003:GOTO 1100
1350IF q$="MOVE PANEL" THEN ? "NOT BLOODY LIKELY":GOSUB      1003:GOTO 1100
1355IF q$="READ" AND note$="NOTE" THEN ? "THE ONLY THING TO  READ IS THE  (NOTE) YOU CARRY!":GOSUB 1005:GOTO 1100
1360IF q$="ASK" THEN ?:INPUT "WHAT DO YOU NEED? "; o$
1365IF q$="ASK" THEN HOME:? o$; " ? ha ha":GOSUB 1010:GOTO   1100
1367IF q$="PUSH RED BUTTON" AND rb$="PUSHED" THEN ?          "DESTRUCT IS NOW OFF!": rb$="OFF":GOSUB 1003:GOTO 1100
1370IF q$="PUSH RED BUTTON" AND rb$<>"PUSHED" THEN           ?:INVERSE:? "DESTRUCT ACTIVATED!":NORMAL: rb$="PUSHED":GOSUB 1005
1371IF q$="PUSH RED BUTTON" AND rb$="PUSHED" THEN  c=c+1:?   "THE DESTRUCT SYSTEM WILL SOON  DETONATE":GOSUB 1005:GOTO    1100
1372IF q$="PUSH RED BUTTON" THEN ?:NORMAL:GOSUB 1005:GOTO    1100
1469 c=c+1
1470IF c=5 AND flower$="FLOWER" THEN ? "THE FLOWER YOU WERE  CARRYING   HAS DIED AND CRUMBLED AWAY!":GOSUB 1007:?:?
1471IF c=5 THEN  flower$="NO"
1475? "you can't":GOSUB 1001:GOTO 1100
1477IF wh$="ON" AND bl$="PULLED" THEN 1500
1479IF wh$="ON" AND bl$="PULL" THEN 1500
1499? "you can't now":GOSUB 1001:GOTO 1100
1500HOME
1520FOR t=1152 TO 900 STEP -2
1524FLASH
1525VTAB 12:HTAB 14:? t
1526? CHR$(7)
1527? CHR$(7)
1528? CHR$(7)
1529? CHR$(7)
1530NEXT
1535NORMAL
1540GOSUB 1007
1550HOME
1560? " You are no longer moving in    time"
1570?:?:? "You are floating !"
1575GOSUB 1010
1580HOME
1590? "Now you are out of the time    room. Or at least the  room is  no longer here."
1595?:?:? "You are however still under-   ground"
1600VTAB 22:HTAB 10:INVERSE:? "<space-bar>":NORMAL:GET       t$:HOME
2000HOME
2010HTAB 10:INVERSE:? " VOID ROOM ":NORMAL
2020?:?:? "YOU ARE IN A ROOM WITH NO      IMPORTANT OBJECTS  SEEN!"
2030?:?:? "Obvious exits are:(E)(S)&(S/E)"
2045?:?:INPUT "What now? "; q$
2050HOME
2055IF q$="E" THEN 2500
2060IF q$="S" THEN 3500
2065IF q$="S/E" THEN 4000
2070IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
2072IF q$="I" AND knife$="KNIFE" THEN HTAB 20:? "KNIFE"
2074IF q$="I" AND dia$="DIAMOND" THEN HTAB 20:? "DIAMOND"
2076IF q$="I" AND note$="NOTE" THEN HTAB 20:? "NOTE"
2077IF q$="I" AND ky$="GLASS KEY" THEN HTAB 20:? "GLASS KEY"
2078IF q$="I" AND key$="KEY" THEN HTAB 20:? "KEY"
2080IF q$="I" AND je$="JEWELED EGG" THEN HTAB 20:? "JEWELED  EGG"
2081IF q$="I" AND ex$="EXPLOSIVE" THEN HTAB 20:? "EXPLOSIVE"
2082IF q$="I" AND coin$="GOLD COIN" THEN HTAB 20:? "GOLD     COIN"
2083IF q$="I" AND st$="STATUE" THEN HTAB 20:? "STATUE"
2084IF q$="I" THEN HTAB 12:? b$; "S picture"
2085IF q$="I" AND pw$="POWDER" THEN HTAB 20:? "POWDER"
2086IF q$="I" THEN GOSUB 1006:GOTO 2000
2098IF q$="READ NOTE" THEN ? "ITEMS THAT CAN BE FOUND IN     OTHER CHAMBERS ARE:(GLASS KEY)(EXPLOSIVE)(STATUE)":GOSUB     1005:?
2100IF q$="READ NOTE" THEN ? "HOPE YOU DON'T EXPECT TO FIND  MUCH IN THIS ROOM "; a$:GOSUB 1008:GOTO 2000
2475? "you can't":GOSUB 1001:GOTO 2000
2500HOME
2510HTAB 9:INVERSE:? " BACKUP ROOM ":NORMAL
2520IF lazar$<>"DEAD" THEN ?:?:?:? "A beggar sits in one     corner of the room.He holds out a cup"
2530IF lazar$="DEAD" THEN ? "A poor,old,kind,gentle,cripple  beggar lays dead in one corner of the room!"
2540?:? "A steel chest is here"
2545IF chest$<>"UNLOCKED" THEN ?:? "The chest is locked!"
2550IF chest$="UNLOCKED" THEN ? "The chest is open"
2560IF chest$="UNLOCKED" AND st$<>"STATUE" THEN ? "in the    chest is a gold (STATUE) 3 in.tall."
2570IF st$="STATUE" THEN ? "The chest is empty!"
2575?:? "OBVIOUS EXITS ARE:(E)(W)(S)    (SE)&(SW)"
2585?:INPUT "What now "; q$
2590HOME
2600IF q$="USE KEY" AND key$="KEY" THEN ? "YOU UNLOCK THE    CHEST AND OPEN  IT,(key broke)": key$="NO":                  chest$="UNLOCKED"
2610IF q$="USE KEY" AND chest$="UNLOCKED" THEN GOSUB         1006:GOTO 2000
2620IF q$="TAKE STATUE" AND st$<>"STATUE" THEN ? CHR$(7):?   "TAKEN": st$="STATUE":GOSUB 1002:GOTO 2000
2630IF q$="KILL BEGGAR" THEN ? "KILL BEGGAR WITH             (?????)":GOSUB 1004:GOTO 2000
2640IF q$="KILL BEGGAR WITH KNIFE" AND knife$="KNIFE" THEN ? "DONE": lazar$="DEAD":GOSUB 1002:GOTO 2000
2650IF q$="TAKE CUP" AND lazar$<>"DEAD" THEN ? "HE WON'T     GIVE IT TO YOU (he's crying)":GOSUB 1005:GOTO 2000
2655IF q$="E" THEN 3000
2660IF q$="W" THEN 2000
2661IF q$="SE" AND ex$="EXPLOSIVE" THEN  d=0:GOTO 4500
2665IF q$="S" THEN 4000
2666IF q$="SE" AND ky$="GLASS KEY" THEN ? "THE TRAIL TURNS   MANY TIMES??":GOSUB 1008:GOTO 3500
2670IF q$="SE" AND ex$="EXPLOSIVE" THEN 4500
2675IF q$="SW" THEN 3500
2680IF q$="U" THEN ? "UP? WELL UP TO NOW I'VE BEEN           FINE!!":GOSUB 1003:?:?
2690IF q$="TAKE CUP" AND lazar$="DEAD" THEN ? "YOU SHOULD BE ASHAMED OF YOUR- SELF! I CAN NOT LET YOU TAKE   IT!":GOSUB   1005
2695IF q$="TAKE CUP" AND lazar$="DEAD" THEN ?:? "THE BEGGAR  WAS A FRIEND OF     WHIZ,he will be angry!":GOSUB 1010
2700IF q$="PUT COIN IN CUP" AND coin$="COIN" THEN ? "THANK   YOU TRAVELER! YOU ARE KIND.LET ME HELP YOU NOW .":GOSUB 1007
2882IF q$="PUT COIN IN CUP" THEN ? "I GIVE YOU A (POWDER)    THAT WILL HEAL ANY INJURY !! USE IT ONLY WHEN NEEDED!":GOSUB 1008
2884IF q$="PUT COIN IN CUP" THEN  pw$="POWDER":? "USE(TAKE   POWDER) ONLY WHEN     NEEDED!":GOSUB 1006:GOTO 2500
2975? "you can't":GOSUB 1001:GOTO 2000
2980IF q$="PUT COIN IN CUP" AND key$<>"KEY" THEN  coin$="O": key$="KEY":? "HE NOW GIVES YOU A KEY!":GOSUB 1008:GOTO 2500
2998? "ya can't":GOSUB 1000:GOTO 2500
3000HOME
3010HTAB 7:INVERSE:? " GLASSWARE ROOM ":NORMAL
3020?:?:? "A sign hangs high on the north wall."
3025?
3030IF ky$="KEY" THEN ? "A (GLASS KEY) hangs where the  sign once was.":?
3035? "A heavy glass bench is by the  north wall,a heavy     glass table is against the west wall."
3040?:? "OBVIOUS EXITS ARE:(W)&(S)"
3050?:?:INPUT "WHAT NOW? "; q$
3055HOME
3060IF q$="GET ON BENCH" OR q$="STAND ON BENCH" THEN         tb$="ON":? "OK NOW WHAT?":GOSUB 1003:GOTO 3000
3070IF q$="CLIMB ON BENCH" OR q$="JUMP ON BENCH" THEN        tb$="ON":? "YOU ARE ON THE BENCH":GOSUB 1004:GOTO 3000
3075IF q$="W" AND tb$<>"ON" THEN 2500
3080IF q$="S" AND tb$<>"ON" THEN  q$="OK"
3085IF q$="OK" AND ex$="EXPLOSIVE" THEN 4500
3086IF q$="OK" AND ex$<>"EXPLOSIVE" THEN 3500
3090IF q$="D" THEN  tb$="DOWN"
3092IF q$="D" THEN ? "YOU ARE DOWN NOW!":GOSUB 1003:GOTO     3000
3095IF ky$="GLASS KEY" AND tb$="ON" THEN ?:? "TO GET DOWN    USE:(D)":?:GOSUB 1005:?
3100IF q$="TAKE SIGN" THEN ? "GOOD GRIEF! MUST YOU TAKE      EVERYTHING YOU SEE! WELL YOU CAN'T,SO THERE":GOSUB 1008:GOTO 3000
3110IF q$="MOVE SIGN" AND tb$<>"ON" THEN ? "IT'S TOO HIGH ON THE WALL "; a$:GOSUB 1004:GOTO 3000
3200IF q$="MOVE SIGN" AND tb$="ON" THEN ? "MOVED":           ky$="KEY":GOSUB 1002:GOTO 3000
3210IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
3215IF q$="I" AND knife$="KNIFE" THEN ? "KNIFE"
3220IF q$="I" AND dia$="DIAMOND" THEN ? "DIAMOND"
3225IF q$="I" AND flower$="FLOWER" THEN ? "FLOWER"
3230IF q$="I" AND note$="NOTE" THEN ? "NOTE (messages        change)"
3235IF q$="I" AND key$="KEY" THEN ? "KEY"
3240IF q$="I" AND je$="JEWELED EGG" THEN ? "JEWELED EGG"
3245IF q$="I" AND coin$="COIN" THEN ? "COIN"
3250IF q$="I" AND st$="STATUE" THEN ? "STATUE"
3255IF q$="I" AND pw$="POWDER" THEN ? "POWDER (for wounds)"
3260IF q$="I" AND ky$="GLASS KEY" THEN ? "GLASS KEY"
3261IF q$="I" AND ex$="EXPLOSIVE" THEN ? "EXPLOSIVE(with     timer knob)":GOSUB 1001
3264IF q$="I" THEN GOSUB 1008:GOTO 3000
3265IF q$="TAKE GLASS KEY" AND ky$="KEY" THEN ? CHR$(7):?    "TAKEN": ky$="GLASS KEY":GOSUB 1002:GOTO 3000
3275IF q$="READ SIGN" THEN ? ")( = ~~<>< GLASS WORKS:since   500 A.D.":GOSUB 1005:GOTO 3000
3280IF q$="READ NOTE" THEN ? "HI THERE "; a$; ". I HOPE YOU  DON'T TRY TO TAKE THE FURNITURE":GOSUB 1005:GOTO 3000
3290IF q$="TAKE THE FURNITURE" THEN ? "I SAID (DON'T) DO     THAT "; a$:GOSUB 1004:GOTO 3000
3300IF q$="MOVE TABLE" OR q$="MOVE GLASS TABLE" THEN ? "NICE TRY ! But it's to heavy   for someone like you.":GOSUB 1007
3475? "you can't do that or you use   wrong words!":GOSUB    1003:GOTO 3000
3499? "nope,you can't":GOSUB 1003:GOTO 3000
3500HOME
3510HTAB 8:INVERSE:? " VISITOR ROOM ":NORMAL
3515?:?:? "THIS WAS ONCE A SECRET CHANBER USED BY ALIENS     FROM ANOTHER    WORLD!THEY LEFT IN 200 B.C.."
3520?:? "WHEN THE LEFT THEY TOOK ALL    EQUIPMENT THAT WAS   OF VALUE TO THEM! A FEW ALIENS DECIDED NOT TO LEAVE."
3525?:? "THOSE THAT STAYED TRANSFORMED  THEMSELVES INTO THE  FORM OF    MEN! THESE WERE TO BE KNOWN AS WIZARDS !"
3530?:? "ALL HAD POWERS THAT AMAZED     THE PEOPLE. SOME     WERE VERY     CRUEL AND EVIL,OTHERS WERE NOT "
3535 gc$="LOCKED"
3545HTAB 10:VTAB 23:INVERSE:? "<space-bar>":NORMAL:GET       t$:HOME
3550HOME
3560HTAB 7:INVERSE:? " VISITOR ROOM ":NORMAL
3570?:?:? " A large glass case is in the  center of the      room. The glass  is darkly tinted,you can't see inside!"
3575?
3580IF gc$="LOCKED" THEN ? " The (case) is locked."
3585IF gc$="UNLOCKED" THEN ? " The (case is now unlocked."
3590IF gc$="OPEN" THEN ? " The (case) is now open."
3595IF gc$="CLOSED" THEN ? " The (case) is closed and        locked.A key is broken off in it."
3600IF gc$="OPEN" AND ex$<>"EXPLOSIVE" THEN ? "In the (case) is an explosive. A knob on it is the timer."
3610?:? "OBVIOUS EXITS ARE:(N)(S)(E)"
3615?:INPUT "what will you do now? "; q$
3620HOME
3630IF q$="N" THEN 2000
3635IF q$="S" THEN 5000
3640IF q$="E" THEN 4000
3650IF q$="I" THEN ? "SORRY BUT NOT IN THIS ROOM!":GOSUB     1002:GOTO 3550
3660IF q$="OPEN CASE" AND gc$="LOCKED" THEN ? "CAN'T, it's   locked ":GOSUB 1002:GOTO 3550
3665IF q$="OPEN CASE" AND gc$="UNLOCKED" THEN ? "THE CASE IS OPEN": gc$="OPEN":GOSUB 1003:GOTO 3550
3670IF q$="USE GLASS KEY" AND ky$="GLASS KEY" THEN ?         "UNLOCKED!BUT KEY BROKE!": gc$="UNLOCKED": ky$="  ":GOSUB    1004:GOTO 3550
3675IF q$="READ MESSAGE" THEN ? "READ NOTE:IF YOU HAVE       IT!":GOSUB 1004:GOTO 3550
3680IF q$="READ NOTE" AND note$="NOTE" THEN ? "A (GLASS KEY) IS NEEDED HERE!":GOSUB 1004:GOTO 3550
3685IF q$="CLIMB ON CASE" OR q$="GET ON CASE" THEN ? "IT'S   TO TALL ,SHORTY!":GOSUB 1004:GOTO 3550
3690IF q$="UNLOCK CASE" THEN ? "TRY USING PROPER KEY!":?
3695IF q$="USE KEY" AND key$="KEY" THEN ? "THAT IS NOT THE   CORRECT KEY,   IT WON'T FIT!":GOSUB 1007:GOTO 3550
3700IF q$="BREAK CASE WITH KNIFE" AND knife$="KNIFE" THEN ?  "YOU TRY BUT THE GLASS IS JUST  TO TOUGH!":GOSUB 1005:GOTO   3550
3710IF q$="BREAK CASE WITH DIAMOND" AND dia$="DIAMOND" THEN  ? dia$; " ? VERY NICE TRY "; a$:GOSUB 1008:GOTO 3550
3720IF q$="TAKE EXPLOSIVE" AND gc$="OPEN" THEN  c=1:GOTO     3980
3730IF c=1 AND ex$="EXPLOSIVE" THEN ? "A WIZARD HAS JUST     APPEARED!":GOSUB 1007:?:? "he speaks to you saying;"
3740IF c=1 AND ex$="EXPLOSIVE" THEN ?:? b$; "- sent me to    tell you how   to use the (EXPLOSIVE) write   it down!"
3750IF c=1 AND ex$="EXPLOSIVE" THEN ?:? "USE THIS ONLY WHEN  AND (IF) IT IS NEEDED! I WILL TELL YOU     (WHEN)!":?
3755IF c=1 AND ex$="EXPLOSIVE" THEN ? "<TO USE IT TAKES 3    STEPS>(TURN KNOB),(DROP EXPLOSIVE),(RUN)": c=5
3760IF c=5 AND ex$="EXPLOSIVE" THEN VTAB 23:HTAB             10:INVERSE:? "<space-bar>":NORMAL:GET t$: c=7
3975? "naw,you can't":GOSUB 1001:GOTO 3550
3980IF q$="TAKE EXPLOSIVE" AND ex$<>"EXPLOSIVE" THEN         ex$="EXPLOSIVE":? CHR$(7):? "TAKEN": c=1:GOSUB 1002:GOTO     3550
3998? "NOPE!YOU CAN'T":GOSUB 1001:GOTO 3550
4000HOME
4010 b=15
4040 o=12
4050HTAB 10:INVERSE:? " TRAP ROOM ":NORMAL
4060?:?:? "  This room is very small,it's about 6 ft. wide   and 12 ft. in length."
4065?:? "  There are many small round   holes in the two     longer walls! In each hole is the tip of a   spike."
4070?:? "  There is a control (panel)   here with 4 (knobs)  mounted on it. The knobs are:(white)(red) (black)(orange)"
4075?:? "(turn)one of them,if you dare!"
4080?
4085IF bl$="ON" THEN ? "THE CIELING IS SLOWLY MOVING   DOWN  TOWARD YOU!": b=b-1
4090IF og$="ON" THEN ? "THE TWO END WALLS ARE NOW            SLOWLY MOVING IN!": o=o-1
4100IF rd$="ON" AND wh$="ON" THEN ?:? "EXITS NOW             ARE:(N)(S)(E)(W)": cl$="OK"
4110IF rd$="OFF" OR wh$="OFF" THEN  cl$="NO GO"
4150?:INPUT "what now? "; q$
4160HOME
4170IF q$="N" AND cl$="OK" THEN 2500
4175IF q$="S" AND cl$="OK" THEN 5500
4180IF q$="E" AND cl$="OK" THEN  q$="OK"
4181IF q$="OK" AND ex$="EXPLOSIVE" THEN 4500
4182IF q$="OK" AND ky$="GLASS KEY" THEN 3500
4190IF q$="W" AND cl$="OK" THEN 3500
4195IF q$="TURN WHITE KNOB" AND wh$<>"ON" THEN  wh$="ON":?   "WHITE=ON":GOSUB 1003:GOTO 4050
4200IF q$="TURN WHITE KNOB" AND wh$="ON" THEN  wh$="OFF":?   "WHITE=OFF":GOSUB 1003:GOTO 4050
4202IF bl$="ON" THEN ?:? "THE CEILING IS MOVING DOWN AND IS  "; b; " FEET FROM THE FLOOR!":GOSUB 1005:?:?
4204IF og$="ON" THEN ?:? "THE TWO END WALLS ARE MOVING       INWARD,THEY ARE NOW "; o; " FT.  APART!":GOSUB 1005:?:?
4205IF bl$="ON" AND og$="ON" THEN ?:? "CLICK ! THE SPEARS IN THE WALL ARE SET TO GO!":GOSUB 1005:?
4210IF q$="TURN ORANGE KNOB" AND og$<>"ON" THEN  og$="ON":?  "ORANGE=ON":GOSUB 1003:GOTO 4050
4215IF q$="TURN ORANGE KNOB" AND og$="ON" THEN  og$="OFF":?  "ORANGE=OFF":GOSUB 1003:GOTO 4050
4220IF q$="TURN BLACK KNOB" AND bl$<>"ON" THEN  bl$="ON":?   "BLACK=ON":GOSUB 1003:GOTO 4050
4225IF q$="TURN BLACK KNOB" AND bl$="ON" THEN  bl$="OFF":?   "BLACK=OFF":GOSUB 1003:GOTO 4050
4230IF q$="TURN RED KNOB" AND rd$<>"ON" THEN  rd$="ON":?     "RED=ON":GOSUB 1002:GOTO 4050
4235IF q$="TURN RED KNOB" AND rd$="ON" THEN  rd$="OFF":?     "RED=OFF":GOSUB 1002:GOTO 4050
4240IF o<4 OR b<5 THEN INVERSE:? "SPEARS HAVE BEEN RELEASED  FROM THE WALL,ENDING YOUR TRAVEL!!":NORMAL:END:END
4250IF LEFT$(q$, 5)="BREAK" THEN ? "I WOULD'NT TRY TO BREAK  THAT   IF I WERE YOU "; a$:?
4260IF LEFT$(q$, 4)="PULL" THEN ? "THERE IS NOTHING IN THIS  ROOM  THAT YOU CAN (PULL)!":GOSUB 1005:?:?
4270IF LEFT$(q$, 3)="ASK" THEN ? "ASK WHO? THERE IS NOBODY   HERE!":GOSUB 1004:?:?
4280IF q$="READ NOTE" AND note$="NOTE" THEN VTAB 12:? "I     LIKE RED AND WHITE BUT OFF   WITH ORANGE AND BLACK":GOSUB    1008:?
4475? "you can't do that":GOSUB 1001:GOTO 4050
4499 ex$="EXPLOSIVE"
4500HOME
4510HTAB 9:INVERSE:? " DRAGON ROOM ":NORMAL
4512?
4515? "inventory ?"
4520?:?:? " You are in a large room with  many large stone   pillars that  support the ceiling!"
4524?
4525IF ex$="NO" THEN ? "THERE IS A DEAD DRAGON IN HERE"
4530?:? "There is a sign on the wall"
4540?:IF et$<>"N" THEN ? "THERE SEEMS TO BE NO EXITS"
4548?
4550IF et$="N" THEN ? "ONE EXIT NOW IS (N)"
4555?:?:INPUT "WHAT NOW? "; q$
4560HOME
4575IF q$="N" AND et$="N" THEN 3000
4590IF q$="READ SIGN" THEN VTAB 12:FLASH:? "     BEWARE THE  DRAGON       ":NORMAL:GOSUB 1004:GOTO 4500
4600IF ex$="EXPLOSIVE" THEN  d=d+2
4610IF d=2 THEN ? "A dragon is sleeping by the    south      wall,caution!!":GOSUB 1005:?:?
4620IF d=2 THEN ? "A WIZARD HAS APPEARED,AND HE   SAYS: If   the dragon wakes then you must use the explosive!":GOSUB     1010
4625IF d=4 THEN ?:? "THE WIZARD SAYS: use the explo-sive in  the way I TOLD you!":GOSUB 1007:?
4630IF d=4 THEN ? "The dragon hears you and wakes. He lets   out a loud hiss!":GOSUB 1004:?:?
4640IF d>6 AND ex$="EXPLOSIVE" THEN ? "THE DRAGON IS COMING  TOWARD YOU SLOWLY!":GOSUB 1005:?:?
4660IF q$="TURN KNOB" AND ex$="EXPLOSIVE" THEN  t$="SET":?   "TIMER NOW SET":GOSUB 1005:GOTO 4500
4670IF q$="DROP EXPLOSIVE" AND t$="SET" THEN  t$="DROPED":?  "TIMER SET AND DEVICE DROPED!":GOSUB 1007:GOTO 4500
4680IF q$="RUN" AND t$="DROPED" THEN ? "YOU NOW RUN! SOON    THE EXPLOSIVE DETONATES!":GOSUB 1008: ex$="USED"
4690IF ex$="USED" THEN ?:FOR t=1 TO 100:FLASH:? "            ":NEXT t:NORMAL:GOSUB 1005:HOME
4700IF ex$="USED" THEN ? "THE DRAGON IS DEAD AND NOW YOU SEE AN EXIT!": et$="N":GOSUB 1008: ex$="NO":GOTO 4500
4720IF q$="PUSH SIGN" AND ex$<>"EXPLOSIVE" THEN ? "PUSHED    !": et$="N":GOSUB 1001:GOTO 4500
4730IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
4740IF q$="I" THEN ?
4750IF knife$<>"KNIFE" THEN  knife$=""
4752IF dia$<>"DIAMOND" THEN  dia$=""
4754IF note$<>"NOTE" THEN  note$=""
4756IF key$<>"KEY" THEN  key$=""
4758IF je$<>"JEWELED EGG" THEN  je$=""
4760IF coin$<>"GOLD COIN" THEN  coin$=""
4762IF st$<>"STATUE" THEN  st$=""
4764IF pw$<>"POWDER" THEN  pw$=""
4766IF ky$<>"GLASS KEY" THEN  ky$=""
4768IF ex$<>"EXPLOSIVE" THEN  ex$=""
4770IF q$="I" THEN ? knife$, dia$, note$, key$, je$, coin$,  st$, pw$, ky$, ex$
4780IF q$="I" THEN GOSUB 1010:GOTO 4500
4790IF q$="READ NOTE" AND note$="NOTE" THEN ?:? "EXPLOSIVE   MAY BE NEEDED HERE!":GOSUB 1004:GOTO 4500
4975?:?:? "you can't":GOSUB 1000:GOTO 4500
5000HOME
5010HTAB 8:INVERSE:? " TRANSPORT ROOM ":NORMAL
5030?:? "The only way out is to use the transporter. The     transporter   will move you to a different   room."
5040?:? "The only problem is that if    you don't know the   color code  then you don't know where each color leads."
5050?:? "There is a control box here    with seven buttons   on it.Each  will transport you to a differ-ent room."
5060?:? "The buttons are (RED)(BLUE)                         (WHITE)(PURPLE)(GREEN)(YELLOW) (SILVER) ! PUSH ONE OF        THEM!!!"
5070?:INPUT "what now? "; q$
5075HOME
5100IF q$="PUSH RED BUTTON" THEN 2000
5110IF q$="PUSH ALL BUTTONS" THEN FLASH:FOR t=1 TO 100:? "   OVERLOAD  ":NEXT:NORMAL:? "  THE END::THE END":END:END
5120IF q$="PUSH BLUE BUTTON" THEN 2500
5130IF q$="PUSH WHITE BUTTON" THEN 3000
5135IF q$="PUSH PURPLE BUTTON" THEN 3500
5140IF q$="PUSH GREEN BUTTON" THEN 4000
5145IF q$="PUSH YELLOW BUTTON" THEN 4500
5150IF q$="PUSH SILVER BUTTON" THEN 5000
5475? "you can't":GOSUB 1001:GOTO 5000
5500HOME
5510HTAB 10:INVERSE:? " TIME ROOM ":NORMAL
5520?:? "This is an open room,with no   ceiling. The wall    are 90 ft.   tall and very smooth."
5530?:? " OBVIOUS EXIT IS: (E) "
5540?:? "There is a <time machine> in   this room.When you   are <ready> and only when you are <ready>  you may..."
5550?:? "..enter the machine,at that    time use(ENTER).But  first you  should set the controls on a   remote panel"
5560?:? "To set controls enter .........(SET CONTROLS)"
5590?:INPUT "what now? "; q$
5600HOME
5610IF q$="SET CONTROLS" THEN 5800
5620IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL:?
5625IF q$="I" THEN ? knife$, dia$, note$, key$, je$, coin$,  st$, pw$, ky$, ex$
5635IF q$="I" THEN GOSUB 1010:GOTO 5500
5636IF q$="E" AND ex$="EXPLOSIVE" THEN  d=0:? "NOW THIS PATH CHANGES strangly":GOSUB 1003:GOTO 4500
5637IF q$="E" AND ky$="GLASS KEY" THEN 3500
5640IF q$="E" THEN ? "TWISTING PATHWAY!":GOSUB 1003:GOTO     3000
5650IF LEFT$(q$, 5)="BREAK" THEN ? "DON'T BE FOOLISH ";      a$:GOSUB 1003:GOTO 5500
5675IF q$="ENTER" AND tc$="SET" THEN ? "OKEE DOOKEE !":GOSUB 1003:GOTO 6500
5790? "nope,you can't":GOSUB 1001:GOTO 5500
5800HOME
5805?
5810? "WELL HERE WE ARE AT THE PANEL, SO LET'S SET THE       CONTROLS."
5815?:? "BOY THESE ARE SURE STRANGE     LOOKING CONTROLS,I   WONDER WHAT THEY CONTROL!"
5817?:INPUT "#1 SET THIS CONTROL WITH ANY   NUMBER FROM 200  to 1000. "; s
5820VTAB 23:HTAB 4:? s
5830IF s>255 THEN  s=255
5835VTAB 12
5840?:INPUT "#2 ENTER:(NEAR) OR (FAR) TO    SET THIS ONE! "; mm$
5850VTAB 23:HTAB 12:? mm$
5860VTAB 12:? "last but not least pull (BLUE  LEVER) OR (RED LEVER)"
5870INPUT "ENTER:(BLUE) OR (RED) "; u$
5880VTAB 23:HTAB 24:? u$
5885VTAB 14:?:?
5886? "CONTROLS NOW SET !":?
5887 tc$="SET"
5890NORMAL:SPEED =255
5900? "thank you "; a$:GOSUB 1005:GOTO 5500
6000GOTO 2000
6500HOME:REM       ***walk to ship**
6510HGR
6520HCOLOR =8
6530HPLOT 50, 65 TO 30, 65 TO 10, 60 TO 10, 45 TO 45, 35 TO  75, 35 TO 110, 45 TO 110, 60 TO 90, 65 TO 70, 65
6550HCOLOR =13
6560HPLOT 70, 65 TO 70, 130:HPLOT 50, 65 TO 50, 130
6570HCOLOR =1
6580HPLOT 1, 130 TO 50, 130
6590HPLOT 70, 130 TO 254, 130
6600HPLOT 1, 155 TO 254, 155
7000SCALE =1
7010ROT =0
7020HCOLOR =10
7030 y=132
7040FOR x=250 TO 60 STEP -8
7050DRAW 4 AT x, y
7055XDRAW 4 AT x, y
7060DRAW 5 AT x, y
7070XDRAW 5 AT x, y
7080NEXT
7085DRAW 4 AT 60, 132:GOSUB 1005
7090 x=60
7100FOR y=132 TO 42 STEP -4
7110XDRAW 4 AT x, y
7120DRAW 4 AT x, y
7125XDRAW 4 AT x, y
7130NEXT
7150DRAW 4 AT 60, 132:GOSUB 1005:XDRAW 4 AT 60, 132
7160DRAW 1 AT 60, 132:GOSUB 1004:XDRAW 1 AT 60, 132
7170DRAW 2 AT 60, 132:GOSUB 1000:XDRAW 2 AT 60, 132
7180DRAW 1 AT 60, 132:GOSUB 1000:XDRAW 1 AT 60, 132
7190DRAW 4 AT 60, 132
7195GOSUB 1004:XDRAW 4 AT 60, 132
7200ROT =16
7210DRAW 4 AT 80, 150
7220SPEED =75:? "HEY "; a$; " GET UP OR IT WILL    LEAVE     WITHOUT YOU !!":SPEED =255
7230XDRAW 4 AT 80, 150
7240ROT =32
7250 x=60
7260FOR y=150 TO 60 STEP -2
7270DRAW 4 AT x, y
7280XDRAW 4 AT x, y
7290NEXT
7300DRAW 4 AT x, y
7310HCOLOR =0
7320HPLOT 70, 65 TO 70, 130
7330HPLOT 50, 65 TO 50, 130
7340HCOLOR =8
7350HPLOT 50, 65 TO 70, 65
7352HCOLOR =1:HPLOT 50, 130 TO 70, 130
7360HCOLOR =10
7370SPEED =75:? "GOOD GRIEF "; a$; " GET DOWN        FROM    THERE !":SPEED =255
7380XDRAW 4 AT x, y
7390ROT =48
7395DRAW 4 AT 45, 50:GOSUB 1000
7400XDRAW 4 AT 45, 50
7410ROT =64
7420DRAW 4 AT 45, 43
7500SPEED =70:? "You have done well "; a$; " there is only   one more stop !":SPEED =255
7505INVERSE
7506FOR t=1 TO 55:? CHR$(7):NEXT
7510FOR t=900 TO 1900 STEP 50
7530VTAB 23:HTAB 14:? t:NEXT:NORMAL:GOSUB                    1002:TEXT:HOME:GOTO 8000
8000HOME:REM      **stat input**
8001SPEED =255
8002GOSUB 8500
8005HOME
8010? "OPENING A NEW FILE!:LOOT:stand by!":SPEED =255
8020 d$=CHR$(4)
8030? d$; "OPEN LOOT"
8040? d$; "WRITE LOOT"
8045? a$
8050? b$
8055? knife$
8060? dia$
8070? note$
8080? key$
8090? je$
8095? coin$
8100? st$
8110? pw$
8120? ky$
8130? ex$
8135? CHR$(4)
8140? CHR$(4); "CLOSE LOOT"
8190? "now loading next part!"
8200? d$=CHR$(4)
8210? d$; "RUN 3TRAVELER "
8500IF knife$<>"KNIFE" THEN  knife$="NO"
8510IF dia$<>"DIAMOND" THEN  dia$="NO"
8520IF note$<>"NOTE" THEN  note$="NO"
8530IF key$<>"KEY" THEN  key$="NO"
8540IF je$<>"JEWELED EGG" THEN  je$="NO"
8550IF coin$<>"GOLD COIN" THEN  coin$="NO"
8560IF st$<>"STATUE" THEN  st$="NO"
8570IF pw$<>"POWDER" THEN  pw$="NO"
8580IF ky$<>"GLASS KEY" THEN  ky$="NO"
8590IF ex$<>"EXPLOSIVE" THEN  ex$="NO"
8595RETURN

