]CATALOG FASTDOS F: V: 321254 A 005 HELLO A 091 JFET ADVENTURE T 025 CHAR T 053 INIT T 001 DOS ]LOAD JFET ADVENTURE ]LIST 10 TEXT : HOME 15 PRINT "JOURNEY FROM THE END O F TIME (C) COPYRI GHT 1981 BY RICHARD SKRENTA INSTRUCTIONS?" ;: GET A$: PRINT : IF A$ < > "Y" THEN 50000 20 HOME : PRINT "YOU WERE THE PI LOT OF A SMALL JET AIR- PLA NE, FLYING A NORMAL ROUTE WI TH YOUR CO-PILOT. SUDDENLY, YOUR PLANE WAS CAUGHT IN A STRANGE STORM. THE PLAN E'S INSTRUMENTS WOULD NOT W ORK, AND THE FUELBEGAN LEAKI NG." 25 PRINT : PRINT "TOGETHER, YOU AND YOUR CO-PILOT MANAGED A CRASH LANDING. UPON AWAKENIN G, YOU FOUND YOURSELVES I N A STRANGE NEW LAND. THE PL ANE WAS UN-FLYABLE, AND YOU DID NOT HAVE ANY PROVISION S." 26 PRINT : PRINT "JUST THEN, A W IZARD APPEARED AND EX- PL AINED THAT YOU HAD FOUND YOU R WAY TO THE END OF TIME, A PLACE WHERE TECH- NOLOGY AND MAGIC RANKED EQUAL. THE ONLY WAY BACK TO YOUR OWN T IME WAS THROUGH THE TIME P ORTAL." 28 PRINT : PRINT : PRINT "PRESS ANY KEY FOR MORE TEXT >";: GET A$: PRINT : HOME 30 PRINT "THE TIME PORTAL COULD TRANSPORT A MAN TO THE DES IRED TIME HE WANTED, WHEN HE HAD CONTROL OVER IT BY POS SESSING THE PORTAL KEY, WH ICH COULD BE SEEN IN ANY FO RM." 32 PRINT : PRINT "HOWEVER, THERE IS A CATCH. WHEN THE TIMEPO RTAL IS ACTIVATED, IT NOT ON LY TAKES THE TRAVELLER TO T HE NEW TIME, BUT IT- SELF A ND THE KEY ALSO. THUS, WHOEV ER OWNS THE KEY, OWNS TIM E." 33 PRINT 34 PRINT "IF THAT SHOULD BE THE CO-PILOT, THEN YOUWOULD BE T RAPPED HERE. IF THAT SHOULD BEYOU, HE SAID, YOU WOULD HA VE IMMENSE POWER. BUT, IT WILL BE NO SMALL TASK OB-TA INING THE PORTAL KEY." 36 PRINT : PRINT "IT IT A FIGHT BETWEEN THE TWO OF YOU, AN D ALSO AGAINST THE INHABITAN TS OF THE LAND WHO MAY NOT L IKE YOU, FOR ONE REASON OR ANOTHER. YOU MUST ALSO B ATTLE THE LAND, AND THE WEAT HER. GOOD LUCK!" 38 PRINT "PRESS ANY KEY FOR MORE TEXT >";: GET A$: PRINT : HOME 40 PRINT "TO ACCOMPLISH YOUR QUE ST, USE ONE, TWO, THREE OR F OUR WORD COMMAND SENTENCES T O MANIPULATE OBJECTS AND MOV E YOURSELF ABOUT. FOR EXA MPLE," 42 PRINT : PRINT "->KILL MONSTER WITH SWORD": PRINT : PRINT "MIGHT BE USED TO FIGHT A TH REATENING MONSTER. ( '->' TELLS YOU WHEN YOU CAN TYP E IN YOUR COMMAND.)" 44 PRINT : PRINT "TO GO NORTH, Y OU COULD TYPE '->GO NORTH', BUT, TO SAVE TIME, '->N' WIL L SUFFICE.THE SAME WILL WORK WITH THE OTHER COM- PASS P OINTS. YOU CAN ALSO USE OTHE R COM-ANDS TO MOVE.": PRINT : PRINT "->CLIMB UP TREE" 46 PRINT : PRINT "WILL PROBABLY GIVE YOU A BETTER VIEW OF YO UR SURROUNDINGS.": PRINT : PRINT "PRESS ANY KEY FOR MORE TEXT >";: GET A$: PRINT : HOME 48 PRINT "WHEN YOU START PLAY, A DESCRIPTION OF YOUR SURRO UNDINGS, WILL BE GIVEN AT TH E TOP OF YOUR SCREEN. AT THE BOTTOM OF THESCREEN, INFORM ATION CONCERNING YOUR CON-DI TION WILL BE GIVEN." 50 PRINT : PRINT "AS YOU MAY HAV E GUESSED, THE OBJECT OF TH E GAME IS TO ESCAPE THROUGH THE TIME PORTAL IN PLACE OF YOUR EVIL (TO MAKE ITEASIER ) CO-PILOT. IF YOU COULD ACQ UIRE SOME TREASURE ALONG TH E WAY, IT WOULDN'THURT." 70 VTAB 23: PRINT "PRESS ANY KEY TO CONTINUE >";: GET A$: PRINT : HOME : GOTO 15 90 IF SH = 0 THEN S$ = S$ + "(ON E FLARE)" 92 IF SH = 1 THEN S$ = S$ + "(NO FLARES)" 94 RETURN 95 HOME : VTAB 10: PRINT "------ ---------------------------- -----": PRINT :VV = PEEK (3 7): POKE 34,VV 96 VTAB 13 97 REM 98 REM DESCRIPTION 99 REM 100 N = N%(PL):S = S%(PL):E = E%( PL):W = W%(PL):T$ = T$(PL):B = 0:PL% = 0: PRINT :X = PEEK (37):FG = 0 110 GOTO 30000 115 POKE 34,1: POKE 35,9: HOME : VTAB 4: PRINT "YOU ARE ";T$ : POKE 35,23: POKE 34,VV 116 VTAB X: HTAB 1 997 REM 998 REM OBJECTS IN VICINITY 999 REM 1000 H = 0: FOR I = 1 TO 100: IF B%(I) = PL THEN 1020 1005 NEXT : IF H = 1 THEN PRINT 1006 GOTO 2000 1020 IF H = 0 THEN PRINT "THING S AROUND YOU:":H = 1: PRINT 1025 GOSUB 1700: PRINT "A ";S$: NEXT 1026 PRINT : GOTO 2000 1497 REM 1498 REM OBJECT LIST 1499 REM 1501 S$ = "SHINY, JEWEL ENCRUSETE D SWORD.": RETURN 1502 S$ = "LONG BLADED GINSU KNIF E.": RETURN 1503 S$ = "HEAVY BATTLE AXE.": RETURN 1504 S$ = "WOODEN CLUB.": RETURN 1505 S$ = "IRON SPIKED MACE.": RETURN 1506 S$ = "RUSTY IRON BAR.": RETURN 1507 S$ = "OLD, MUSTY SKELETON.": RETURN 1508 S$ = "OLD ROTTING BOOK.": RETURN 1509 S$ = "DUSTY SCROLL.": RETURN 1510 S$ = "STUBBORN MULE.": RETURN 1511 S$ = "BROWN PACK HORSE.": RETURN 1512 S$ = "SHEET OF PLEXIGLASS.": RETURN 1513 S$ = "BENT HORSESHOE.": RETURN 1514 S$ = "BROKEN MIRROR.": RETURN 1515 S$ = "DEADLY DISEASE CURE.(P ILL)": RETURN 1516 S$ = "WAGON WHEEL.": RETURN 1517 S$ = "MORSEL OF FOOD.": RETURN 1518 S$ = "JOLLY RANCHER (CANDY). ": RETURN 1519 S$ = "USELESS ASHTRAY.": RETURN 1520 S$ = "MAGICAL SCEPTOR. AN IN SCRIPTION ON THESCEPTOR SAYS 'TIME WAITS FOR NO MAN.' UNDER THAT, THE WORD ELPA IS ENSCRIBED.": RETURN 1522 S$ = "CRYSTAL BALL.": RETURN 1523 S$ = "SILVER SPHERE.": RETURN 1524 S$ = "MAGIC WAND.": RETURN 1525 S$ = "BLEACHED SKULL.": RETURN 1526 S$ = "BRASS LAMP (NO OIL).": RETURN 1527 S$ = "FLASHLIGHT.": RETURN 1528 S$ = "FLARE GUN ": GOTO 90 1529 S$ = "LONGBOW.": RETURN 1530 S$ = "BLACK ARROW.": RETURN 1531 S$ = "PARACHUTE. SOME INSTRU CTIONS ON THE SIDE SAY 'T O USE, PULL CORD.'": RETURN 1532 S$ = "BRASS BELL. SOME WRITI NG ON THE SIDE SAYS 'RING FOR SERVICE.'": RETURN 1533 S$ = "BUNCH OF MINT LEAVES." : RETURN 1534 S$ = "BLOODY HEAD (LESTER'S) .": RETURN 1535 S$ = "PIECE OF PAPER WITH WR ITING ON IT.": RETURN 1536 S$ = "SILVER WAR HORN.": RETURN 1537 S$ = "CROWBAR.": RETURN 1538 S$ = "CRUMPLED NOTE.": RETURN 1539 S$ = "INSTRUCTIONS TO FLYING RUG MODEL NO.24": RETURN 1586 S$ = "GOLDEN CANDELSTICK.": RETURN 1587 S$ = "ORIENTAL RUG. SOME STI TCHING ON THE BOTTOM SAYS '24'.": RETURN 1588 S$ = "GOLD COIN.": RETURN 1589 S$ = "ANCIENT CHALICE.": RETURN 1590 S$ = "RARE STAMP.": RETURN 1591 S$ = "GOLD CHAIN.": RETURN 1592 S$ = "VALUBLE PEARL.": RETURN 1593 S$ = "DIAMOND RING.": RETURN 1594 S$ = "BAR OF GOLD.": RETURN 1595 S$ = "BAR OF SILVER.": RETURN 1596 S$ = "BrACeLET.": RETURN 1597 S$ = "KING'S CROWN.": RETURN 1598 S$ = "SILVER CROSS.": RETURN 1599 S$ = "PLATINUM STATUE OF A L ION.": RETURN 1600 S$ = "GIANT DIAMOND.": RETURN 1700 ON I GOTO 1501,1502,1503,15 04,1505,1506,1507,1508,1509, 1510,1511,1512,1513,1514,151 5,1516,1517,1518,1519,1520,1 521,1522,1523,1524,1525,1526 ,1527,1528,1529,1530,1531,15 32,1533,1534,1535,1536,1537, 1538,1539,1540,1541,1542,154 3,1544,154 1702 ON (I - 46) GOTO 1546,1547, 1548,1549,1550,1551,1552,155 3,1554,1555,1556,1557,1558,1 559,1560,1561,1562,1563,1564 ,1565,1566,1567,1568,1569,15 70,1571,1572,1573,1574,1575, 1576,1577,1578,1579,1580,158 1,1582,1583,1584,1585,1586,1 587,1588 1704 ON (I - 88) GOTO 1589,1590, 1591,1592,1593,1594,1595,159 6,1597,1598,1599,1600 1997 REM 1998 REM CHARACTER CONTROL 1999 REM 2000 IF SS < = 0 THEN 4000 2003 IF C = 1 AND F = 0 THEN F = 8 2005 IF PL% = 2 THEN 4000 2010 PRINT 2050 H = 1: FOR I = 101 TO 110: IF B%(I) = PL AND ST%(U) > 0 THEN ON H GOTO 2100,2300,2500,27 00,2900,3100,3300,3500,3700, 3900 2052 H = H + 1: NEXT 2100 IF PL% = 0 THEN IF ST%(1) > 0 THEN X = INT ( RND (1) * 100): IF X < 5 OR B%(101) = PL THEN B%(101) = PL: GOTO 2 110 2105 GOTO 2300 2110 ON F GOTO 2130,2150,2170,21 90,2195,2200,2210,2220,2230, 2240,2250,2260,2270,2280,229 0,4000 2112 D%(0) = D%(0) + 1: IF D%(0) = 5 THEN D%(0) = 1 2114 ON D%(0) GOTO 2115,2118,212 5,2128 2115 PO = 1: GOSUB 4500: GOTO 400 0 2118 PO = 2: GOSUB 4500:B%(101) = 0:ST = ST - 5: GOTO 4000 2125 PO = 3: GOSUB 4500: GOTO 400 0 2128 PO = 4: GOSUB 4500: GOTO 400 0 2130 PO = 5: GOSUB 4500: GOTO 400 0 2150 PO = 6: GOSUB 4500:B%(101) = 0:ST%(1) = 0: FOR I = 1 TO 1 00: IF B%(I) = - 101 THEN B %(I) = PL 2152 NEXT : GOTO 1000 2170 D%(1) = D%(1) + 1: IF D%(1) = 8 THEN D%(1) = 1 2172 ON D%(1) GOTO 2174,2176,217 8,2180,2182,2184,2186 2174 PO = 7: GOSUB 4500:ST = ST - 3: GOTO 4000 2176 PO = 8: GOSUB 4500:ST = ST - 10: GOTO 4000 2178 PO = 9: GOSUB 4500:ST%(1) = ST%(1) - 4: GOTO 4000 2180 PO = 10: GOSUB 4500:ST = ST - 30: GOTO 4000 2182 PO = 11: GOSUB 4500:ST = ST - 7: GOTO 4000 2184 PO = 12: GOSUB 4500:ST%(1) = ST%(1) - 4:ST = ST + 4: GOTO 4000 2186 PO = 15: GOSUB 4500:ST = 0: GOTO 4000 2190 PO = 13: GOSUB 4500: GOTO 40 00 2195 PO = 14: GOSUB 4500: FOR I = 1 TO 100: IF B%(I) = - 101 THEN B%(I) = PL 2198 NEXT :ST%(1) = 0: GOTO 1000 2200 REM 2210 PO = 16: GOSUB 4500:ST%(1) = 0: FOR I = 1 TO 100: IF B%(I ) = - 101 THEN B%(I) = PL 2215 NEXT :B%(101) = 0: GOTO 100 0 2220 GOTO 2118 2230 PO = 17: GOSUB 4500:ST = ST - 20: GOTO 4000 2240 B%(101) = N: GOTO 2275 2250 B%(101) = S: GOTO 2275 2260 B%(101) = E: GOTO 2275 2270 B%(101) = W 2275 PO = 18:CP = CP + 1:F = 16: IF CP > 19 THEN B%(101) = 0:CP = 9: GOTO 4000 2276 GOSUB 4500: GOTO 100 2280 GOTO 2150 2290 ST%(1) = 0:PO = 19: GOSUB 45 00: FOR I = TO 100: IF B%(I ) = - 101 THEN B%(I) = PL 2295 NEXT : GOTO 1000 2300 IF PL% = 0 THEN IF ST%(2) > 0 THEN X = INT ( RND (1) * 100): IF X < 5 OR B%(102) = PL THEN B%(102) = PL: GOTO 2 310 2305 GOTO 2500 2310 ON F GOTO 2350,2500,2500,25 00,2500,2500,2500,2500,2500, 100,100,100,100,2500,2500 2312 PO = 20: GOSUB 4500 2315 IF D%(0) = 0 AND ST%(3) = 0 AND NT = 1 THEN PO = 21: GOSUB 4500:B%(102) = 0:D%(0) = 1:P O = 25: GOSUB 4500: GOTO 400 0 2320 IF D%(1) = 0 AND ST%(3) > 0 AND NT = 0 THEN PO = 22: GOSUB 4500:D%(1) = 1:PO = 25: GOSUB 4500:B%(102) = 0: GOTO 4000 2325 IF D%(2) = 0 AND ST%(1) = 0 AND HE = 0 AND NT = 1 THEN PO = 3: GOSUB 4500:D%(2) = 1 :PO = 25: GOSUB 4500:B%(102) = 0: GOTO 4000 2345 PO = 24: GOSUB 4500:PO = 25: GOSUB 4500:B%(102) = 0: GOTO 4000 2350 PO = 35: GOSUB 4500: IF D%(3 ) = 0 THEN PO = 36: GOSUB 45 00:D%(3) = 1 2352 IF D%(5) = 0 THEN IF PL > 4 AND PL < 10 THEN PL = 10:P O = 26:D%(5) = 1: GOTO 100 2354 IF D%(4) = 0 THEN IF PL = 15 OR PL = 16 THEN PL = 17:P O = 27: GOSUB 4500:D%(4) = 1 : GOTO 100 2356 IF D%(6) = 0 THEN IF PL = 25 THEN PL = 23:D%(6) = 1:PO = 28: GOSUB 4500:ST = SS: GOTO 100 2358 IF D%(7) = 0 THEN IF PL > 25 AND PL < 29 THEN PL = 29: D%(7) = 1:PO = 29: GOSUB 450 0: GOTO 100 2360 IF D%(8) = 0 THEN IF PL = 38 THEN PL = 37:D%(8) = 1:PO = 30: GOSUB 4500: GOTO 100 2362 IF PL = 39 THEN B%(102) = 0 :PO = 37: GOSUB 4500: GOTO 4 000 2364 IF D%(10) = 0 THEN IF PL > 43 AND PL < 47 THEN PL = 47: D%(10) = 1:PO = 32: GOSUB 45 00: GOTO 100 2366 IF D%(9) = 0 THEN IF PL = 59 THEN D%(9) = 1:B%(102) = 0:PO = 33: GOSUB 4500: GOTO 4000 2368 IF D%(11) = 0 THEN IF PL = 56 THEN D%(11) = 1:B%(31) = - 1:PO = 34: GOSUB 4500: GOTO 4000 2370 PO = 37: GOSUB 4500: GOTO 40 00 2500 IF ST%(3) > 0 AND NT = 1 THEN X = INT ( RND (1) * 100): IF X < 5 OR B%(103) = PL THEN 2 510 2502 IF B%(34) < > - 1 AND HE = 0 AND NT = 1 AND ST%(3) = 0 THEN B%(34) = INT ( RND (1) * 60 ) 2505 GOTO 2700 2510 ON F GOTO 2515,2520,2530,25 40,2550,2560,2570,2580,2590, 2600,2610,2620,2630,2640,265 0 2512 PO = 39: GOSUB 4500: GOTO 40 00 2515 ST%(3) = 0:PO = 40: GOSUB 45 00:B%(103) = 0: FOR I = 1 TO 100: IF B%(I) = - 103 THEN B%(I) = PL 2516 NEXT : GOTO 1000 2520 PO = 41: GOSUB 4500:ST = ST - 5 2525 GOTO 4000 2530 B%(34) = PL:ST%(3) = 0:B%(10 3) = 0:PO = 42: GOSUB 4500: FOR I = 1 TO 100: IF B%(I) = - 103 THEN B%(I) = PL 2532 NEXT : GOTO 4000 2540 ST = ST - 1:PO = 43: GOSUB 4 500: GOTO 4000 2550 PO = 44: GOSUB 4500: GOTO 25 75 2560 PO = 45: GOSUB 4500: GOTO 25 75 2570 GOTO 2560 2575 ST%(3) = 0:B%(103) = 0: FOR I = 1 TO 100: IF B%(I) = - 103 THEN B%(I) = PL 2576 NEXT : GOTO 1000 2580 PO = 46: GOSUB 4500:ST = 0: GOTO 4000 2590 GOTO 2580 2600 PO = 47:ST = 0: GOSUB 4500: GOTO 4000 2610 GOTO 2600 2620 GOTO 2610 2630 GOTO 2610 2640 PO = 45: GOSUB 4500: GOTO 25 75 2650 PO = 48: GOSUB 4500: GOTO 25 75 2700 IF ST%(4) > 0 THEN IF PL = 12 THEN B%(104) = PL: GOTO 2 708 2705 GOTO 2900 2708 IF FG = 0 THEN F = 0 2710 ON F GOTO 2720,2730,2730,27 40,2750,2730,2730,4000,2750, 100,100,100,100,2730,2760 2715 IF FG = 0 THEN FG = 1:PO = 49: GOSUB 4500:B%(17) = - 1 : GOTO 4000 2716 GOTO 4000 2720 PO = 50: GOSUB 4500: GOTO 40 00 2730 PO = 51: GOSUB 4500:ST%(4) = 0: GOTO 4000 2740 PO = 52: GOSUB 4500:ST%(4) = 0: GOTO 4000 2750 PO = 53: GOSUB 4500:B%(26) = 0: GOTO 4000 2760 B%(I2) = - 1: GOTO 4000 2770 PO = 54: GOSUB 4500:ST = 0: GOTO 4000 2900 IF ST%(5) > 0 AND PL = 60 THEN B%(105) = 60: GOTO 2910 2905 GOTO 4000 2910 ON F GOTO 2915,2920,2930,29 40,2950,2960,2970,2980,2990, 3000,3010,3020,3030,3040,305 0 2912 N = 0:S = 0:E = 0:W = 0:PO = 55: GOSUB 4500: GOTO 4000 2915 PO = 56: GOSUB 4500:R = 1: GOTO 4000 2920 PO = 57: GOSUB 4500: GOTO 40 00 2930 ST = ST - 12:PO = 58: GOSUB 4500: GOTO 4000 2940 PO = 59: GOSUB 4500: GOTO 40 00 2950 ST%(5) = 0:PO = 60: GOSUB 45 00: GOTO 100 2960 B%(28) = 0:PO = 61: GOSUB 45 00:ST = ST - 10: GOTO 4000 2970 ST = 0:PO = 62: GOSUB 4500: GOTO 4000 2980 ST = 0:PO = 63: GOSUB 4500: GOTO 4000 2990 ST%(5) = 0:PO = 64: GOSUB 45 00: GOTO 4000 3040 ST%(5) = 0:PO = 65: GOSUB 45 00: GOTO 4000 3050 PO = 66:ST = 0: GOSUB 4500: GOTO 4000 4000 X = PEEK (37):TR = TR + 1: IF R = 1 THEN ST = ST - 6 4100 POKE 34,0: VTAB 1: PRINT "O BVIOUS EXITS: ";: IF N = 0 AND S = 0 AND E = 0 AND W = 0 THEN PRINT "NONE "; 4105 IF N < > 0 THEN PRINT "NO RTH "; 4108 IF S < > 0 THEN PRINT "SO UTH "; 4110 IF E < > 0 THEN PRINT "EA ST "; 4112 IF W < > 0 THEN PRINT "WE ST "; 4115 CALL - 868: PRINT : POKE 3 4,VV 4120 VTAB 24: HTAB 1: PRINT "TIM E ELAPSED= ";TR;" STRENGTH= ";SS;" "; 4121 IF SS < = 0 THEN 4300 4122 IF SS = ST THEN 4130 4124 IF SS > ST THEN SS = SS - 1 : FOR I = 1 TO 30: NEXT : GOTO 4120 4126 IF SS < ST THEN FOR I = 1 TO 30: NEXT :SS = SS + 1: GOTO 4120 4130 WE = 0: FOR I = 1 TO 100: IF B%(I) = - 1 THEN WE = WE + WE%(I) 4132 NEXT : IF WE > ST * 2 THEN 4200 4135 VTAB X + 1: HTAB 1: GOTO 50 05 4200 PRINT "BECAUSE YOUR STRENGT H DROPPED TOO LOW TOCONTINUE HOLDING ALL OF YOUR POSSESI ONS,YOUR DROPPED THEM.": FOR I = 1 TO 100: IF B%(I) = - 1 THEN B%(I) = PL 4205 NEXT : GOTO 1000 4300 K = K + 1: TEXT : SPEED= 150 : FOR I = 1 TO 25: PRINT : NEXT : HOME : SPEED= 255: ON K GOTO 4310,4320,4330,4340 4310 PRINT "WELL, YOU'RE DEAD. S INCE THIS IS THE FIRST TI ME, I'LL RESSURECT YOU IF YO U LIKE, BUT YOU'LL HAVE LE SS STRENGTH.":ST = 40:SS = 1 : GOTO 4345 4320 PRINT "YOU'VE DONE IT AGAIN . WELL, I'LL TRY TO RESSUREC T YOU AGAIN, BUT YOU'LL HAVE EVEN LESS STRENGTH.":ST = 20: GOTO 4345 4330 PRINT "YOU'RE NOT SO SMART, ARE YOU? IT DOEN'T TAKE MUC H BRAINS TO PLAY THIS GAME. CHECK AROUND THE COMPUTE R TO SEE IF THEYFELL OUT. ON CE MORE, BUT YOU'LL ONLY H AVE ONE POINT OF STRENGTH. M AYBE YOU'LL BE MORE CAUTIOUS .":ST = 1: GOTO 4345 4340 PRINT "YOU'RE HOPELESS. WHY DON'T YOU JUST START OV ER. SO-LONG.": END 4345 PRINT : PRINT "WOULD YOU LI KE ME TO RESSURECT YOU?": GET A$: IF A$ < > "Y" THEN PRINT "GOODBYE.": END 4346 PRINT "GOODLUCK!": FOR I = 1 TO 300: NEXT : GOTO 95 4497 REM 4498 REM CHARACTER DESCRIPTION 4499 REM 4500 PRINT "dOPEN CHAR": PRINT "dP OSITIONCHAR,R";PO: PRINT "dRE ADCHAR": INPUT S$: PRINT S$: PRINT "dCLOSECHAR": PRINT : RETURN 4987 REM 4988 REM INPUT 4989 REM 4994 GOTO 5005 4995 INPUT "->";B$:A$ = A$ + " " + B$:D = LEN (A$):I1 = 0:I 2 = I1:I3 = I1:I4 = I1:B$ = "":C$ = B$:D$ = B$:E$ = B$: GOTO 5010 5000 REM 5005 INPUT "->";A$:D = LEN (A$) :I1 = 0:I2 = I1:I3 = I1:I4 = I1:B$ = "":C$ = B$:D$ = B$:E $ = B$ 5010 FOR I = 1 TO D 5015 IF MID$ (A$,I,1) = " " THEN 5040 5020 NEXT I: IF D = 0 THEN X = PEEK (37): VTAB X: GOTO 5005 5025 B$ = LEFT$ (A$,D) 5030 C$ = "" 5035 GOTO 5095 5040 B$ = LEFT$ (A$,I - 1) 5045 IF I = D THEN 5055 5050 C1$ = RIGHT$ (A$,D - I) 5055 D = LEN (C1$): FOR I = 1 TO D 5060 IF MID$ (C1$,I,1) = " " THEN 5075 5065 NEXT I 5070 C$ = C1$:D$ = "": GOTO 5095 5075 C$ = LEFT$ (C1$,I - 1):D$ = RIGHT$ (C1$,D - I) 5080 D = LEN (D$): FOR I = 1 TO D: IF MID$ (D$,I,1) = " " THEN 5090 5085 NEXT I:E$ = "": GOTO 5095 5090 E$ = RIGHT$ (D$,D - I):D$ = LEFT$ (D$,I - 1) 5095 IF B$ = "THE" THEN B$ = C$: C$ = D$:D$ = E$:E$ = "": GOTO 5095 5100 PRINT 5105 IF D$ = "THE" THEN D$ = E$: E$ = "": GOTO 5105 5108 PRINT 5110 FOR I1 = 1 TO A: IF B$ = A$ (I1) THEN 5120 5115 NEXT I1: PRINT "I DO NOT KN OW THE WORD '";B$;"'. ": GOTO 5005 5120 FOR I2 = 0 TO B1: IF C$ = B $(I2) THEN 5130 5125 NEXT I2: PRINT B$;" WHAT?": GOTO 5005 5130 FOR I3 = 0 TO B1: IF D$ = B $(I3) THEN 5140 5135 NEXT I3: PRINT "I DO NOT KN OW THE WORD '";D$;"'.": GOTO 5005 5140 FOR I4 = 0 TO B1: IF E$ = B $(I4) THEN 5150 5145 NEXT I4: PRINT "I DO NOT KN OW THE WORD '";E$;"'.": GOTO 5005 5150 F = 0: FOR I = 101 TO 110: IF B%(I) = PL THEN C = 1 5152 NEXT 5200 ON I1 GOTO 6000,8000,8000,8 010,8010,8020,8020,8030,8030 ,6020,6030,6040,6040,6040,60 40,6050,6050,6050,6050,6060, 6060,6060,6070,6000,6080,608 0,6090,6060,6060,6060,6110,6 120,6130,6130 5210 ON (I1 - 34) GOTO 6140,6140 ,6150,6160,6160,6160,6020,60 00,6170,6180,6190,6200,6210, 6220,6230,6230,6240,6250,626 0,6130,6240,6270,6170,6280,6 360,6260,6290,6260,6300,6310 ,6320,6260,6330,6340,6350 6000 IF I2 = 0 THEN PRINT "WHIC H DIRECTION?": GOTO 4995 6002 IF B%(101) < > PL THEN C = 0 6003 IF PL% = 0 AND I3 > 150 AND I2 = 120 THEN PL = B%(12): GOTO 100 6005 IF I2 = 111 THEN 8000 6008 IF I2 = 112 THEN 8010 6010 IF I2 = 113 THEN 8020 6012 IF I2 = 114 THEN 8030 6014 IF I2 = 128 AND I3 = 127 THEN 8040 6016 IF I2 = 131 AND I3 = 134 THEN 8050 6017 IF I2 = 132 AND I3 = 134 THEN 8060 6018 IF PL% = 0 AND I2 > 150 THEN PL = B%(I2): GOTO 100 6019 I = 1: GOTO 40000 6020 IF I2 = 147 AND I3 = 148 THEN 8070 6022 IF I2 = 149 AND I3 = 135 AND I4 = 148 THEN 8080 6024 IF I2 = 0 THEN FOR X = 1 TO 100: IF B%(X) = PL THEN I2 = X:C$ = B$(X): GOTO 6026 6025 IF I2 = 0 THEN NEXT : GOTO 6027 6026 IF I2 < 101 THEN 8090 6027 IF B%(I2) = - 1 THEN I = 1 6: GOTO 40000 6028 I = 7: GOTO 40000 6030 IF I2 = 146 AND I3 = 120 THEN 8100 6032 GOTO 6024 6040 IF I2 = 0 THEN PRINT "DROP WHAT?": GOTO 4995 6042 IF PL% < > 0 THEN I = 3: GOTO 40000 6043 IF I2 = 34 AND PL = 64 THEN B%(34) = 0:B%(94) = PL: GOTO 1000 6044 IF I2 > 100 THEN I = 1: GOTO 40000 6046 GOTO 8120 6050 IF C = 0 THEN I = 10: GOTO 40000 6051 IF I3 = 122 AND B%(I4) < > - 1 THEN C$ = B$(I4):I = 9: GOTO 40000 6052 FOR X = 101 TO 110: IF B%(X ) = PL THEN I2 = X: GOTO 605 5 6054 NEXT X:I = 1: GOTO 40000 6055 GOTO 8130 6060 I = 1: GOTO 40000 6070 IF I2 = 0 THEN PRINT "CLIM B WHAT?": GOTO 4995 6072 GOTO 8150 6080 IF B%(I2) = PL AND C = 1 AND I3 = 122 AND I4 = 28 THEN 81 70 6082 IF B%(I2) = PL AND C = 1 AND I3 = 122 AND (I4 = 29 OR I4 = 30) THEN 8200 6084 IF B%(I2) = PL AND B%(28) = - 1 THEN 8170 6088 I = 1: GOTO 40000 6090 IF I2 < 136 OR I2 > 144 THEN I = 1: GOTO 40000 6092 IF PL = 59 AND I2 = 136 THEN PL = 60: GOTO 100 6094 IF I2 = 137 THEN 8140 6095 IF I2 = 138 AND SP%(1) = 0 THEN SP%(1) = 1: GOTO 8210 6096 IF I2 = 139 AND SP%(2) = 0 THEN SP%(2) = 1: GOTO 8210 6097 IF I2 = 140 AND SP%(3) = 0 THEN SP%(3) = 1: GOTO 8210 6098 IF I2 = 141 AND SP%(4) = 0 THEN SP%(4) = 1: GOTO 8210 6099 IF I2 = 142 AND SP%(5) = 0 THEN SP%(5) = 1: GOTO 8210 6100 IF I2 = 143 AND SP%(6) = 0 THEN SP%(6) = 1: GOTO 8210 6101 IF I2 = 144 AND SP%(7) = 0 THEN SP%(7) = 1: GOTO 8210 6105 I = 11: GOTO 40000 6110 GOTO 8230 6120 GOTO 8250 6130 IF I4 = 0 THEN PRINT "THRO W WHAT AT WHOM?": GOTO 4995 6132 IF C = 0 THEN I = 1: GOTO 4 0000 6133 IF B%(I4) < > PL THEN C$ = B$(I4):I = 4: GOTO 40000 6134 IF I3 = 121 AND B%(I2) = - 1 THEN 8260 6136 IF B%(I2) < > - 1 THEN I = 9: GOTO 40000 6138 I = 1: GOTO 40000 6140 IF B%(I2) < > - 1 THEN I = 9: GOTO 40000 6142 IF I3 = 120 AND B%(I4) = PL THEN 8270 6144 I = 1: GOTO 40000 6150 IF I2 = 0 THEN PRINT "HELP WHO?": GOTO 4995 6152 IF I2 = 146 THEN 8280 6154 I = 1: GOTO 40000 6160 IF I2 = 0 THEN PRINT B$;" WHAT?": GOTO 4995 6162 IF B%(I2) < > - 1 AND B%( I2) < > PL THEN I = 4: GOTO 40000 6164 GOTO 8290 6170 IF I2 = 0 THEN PRINT "EAT WHAT?": GOTO 4995 6172 IF B%(I2) < > - 1 AND B%( I2) < > PL THEN I = 4: GOTO 40000 6174 GOTO 8300 6180 IF I2 = 26 THEN 8310 6181 IF C = 1 AND B%(I2) = PL AND I2 > 100 AND I2 < 111 THEN PRINT "PERVERT!":ST = 0: GOTO 4000 6182 I = 1: GOTO 40000 6190 GOTO 8320 6200 IF I2 = 127 THEN 8340 6202 I = 1: GOTO 40000 6210 GOTO 8350 6220 GOTO 8360 6230 GOTO 8370 6240 GOTO 8380 6250 IF I2 = 87 THEN 8390 6252 I = 1: GOTO 40000 6260 I = 1: GOTO 40000 6270 IF I2 = 0 THEN PRINT "READ WHAT?": GOTO 40000 6271 IF I2 = 8 AND (B%(I2) = - 1 OR B%(I2) = PL) THEN 8400 6272 IF I2 = 9 AND (B%(I2) = - 1 OR B%(I2) = PL) THEN 8410 6273 IF I2 = 35 AND (B%(I2) = - 1 OR B%(I2) = PL) THEN 8420 6274 IF I2 = 38 AND (B%(I2) = PL OR B%(I2) = - 1) THEN 8430 6275 IF I2 = 39 AND (B%(I2) = PL OR B%(I2) = - 1) THEN 8440 6278 I = 1: GOTO 40000 6280 GOTO 8450 6290 IF B%(31) < > - 1 THEN C$ = B$(31):I = 9: GOTO 40000 6292 GOTO 8470 6300 GOTO 8480 6310 GOTO 8500 6320 IF B%(24) < > - 1 THEN I = 9: GOTO 40000 6322 GOTO 8520 6330 IF B%(36) < > - 1 THEN I = 9: GOTO 40000 6332 GOTO 8530 6340 IF B%(32) < > - 1 AND B%( 32) < > PL THEN I = 9: GOTO 40000 6342 GOTO 8540 6350 PL < > B%(148) THEN I = 15: GOTO 40000 6360 IF I2 = 147 AND B%(22) < > - 1 THEN C$ = B$(22):I = 9: GOTO 40000 6362 IF I2 = 147 THEN PRINT "YO U CAN SEE AN OLD MAN POISONI NG SOME FOOD.": GOTO 2000 6364 GOTO 100 8000 IF N < > 0 THEN PL = N:F = 10: GOTO 8035 8005 I = 2: GOTO 40000 8010 IF S < > 0 THEN PL = S:F = 11: GOTO 8035 8015 I = 2: GOTO 40000 8020 IF E < > 0 THEN PL = E:F = 12: GOTO 8035 8025 I = 2: GOTO 40000 8030 IF W < > 0 THEN PL = W:F = 13: GOTO 8035 8032 I = 2: GOTO 40000 8035 IF C = 0 THEN F = 0: GOTO 1 00 8038 IF ST%(1) = 0 THEN F = 0: GOTO 100 8039 GOTO 2110 8040 IF PL = 31 THEN PL = 33: GOTO 8045 8042 IF PL = 33 THEN PL = 31: GOTO 8045 8043 C$ = B$(127):I = 4: GOTO 400 00 8045 IF C = 0 THEN 100 8046 N = PL:F = 10: GOTO 2000 8050 IF PL = 49 THEN PL = 67: GOTO 8055 8052 IF PL = 80 THEN PL = 79: GOTO 8055 8053 C$ = B$(134):I = 4: GOTO 400 00 8055 IF C = 0 THEN 100 8056 N = PL:F = 10: GOTO 2000 8060 IF PL = 67 THEN PL = 49: GOTO 8065 8062 IF PL = 79 THEN PL = 80: GOTO 8065 8063 C$ = B$(134): GOTO 40000 8065 IF C = 0 THEN 100 8066 N = PL:F = 10: GOTO 2000 8070 IF B = 0 THEN C$ = B$(148): I = 4: GOTO 40000 8072 PL = B%(148): GOTO 100 8080 IF B = 0 THEN I = 13: GOTO 40000 8082 IF PL = 93 THEN PL = 94 8084 IF PL = 75 THEN PL = 68 8086 IF PL = 76 THEN PL = 77 8088 GOTO 100 8090 IF B%(I2) < > PL THEN I = 4: GOTO 40000 8092 WE = 0: FOR I = 1 TO 100: IF B%(I) = - 1 THEN WE = WE + WE%(I) 8094 NEXT :WE = WE + WE%(I2): IF WE > ST * 2 THEN I = 12: GOTO 40000 8095 IF I2 = 35 THEN T = 1 8096 B%(I2) = - 1:I = 6: GOTO 40 000 8100 IF B%(87) < > - 1 THEN C$ = B$(87):I = 9: GOTO 40000 8102 PL = B%(I4): GOTO 100 8120 IF B%(I2) < > - 1 THEN I = 9: GOTO 40000 8122 B%(I2) = PL:I = 8: GOTO 4000 0 8130 F = 3: GOTO 2000 8140 IF B%(20) < > 1 THEN C$ = B$(20):I = 4: GOTO 40000 8142 IF PL = 85 THEN 45000:SKREN TA 8143 IF C = 1 THEN F = 14: GOTO 2000 8144 I = 11: GOTO 40000 8150 IF PL = 74 THEN PL = 39: GOTO 8166 8152 IF PL = 39 THEN PL = 74: GOTO 8166 8154 IF PL = 95 THEN PL = 100: GOTO 8166 8156 IF PL = 100 THEN PL = 95: GOTO 8166 8157 IF PL = 41 THEN PL = 40: GOTO 8166 8158 IF PL = 53 THEN PL = 54: GOTO 8166 8159 IF PL = 40 THEN PL = 41: GOTO 8166 8160 IF PL = 54 THEN PL = 53: GOTO 8166 8165 I = 3: GOTO 40000 8166 GOTO 100 8170 IF B%(28) < > - 1 THEN C$ = B$(28):I = 9: GOTO 40000 8172 IF SH = 0 THEN SH = 1:F = 6 : GOTO 2000 8174 PRINT "NO FLARES.": GOTO 20 00 8200 IF B%(29) < > - 1 THEN C$ = B$(29):I = 9: GOTO 40000 8202 IF B%(30) < > - 1 THEN C$ = B$(30):I = 9: GOTO 40000 8204 B%(29) = 0:F = 7: GOTO 2000 8210 IF C = 0 THEN ST = ST + 30: GOTO 4000 8212 F = 1: GOTO 2000 8230 PRINT "INSERT DISK TO SAVE GAME TO AND PRESS RETURN." : GET A$ 8232 PRINT "dOPEN OLD GAME": PRINT "dWRITE OLD GAME": PRINT PL: PRINT TR: PRINT SS: PRINT ST: PRINT NT: PRINT HE 8234 FOR I = 0 TO 15: PRINT D%(I ): NEXT : FOR I = 0 TO 7: PRINT SP%(I): NEXT : FOR I = 1 TO 150: PRINT B%(I): NEXT 8236 PRINT "dCLOSE OLD GAME" 8238 GOTO 8252 8250 PRINT "SAVE GAME?": GET A$: IF A$ = "Y" THEN 8230 8252 TEXT : HOME : VTAB 10: PRINT "TYPE 'GOTO 95' TO REENTER G AME.": END 8260 B%(I2) = - I4:F = 3: GOTO 2 000 8270 B%(I2) = - I4:F = 2: GOTO 2 000 8280 PO = 67: GOSUB 4500:PO = 68: GOSUB 4500: GOTO 2000 8290 B%(I2) = 0:I = 14: GOTO 4000 0 8300 IF I2 = 18 THEN B%(17) = 0: ST = ST + 20: GOTO 4000 8302 IF I2 = 17 THEN PRINT "gIT WAS POISONEDg!":ST = ST - 35: B%(18) = 0: GOTO 4000 8304 IF I2 = 33 THEN B%(33) = 0: PRINT "UUGH #%*!& CAN'T ST AND MINT!": GOTO 2000 8306 I = 1: GOTO 40000 8310 IF B%(26) < > - 1 AND B%( 26) < > PL THEN I = 4: GOTO 40000 8312 PO = 69: GOSUB 4500:PO = 70: GOSUB 4500: GOTO 2000 8320 IF PL = 32 THEN 8328 8322 IF PL = 39 THEN 8328 8324 IF PL = 55 THEN PL = 56: GOTO 100 8326 I = 11: GOTO 40000 8328 PL = 101:ST = 0: GOTO 100 8340 I2 = 128:I3 = 127: GOTO 6000 8350 ST = 0:I = 14: GOTO 40000 8360 I = 1: GOTO 40000 8370 PRINT "YOU CANNOT RIDE IT, BUT IT CAN HELP YOU CARRY SO ME OBJECTS (VIA NEGATIVE WEI GHT)": GOTO 2000 8380 I = 1: GOTO 40000 8390 PRINT "THERE IS A SPECIAL W AY TO DO THAT. CHECKTHE INST RUCTIONS ON YOUR RUG.": GOTO 2000 8400 PO = 71: GOSUB 4500:PO = 72: GOSUB 4500: GOTO 2000 8410 PRINT "THE SCROLL SAYS, TO ENTER THE TEMPLE OF TARISMON , SAY 'FRIEND'." GOTO 2000 8420 PRINT "THE PAPER IS A REWAR D POSTER. IT SAYS '50 PIEC ES OF GOLD OFFERED FOR THE H EAD OF LESTER, THE MOST FEAR ED VILLIAN IN THE WHOLE LA ND. RETURN HEAD TO SALOON AN D YOU SHALL BE PAID.'": GOTO 2000 8430 PRINT "THEN NOTE HAS 'ENTER SSSEW, EXIT WWWWE 'SCRIBBLE D ON IT.": GOTO 2000 8440 PRINT "THE INSTRUCTIONS REA D 'WITH THE RUG IN YOUR POS SESION, SAY 'TAKE ME TO' FOL - LOED BY THE NAME OF THE PLACE YOU WOULD LIKE TO GO. SATISFACTION GUARANTEED.": GOTO 2000 8450 PRINT "YOU ARE CARRYING:" 8451 PRINT 8452 H = 0: FOR I = 1 TO 100: IF B%(I) = - 1 THEN 8458 8454 NEXT : IF H = 0 THEN PRINT "NOTHING." 8455 GOTO 2000 8458 IF H = 0 THEN H = 1 8460 GOSUB 1700: PRINT "A ";S$: NEXT 8462 GOTO 2000 8470 IF PL = 56 THEN PL = 57: PRINT "YOUR SAVED!": GOTO 100 8474 I = 11: GOTO 40000 8480 IF PL = 11 THEN PL = 12: GOTO 100 8482 IF PL = 13 THEN PL = 14: GOTO 100 8484 IF PL = 48 THEN PL = 66: GOTO 100 8485 IF PL = 63 THEN PL = 64: GOTO 100 8488 I = 1: GOTO 40000 8500 IF PL = 12 THEN PL = 11: GOTO 100 8502 IF PL = 14 THEN PL = 13: GOTO 100 8504 IF PL = 66 THEN PL = 48: GOTO 100 8506 IF PL = 64 THEN PL = 63: GOTO 100 8508 I = 1: GOTO 40000 8520 IF C = 1 THEN F = 15: GOTO 2000 8522 I = 11: GOTO 40000 8530 I = 11: GOTO 40000 8540 B%(102) = PL:PL% = 0:B%(101) = 0:F = 1: GOTO 2000 8550 IF I2 = 111 AND N% < > 0 THEN B%(148) = N%:PL = N%: GOTO 1 00 8552 IF I2 = 112 AND S% < > 0 THEN B%(148) = S%:PL = S%: GOTO 1 00 8554 IF I2 = 113 AND E% < > 0 THEN B%(148) = E%:PL = E%: GOTO 1 00 8556 IF I2 = 114 AND W% < > 0 THEN B%(148) = W%:PL = W%: GOTO 1 00 8558 I = 1: GOTO 40000 30000 ON PL GOTO 115,115,115,115 ,30052,30052,30052,30052,300 52,115,115,30052,115,30052,3 0052,30052,115,115,115,115,1 15,115,115,115 30002 ON (PL - 24) GOTO 31010,30 052,30052,30052,115,115,115, 115,115,115,115,115,115,3005 2,30052,115,115,30054,30052, 30052,30052,30052,30052,3005 2,30052,30052,30052,30052,30 052,115,115,30054,115,30050, 115,30052,30052,115,115,3005 2,115,30052,30052 30003 IF PL = 67 THEN 30052 30004 ON (PL - 67) GOTO 30100,11 5,115,30260,30270,30280,3029 0,30110,30120,30130,115,115, 115,115,115,115,115,115,3014 0,30150,30160,30170,30180,30 190,30200,30210,30220,115,30 050,30230,30240,30250,115 30005 ST = 0: GOTO 115 30050 ST = 0: GOTO 115 30052 PL% = 1: GOTO 115 30054 PL% = 2: GOTO 115 30060 T$ = T$ + CHR$ (13) + "DOC KED HERE IS A SMALL ROWBOAT. ": IF QW = 0 THEN QW = 1:T$ = T$ + " ROWBOAT INSTRUCTIONS: GET IN,OFF,ROW NORTH,ETC.": GOTO 115 30100 IF B%(148) = 75 THEN B = 1 : GOTO 30060 30110 N% = 86:S% = 0:E% = 89:W% = 86:B = 1: GOTO 30054 30120 N% = 90:S% = 0:E% = 99:W% = 91:B = 1: GOTO 30054 30130 IF B%(148) = 76 THEN B = 1 : GOTO 30060 30140 N% = 91:S% = 75:E% = 87:W% = 86: GOTO 30054 30150 N% = 96:S% = 87:E% = 88:W% = 86: GOTO 30054 30160 N% = 97:S% = 89:E% = 88:W% = 87: GOTO 30054 30170 N% = 88:S% = 89:E% = 90:W% = 89: GOTO 30054 30180 N% = 88:S% = 90:E% = 0:W% = 89: GOTO 30054 30190 N% = 92:S% = 86:E% = 96:W% = 97: GOTO 30054 30200 N% = 93:S% = 91:E% = 96:W% = 98: GOTO 30054 30210 B = 1:N% = 0:S% = 92:E% = 9 8:W% = 96: GOTO 30054 30220 IF B%(148) = 93 THEN B = 1 : GOTO 30060 30230 N% = 98:S% = 88:E% = 92:W% = 96: GOTO 30054 30240 N% = 99:S% = 97:E% = 93:W% = 96: GOTO 30054 30250 N% = 99:S% = 98:E% = 99:W% = 99: GOTO 30054 30260 IF B%(27) < > - 1 THEN T $ = "IN A DARK PASSAGE. YOU WILL NEED A SOURCE OF L IGHT TO CONTINUE.": GOTO 115 30270 GOTO 30260 30280 GOTO 30260 30290 GOTO 30260 31000 N = 58:S = 58:E = 58:W = 58 : GOTO 115 31010 N = 101:S = 101:E = 101:W = 101: GOTO 115 40000 ON I GOTO 40001,40002,4000 3,40004,40005,40006,40007,40 008,40009,40010,40011,40012, 40013,40014,40015,40016 40001 PRINT "I DO NOT UNDERSTAND WHAT YOU MEAN TO DO.": GOTO 2000 40002 PRINT "YOU CANNOT GO IN TH AT DIRECTION.": GOTO 2000 40003 PRINT "YOU CAN'T DO THAT H ERE.": GOTO 2000 40004 PRINT "I SEE NO ";C$;" HER E.": GOTO 2000 40005 PRINT "TO CROSS THE TARISM ON, FIND THE BRIDGE.": GOTO 2000 40006 PRINT "OKAY, YOU GOT THE " ;C$: GOTO 2000 40007 PRINT "I SEE NOTHING HERE. ": GOTO 2000 40008 PRINT "DROPPED.": GOTO 200 0 40009 PRINT "YOU DON'T HAVE THE ";C$: GOTO 2000 40010 PRINT "I SEE NO ONE HERE." : GOTO 2000 40011 PRINT "NOTHING HAPPENS.": GOTO 2000 40012 PRINT "YOU MUST DROP SOMET HING ELSE BEFORE YOU CAN CAR RY IT.": GOTO 2000 40013 PRINT "YOU'RE IN THE MIDDL E OF THE OCEAN": GOTO 2000 40014 PRINT "DONE.": GOTO 2000 40015 PRINT "YOU AREN'T IN THE B OAT.": GOTO 2000 40016 PRINT "YOU ALREADY HAVE TH E ";C$: GOTO 2000 50000 DIM A$(80),B$(200),B%(200) ,WE%(100),T$(101),N%(101),S% (101),E%(101),W%(101),D%(15) 50005 POKE 35,23 50010 PRINT "dOPENINIT": PRINT "dR EADINIT": FOR I = 1 TO 69: INPUT A$(I): NEXT : FOR I = 1 TO 1 83: INPUT B$(I): NEXT : FOR I = 1 TO 183: INPUT B%(I): NEXT : FOR I = 1 TO 100: INPUT WE %(I): NEXT 50020 FOR I = 0 TO 101: INPUT T$ (I): NEXT : FOR I = 1 TO 100 : INPUT N%(I): NEXT : FOR I = 1 TO 100: INPUT S%(I): NEXT 50025 FOR I = 1 TO 100: INPUT E% (I): NEXT : FOR I = 1 TO 100 : INPUT W%(I): NEXT 50030 PRINT "dCLOSEINIT" 50040 A = 69:B1 = 183: FOR I = 1 TO 10:ST%(I) = 10: NEXT 50100 PRINT "WOULD YOU LIKE (A) NEW GAME OR (B) PREVIOUS GA ME ->";: GET A$: PRINT A$: IF A$ < > "A" AND A$ < > "B" THEN HOME : GOTO 50100 50110 HOME : IF A$ = "B" THEN 50 300 50120 PL = 1:SS = 1:ST = 50: GOTO 95 50300 PRINT "INSERT DISK WITH OL D GAME AND PRESS ": GET A$: HOME : PRINT PRINT "dVERIFY OLD GAME": PRINT "dOP EN OLD GAME": PRINT "dREAD OL D GAME" 50310 INPUT PL,TR,ST.NT,HE: FOR I = 0 TO 15: INPUT D%(I): NEXT : FOR I = 1 TO 8: INPUT SP%( I): NEXT 50315 FOR I = 1 TO 150: INPUT B% (I): NEXT : PRINT "dCLOSEOLD GAME": GOTO 95 ]