2GOSUB 10000
3SPEED =255
4TEXT:HOME:?:INVERSE:INPUT "enter you name please "; a$
5NORMAL:HOME
6? " Do you need game instructions before you start? enter (Y)(N) "
7GET t$
8IF t$="Y" OR t$="y" THEN GOSUB 400
9GOSUB 100
10GOSUB 500
15HOME:SPEED =255
20?:VTAB 13:HTAB 6:FLASH:? " THE TIME TRAVELER "
30FOR t=2000 TO 0 STEP -50:? CHR$(7):VTAB 14:HTAB 14:? t:NEXT:VTAB 14:HTAB 14:? "????":NORMAL
35FOR t=1 TO 3000:NEXT
40 a=1984
50FOR t=1884 TO a STEP 2:? CHR$(7):INVERSE:VTAB 16:HTAB 14:? t:NEXT
51NORMAL
60FOR t=1 TO 4000:NEXT
75GOTO 700
100HOME
110? " would you like a list of most  of the commands used in this   game "; a$
120?:?:INPUT " enter (Y) or (N) "; q$
130IF q$="N" OR q$="n" THEN RETURN
140HOME
150?:INVERSE:? "    TRAVELER COMMAND WORDS    "
160?:NORMAL:PR #1
170? "ASK"
175? "CLOSE"
180? "OPEN"
185? "CLIMB (climb on)"
190? "STAND (stand on)"
195? "PULL"
200? "PUSH"
205? "SHOOT"
210? "DRINK"
220? "TAKE"
225? "READ"
230? "USE"
235? "MOVE"
240? "KILL"
245? "WAVE"
250? "TURN (turn knob)"
255? "DIRECTIONS:N`S`E`W`U`D        and for inventory:I"
258PR #0
260VTAB 23:HTAB 10:INVERSE:? "<space-bar>":NORMAL:GET t$
300RETURN
400HOME
405? " In this game you will travel  into the past and search for   treasures."
410?:? " You start out at the present,  and must find a time travel    machine or device to start     your journey."
415?:? " At times it will be a machine other times it may be a magic  device."
420?:? " Each time you will travel     further into the past. Until   you find a machine or device   to return!"
422VTAB 23:HTAB 10:? "<space-bar>"
423GET t$
424HOME
425?:? " The device you use to travel  will only be good for one trip When you reach a new time you  must.."
427?:?
430? " ...find a new device.Due to   the great wear,only one short  trip is possible with each."
435?:?:? " Have a pleasant journey "; a$
490VTAB 23:HTAB 10:? "<space-bar>":GET t$
491RETURN
499END
500HGR2
510HCOLOR =9
512HPLOT 110, 50 TO 95, 53 TO 90, 53 TO 82, 55 TO 80, 57 TO 80, 63 TO 105, 67 TO 110, 70 TO 110, 72 TO 112, 74
514HPLOT 112, 74 TO 113, 76 TO 117, 76 TO 120, 74 TO 120, 70 TO 125, 67 TO 150, 63 TO 150, 55
516HPLOT 148, 55 TO 145, 53 TO 140, 52 TO 120, 50 TO 121, 48 TO 118, 45 TO 115, 44 TO 112, 45 TO 110, 47 TO 110, 50
518HPLOT 125, 67 TO 127, 70 TO 130, 70 TO 135, 80 TO 130, 80 TO 127, 84 TO 115, 85 TO 115, 95 TO 125, 97
520HPLOT 125, 97 TO 180, 95 TO 185, 90 TO 190, 90 TO 185, 85 TO 177, 84
522HPLOT 167, 83 TO 155, 82 TO 154, 80 TO 150, 80 TO 140, 65
524HPLOT 150, 63 TO 80, 63
526HPLOT 150, 57 TO 80, 57
528HPLOT 163, 90 TO 180, 70 TO 155, 70 TO 153, 67 TO 153, 62 TO 155, 60 TO 210, 60 TO 215, 65 TO 215, 70 TO 180, 70
530HPLOT 190, 70 TO 170, 90 TO 167, 92 TO 163, 90
550HCOLOR =13
552HPLOT 160, 63 TO 205, 63
554HPLOT 160, 67 TO 205, 67
556HPLOT 113, 70 TO 117, 70 TO 117, 73 TO 113, 73 TO 113, 70
558HPLOT 120, 90 TO 125, 90
560HPLOT 130, 90 TO 135, 90
562HPLOT 140, 90 TO 145, 90
564HPLOT 150, 90 TO 155, 90
566HPLOT 113, 50 TO 113, 46 TO 117, 46 TO 117, 50 TO 113, 50
568HPLOT 85, 62 TO 88, 62
570HPLOT 95, 62 TO 98, 62
572HPLOT 105, 62 TO 108, 62
574HPLOT 115, 62 TO 118, 62
576HPLOT 125, 62 TO 128, 62
578HPLOT 135, 62 TO 138, 62
580HPLOT 145, 62 TO 148, 62
600FOR t=1 TO 2
604FOR a=2 TO 4
606HCOLOR =a
608HPLOT 25, 33 TO 30, 35 TO 32, 40 TO 40, 40 TO 40, 42 TO 32, 42 TO 30, 45 TO 25, 47 TO 20, 45 TO 18, 42 TO 10, 42 TO 10, 40
610HPLOT 10, 40 TO 18, 40 TO 20, 35 TO 25, 33
612HPLOT 105, 47 TO 90, 45
614HPLOT 75, 43 TO 42, 42
622HPLOT 110, 80 TO 75, 107
624HPLOT 53, 125 TO 25, 146
630NEXT a
633NEXT t
635FOR t=1 TO 3500:NEXT
650TEXT:HOME:SPEED =255
655? "Sorry, wrong story!"
657?:?:? "Please stand by "; a$
660FOR t=1 TO 5000:NEXT
665RETURN
700HOME:TEXT:HOME
710INVERSE:? "TIME:1984 "
715? "PLACE:LOST ISLAND"
716NORMAL
720?:?:? "This island is unknown by most of the world.A good friend of  yours told you of it."
730?:? " This island is only 20 miles  across.It has a very rough and rocky surface, and has many    underground"
740?:? "..tunnels.You were told of a   crystal sphere that is capable of transporting a person       through time!"
750?:? " The sphere is said to be lost  somewhere on the island"
755VTAB 23:HTAB 10:INVERSE:? "<space-bar>":NORMAL:GET t$
760HOME
770? "     SOUTH END OF ISLAND "
780?:? "   You are at the south end of    the island. "
785?:? " exits are :N and E "
790?:?:INPUT " enter direction or inventory "; q$
791HOME
792IF q$="I" THEN INVERSE:? " YOU ARE CARRING:"
793NORMAL
795?:?
800IF q$="I" AND key$="KEY" THEN ? "KEY"
810IF q$="I" AND fuel$="FUEL" THEN ? "BOTTLE(fuel)"
814IF key$<>"KEY" AND fuel$<>"FUEL" THEN  no$="NOTHING"
815IF q$="I" AND no$="NOTHING" THEN ? "NOTHING AT ALL"
818IF q$="I" THEN GOSUB 1005:GOTO 790
820IF q$="N" THEN 1500
830IF q$="E" THEN 1100
900? "you can't do that ":GOSUB 1002:GOTO 790
999END
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
1010FOR t=1 TO 10000:NEXT:RETURN
1100HOME:REM            **north of start**
1105 c=1
1110INVERSE:HTAB 10:? " ROCK CLIFF ":NORMAL
1115?:?:? " you are near a cliff, which   drops 50 ft.straight down!"
1120?:? "OBJECTS SEEN ARE:"
1125?
1130IF rock$<>"OVER" THEN ? " A large (FLAT STONE) about 3  ft.tall is standing here.an (inscription) on the flat side"
1135IF rock$="OVER" THEN ? " A large flat stone lays flat  against the ground."
1136?
1140IF c=1 THEN ? " A strangely familiar looking  spotted bird flys overhead."
1145?:? "OBVIOUS EXITS ARE:(W) & (N)"
1147?:IF key$="KEY" THEN ? "another exit is to the (E)"
1150?:INPUT " What will you do now? "; q$
1151 c=c+1
1155HOME
1160IF q$="PULL FLAT STONE" AND rock$<>"OVER" THEN ? " YOU PULL THE HEAVY STONE AND  IT FALLS OVER!":GOSUB 1004:GOTO 1110
1161IF q$="PULL FLAT STONE" THEN  rock$="OVER"
1165IF q$="PUSH FLAT STONE" AND rock$<>"OVER" THEN ? "YOU PUSH THE STONE AND IT FALL OVER!": rock$="OVER":GOSUB 1003:GOTO 1110
1170IF q$="I" THEN INVERSE:? "YOU HAVE:":NORMAL
1172IF q$="I" AND key$="KEY" THEN ?:? "          KEY"
1174IF q$="I" AND je$="JEWELED EGG" THEN ?:? "          JEWELED EGG"
1175IF q$="I" THEN GOSUB 1004:GOTO 1110
1177IF q$="E" AND key$="KEY" THEN 1700
1180IF q$="MOVE FLAT STONE" AND rock$<>"OVER" THEN ? "AS YOU TRY TO MOVE IT THE      STONE FALLS OVER!": rock$="OVER"
1181IF q$="MOVE FLAT STONE" AND rock$<>"OVER" THEN GOSUB 1003:GOTO 1110
1185IF q$="READ INSCRIPTION" AND rock$="OVER" THEN ? "YOU CAN'T NOW! IT FELL ON THAT SIDE!":GOSUB 1004:GOTO 1110
1190IF q$="READ INSCRIPTION" AND rock$<>"OVER" THEN ? "HAVE A FUN TRIP "; a$; ". I put this stone here just for you!"
1195IF q$="READ INSCRIPTION" AND rock$<>"OVER" THEN ? " So if you don't return this   will be your memorial ! ha ha ha."
1196IF q$="READ INSCRIPTION" AND rock$<>"OVER" THEN GOSUB 1005:GOTO 1110
1200IF q$="W" THEN 760
1210IF q$="N" THEN 1300
1275? "you can't do that !":GOSUB 1002:GOTO 1110
1300 c=1:REM           **sandy clearing**
1310HOME
1315INVERSE:HTAB 8:? " SANDY CLEARING ":NORMAL
1320?:?:? " A small sign is all there     seems to be here."
1322?:IF sign$="MOVED" AND key$<>"KEY" THEN INVERSE:? " A key lies by the sign "
1323NORMAL
1325?:? "OBVIOUS EXITS ARE:(S)(E)(W)"
1330?:?:INPUT " What will you do now? "; q$
1331HOME
1335IF q$="S" THEN 1105
1340IF q$="E" THEN ? "this trail turns and heads S/W":GOSUB 1006:GOTO 760
1345IF q$="W" THEN 1500
1350IF q$="I" AND key$="KEY" THEN ? "YOU HAVE ONLY A:KEY":GOSUB 1003:GOTO 1310
1352IF q$="I" AND je$="JEWELED EGG" THEN ? " OH YES! ALSO A JEWELED EGG"
1355IF q$="I" THEN GOSUB 1003:GOTO 1310
1360IF q$="READ SIGN" AND sign$="READ" THEN ? "YOU READ IT ALREADY!":GOSUB 1004:GOTO 1310
1362IF q$="READ SIGN" AND sign$<>"READ" THEN ?:INPUT "TIME FOR YOU TO ENTER THE NAME OF YOUR BEST FRIEND "; b$
1364IF q$="READ SIGN" AND sign$<>"READ" THEN ? "THANK YOU!": sign$="READ":GOSUB 1002:GOTO 1310
1366IF q$="MOVE SIGN" AND sign$<>"MOVED" THEN  sign$="MOVED":? "MOVED":GOSUB 1002:GOTO 1310
1368IF q$="TAKE KEY" AND key$<>"KEY" THEN 1480
1475? "You can't do that "; a$:GOSUB 1002:GOTO 1310
1480IF q$="TAKE KEY" AND sign$="MOVED" THEN ? CHR$(7):? "TAKEN": key$="KEY":GOSUB 1002:GOTO 1310
1499? "YOU CAN'T":GOSUB 1002:GOTO 1310
1500 b=1:REM           **LEAD POINT**
1510HOME
1515INVERSE:HTAB 9:? " LEAD POINT ":NORMAL
1520?
1525IF b=7 THEN ? "that old familiar spotted bird flys by overhead!"
1530?
1535IF je$<>"JEWELED EGG" AND lr$<>"MOVED" THEN ? "A heavy lead (DISK) is on the  ground here."
1540IF je$="JEWELED EGG" THEN ? "A lead disk is on the ground."
1545IF je$<>"JEWELED EGG" AND lr$="MOVED" THEN ? "A JEWEL ENCRUSTED (EGG) IS ON  THE GROUND BY A LEAD DISK!"
1550?:? "OBVIOUS EXITS ARE:(E)(S)"
1560?:INPUT " What will you do now? "; q$
1561HOME
1562 b=b+1
1570IF q$="E" THEN 1310
1580IF q$="S" THEN 760
1590IF q$="MOVE DISK" THEN ? "MOVED!": lr$="MOVED":GOSUB 1002:GOTO 1510
1595IF q$="POP" THEN ? "AT YOUR SERVICE!":GOSUB 1002:GOTO 1510
1600IF q$="TAKE EGG" AND lr$="MOVED" THEN 1680
1610IF b=8 THEN ? " THERE GOES THAT BIRD OVERHEAD AGAIN!"
1675?:? "you can't":GOSUB 1002:GOTO 1510
1680IF q$="TAKE EGG" AND je$<>"JEWELED EGG" THEN  je$="JEWELED EGG":? CHR$(7):? "TAKEN":GOSUB 1002:GOTO 1510
1690? "YOU CAN'T":GOSUB 1002:GOTO 1510
1700HOME
1710INVERSE:HTAB 13:? " CAVE ":NORMAL
1715?:?:? " You are in a small cave.There doesn't seem to be anything of much importance here!"
1720?:?:IF sign$<>"PUSHED" THEN ? "A small sign hangs on the wall The only exit is (W)."
1730IF sign$="PUSHED" THEN ? " exits now are (w) and (E)"
1735?:?:INPUT "what now? "; q$
1740HOME
1745IF q$="PUSH SIGN" THEN ? "PUSHED!": sign$="PUSHED":GOSUB 1002:GOTO 1700
1750IF q$="READ SIGN" THEN ? "TIMEX: chosen #1 by 4 out of 5 time travelers!":GOSUB 1005:GOTO 1700
1755IF q$="W" THEN 1110
1760IF q$="E" AND sign$="PUSHED" THEN 2000
1770IF q$="MOVE SIGN" THEN ? "YOU MOVE THE SIGN OVER TO ONE SIDE AND IT REVEALS NOTHING!":GOSUB 1008:GOTO 1700
1775IF q$="TAKE SIGN" THEN ? "NO!NO!NO! IT'S THE PROPERTY OF TIMEX !":GOSUB 1004:GOTO 1700
1780IF q$="PULL SIGN" THEN ? "THAT HAS NO EFFECT!":GOSUB 1003:GOTO 1700
1790IF q$="I" AND key$="KEY" THEN ? "YOU ARE CARRYING:KEY":GOSUB 1002:GOTO 1700
1900? " you can't do that":GOSUB 1002:GOTO 1700
2000HOME
2005IF table$="MOVE" AND coin$<>"GOLD COIN" THEN INVERSE:? "A gold coin is on the floor":NORMAL
2010?:? " You are in a round room.There is a strange looking stone     table here."
2020?:? " On the table is a crystal     sphere."
2025?:IF key$="KEY" THEN ? "In the sphere is a slot that   resembles a cars ignition,with no key in it."
2035?:IF key$="IN" THEN ? "in the sphere is a slot with a key in it."
2040?:? "A small sign is fastened to    the table."
2045?:? "the only exit is (W)"
2050?:INPUT "what now "; q$
2051HOME
2055IF q$="READ SIGN" THEN ? "HARD TO READ,IT IS VERY DUSTY!":GOSUB 1004:? "CLEAN SIGN":GOSUB 1002:GOTO 2000
2056IF q$="CLEAN SIGN" THEN ? "THANK YOU:THE SIGN READS:      INSERT KEY IN SLOT:::::::::::::TURN KEY":GOSUB 1005:GOTO 2000
2058IF q$="INSERT KEY IN SLOT" OR q$="PUT KEY IN SLOT" THEN ? "OK, BUT DON'T (TURN KEY)UNTIL READY":GOSUB 1010:?:?
2060IF q$="INSERT KEY IN SLOT" AND key$="KEY" THEN ? "INSERTED": key$="IN":GOSUB 1002:GOTO 2000
2062IF q$="PUT KEY IN SLOT" AND key$="KEY" THEN  key$="IN":? "KEY IS IN":GOSUB 1002:GOTO 2000
2064IF q$="I" THEN INVERSE:? " YOU ARE CARRYING:":NORMAL
2065IF q$="I" AND je$="JEWELED EGG" THEN ?:? "JEWELED EGG"
2066IF q$="I" AND coin$="GOLD COIN" THEN ? "GOLD COIN"
2067IF q$="I" AND key$="KEY" THEN ? "KEY"
2068IF q$="I" THEN GOSUB 1003:GOTO 2000
2070IF q$="W" THEN 1110
2075IF q$="TAKE KEY" AND key$="IN" THEN ? " NICE TRY":GOSUB 1002:GOTO 2000
2080IF q$="TURN KEY" AND key$="IN" THEN ? "YOU TURN THE KEY!":GOSUB 1003:GOTO 3000
2100IF q$="MOVE TABLE" THEN ? "WHAT? WELL OK, I'LL TRY!":GOSUB 1008:? "GRUNT ! GRUNT !":GOSUB 1005:?
2105IF q$="MOVE TABLE" THEN ? "GOOD GRIEF "; a$:?:GOSUB 1002:? " I DON'T THINK I CAN ":GOSUB 1003
2110IF q$="MOVE TABLE" THEN ? " HEY ! I CAN,IT'S MOVING":GOSUB 1004:? "I THINK I CAN! I THINK I CAN !":GOSUB 1005
2115IF q$="MOVE TABLE" THEN ? "HOT DOG YOU DID IT ":GOSUB 1004:? "NOW YOU SEE A MILLION DOLLARS IN GOLD":GOSUB 1008
2117IF q$="MOVE TABLE" THEN  table$="MOVE"
2120IF q$="MOVE TABLE" THEN ? "NO,sorry I was wrong it is     only a small gold (coin)":GOSUB 1008:GOTO 2000
2150IF q$="TAKE COIN" AND table$="MOVE" THEN ? CHR$(7):? "TAKEN": coin$="GOLD COIN":GOSUB 1002:GOTO 2000
2500? "YOU CAN'T DO THAT":GOSUB 1002:GOTO 2000
3000HOME:REM           ***start sphere warp***
3005GOSUB 5000
3010VTAB 21:HTAB 14:INVERSE:? "1984":NORMAL
3015GOSUB 1004
3020FOR t=1984 TO 1894 STEP -2
3030? CHR$(7):INVERSE:VTAB 21:HTAB 14:? t:NEXT:NORMAL:GOTO 5170
5000HGR
5010HCOLOR =13
5020FOR i=1/30 TO 8*ATN(1) STEP 1/60
5025GOTO 5075
5075HPLOT SIN(i)*60+130, COS(i)*70+80
5100NEXT i
5102HCOLOR =10:FOR s=4 TO 1 STEP -1:SCALE =s:DRAW 1 AT 130, 50:XDRAW 1 AT 130, 50:NEXT s
5105SCALE =1
5110FOR r=192 TO 0 STEP -8
5120ROT =r
5130HCOLOR =10
5140DRAW 1 AT 130, 70
5150XDRAW 1 AT 130, 70
5160NEXT r
5162RETURN
5170DRAW 1 AT 130, 70
5175GOSUB 1002:XDRAW 1 AT 130, 70
5180DRAW 2 AT 130, 70:GOSUB 1002:XDRAW 2 AT 130, 70
5185DRAW 4 AT 130, 70
5190GOSUB 1003:XDRAW 4 AT 130, 70
5191 x=70:FOR w=130 TO 80 STEP -2
5192DRAW 5 AT w, x:XDRAW 5 AT w, x:DRAW 4 AT w, x:XDRAW 4 AT w, x
5193NEXT:DRAW 5 AT 80, 70:GOSUB 1003:XDRAW 5 AT 80, 70:FOR w=80 TO 130 STEP 2
5194DRAW 5 AT w, x
5195XDRAW 5 AT w, x:DRAW 4 AT w, x:XDRAW 4 AT w, x:NEXT
5196DRAW 4 AT 130, 70
5200 x=70
5202HCOLOR =9
5203HPLOT 1, 95 TO 78, 95:HPLOT 1, 94 TO 78, 94
5204GOSUB 1002
5205HCOLOR =10
5206XDRAW 4 AT 130, 70
5210FOR w=130 TO 8 STEP -10
5220DRAW 5 AT w, x
5225XDRAW 5 AT w, x
5230DRAW 4 AT w, x
5235XDRAW 4 AT w, x
5240NEXT
5250HCOLOR =0
5251HPLOT 1, 95 TO 78, 95:HPLOT 1, 94 TO 78, 94
5255FOR i=1/30 TO 8*ATN(1) STEP 1/60
5260HPLOT SIN(i)*60+130, COS(i)*70+80
5265NEXT i
5300TEXT:HOME
5310? " You are now underground,in a  very large cavern."
5320GOSUB 1008
5325 c=0
5330HOME
5340INVERSE:HTAB 9:? " DRAFTY ROOM ":NORMAL
5400?:? " You are in a large room with  a high dome ceiling.The walls  and floor are of very smooth   stone."
5410?:IF pl$<>"BROKE" THEN ? " Near the center of the room   stands a stone planter,filled  with sand."
5415?:IF flower$<>"FLOWER" AND knife$<>"KNIFE" THEN ? " A beautiful and delicate      flower is in the planter."
5420IF flower$="FLOWER" AND sand$<>"MOVED" THEN INVERSE:? " A DARK PASSAGE NOW EXISTS (W)":NORMAL: ex$="W"
5425IF flower$="FLOWER" AND sand$="MOVED" THEN ? " A knife with a 7 inch silver  blade & emerald handle lies in the sand!"
5430?:IF knife$="KNIFE" THEN INVERSE:? "A passage is now visible (N)":NORMAL: ex$="N"
5433 c=c+1
5435IF c<2 THEN ? " A sign hangs high on the wall"
5440IF pl$="BROKE" AND dia$<>"DIAMOND" THEN ? " By the broken planter is a    diamond the size of an egg.": sand$="MOVED"
5450?:INPUT " What now? "; q$
5455HOME
5457IF knife$="KNIFE" THEN  sand$="MOVE"
5460IF q$="DOWN" OR q$="D" THEN ? "DOoownn? oh! Are you feeling   low? Too bad!":GOSUB 1004:GOTO 5330
5465IF q$="TAKE DIAMOND" AND pl$="BROKE" THEN ? CHR$(7):? " TAKEN": pl$="NO": dia$="DIAMOND":GOSUB 1002:GOTO 5330
5470IF q$="READ SIGN" THEN FLASH:VTAB 12:HTAB 8:? " OF THE TIMES ":NORMAL:GOSUB 1005:GOTO 5330
5475IF q$="PULL FLOWER" THEN ? "TRY:(TAKE FLOWER)":GOSUB 1002:GOTO 5330
5480IF q$="TAKE FLOWER" AND flower$<>"FLOWER" THEN ? CHR$(7):? "   TAKEN": flower$="FLOWER":GOSUB 1002:GOTO 5330
5485IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
5490IF q$="I" AND knife$="KNIFE" THEN ?:HTAB 20:? "KNIFE"
5495IF q$="I" AND flower$="FLOWER" THEN ?:HTAB 20:? "FLOWER"
5500IF q$="I" AND dia$="DIAMOND" THEN ?:HTAB 20:? "DIAMOND"
5502IF q$="I" AND note$="NOTE" THEN HTAB 20:? "NOTE"
5504IF q$="I" AND je$="JEWELED EGG" THEN HTAB 20:? "JEWELED EGG"
5506IF q$="I" AND coin$="GOLD COIN" THEN HTAB 20:? "GOLD COIN"
5510IF q$="I" THEN GOSUB 1005:GOTO 5330
5520IF q$="PUSH PLANTER" AND knife$<>"KNIFE" THEN ? "YOU CAN PUSH IT, BUT NOT RIGHT NOW!":GOSUB 1005:GOTO 5330
5525IF q$="PUSH PLANTER" AND knife$="KNIFE" THEN ? " PUSHED,it fell over AND BROKE!": pl$="BROKE":GOSUB 1005:GOTO 5330
5530IF q$="MOVE PLANTER" AND pl$<>"BROKE" THEN ? "TRY:(PUSH PLANTER) !":GOSUB 1003:GOTO 5330
5540IF q$="TAKE PLANTER" THEN ? "TAKE PLANTER? HA! NOT BLOODY   LIKELY "; a$
5545IF q$="W" AND ex$="W" THEN 6000
5550IF q$="N" AND ex$="N" THEN 6500
5555IF q$="MOVE SAND" AND flower$<>"FLOWER" THEN ? "NO! If you do that you might   kill the flower":GOSUB 1005:GOTO 5330
5560IF q$="MOVE SAND" AND flower$="FLOWER" THEN ? " MOVED": sand$="MOVED": ex$="NO":GOSUB 1002:GOTO 5330
5565IF q$="TAKE KNIFE" AND sand$="MOVED" THEN ? CHR$(7):? " TAKEN": knife$="KNIFE": sand$="NO":GOSUB 1002:GOTO 5330
5570IF q$="TAKE SAND" AND knife$<>"KNIFE" THEN ? " as you take it,the sand slips through your fingers:but you   could."
5575IF q$="TAKE SAND" AND knife$<>"KNIFE" THEN ? "    see that something was un- der the sand!":GOSUB 1008:GOTO 5330
5580IF q$="ASK" OR q$="ASK POP" THEN ? " AT YOUR SERVICE "; a$; " all I can say is look around well!":GOSUB 1005:GOTO 5330
5800?:? "you can't":GOSUB 1002:GOTO 5330
6000 b=0
6005HOME
6010HOME
6020HTAB 10:INVERSE:? " DARK HALL ":NORMAL
6030?:?:? "You are in a very dark hallway You can see nothing at all in  this place!"
6035?:? " You can however hear an un-   pleasant growl!"
6040?:IF b>6 THEN ? " A large beast is coming near  to you,and sounds very angry!"
6045?:IF b>7 THEN ? " The beast will soon destroy   you!"
6050?:? "light can be seen to the (E)"
6060?:INPUT " What in the world will you do  now? "; q$
6070HOME
6080 b=b+1
6090IF b>2 AND b<5 THEN FLASH:? "CAUTION: CAUTION: DANGER:":NORMAL:GOSUB 1003:?:?:?
6095IF q$="E" THEN  flower$="FLOWER":GOTO 5330
6100IF flower$="FLOWER" THEN ?:? " THE FLOWER IS DYING! IT NEEDS WATER!":GOSUB 1002:?:?
6110IF q$="I" THEN ? "YOU NUTS? IT'S TOO DARK HERE !":GOSUB 1004:GOTO 6005
6120IF b>8 THEN FLASH:? " YOU HAVE BEEN EATEN BY A BEAR":NORMAL:? " TOO BAD "; a$:END:END
6130IF b>7 THEN ? " GET OUT OF HERE WHILE YOU CAN  TURKEY !!!!":?
6200? "NOPE,YA CAN'T":GOSUB 1002:GOTO 6005
6500HOME
6510INVERSE:HTAB 10:? " OPEN ROOM ":NORMAL
6520?:? " You are in a small room with  no ceiling! The walls are very roughly formed and appear to   be climbable!"
6530?:?:? " There is a (MESSAGE) is on    the wall !!"
6540?:? "OBVIOUS EXITS ARE:(S)&(U)"
6550?:?:INPUT " What now? "; q$
6560HOME
6570IF q$="U" THEN 7000
6580IF q$="S" THEN 5330
6590IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
6600IF q$="I" AND knife$="KNIFE" THEN ? "          KNIFE"
6610IF q$="I" AND flower$="FLOWER" THEN ? "          FLOWER"
6620IF q$="I" AND diamond$="DIAMOND" THEN ? "          DIAMOND"
6630IF q$="I" THEN GOSUB 1005:GOTO 6500
6640IF q$="READ MESSAGE" THEN ? " TIMES-A-WAST`N:UP UP AND AWAY"
6645IF q$="READ MESSAGE" THEN ?:?:?:?:?:?:?:? "TAKE TIME TO BE SAFE":GOSUB 1005:GOTO 6500
6800? " YOU CAN'T":GOSUB 1002:GOTO 6500
7000HOME
7010HTAB 9:INVERSE:? " GROUND LEVEL ":NORMAL
7020?:?:? " You are now out of the caves. You are standing near a tall   cliff to your right,which is   east."
7030?:? " There is also no good path  to the north or south."
7040?:? "To your left or (W) you see a  very strange looking machine."
7045?:? "There is a sign here with info about the machine!"
7050?:? "OBVIOUS EXITS ARE:(W)&(D)"
7055?:INPUT "What now? "; q$
7060HOME
7070?
7080IF q$="W" THEN 7500
7090IF q$="D" THEN 6500
7100IF q$="I" THEN INVERSE:? " YOU ARE CARRYING:":NORMAL
7110IF q$="I" AND knife$="KNIFE" THEN HTAB 20:? "KNIFE"
7120IF q$="I" AND dia$="DIAMOND" THEN HTAB 20:? "DIAMOND"
7130IF q$="I" AND flower$="FLOWER" THEN HTAB 20:? "FLOWER"
7140IF q$="I" AND a$="BRENT" THEN HTAB 20:? "COOKIES"
7150IF q$="I" THEN GOSUB 1004:GOTO 7000
7160IF q$="I" AND note$="NOTE" THEN ? "NOTE"
7165IF q$="I" AND kay$="KEY" THEN ? "KEY"
7170IF q$="I" AND coin$="GOLD COIN" THEN ? "GOLD COIN"
7175IF q$="I" AND je$="JEWELED EGG" THEN ? "JEWELED EGG"
7200IF q$="READ SIGN" THEN ? " PLEASE KEEP BACK! DO NOT      TAMPER WITH THIS MACHINE! IT   IS STILL EXPERIMENTAL !"
7205?:?:GOSUB 1005
7210IF q$="READ SIGN" THEN ? "BESIDES THAT,IT'S NOT YOUR     PROPERTY ! IT'S MINE !!"
7220IF q$="READ SIGN" THEN ?:?:?:?:? "SIGNED:      H.G.WELLS ":GOSUB 1008:GOSUB 1008:GOTO 7000
7300? "you can't":GOSUB 1002:GOTO 7000
7500HOME
7510HGR
7515HCOLOR =9
7520HPLOT 40, 125 TO 40, 120 TO 55, 105 TO 55, 100
7530HCOLOR =15
7540HPLOT 55, 100 TO 45, 95 TO 40, 85 TO 45, 75 TO 55, 70
7545HPLOT 55, 70 TO 85, 70 TO 95, 75 TO 100, 85 TO 95, 95 TO 85, 100
7550HCOLOR =9
7555HPLOT 85, 100 TO 85, 105 TO 100, 120 TO 100, 125 TO 90, 125 TO 75, 110 TO 65, 110 TO 50, 125 TO 40, 125
7560HCOLOR =2
7570HPLOT 55, 100 TO 85, 100 TO 55, 105 TO 85, 105 TO 55, 100 TO 55, 102 TO 85, 102
7580HCOLOR =13
7585HPLOT 69, 65 TO 69, 70 TO 71, 70 TO 71, 65 TO 69, 65
7590HCOLOR =10
7595HPLOT 60, 65 TO 60, 60 TO 80, 60 TO 80, 65 TO 60, 65
7650HCOLOR =1
7655HPLOT 1, 127 TO 255, 127
7660SCALE =1
7665ROT =0
7670HCOLOR =12
7680HPLOT 55, 100 TO 55, 95 TO 60, 95 TO 63, 100
7690HPLOT 55, 95 TO 55, 80 TO 57, 80 TO 57, 95
7695HPLOT 57, 90 TO 60, 87 TO 59, 86 TO 57, 89
7697IF bk$="BACK" THEN RETURN
7700GOSUB 8200
7800HCOLOR =3
7810 x=103
7820FOR w=245 TO 110 STEP -8
7830DRAW 4 AT w, x
7840XDRAW 4 AT w, x
7850DRAW 5 AT w, x
7860XDRAW 5 AT w, x
7870NEXT w
7880DRAW 4 AT 110, 103
7885GOSUB 1001:XDRAW 4 AT 110, 103
7890DRAW 4 AT 110, 95:XDRAW 4 AT 110, 95:DRAW 4 AT 105, 90:XDRAW 4 AT 105, 90:DRAW 4 AT 105, 85:XDRAW 4 AT 105, 85
7900DRAW 4 AT 70, 78
7910GOSUB 1002
7915XDRAW 4 AT 70, 78
7920DRAW 1 AT 70, 78
7925GOSUB 1003:XDRAW 1 AT 70, 78:DRAW 2 AT 70, 78:GOSUB 1001:XDRAW 2 AT 70, 78:DRAW 1 AT 70, 78
7929GOSUB 1002
7930GOSUB 1001:XDRAW 1 AT 70, 78:DRAW 4 AT 70, 78:GOSUB 1001:XDRAW 4 AT 70, 78
7935DRAW 4 AT 70, 78:GOSUB 8000:GOSUB 1002:XDRAW 4 AT 70, 78
7940DRAW 5 AT 70, 78
7945GOTO 8030
8000SPEED =60
8010? "SET SPEED OF TIMER PLEASE"
8020INPUT "enter a number from 60 to 255 "; n
8025IF n>255 THEN 8020
8027RETURN
8030SPEED =n:IF bk$="BACK" THEN 8700
8031?:?:?
8032INVERSE:VTAB 22:HTAB 14:? "1894":GOSUB 1008
8039?:?:?:INVERSE
8040FOR t=1894 TO 1752 STEP -2:? CHR$(7):VTAB 22:HTAB 14:? t:NEXT
8041NORMAL
8050GOSUB 1008
8055GOTO 8500
8200SPEED =60
8210? " There it is ! now do you want to enter the machine or go     back and look some more?"
8220?:? "To enter the machine use (W)   and to go back use (E).":INPUT " "; q$
8222IF q$="E" THEN SPEED =255:TEXT
8225IF q$="E" THEN 7000
8230IF q$="W" THEN RETURN
8240GOTO 8220
8500?:?:?
8501SPEED =65
8502? " GOOD GRIEF "; a$; " it looks as   if you have company,so stay  in for now!"
8510HCOLOR =15
8520 x=103
8535FOR w=245 TO 200 STEP -3
8540DRAW 4 AT w, x
8550XDRAW 4 AT w, x
8560DRAW 5 AT w, x
8570XDRAW 5 AT w, x
8580NEXT w
8590DRAW 4 AT 200, 103
8600HCOLOR =3
8610HPLOT 196, 110 TO 140, 30
8620HCOLOR =8
8630HPLOT 140, 40 TO 135, 30 TO 140, 25 TO 145, 30 TO 140, 40
8640HCOLOR =14
8650HPLOT 140, 40 TO 140, 45 TO 135, 50 TO 140, 55
8660FOR c=12 TO 0 STEP -4
8662HCOLOR =c
8665HPLOT 175, 10 TO 165, 20 TO 170, 25 TO 155, 40:HPLOT 120, 25 TO 110, 35 TO 115, 40 TO 95, 55
8668SPEED =110
8670?:INVERSE:? " DANGER: ELECTRICAL STORM "
8675NORMAL
8680NEXT c
8685GOSUB 8000
8690SPEED =n
8700?:INVERSE:VTAB 22:HTAB 14:? "1752":NORMAL
8705 bk$="BACK"
8710GOSUB 1002
8720?:?:?
8730FOR t=1752 TO 1152 STEP -25
8735? CHR$(7):INVERSE:VTAB 22:HTAB 14:? t:NEXT:NORMAL
8739GOSUB 7500
8740? " Well here you are, "; a$
8742HCOLOR =3:DRAW 1 AT 70, 78
8749FLASH
8750GOSUB 1005:VTAB 21:HTAB 14:FLASH:? " 1152 ":NORMAL:GOSUB 1008
8755? "Wow what a time jump!"
8756GOSUB 1003:?:?:?
8757VTAB 21:HTAB 14:FLASH:? " 1152 ":NORMAL
8760GOSUB 1005
8770HGR
8775HCOLOR =1:HPLOT 1, 125 TO 255, 125
8780HCOLOR =3
8790DRAW 1 AT 70, 78
8795GOSUB 1002:XDRAW 1 AT 70, 78
8800DRAW 2 AT 70, 82:XDRAW 2 AT 70, 82
8810DRAW 2 AT 70, 85:XDRAW 2 AT 70, 85
8815DRAW 2 AT 70, 88:XDRAW 2 AT 70, 88
8820DRAW 2 AT 70, 91:XDRAW 2 AT 70, 91
8825DRAW 2 AT 70, 94:XDRAW 2 AT 70, 94
8830DRAW 2 AT 70, 97:XDRAW 2 AT 70, 97
8835DRAW 1 AT 70, 100
8836XDRAW 1 AT 70, 100
8840DRAW 2 AT 70, 102:GOSUB 1002:XDRAW 2 AT 70, 102
8845 x=102
8850FOR w=70 TO 5 STEP -4
8855DRAW 4 AT w, x
8860XDRAW 4 AT w, x
8865 w=w-2
8870DRAW 5 AT w, x
8875XDRAW 5 AT w, x
8880NEXT w
8890? "hey "; a$; " wait for me":GOSUB 1004:HOME
8892 key$="NO"
8895TEXT:HOME
8900INVERSE:HTAB 10:? " HILL TOP "
8910NORMAL
8915IF tree$="U" THEN ?:?:?:? "You see a path down the hill   to the (N).":GOTO 9100
8920?:?:? " You are now on a hill top."
9000?:? " There is a tree here."
9010IF note$<>"NOTE" THEN ?:? " A note is on the tree."
9020?:? "there is a pile of leaves      under the tree."
9025IF leave$="MOVED" THEN ?:? " There is a steel (TRAP) door  here."
9027IF kay$="IN" THEN ? "a key is in the lock."
9030IF trap$="OPEN" THEN ?:? "THE TRAP IS OPEN!"
9099?:?
9100INPUT "WHAT NOW? "; q$
9110HOME
9119IF q$="U" OR q$="U TREE" THEN  tree$="U"
9120IF q$="U" OR q$="U TREE" THEN ? "YOU CLIMB UP THE TREE!RESTING  HIGH ON A LIMB YOU LOOK AROUND":GOSUB 1006:GOTO 8895
9125IF q$="D" AND trap$="OPEN" THEN ? "YOU ENTER THE TRAP DOOR!":GOTO 9900
9126IF q$="ENTER" AND trap$="OPEN" THEN 9900
9130IF q$="D" OR q$="D TREE" THEN ? "YOU CLIMB DOWN!": tree$="D":GOSUB 1003:GOTO 8895
9140IF q$="TAKE NOTE" THEN  note$="NOTE":? CHR$(7):? " TAKEN":GOSUB 1002:GOTO 8895
9150IF q$="TAKE LEAVES" THEN ? "YOU TRY,BUT THE LEAVES SLIP    THROUGH YOUR ARMS.":GOSUB 1004:GOTO 8895
9155IF q$="MOVE LEAVES" THEN ? "MOVED": leave$="MOVED":GOSUB 1002:GOTO 8895
9160IF q$="OPEN TRAP" AND trap$<>"UNLOCKED" THEN ? "NOPE ! it's locked, "; a$
9165IF q$="OPEN TRAP" AND trap$="UNLOCKED" THEN ? "THE TRAP IS NOW OPEN!": trap$="OPEN":GOSUB 1003:GOTO 8895
9170IF q$="BREAK TRAP" OR q$="BREAK TRAP WITH KNIFE" THEN ? "NICE TRY,but ya can't!":GOSUB 1003:GOTO 8895
9175IF q$="OPEN TRAP" AND trap$="UNLOCKED" THEN ? "TRAP IS OPEN": trap$="OPEN":GOSUB 1003:GOTO 8895
9180IF q$="N" THEN 9500
9200IF q$="I" THEN INVERSE:? "YOU ARE CARRYING:":NORMAL
9205IF q$="I" AND knife$="KNIFE" THEN HTAB 20:? "KNIFE"
9210IF q$="I" AND dia$="DIAMOND" THEN HTAB 20:? "DIAMOND"
9215IF q$="I" AND flower$="FLOWER" THEN HTAB 20:? "FLOWER"
9220IF q$="I" AND note$="NOTE" THEN HTAB 20:? "NOTE"
9222IF q$="I" AND key$="KEY" THEN HTAB 20:? "KEY"
9225IF q$="I" AND kay$="KEY" THEN HTAB 20:? "KEY"
9226IF q$="I" AND je$="JEWELED EGG" THEN HTAB 20:? "JEWELED EGG"
9227IF q$="I" AND coin$="GOLD COIN" THEN HTAB 20:? "GOLD COIN"
9230IF q$="I" THEN GOSUB 1005:GOTO 8895
9250IF q$="POP" OR q$="ASK POP" THEN ? "HI THERE "; a$:GOSUB 1002:? "THE SIGNS I LEFT SHOULD HELP":GOSUB 1003:GOTO 8895
9255IF q$="CLIMB TREE" THEN ? "YOU MUST USE (U TREE)":GOSUB 1002:GOTO 8895
9260IF q$="READ NOTE" THEN ? "HI THERE! TIME IS RUNNING A    BIT SHORT "; a$; " .KEEP THIS NOTE":GOSUB 1005:GOTO 8895
9265IF q$="USE KEY" AND key$="KEY" THEN ? "TRAP UNLOCKED": key$="IN": trap$="UNLOCKED":GOSUB 1003:GOTO 8895
9270IF q$="USE KEY" AND kay$="KEY" THEN ? "YOU UNLOCK THE TRAP": kay$="IN": trap$="UNLOCKED":GOSUB 1003:GOTO 8895
9275IF q$="TAKE KEY" AND kay$="IN" THEN ? CHR$(7):? "GOOD FOR YOU,you take the key!": key$="KEY":GOSUB 1004:GOTO 8895
9495? "YOU CAN'T":GOSUB 1002:GOTO 8895
9499HOME
9500INVERSE:HTAB 5:? " EDGE OF THE STREAM ":NORMAL
9510?:?:? "There is a stream here.The     smell of the water is strange, and blue vapors rise from it."
9515IF q$="BREAK TUBE WITH HANDS" THEN ? "THERE IS BLOOD ALL OVER THE    GROUND (YOURS)":?
9520?:?:IF kay$<>"KEY" THEN ? "THERE IS A GLASS (TUBE) HERE!"
9525IF kay$="OUT" THEN ?:INVERSE:? "THE TUBE IS BROKEN & A KEY IS  ON THE GROUND ":?:NORMAL
9550?:INPUT "what now? "; q$
9555HOME
9560IF q$="TAKE TUBE" AND kay$<>"OUT" THEN ? "YOU TRY BUT CAN'T!":? "YOU NOW SEE A (KEY) IS IN THE  GLASS TUBE!"
9562IF q$="TAKE TUBE" AND kay$<>"OUT" THEN ?:GOSUB 1007:GOTO 9499
9565IF q$="TAKE KEY" AND kay$="OUT" THEN ? CHR$(7):? "TAKEN": kay$="KEY":GOSUB 1002:GOTO 9499
9570IF q$="BREAK TUBE" THEN ? "OK   WITH WHAT?":GOSUB 1003:GOTO 9499
9575IF q$="BREAK TUBE WITH KNIFE" AND knife$="KNIFE" THEN ? "BROKEN": kay$="OUT":GOSUB 1002:GOTO 9499
9577IF q$="BREAK TUBE WITH DIAMOND" AND dia$="DIAMOND" THEN ? "BROKEN": kay$="OUT":GOSUB 1002:GOTO 9499
9589IF q$="S" THEN 8895
9590IF q$="SWIM" THEN ? "SWIM? ARE YOU SURE? THAT IS ACID WATER!":GOSUB 1004:GOTO 9499
9600IF q$="I'M SURE" THEN ? "NO! YOU'RE DEAD!":END:END
9610IF q$="BREAK TUBE WITH HANDS" THEN ? "BROKEN: BUT YOUR HANDS ARE     BADLY CUT !": kay$="OUT":GOSUB 1005:GOTO 9499
9850? "you can't":GOSUB 1003:GOTO 9499
9900HOME
9905? "That ends this part of Travel"
9910? "status being entered"
9920 d$=CHR$(4)
9925? d$; "OPEN STATUS"
9930? d$; "WRITE STATUS"
9935? a$
9940? b$
9945? knife$
9950? dia$
9955? flower$
9960? note$
9965? key$
9970? je$
9975? coin$
9980? CHR$(4)
9985? CHR$(4); "CLOSE STATUS"
9990 d$=CHR$(4)
9995? d$; "RUN 2TRAVELER"
10000HOME: steed=255
10100VTAB 12:HTAB 8:? "***************"
10110HTAB 8:? "*             *                *             *"
10120HTAB 8:? "*             *                *             *                *             *"
10130HTAB 8:? "***************"
10140VTAB 15:HTAB 10:INVERSE:? " TIMEZONE ":GOSUB 1002
10141NORMAL
10145VTAB 15:HTAB 22:? "*"
10150GOSUB 1005:VTAB 15:HTAB 10:FLASH:? " TRAVELER ":NORMAL:VTAB 15:HTAB 22:? "*"
10160GOSUB 1005
10170VTAB 15:HTAB 10:? " HAVE FUN ":VTAB 15:HTAB 22:? "*":GOSUB 1003
12000RETURN
