Info

1490 GOSUB 2250 : GOTO 560 1500 GOSUB 2200 1510 IF I <> 7 THEN 2240 1520 FOR I = 0 TO 83 : IF ACI) = 0 AND LEFTSCDSCI), 1) = "*" THEN ACI) = A : HCI) = 0 : B = B - 1 s PRINT "WHIRRR ! BUZZ SAW RIPS THE "DSCI) : PRINT " RIGHT OUT MY HANDS AND DESTROYS IT!" : GOTO 560 1530 NEXT s PRINT "BUZZ SAW TURNS ON FO R A MOMENT... THEN STOPS." : GOTO 560

1540 IF AS <> "LOC" THEN 2240 1550 IF AC55) <> 0 OR A <> 4 THEN 2220 1560 PRINT "OK." : DSC9) = "UNLOCKED ME TAL DOOR" : DSC10) = "UNLOCKED METAL DOOR" : GOTO 560 1570 GOSUB 2200 : IF ACI) <> A AND ACI) <> 0 OR HCI) = 0 THEN 2230 ELSE IF I <> 30 THEN PRINT "I CAN'T, IT'S UNBR EAKABLE." : GOTO 560 1580 IF AC3) = 0 AND CAC30) = 0 OR AC30 ) = A) AND DSC30) = "PIGGY BANK" THEN PRINT "SMASH! I HEAR A JINGLE«," : H C32) = 2 s AC32) = A : DSC30) = "PIEC ES OF BROKEN PIGGY BANK" : ASC30) = " PIE" ELSE 2220 1590 GOTO 560

1600 GOSUB 2200 : IF I <> 32 THEN 2240 1610 IF A = 39 AND AC32) = 0 THEN PRINT "DOOR FLIES OPEN!" : DSC62) = "UNLOC KED WATER CLOSET" : AC32) = 39 : HC32 ) = 0 : B = B - 1 ELSE 2220 1620 GOTO 560

1630 GOSUB 2200 : GOTO 2240

"IT ISN'T BOLTED." : GOTO 560 1650 IF A = 31 AND AC5) = 0 THEN PRINT "OK." : HC38) = 2 : HC39) = 2 : GOTO 560 ELSE 2220 1660 GOSUB 2200 : IF ACI) <> A AND ACI) <> 0 OR HCI) = 0 THEN 2230

1670 IF I = 73 THEN PRINT "BURP... BOY AM I PLASTERED!" : GOTO 560 ELSE PRIN T "YUCK!" : GOTO 560 1680 GOSUB 2200 : IF A(I) <> A AND A(I)

<> 0 OR H(I) =0 THEN 2230 1690 IF A(79) <> 0 THEN PRINT "I DON'T

HAVE A MATCH." : GOTO 560 1700 IF I = 8 OR I = 73 THEN PRINT "KAB OOM! MY BODY IS BLOWN INTO SMALL UNR ECOGNIZABLE PIECES." : B = B - 2 : A( I) = A : H(I) = 0 : A(79) = A : H(79) = 0 s GOTO 2280 1710 IF I = 79 THEN PRINT "MATCH FLARES UP BRIEFLY... THEN DISINTEGRATES." : B = B - 1 : A(79) = A : H(79) = 0 : GOTO 560

1720 PRINT "IT WON'T BURN." : GOTO 560 1730 GOSUB 2200 : IF A(I) <> A OR H(I)

= 0 THEN 2230 1740 IF I = 76 THEN PRINT "OK." : HCI) = 2 : A(I) = 0 : B = B + 1 : GOTO 560 ELSE PRINT "NOTHING HAPPENS." : GOTO 560

<> 0 OR H(I) = 0 THEN 2230 1760 IF I = 1 OR I = 18 OR I = 69 OR I = 53 OR I = 54 OR I = 61 THEN PRINT " MAYBE I SHOULD READ IT?" : GOTO 560 1770 IF I = 2 OR I = 29 OR I = 72 OR I = 9 OR I = 10 OR I = 47 OR I = 82 OR I = 11 OR I = 25 OR I = 21 OR I = 26 OR I = 35 OR I = 62 OR I = 31 THEN PR INT "THERE'S SOMETHING THERE... MAYBE I SHOULD GO THERE?" : GOTO 560 1780 IF I = 40 OR I = 51 OR I = 58 OR I = 56 OR I = 60 OR I = 59 OR I = 38 0 R I = 80 OR I = 83 OR I = 66 THEN PRI NT "THERE'S SOMETHING THERE... MAYBE I SHOULD GO THERE?" : GOTO 560 1790 IF I = 75 AND H(77) = 0 THEN HC76)

= 1 : H(77) = 2 : GOTO 1860 1800 IF I = 33 AND H(34) = 0 THEN H(34)

= 2 : GOTO 1860 1810 IF I = 27 AND H(28) = 0 THEN H(28)

= 2 : GOTO 1860 1820 IF I = 30 THEN PRINT "IT LOOKS BRE

AKABLE." : GOTO 560 1830 IF I = 46 THEN PRINT "IT'S A KEY T

0 AN EDSEL." : GOTO 560 1840 IF I = 42 AND H(43) = 0 THEN 1860 1850 PRINT "I SEE NOTHING SPECIAL." : G OTO 560

1860 PRINT "THERE'S SOMETHING THERE." : GOTO 560

1870 GOSUB 2200 : IF A(I) <> A AND A(I) <> 0 OR H(I) = 0 THEN 2230

1880 IF I = 1 OR I = 18 OR I = 69 THEN PRINT "MAXIMUM CAPACITY: 1 PERSON OR 175 POUNDS." : GOTO 560 1890 IF I = 53 THEN PRINT "DEAR LORD," : PRINT "HAVING A GREAT TIME, WISH YO U WERE HERE." : GOTO 560 1900 IF I = 54 THEN PRINT "NOTE FROM TH E POST OFFICE:" : PRINT "POSTAGE DUE: 42 CENTS." : GOTO 560 1910 IF I = 61 THEN PRINT "YOUR MISSION IS TO REPOSSESS THE 13 ^TREASURES* 0 F LORD HOG" : PRINT "JOWL AND STORE T HEM IN A PREDETERMINED PLACE... GOOD LUCK!" : GOTO 560 1920 PRINT "I CAN'T, IT'S ILLEGIBLE." : GOTO 560

1930 ON A GOTO 1950, 1950, 1960, 1960, 1950, 1950, 1950, 1950, 1950, 1950, 1 950, 1950, 1950, 1950, 1950, 1950, 19 50, 1950, 1950, 1950, 1950, 1950, 197 0, 1970

1940 ON A - 24 GOTO 1950, 1950, 1950, 1 950, 1950, 1950, 1950, 1950, 1950, 19 50, 1950, 1980, 1950, 1980, 1990, 195 0, 1950, 1950, 1950, 1950, 1950, 1950 , 1980, 1950 1950 PRINT "TRY EXAMINING THINGS." : GO TO 560

1960 PRINT "I'M PRETTY GOOD AT PICKING

LOCKS." : GOTO 560 1970 PRINT "I USED TO BE A -MOVING- MAN

." : GOTO 560 1980 PRINT "I'M A PRETTY GOOD MARKSMAN.

" : GOTO 560 1990 PRINT "IT'S A PAY TOILET«" : GOTO 560

2000 FOR I = 2 TO 962 STEP 64 : C = PEE KG + 15360) : PRINTS) 1-2, CHR$(30) ; : IF C = 45 THEN 2010 ELSE NEXT 2010 PRINT CHR$(28)"I AM "; : IF LEFTS( C$(A), 1) = "*" THEN PRINT RIGHT$(C$( A), LEN(C$(A)) - 1); : D = - 1 ELSE P RINT C$(A); : D = 0 2020 FOR I = 0 TO 83 : IF A(I) = A AND H(I) > 0 THEN 2030 ELSE NEXT : GOTO 2 090

2030 PRINT " VISIBLE ITEMS:" : PRINT

2070 PRINT D$(I>". "; 2080 NEXT 2090 PRINT

2130 IF D(A) > 0 THEN F$ = F$ + "EAST "

2140 IF ECA) > 0 THEN F$ = F$ + "WEST "

2150 IF FCA) > 0 THEN F$ = F$ + "UP " 2160 IF GCA) > 0 THEN F$ = F$ + "DOWN "

2180 PRINT : PRINT "SOME OBVIOUS EXITS

ARE: "F$ 2190 PRINT C$; s RETURN 2200 FOR I = 0 TO 83 : IF ASCI) = LEFTS CES, 3) THEN H = I : IF ACI) = A OR A CI) = 0 THEN RETURN 2210 NEXT : I = H : IF ASCI) = LEFTSCES , 3) THEN RETURN ELSE PRINT "I DON'T KNOW WHAT " CHRSC34)E$ CHRSC34)" IS," : GOTO 560 2220 PRINT "I CAN'T DO THAT... YETi" : GOTO 560

2230 PRINT "I DON'T SEE IT HERE." : GOT 0 560

2240 PRINT "I MUST BE STUPID, BUT I DON 'T UNDERSTAND WHAT YOU MEAN." : GOTO 560

2250 E = 0 : FOR I = 0 TO 83 : IF ACI) = 40 AND LEFTSCDSCI), 1) = "*" THEN E

2260 NEXT : F = E * 100/13 : PRINT "YOU STORED"E"TREASURES. ON A SCALE OF 0 TO 100 THAT RATES"*STR$CF)".";

2270 IF E = 13 THEN PRINT "EXCELLENT! YOU HAVE COMPLETED THIS ADVENTURE." : GOTO 2310 ELSE PRINT : RETURN

2280 PRINT "I'M DEAD." : PRINT "MY BODY TELEPORTS ELSEWHERE."

2290 PRINT "I SINCERELY HOPE I CAN FIND MY WAY OUT OF HERE. I DON'T" : PRIN T "THINK I CAN STAND IT MUCH LONGER!" : A = 41 : GOTO 560

0 0

Post a comment