10 U:*INITIALIZE›20 *LOCATION1›30 C:#N=2›40 C:#S=3›50 C:#E=5›60 C:#W=4›70 C:$ITEM=A BOTTLE BURIED IN THE SAND›80 C(#B=1):$ITEM=A MESSAGE IN THE BOTTLE›90 C(#B=2):$ITEM=NOTHING UNUSUAL›100 C:$AREA=ON A SANDY BEACH›110 J:*PRINT›120 *LOCATION2›130 C:#S=1›140 C:#E=5›150 C:$ITEM=NOTHING SPECIAL›160 C:$AREA=ON A SANDY BEACH›170 J:*PRINT›200 *LOCATION3›220 C:#N=1›230 C:#E=5›235 C:#W=4›240 C:$ITEM=NOTHING OF INTEREST›250 C(#B=2):$ITEM=A SMALL SAILBOAT›255 C(#B=2):#W=6›260 C:$AREA=ON A ROCKY BEACH. THERE ARE CLIFFS TO THE SOUTH.›270 J:*PRINT›280 *LOCATION4›290 C:#W=4›300 C:#N=4›310 C:#S=4›320 C:#E=1›330 C:$ITEM=LOTS OF WATER›340 C:$AREA=SWIMMING IN THE OCEAN›350 J:*PRINT›360 *LOCATION5›370 C:#N=5›380 C:#S=5›390 C:#W=1›400 C:$AREA=IN A LARGE CITY›410 C:$ITEM=MANY BUILDINGS›420 J:*PRINT›440 *LOCATION6›450 C:#N=6›460 C:#S=6›470 C:#E=3›480 C:#W=7›490 C:$AREA=IN A SMALL SAILBOAT ON THE OCEAN›500 C:$ITEM=LOTS OF WATER›510 J:*PRINT›520 *LOCATION7›530 C:#S=8›540 C:#E=6›550 C:$AREA=ON A SANDY BEACH›560 C:$ITEM=A LARGE ROCK. THERE IS A MESSAGE ON THE ROCK.›570 J:*PRINT›580 *LOCATION8›590 C:#W=10›610 C:#N=7›620 C:$AREA=ON A HILL OVERLOOKING THE OCEAN›630 C:$ITEM=A SHOVEL›640 C(#B=3):$ITEM=A SHOVEL IN YOUR HANDS.›650 C(#B>3):$ITEM=A HOLE IN THE GROUND›655 C(#B>3):#D=9›660 J:*PRINT›670 *LOCATION9›680 C:#U=8›690 C:$AREA=IN THE BOTTOM OF A HOLE›700 C:$ITEM=A WOODEN CHEST›710 C(#B=5):$ITEM=AN OPEN WOODEN CHEST WITH A MESSAGE CARVED ON THE BOTTOM›720 J:*PRINT›730 *LOCATION10›740 C:#N=10›750 C:#S=11›760 C:#E=8›770 C:#W=10›780 C:$AREA=IN A FOGGY SWAMP›790 C:$ITEM=NOTHING›800 J:*PRINT›810 *LOCATION11›820 C:#N=10›830 C:#E=11›840 C:#S=11›850 C:#W=12›860 C:$AREA=IN A FOGGY SWAMP›870 C:$ITEM=NOTHING›880 J:*PRINT›890 *LOCATION12›900 C:#N=10›910 C:#W=10›920 C:#E=11›930 C:#S=11›940 C:$AREA=IN A CLEARING.›950 C:$ITEM=A LOG›960 J:*PRINT›970 *LOCATION13›980 C:#N=12›990 C:#S=15›1000 C:#E=16›1010 C:#W=14›1020 C:$AREA=IN A DAMP CAVE.›1030 C:$ITEM=A MESSAGE ON THE WALL›1040 J:*PRINT›1050 *LOCATION14›1060 C:#N=14›1070 C:#S=15›1080 C:#E=13›1090 C:$AREA=IN A NARROW TUNNEL›1100 C:$ITEM=NOTHING›1110 J:*PRINT›1120 *LOCATION15›1130 C:#N=13›1140 C:#E=16›1150 C:#W=14›1160 C:$AREA=IN A NARROW TUNNEL›1170 C:$ITEM=NOTHING›1180 J:*PRINT›1190 *LOCATION16›1200 C:#W=13›1210 C:#S=17›1220 C:$AREA=ON A NARROW LEDGE›1230 C:$ITEM=WATER RUNNING DOWN THE WALLS.›1240 J:*PRINT›1250 *LOCATION17›1260 C:#D=18›1270 C:#N=16›1280 C:$AREA=ON THE RIM OF A LEDGE›1290 C:$ITEM=LADDER GOING DOWN›1300 J:*PRINT›1310 *LOCATION18›1320 C:$AREA=AT THE BOTTOM OF A LEDGE›1330 C:$ITEM= ŞŞ ÔČĹ ÔŇĹÁÓŐŇĹ ŞŞ›1340 C:#T=1›1350 J:*PRINT›1360 *PRINT›1370 T:}›1380 POS:0,0›1390 T:ĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄĄ\›1400 T:›1410 T:  YOU ARE $AREA›1420 POS:0,4›1430 T:¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©¨©\›1440 T:›1450 T:  You can see:›1460 T:  $ITEM›1470 POS:0,9›1480 T:                     N›1490 T:                    
     U›1500 T:  POSSIBLE EXITS   W   E    | |›1510 T:                         D›1520 T:                     S›1530 POS:21,10›1540 T(#N>0):›1550 POS:20,11›1560 T(#W>0):›1570 POS:22,11›1580 T(#E>0):›1590 POS:21,12›1600 T(#S>0):›1610 POS:29,11›1620 T(#U>0):›1630 T(#D>0):›1640 POS:0,15›1650 T:ŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝŰÝ\›1660 T:›1670 J(#T=1):*WIN›1680 T:  WHAT DO YOU WANT TO DO:›1690 T:›1700 T:›1710 J:*INPUT›1720 *INPUT›1730 T:\›1740 A:›1750 M: NORTH, SOUTH, EAST, WEST, UP, DOWN›1760 JM:*NORTH,*SOUTH,*EAST,*WEST,*UP,*DOWN›1770 M:TAKE,GET,READ,DIG,HOLE,OPEN,LOG›1780 JM:*TAKE,*TAKE,*READ,*DIG,*HOLE,*OPEN,*LOG›1790 T:ý  I DON'T UNDERSTAND THAT!›1800 J:*CLEARBOTTOM›1810 *NORTH›1820 J(#N=0):*CANTGO›1830 C:$LOCNUM=#N›1840 J:*CHANGELOCATION›1850 *SOUTH›1860 J(#S=0):*CANTGO›1870 C:$LOCNUM=#S›1880 J:*CHANGELOCATION›1890 *EAST›1900 J(#E=0):*CANTGO›1910 C:$LOCNUM=#E›1920 J:*CHANGELOCATION›1930 *WEST›1940 J(#W=0):*CANTGO›1950 C:$LOCNUM=#W›1960 J:*CHANGELOCATION›1970 *UP›1980 J(#U=0):*CANTGO›1990 C:$LOCNUM=#U›2000 J:*CHANGELOCATION›2010 *DOWN›2020 J(#D=0):*CANTGO›2030 C:$LOCNUM=#D›2040 J:*CHANGELOCATION›2050 *LOG›2060 A:=$LOCATION›2070 M:LOCATION12›2080 JN:*CANTDO›2090 C:$LOCNUM=13›2100 J:*CHANGELOCATION›2110 *HOLE›2120 A:=$LOCATION›2130 M:LOCATION8›2140 JN:*CANTDO›2150 J:*DOWN›2170 *CANTGO›2180 T:ý  YOU CAN'T GO IN THAT DIRECTION!›2190 J:*CLEARBOTTOM›2200 *TAKE›2210 A:=$LOCATION›2220 M:LOCATION1,LOCATION8›2230 JM:*TAKE1,*TAKE2›2240 T:ý  THERE IS NOTHING HERE TO TAKE!›2250 J:*CLEARBOTTOM›2260 *TAKE1›2270 J(#B<>0):*HAVE›2280 C:#B=1›2290 U:*OK›2300 J:*LOCATION1›2310 *TAKE2›2320 J(#B>2):*HAVE›2330 C:#B=3›2340 U:*OK›2350 J:*LOCATION8›2355 *READ›2360 J(#B=1):*MESSAGE1›2370 A:=$LOCATION›2380 M:ON7 ,ON9 ,N13 ,›2390 UY:*OK›2400 TY:›2410 JM:*MESSAGE2,*MESSAGE3,*MESSAGE4›2420 J:*CANTREAD›2430 *MESSAGE1›2440 U:*OK›2450 C:#B=2›2455 T:›2460 T:   FIND A BOAT›2470 T:    SAIL IT WEST›2480 T:     THERE'S A TREASURE THERE›2490 T:      ONE OF THE BEST›2500 J:*RESET›2510 *MESSAGE2›2520 T:   FIND A SHOVEL›2530 T:    DIG IN THE GROUND›2540 T:     FOR THERE A CLUE›2550 T:      MAY BE FOUND›2560 J:*RESET›2570 *MESSAGE3›2580 J(#B<5):*CANTREAD›2590 T:   WHEN YOU CAN SEE›2600 T:    THROUGH THE FOG›2610 T:     CRAWL INTO›2620 T:      THE HOLLOW LOG›2630 J:*RESET›2640 *MESSAGE4›2650 T:   LOOK AROUND THE CAVE›2660 T:    SO DIM›2670 T:     AND THEN CLIMB ONTO›2680 T:      THE RIM›2690 J:*RESET›2700 *OPEN›2710 A:=$LOCATION›2720 M:LOCATION9›2730 JN:*CANTDO›2740 J(#B<>4):*HAVE›2750 C:#B=5›2760 U:*OK›2770 J:*LOCATION9›2780 *DIG›2790 A:=$LOCATION›2800 M:LOCATION8›2810 JN:*CANTDO›2820 J(#B<3):*CANTDO›2830 J(#B>=4):*HAVE›2840 C:#B=4›2850 U:*OK›2860 J:*LOCATION8›2870 *CANTREAD›2880 T:ý  THERE IS NOTHING HERE TO READ!›2885 T(#B=2):  THE NOTE TURNED TO DUST!›2890 J:*CLEARBOTTOM›2900 *CANTDO›2910 T:ý  YOU CAN'T DO THAT!›2920 J:*CLEARBOTTOM›2930 *HAVE›2940 T:  YOU ALREADY HAVE!›2950 J:*CLEARBOTTOM›2960 *OK›2970 T:  OKAY!›2980 PA:60›2990 E:›3000 *CHANGELOCATION›3010 C:#N=0›3020 C:#S=0›3030 C:#E=0›3040 C:#W=0›3050 C:#U=0›3060 C:#D=0›3070 C:$LOCATION=LOCATION$LOCNUM›3080 A:=$LOCATION›3090 M:ON1 ,ON2 ,ON3 ,ON4 ,ON5 ,ON6 ,ON7 ,›3100 JM:*LOCATION1,*LOCATION2,*LOCATION3,*LOCATION4,*LOCATION5,*LOCATION6,*LOCATION7›3120 M:ON8 ,ON9 ,N10 ,N11 ,N12 ,N13 ,›3130 JM:*LOCATION8,*LOCATION9,*LOCATION10,*LOCATION11,*LOCATION12,*LOCATION13›3150 M:N14 ,N15 ,N16 ,N17 ,N18 ,›3160 JM:*LOCATION14,*LOCATION15,*LOCATION16,*LOCATION17,*LOCATION18›3180 *RESET›3190 PA:240›3200 T:›3210 J:*CLEARBOTTOM›3220 *CLEARBOTTOM›3230 PA:120›3240 T:ťťťťťťť›3250 J:*INPUT›3260 *INITIALIZE›3270 C:@B1373=0›3280 C:@B1374=2›3290 WRITE:S,›3300 POS:4,3›3310 WRITE:S,blackbeards›3320 POS:5,4›3330 WRITE:S,treasure›3340 POS:3,7›3350 WRITE:S,BY JACK HARDY›3352 POS:4,9›3355 WRITE:S,KEYED IN BY›3357 POS:3,10›3358 WRITE:S,TIM MUSZYNSKI›3360 SO:1,13›3370 PA:30›3380 SO:2,14›3390 PA:30›3400 SO:4,16›3410 PA:60›3420 SO:1,13›3430 PA:30›3440 SO:0›3450 PA:120›3460 C:#B=0›3470 C:#T=0›3471 C:#N=0›3472 C:#S=0›3473 C:#E=0›3474 C:#W=0›3475 C:#D=0›3476 C:#U=0›3480 C:$LOCATION=LOCATION1›3490 GR:QUIT›3500 C:@B710=0›3510 C:@B82=0›3520 E:›3540 *WIN›3550 POS:9,20›3560 T:ŞŞŞYOU FOUND IT!ŞŞŞ›3570 C:#T=#T+1›3580 C:#A=?/30›3590 SO:#A›3600 PA:10›3610 POS:9,20›3620 T:***ŮĎŐ ĆĎŐÎÄ ÉÔˇ***›3630 C:#A=?/30›3640 SO:#A›3650 PA:10›3660 J(#T<10):*WIN›3670 E:›