1 REM"{$d5}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c9}
2 REM"{$dd}    --- THE WAY TO BREE ---    {$dd}
3 REM"{$dd}   -A PARTIAL ADVENTURE FROM-  {$dd}
4 REM"{$dd} --- THE LORD OF THE RINGS --- {$dd}
5 REM"{$dd} (C)1986 BY                    {$dd}
6 REM"{$dd}    HOLGER SCHEMEL      {$dd} TEL. {$dd}
7 REM"{$dd}    MOSELWEG 64         {$dd} 05205{$dd}
8 REM"{$dd}    4800 BIELEFELD 11   {$dd} /6544{$dd}
9 REM"{$ca}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$c0}{$cb}
10 POKE 53248+21,0:SYS 58451
11 PRINT"{$93}{$11}{$11}{$11}{$11}{$11}{$1d}{$1d}{$1d}{$1d}ONE MOMENT PLEASE..."
12 REM BASIC EXTENSION
14 DATA76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169
16 DATA 160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11
18 DATA 1,169,53,133,1,88,96:FOR I=264 TO 310:READ X:POKE I,X:NEXT:SYS 264
20 FOR I=710 TO 730:READ X:POKEI,X:NEXT
22 DATA 208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
24 POKE 40996,197:POKE 40997,2:POKE1,54
26 FOR I=43168 TO 43170:READ X:POKE I,X:NEXT
28 FOR I=704 TO 709:READ X:POKEI,X:NEXT
30 DATA 32,192,2,32,138,173,76,247,183
40 GOSUB 50000:GOSUB 61000
50 Z=14:R(0)=Z:REM ROOM NUMBER (A:14)
60 POKE 646,0
70 POKE 53280,0:POKE 53281,14
80 GOTO 1230
100 REM ----- COMMAND INPUT -----
110 B$=""
120 PRINT"{$11} >{$90} {$9d}";
130 POKE 204,0
140 GET X$:IF X$=""THEN 140
150 I=ASC(X$)
160 IF I=20 THEN 200
170 IF I=13 THEN 240
180 IF I<65 OR I>90 THEN IF I<>32 THEN 140
185 IF LEN(B$)>30 THEN FOR I=1 TO 33:PRINT" {$9d}{$9d}<{$9d}";:NEXT:PRINT"{$91}";:GOTO 100
190 B$=B$+X$:PRINT"{$05}"X$"{$90} {$9d}";:GOTO 140
200 IF LEN(B$)=0 THEN 140
210 B$=LEFT$(B$,LEN(B$)-1)
220 POKE 204,1
230 PRINT" {$9d}{$9d} {$9d}";:GOTO 130
240 IF B$="" THEN 140
250 POKE 204,1:PRINT" {$9d}{$5f}"
260 REM ----- COMMAND PARSING -----
270 V=0:G=0:O=0:P=0:R=0:IC=0:W=0
275 IF LEN(B$)<3 THEN 500
280 FOR I=1 TO VZ
290 IF LEFT$(B$,3)=LEFT$(VE$(I),3) THEN V=I:IC=1
300 NEXT
305 IF IC=0 THEN PRINT"UNKNOWN VERB":GOTO 100
307 IF LEN(B$)=LEN(VE$(V)) OR LEN(B$)<4 THEN W=1:RETURN
310 IC=0:FOR I=1 TO GZ
320 IF RIGHT$(B$,4)=RIGHT$(GE$(I),4) THEN G=I:IC=1
330 NEXT:IF IC=1 THEN RETURN
340 FOR I=1 TO OZ
350 IF RIGHT$(B$,4)=RIGHT$(OB$(I),4) THEN O=I:IC=1
360 NEXT:IF IC=1 THEN RETURN
370 FOR I=1 TO PZ
380 IF RIGHT$(B$,3)=RIGHT$(PE$(I),3) THEN P=I:IC=1
390 NEXT
400 IF IC=0 THEN PRINT"UNKNOWN NOUN":GOTO 100
410 RETURN
500 REM --- DIRECTIONS ---
510 FOR I=1 TO 10
520 IF B$=R$(I) THEN R=I:IC=1
530 NEXT:GOTO 305
1000 REM ----- MAIN PROGRAM -----
1100 GOSUB 100:REM COMMAND INPUT
1110 IF V=13 THEN V=4
1120 IF LEFT$(PE$(1),4)="DEAD"THEN P1=1
1130 IF LEFT$(PE$(2),4)="DEAD"THEN P2=1
1140 IF Z=17 AND R<>0 THEN IF C2=0 OR C1=1 THEN 1800
1200 REM MOVE TO A NEW ROOM
1210 IF R=0 THEN 1500
1220 IF R(R)=0 THEN PRINT"YOU CAN'T GO IN THAT DIRECTION.":GOTO 1000
1225 Z=R(R):R(0)=Z:PRINT O$
1230 RESTORE 10000+Z*100
1235 FOR I=1 TO 10:READ R(I):NEXT
1240 GOTO 20000
1250 GOSUB 10000+Z*100
1260 IF ID=1 THEN PRINT"{$12}{$91}";
1270 PRINT"----------------------------------------{$92}";
1300 PRINT"{$11}EXITS:          ";
1310 IC=0:FOR I=1 TO 10:IF R(I)<>0 THEN PRINT R$(I);"-";:IC=1
1320 NEXT
1330 IF IC=1 THEN PRINT CHR$(20)
1340 IF IC=0 THEN PRINT"-"
1350 PRINT"ITEMS:          ";
1360 IC=0:FOR I=1 TO GZ:IF GE(I)=Z THEN PRINT GE$(I);"-";:IC=1
1370 NEXT
1380 IF IC=1 THEN PRINT CHR$(20)
1390 IF IC=0 THEN PRINT"-"
1400 PRINT"YOU SEE:        ";
1410 IC=0:FOR I=1 TO OZ:IF OO(I)=Z THEN PRINT OB$(I);"-";:IC=1
1420 NEXT
1430 FOR I=1 TO PZ:IF PO(I)=Z THEN PRINT PE$(I);"-";:IC=1
1440 NEXT
1450 IF IC=1 THEN PRINT CHR$(20)
1460 IF IC=0 THEN PRINT"-"
1470 IF ID=1 THEN 1475
1471 IF R=0 THEN 1000
1472 IF P1=0 THEN PRINT"{$11}SAM COMES ALONG.":PO(1)=Z
1473 IF P2=0 THEN PRINT"MERRY FOLLOWS.":PO(2)=Z
1474 GOTO 1000
1475 POKE 198,0
1480 FOR I=1 TO 6:POKE 1977+I,100:NEXT
1485 X$="RETURN":FOR I=1 TO 6:POKE 2017+I,ASC(MID$(X$,I,1))+64:NEXT
1490 GETX$:IFX$<>CHR$(13)THEN 1485
1493 POKE VC+21,0
1495 ID=0:PRINT"{$93}----------------------------------------YOU ARE ";:GOTO 1250
1500 REM ---- REACTION TO COMMANDS ----
1600 IF W=0 THEN 1620
1610 IF V<3 OR V>6 THEN IF V<>16 THEN PRINT A$(4):GOTO1000
1620 IF P<>0 AND PO(P)<>Z THEN PRINT A$(3):GOTO 1000
1625 IF O<>0 AND OO(O)<>Z THEN PRINT A$(3):GOTO 1000
1630 IF G=0 THEN 1700
1640 IF GE(G)<>Z AND V=1 THEN PRINT A$(3):GOTO 1000
1650 IF GE(G)<>-1 THEN IF V=2 OR V=7 OR V=11 OR V=15 THEN PRINT A$(2):GOTO 1000
1700 GOSUB 2000+V*100
1750 IF ID=1 THEN ID=0:GOTO 1225
1800 GOSUB 10000+Z*100+20
1900 GOTO 1000
2100 IF O<>0 OR P<>0 THEN PRINT A$(5)
2110 IF GE(G)=Z THENGE(G)=-1:PRINTO$
2130 RETURN
2200 IF O<>0 OR P<>0 THEN PRINT A$(0)
2220 IF GE(G)=-1 THENGE(G)=Z:PRINTO$
2230 RETURN
2300 PRINT"I CARRY:{$91}"
2310 IC=0:FOR I=1 TO GZ
2320 IF GE(I)=-1 THEN PRINTTAB(10);GE$(I):IC=1
2330 NEXT
2340 IF IC=0 THENPRINTTAB(10);"NOTHING."
2350 RETURN
2400 IF W=1 THEN ID=1:RETURN
2405 IF G=0 THEN 2430
2410 IF GE(G)<>Z AND GE(G)<>-1 THEN PRINT A$(3):RETURN
2415 IF G=9 THEN PRINT"IT HAS A PALE GLEAM.":RETURN
2420 IF G=7 THEN PRINT"IT IS GOLDEN AND QUITE UNADORNED.":RETURN
2425 GOTO 2490
2430 IF O=0 THEN 2465
2435 IF O=7 THEN PRINT"IT SEEMS TO BE IMPASSABLE.":RETURN
2440 IF O=9 THEN PRINT"IT IS MADE OF SOFT SANDSTONE.":RETURN
2445 IF O=6 AND GE(8)=0 THEN PRINT"YOU FIND SOMETHING UNDERNEATH.":GE(8)=Z:RETURN
2450 IF O=14 THEN PRINT"YOU DISCOVER AN INSCRIPTION ON IT.":OO(13)=28:RETURN
2455 IF O=13 THEN PRINT"THEY ARE ELVISH RUNES WHICH YOU CANNOT  READ.":RETURN
2460 GOTO 2490
2465 IF LEFT$(PE$(P),4)="DEAD"THEN9100
2470 PRINT P$(P):RETURN
2490 PRINT"IT LOOKS QUITE ORDINARY."
2495 RETURN
2500 PRINT"DO YOU REALLY WANT TO QUIT? (Y/N)"
2510 GETX$:IFX$=""THEN 2510
2520 IF X$<>"Y"THEN PRINT"I KNEW IT!":RETURN
2530 END
2600 IF W=0 THEN PRINT A$(0):RETURN
2610 X$="":FOR I=1 TO 40:X$=X$+" ":NEXT
2620 FOR I=1 TO VZ:X$=X$+VE$(I)+"-"
2630 NEXT:X$=LEFT$(X$,LEN(X$)-1)
2640 FOR I=1 TO 40:X$=X$+" ":NEXT
2650 X=PEEK(211):Y=PEEK(214)
2660 FOR I=1 TO LEN(X$)-39
2670 POKE 211,0:POKE 214,23:SYS 58732
2680 PRINT MID$(X$,I,40);
2685 FOR J=1 TO 100:NEXT J:NEXT I
2690 POKE 211,X:POKE 214,Y:SYS 58732
2695 RETURN
2700 IF P<>0 THEN PRINT A$(0):RETURN
2710 IF G=0 THEN 2740
2720 IF G<>1 THEN PRINT A$(6):RETURN
2725 IF TU(0)=0 THEN PRINT A$(1):RETURN
2730 PRINT O$:TU(0)=0:GE(7)=Z:PRINT A$(7):RETURN
2740 IF O>5 THEN PRINT A$(6):RETURN
2745 IF TU(O)=0 THEN PRINT A$(1):RETURN
2750 IF O=5 AND GE(4)<>-1 THEN PRINT"YOU HAVE NO KEY.":RETURN
2755 IF O=2 THEN PRINT A$(6):RETURN
2760 PRINT O$:TU(O)=0
2770 IF O=3 OR O=4 THEN PRINT"SOMETHING FALLS OUT."
2780 IF O=3 THEN GE(3)=Z:GE(4)=Z
2790 IF O=4 THEN GE(5)=Z
2795 RETURN
2800 IF P=0 THEN PRINT A$(0):RETURN
2810 IF GE(2)<>-1 AND GE(9)<>-1 THEN PRINT A$(8):RETURN
2815 IF LEFT$(PE$(P),4)="DEAD" THEN PRINT"HE IS ALREADY DEAD.":RETURN
2817 IF P<>3 AND P<7 AND GE(2)<>-1 THEN PRINT A$(8):RETURN
2820 IF P<>3 AND P<7 THEN PRINT"YOU SLAY HIM WITH YOUR AXE."
2825 IF P<>3 AND P<7 THEN PE$(P)="DEAD "+PE$(P):RETURN
2830 IF P=3 THEN PRINT"{$93}{$05}HE CLEAVES YOU WITH HIS SWORD.":GOTO 9000
2840 IF P=7 AND GE(9)=-1 THEN PRINT"THE BARROW-WIGHT CRUMBLES TO DUST."
2845 IF P=7 AND GE(9)=-1 THEN PO(7)=0:RETURN
2850 IF P=7 AND GE(9)<>-1 THEN PRINT"SUCH WEAPONS CANNOT HARM HIM.":RETURN
2860 IF P=8 AND GE(9)=-1 AND C1=1 THEN PRINT"THE TROLL COLLAPSES, DEAD."
2865 IF P=8 AND GE(9)=-1 AND C1=1 THEN PO(8)=0:RETURN
2867 IF P=8 AND C1=0 THEN PRINT"{$93}{$05}HE SEES YOU, PARRIES YOUR BLOW"
2868 IF P=8 AND C1=0 THEN PRINT"AND SENDS YOU INTO THE HEREAFTER.":GOTO 9000
2870 IF P>7 THEN PRINT"HE JUST LAUGHS AT YOU.":RETURN
2900 IF P=0 THEN PRINT A$(0):RETURN
2905 IF LEFT$(PE$(P),4)="DEAD"THENPRINT"THE DEAD CAN SPEAK NO MORE.":RETURN
2910 IF P=1 AND Z=28 AND OO(13)=28 THEN PRINT I$:TU(10)=0:RETURN
2912 IFP=2 ANDZ=28 ANDOO(13)=28 THENPRINT"MERRY CAN'T READ ELVISH EITHER.":RETURN
2915 IF P=1 THEN PRINT"HE SAYS: 'AT YOUR SERVICE, SIR!'"
2920 IF P=1 AND GE(1)=0 THEN PRINT"AND GIVES YOU SOMETHING.":GE(1)=-1:P1=0
2922 IF P=2 ANDZ=20 ANDGE(3)<>-2THENPRINT"HE ASKS WHAT YOU WANT HERE.":RETURN
2925 IF P=2 AND Z=21 THENPRINT"HE SHOWS YOU A THIN SPOT IN THE HEDGE."
2930 IF P=2 AND Z=21 THENTU(7)=0:RETURN
2935 IF P=2 THEN PRINT"HE SHAKES YOUR HAND"
2940 IF P=2 ANDGE(6)=0 THENPRINT"AND GIVES YOU A PIECE OF PAPER.":GE(6)=-1:P2=0
2945 IF P=4 THEN PRINT"HE GRUFFLY ASKS YOU WHAT YOU WANT."
2950 IF P=5 AND TU(8)=0 THEN PRINT"ARAGORN IS ALREADY EXPECTING YOU."
2953 IF P=5 ANDTU(8)=1THENPRINT"HE SAYS: 'AREN'T YOU FRODO, BILBO'S     NEPHEW?'"
2955 IF P=6 THEN PRINT"HE SAYS: 'DON'T LET THE RIDER RECOGNISE YOU.'"
2960 IF P=9 THEN PRINT"HE SAYS: 'I AM ARAGORN, ARATHORN'S SON, ";
2965 IF P=9 THEN PRINT"KING OF GONDOR; BUT MY ROYAL CROWN HAS  BEEN LOST.'"
2970 IF P=3 OR P=7 OR P=8 THEN PRINT"HE DOES NOT ANSWER YOU."
2990 RETURN
3000 IF G=0 THEN PRINT A$(5):RETURN
3010 IF G=7 AND GE(G)=-1 THENPRINT"YOU ARE NOW WEARING IT ON YOUR FINGER.":C1=1:RETURN
3020 IF G=5 AND GE(G)=-1 THEN PRINT"YOU WRAP YOURSELF IN THE CLOAK.":C2=1:RETURN
3030 IF GE(G)=-1 THEN PRINT A$(1):RETURN
3040 IF GE(G)=Z THEN PRINT"TRY IT WITH 'TAKE'.":RETURN
3050 RETURN
3100 IF G=0 THEN PRINT A$(0):RETURN
3110 IC=0:FOR I=1 TO PZ
3115 IF PO(I)=Z THEN IC=1
3120 NEXT:IF IC=0 THEN PRINT"I SEE NOBODY HERE.":RETURN
3125 GE(G)=-2
3130 IF Z=12 THEN PRINT"THE WANDERER ACCEPTS IT GRATEFULLY.":RETURN
3135 IF Z=17 THEN PRINT"THE RIDER SCORNFULLY SMASHES IT.":RETURN
3140 IF Z=27 AND G=8 THEN PRINT"THE WIGHT TAKES THE GOLD AND DROPS      SOMETHING."
3145 IF Z=27 AND G=8THEN GE(9)=Z:RETURN
3150 IF Z=31 THEN PRINT"THE TROLL GRINS AND PUTS IT IN HIS      POCKET.":RETURN
3155 IF Z=33 AND G=6 THEN PRINT"HE READS IT AND OPENS THE GATE OF BREE  FOR YOU."
3160 IF Z=33 AND G=6 THENTU(9)=0:RETURN
3165 IF Z=27 THEN PRINT"HE GRABS IT AND THROWS IT AWAY.":RETURN
3170 IF Z=36AND G=10THENPRINT"{$93}{$05}{$11}{$11}{$11}{$11}{$11}{$11}ARAGORN PUTS THE CROWN ON HIS HEAD!"
3171 IF Z=36 AND G=10 THEN 8000
3173 IFZ=34ANDG=1THENPRINT"HE READS IT AND OPENS THE CURTAIN.":TU(8)=0:RETURN
3175 IF Z=34 THEN PRINT"HE ACCEPTS IT.":RETURN
3180 IFZ=20 ANDG=3THENR(4)=21:PRINT"MERRY CLEARS THE WAY TO THE EAST.":RETURN
3185 IF PO(1)=Z THEN PRINT"SAM ACCEPTS IT GRATEFULLY.":RETURN
3187 IF PO(2)=Z THEN PRINT"MERRY ACCEPTS IT WITH PLEASURE."
3190 RETURN
3200 IF O=0 THEN PRINT A$(0):RETURN
3210 IF O=11 THEN PRINT"IT IS LOCKED.":RETURN
3220 IF O=1 AND TU(1)=0 THEN ID=1:R=1:RETURN
3225 IF O=2 AND TU(2)=0 THEN ID=1:R(1)=6:R=1:RETURN
3230 IF O=6 THEN PRINT"GET UP AT ONCE, YOU LAZY OLD SLUGGARD!":RETURN
3240 IF O=7 AND TU(7)=0 THEN ID=1:R(4)=22:R=4:RETURN
3245 IF O=7 AND TU(7)=1 THEN PRINT"I SEE NO WAY THROUGH.":RETURN
3250 IF O=10 AND TU(6)=0 THEN ID=1:R(10)=35:R=10:RETURN
3255 IF O=3 OR O=4 OR O=5 OR O=8 OR O=9 OR O=12 THEN PRINT A$(0):RETURN
3280 PRINT"IT IS LOCKED."
3290 RETURN
3400 IF O=0 THEN PRINT A$(0):RETURN
3410 IF GE(2)<>-1 THEN PRINT"YOU HAVE NO SUITABLE TOOL.":RETURN
3420 IF O=1 OR O=5 OR O=11 THEN PRINT"TOO STURDY.":RETURN
3430 IF O=2 AND Z=9 THEN PRINT O$:TU(2)=0:RETURN
3440 IF O=2 AND Z=10 THEN PRINT"TOO STURDY.":RETURN
3450 IF O=9 AND TU(6)=1 THEN TU(6)=0:PRINT"THE GROUND CAVES IN.":RETURN
3455 IF O=8 AND OB$(8)="HACKED WILLOW" THEN PRINT A$(1):RETURN
3460 IF O=8 THEN PRINT"YOU HACK IT TO PIECES.":OB$(8)="HACKED WILLOW":RETURN
3470 PRINT A$(0):RETURN
3500 IF G=0 THEN 3550
3510 IF G=1 AND TU(0)=1 THEN PRINT"THE LETTER IS STILL SEALED.":RETURN
3520 IF G=1 AND TU(0)=0 THEN GOSUB 6000:RETURN
3530 IF G=3 THEN GOSUB 6300:RETURN
3540 IF G=6 THEN GOSUB 6500:RETURN
3550 IF O=13 THEN PRINT"I CANNOT DECIPHER IT.":RETURN
3560 PRINT A$(0):RETURN
3600 PRINT"PAUSED. PRESS 'F1' TO CONTINUE."
3610 GETX$:IF X$<>"{$85}"THEN 3610
3620 RETURN
6000 REM ----- CONTENTS OF THE LETTER -----
6010 PRINT"{$93}"CHR$(14)
6020 POKE 53280,4:POKE 53281,7
6030 PRINT"    {$c4}EAR {$ce}EPHEW {$c6}RODO!"
6040 PRINT"{$11} {$c1}T LAST {$c9} HAVE FIRMLY DECIDED TO SPEND"
6050 PRINT" THE REST OF MY LIFE WITH THE {$c8}IGH"
6060 PRINT" {$c5}LVES IN {$d2}IVENDELL. {$c9} HOPE THIS LETTER"
6070 PRINT" STILL REACHES YOU IN TIME."
6080 PRINT" {$cd}Y REQUEST TO YOU IS TO HELP AN OLD"
6090 PRINT" FRIEND OF MINE, THE SON OF A KING, TO"
6100 PRINT" REGAIN HIS ROYAL DIGNITY. {$c2}UT HE CAN"
6110 PRINT" ONLY DO THIS IF HE OWNS THE ANCIENT"
6120 PRINT" CROWN, WHICH WAS LOST LONG AGO IN THE"
6130 PRINT" {$ce}ORTH OF THE LAND."
6140 PRINT" {$c6}IND THIS CROWN AND BRING IT TO {$c2}REE,"
6150 PRINT" WHERE MY FRIEND - {$c1}RAGORN BY NAME -"
6160 PRINT" IS AWAITING YOUR ARRIVAL."
6170 PRINT" {$d4}O HELP YOU ON YOUR WAY {$c9} GIVE YOU MY"
6180 PRINT" MAGIC RING, WHICH MAKES ITS WEARER"
6190 PRINT" INVISIBLE."
6200 PRINT" {$c1}ND NOW ALL {$c9} CAN DO IS WISH YOU THE"
6210 PRINT" BEST OF LUCK."
6220 PRINTTAB(20)"{$d9}OURS, {$c2}ILBO."
6250 POKE 198,0
6260 GETX$:IF X$<>CHR$(13)THEN 6260
6270 ID=1:PRINT CHR$(142)CHR$(147):POKE 53280,0:POKE 53281,14:RETURN
6300 REM ----- CONTENTS OF THE DEED -----
6310 PRINT"{$93}"CHR$(14)
6320 POKE 53280,4:POKE 53281,7
6330 PRINT"{$11}     {$c4}{$c5}{$c5}{$c4} {$cf}{$c6} {$d3}{$c1}{$cc}{$c5}"
6340 PRINT"     ------------"
6350 PRINT"{$11} {$c9}SSUED AT {$c2}AG {$c5}ND, {$c8}OBBITON"
6360 PRINT"{$11}{$11} {$c9}, THE UNDERSIGNED, HEREBY DECLARE"
6370 PRINT" THAT {$c9} HAVE SOLD THE ESTATE OF"
6380 PRINT" {$c3}RICKHOLLOW FOR 130 GOLD PIECES TO"
6390 PRINT" {$c2}ILBO {$c2}AGGINS OF {$c2}AG {$c5}ND, {$c8}OBBITON."
6400 PRINT" {$c1}LL FIXTURES AND MOVABLE INVENTORY"
6410 PRINT" PASS AUTOMATICALLY TO THE OWNER,"
6420 PRINT" INCLUDING THE APPLE TREE BEHIND"
6430 PRINT" THE HOUSE."
6440 PRINTTAB(20)"{$11}{$11}{$c2}UNGO {$cf}LDBUCK"
6460 POKE 198,0
6470 GETX$:IF X$<>CHR$(13)THEN 6470
6480 ID=1:PRINT CHR$(142)CHR$(147):POKE 53280,0:POKE 53281,14:RETURN
6500 REM ----- CONTENTS OF THE PAPER -----
6510 PRINT"{$93}"CHR$(14)
6520 POKE 53280,4:POKE 53281,7
6530 PRINT"{$11}{$11}    {$cc}{$c5}{$d4}{$d4}{$c5}{$d2}{$a0}{$cf}{$c6}{$a0}{$c9}{$ce}{$d4}{$d2}{$cf}{$c4}{$d5}{$c3}{$d4}{$c9}{$cf}{$ce}"
6540 PRINT"    {$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}"
6550 PRINT"{$11} {$d4}O THE GATEKEEPER OF {$c2}REE."
6560 PRINT" {$d4}HE BEARER OF THIS LETTER IS ENTIRELY"
6570 PRINT" TRUSTWORTHY AND IS ON HIS WAY HERE"
6580 PRINT" ON AN URGENT ERRAND."
6590 PRINT" {$d4}HE BEARER AND HIS COMPANIONS ARE"
6600 PRINT" THEREFORE TO BE ADMITTED AT ONCE AND"
6610 PRINT" WITHOUT ANY DELAY."
6620 PRINT"{$11}{$11}{$11}   {$c9}SSUED BY {$c2}ARLIMAN {$c2}UTTERBUR;"
6630 PRINT"   OWNER OF THE INN"
6640 PRINT"   '{$d4}HE {$d0}RANCING {$d0}ONY', {$c2}REE."
6670 POKE 198,0
6680 GETX$:IF X$<>CHR$(13)THEN 6680
6690 ID=1:PRINT CHR$(142)CHR$(147):POKE 53280,0:POKE 53281,14:RETURN
8000 REM ----- GAME WON -----
8002 RESTORE 60250
8005 POKE 53281,0
8007 PRINT"{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"TAB(9)"YOU HAVE WON THE GAME !"
8010 RESTORE 60400
8020 FOR I=832 TO 832+62
8030 READ X:POKE I,X:NEXT
8040 POKE 2040,13
8050 POKE VC,162:POKE VC+1,128
8060 POKE VC+29,1:POKE VC+23,1
8070 POKE VC+39,7
8080 POKE VC+28,1
8090 POKE VC+37,2
8100 POKE VC+38,6
8110 POKE VC+21,1
8120 A=1:FOR I=1 TO 200
8130 A=1-A
8140 POKE VC+21,A
8150 POKE 53280,INT(RND(1)*255)
8160 NEXT:POKE VC+21,1
8170 PRINTTAB(13)"PLAY AGAIN (Y/N) ?"
8180 GETX$:IFX$=""THEN 8180
8190 IF X$="Y"THEN RUN
8200 IF X$="N"THEN END
8210 GOTO 8180
8999 END
9000 REM ----- PLAYER DEAD -----
9002 RESTORE 60250
9005 FOR I=832 TO 832+62
9007 READ X:POKE I,X:NEXT
9010 POKE 2040,13
9012 POKE VC,162:POKE VC+1,128
9014 POKE VC+29,1:POKE VC+23,0
9016 POKE VC+39,15:POKE VC+28,0
9020 POKE VC+21,1
9030 POKE 53281,0
9040 PRINTTAB(10)"{$11}{$11}YOU  ARE  DEAD  !!!"
9050 PRINTTAB(10)"{$11} PLAY AGAIN (Y/N) ?"
9060 GETX$:IFX$=""THEN 9060
9070 IF X$="Y"THEN RUN
9080 IF X$="N"THEN END
9090 GOTO 9060
9100 IFP=1ANDGE(1)=0THENPRINT"YOU FIND SOMETHING ON THE BODY.":GE(1)=Z:RETURN
9110 IFP=2ANDGE(6)=0THENPRINT"YOU TAKE SOMETHING FROM HIS HAND.":GE(6)=Z:RETURN
9120 PRINT"THE BODY IS COVERED IN BLOOD."
9130 RETURN
10000 REM ----- GAME MAP -----
10100 DATA 0,0,0,0,0,0,0,0,3,0
10105 PRINT"IN THE CELLAR OF BAG END.       IT IS VERY DUSTY."
10120 RETURN
10200 DATA 0,5,0,0,0,0,0,0,0,0
10205 PRINT"IN BILBO'S PARLOUR, A COSY AND  COMFORTABLE LITTLE ROOM."
10220 RETURN
10300 DATA 0,6,0,4,0,0,0,0,0,1
10305 PRINT"IN THE PASSAGES OF BAG END{$11}"
10320 RETURN
10400 DATA 0,7,3,5,0,0,0,0,0,0
10405 PRINT"IN THE PASSAGES OF BAG END{$11}"
10420 RETURN
10500 DATA 2,8,4,0,0,0,0,0,0,0
10505 PRINT"IN THE PASSAGES OF BAG END{$11}"
10520 RETURN
10600 DATA 3,0,0,0,0,0,0,0,0,0
10605 PRINT"IN BILBO'S BEDROOM. UNDER THE   WINDOW STANDS THE NEATLY MADE BED."
10620 RETURN
10700 DATA 4,0,0,0,0,0,0,0,0,0
10705 PRINT"IN THE STUDY, A ROOM WITH A     VIEW OF SANDYMAN'S MILL."
10720 RETURN
10800 DATA 5,11,0,0,0,0,0,0,0,0
10805 PRINT"IN THE ENTRANCE HALL AT THE     FRONT OF BAG END."
10820 RETURN
10900 DATA 0,0,0,10,0,0,0,0,0,0
10905 PRINT"ON A PATH IN FRONT OF THE       WINDOWS OF BAG END."
10920 OO(2)=9
10930 RETURN
11000 DATA 0,0,9,11,0,0,0,12,0,0
11005 PRINT"ON A PATH IN FRONT OF THE       WINDOWS OF BAG END."
11020 OO(2)=10
11030 RETURN
11100 DATA 0,12,10,0,0,0,0,0,0,0
11105 PRINT"OUTSIDE THE DOOR OF BAG END.    IT IS ROUND AND PAINTED GREEN."
11120 RETURN
11200 DATA 11,13,0,0,10,0,0,0,0,0
11205 PRINT"ON THE HILL ROAD. IT LEADS UP   TO THE ESTATE OF THE BAGGINSES."
11220 RETURN
11300 DATA 0,14,0,0,0,0,0,0,0,0
11305 PRINT"AT THE TOWN GATE OF HOBBITON.   THE OAKEN GATE IS LOCKED."
11320 IF TU(1)=0 THEN R(1)=12
11330 RETURN
11400 DATA 13,0,14,15,0,0,0,16,0,0
11405 PRINT"ON THE BYWATER ROAD, WHICH      LEADS THROUGH HOBBITON."
11420 RETURN
11500 DATA 0,16,14,15,0,0,0,17,0,0
11505 PRINT"ON THE BYWATER ROAD. IT ENDS    AT THE EAST ROAD."
11520 RETURN
11600 DATA 15,0,16,17,14,0,0,0,0,0
11605 PRINT"ON THE GREAT EAST ROAD. IT      LEADS EAST TO BREE."
11620 RETURN
11700 DATA 0,18,16,17,15,0,0,0,0,0
11705 PRINT"ON THE EAST ROAD, TRAVELLED BY  WANDERERS OF EVERY KIND."
11710 RETURN
11720 IF R=0 THEN RETURN
11725 IF C1=1 THEN PRINT"{$93}{$05}YOU WORE THE RULING RING AND THUS"
11730 IF C1=1 THEN PRINT"REVEALED YOURSELF TO SAURON'S SERVANT."
11735 IF C1=1 THEN PRINT"YOU DIED A SWIFT DEATH.":GOTO 9000
11740 IF C2=1 THEN RETURN
11745 PRINT"{$93}{$05}THE BLACK RIDER HAS RECOGNISED YOU"
11750 PRINT"AND TAKEN YOU PRISONER. I HARDLY THINK"
11755 PRINT"YOU WILL WITHSTAND SAURON'S TORTURE"
11760 PRINT"FOR VERY LONG....":GOTO 9000
11800 DATA 17,19,0,0,0,0,0,0,0,0
11805 PRINT"ON A COUNTRY LANE THAT LEADS    THROUGH BUCKLAND."
11820 RETURN
11900 DATA 18,0,0,0,0,0,0,0,0,0
11905 PRINT"AT THE DOOR OF CRICKHOLLOW, A   SMALL HOMESTEAD IN BUCKLAND."
11920 IF TU(5)=0 THEN R(4)=20
11930 RETURN
12000 DATA 0,0,19,0,0,0,0,0,0,0
12005 PRINT"IN CRICKHOLLOW, THE ESTATE      RECENTLY BOUGHT BY BILBO."
12020 IF GE(3)=-2 THEN R(4)=21
12030 RETURN
12100 DATA 21,21,20,0,0,0,0,0,0,0
12105 PRINT"FACING A HUGE, IMPENETRABLE     HEDGE OF BRIAR ROSES."
12120 RETURN
12200 DATA 24,23,21,30,25,30,23,25,0,0
12205 PRINT"IN A DENSE FOREST. THE TREES    SEEM MENACING."
12220 RETURN
12300 DATA 22,25,30,22,25,30,24,25,0,0
12305 PRINT"IN THE OLD FOREST. THEY SAY IT  IS HAUNTED."
12320 RETURN
12400 DATA 30,25,22,25,22,30,23,26,0,0
12405 PRINT"IN THE FOREST. THEY SAY THERE   ARE STILL ENTS, TREELIKE BEINGS, HERE."
12420 RETURN
12500 DATA 30,25,24,22,23,22,30,24,0,0
12505 PRINT"IN THE OLD FOREST. LITTLE LIGHT FALLS ON YOUR PATH."
12520 RETURN
12600 DATA 30,25,23,22,24,24,25,28,0,0
12605 PRINT"IN A FOREST CLEARING, WHICH IS  OVERGROWN WITH WILD FERNS."
12610 RETURN
12620 IF OB$(8)<>"OLD WILLOW"THENRETURN
12630 PRINT"{$93}{$05}{$11}THE OLD WILLOW HAS SHUT YOU UP INSIDE   ITSELF AND SMOTHERED YOU.";
12640 PRINT"":GOTO 9000
12700 DATA 0,0,0,0,0,0,0,0,0,0
12705 PRINT"IN A GLOOMY BARROW, WHICH IS    LIT BY A PALE LIGHT."
12720 IF PO(7)=0 THEN R(1)=28
12730 RETURN
12800 DATA 29,0,26,30,28,25,28,0,0,0
12805 PRINT"ON THE BARROW-DOWNS. I SEE A    BLACK OBELISK."
12820 IF TU(10)=0 THEN R(2)=27
12830 RETURN
12900 DATA 31,28,0,0,31,31,28,0,0,0
12905 PRINT"ON A MISTY PATH THAT SLOPES     GENTLY DOWN TO THE NORTH."
12920 RETURN
13000 DATA 24,25,22,30,23,25,23,22,0,0
13005 PRINT"IN THE OLD FOREST. THE TREES    SEEM TO MOVE OUT OF YOUR WAY."
13020 RETURN
13100 DATA 0,29,17,33,32,33,30,0,0,0
13105 PRINT"BACK ON THE EAST ROAD AGAIN.    IT IS BEGINNING TO RAIN."
13120 IF PO(8)=0 THEN R(1)=32
13130 RETURN
13200 DATA 0,31,0,0,0,0,0,31,0,0
13205 PRINT"IN FORNOST, DEADMEN'S DIKE.     AN ICY WIND IS BLOWING HERE."
13220 IF TU(6)=0 THEN OO(10)=32
13230 RETURN
13300 DATA 0,0,31,0,32,0,29,0,0,0
13305 PRINT"AT THE WEST GATE OF BREE.       THERE ARE STILL GOOD INNS HERE."
13320 IF TU(9)=0 THEN R(4)=34
13330 RETURN
13400 DATA 0,0,33,0,0,0,0,0,0,0
13405 PRINT"IN THE INN 'THE PRANCING PONY'. IT IS PLEASANTLY WARM HERE."
13420 IF TU(8)=0 THEN R(1)=36
13430 RETURN
13500 DATA 0,0,0,0,0,0,0,0,32,0
13505 PRINT"IN AN UNDERGROUND ALTAR ROOM.   IT IS STRANGELY QUIET HERE."
13510 RETURN
13520 IC=0:FOR I=1 TO 9
13525 IF GE(I)=-1 THEN IC=1
13530 NEXT
13535 IF IC=1 THEN PRINT"THE FLOOR GIVES WAY UNDER THE WEIGHT OF YOUR BAGGAGE."
13540 IF IC=1 GOTO 9000
13550 RETURN
13600 DATA 0,34,0,0,0,0,0,0,0,0
13605 PRINT"IN A SMALL, COSY ROOM WHICH     HAS BEEN DARKENED."
13620 RETURN
20000 REM ----- DRAW FRAME -----
20010 PRINT"{$90}{$93}":GOSUB 30000
20020 S1=0:M1=0:G1=0:G2=0:H1=0:V1=0
20030 S2=0:M2=0:H2=0:V2=0
20050 GOSUB 40000+Z*100
20060 IF GE(7)=Z THEN PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"TAB(19)"{$9e}{$d7}"
20100 PRINT"{$13}{$90}";
20120 PRINT"{$12}                                        {$92}";
20130 FOR I=1 TO 13
20140 PRINT"{$12}       {$92}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$12}       {$92}";:NEXT
20150 PRINT"{$12}----------------------------------------{$92}";
20160 PRINT"{$12}                                        {$92}";
20170 PRINT"{$12}                                        {$92}";
20200 GOSUB 45000
20250 PRINT"{$91}{$91}{$90}{$12} YOU ARE ";
20300 ID=1:GOTO 1250
30000 REM ----- GRAPHICS -----
30100 IF Z>8 AND Z<>20 AND Z<>27 AND Z<>35 AND Z<>34 AND Z<>36 THEN 30300
30110 REM ----- ROOMS -----
30115 IF Z=34 AND TU(8)=0 THEN R(1)=36
30117 IF Z=20 AND GE(3)=-2 THEN R(4)=21
30120 FOR I=1 TO 2
30130 PRINTTAB(7)SPC(I)"{$cd}"SPC(24-I*2)"{$ce}":NEXT
30140 PRINTTAB(7)"   {$cf}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$d0}"
30150 FOR I=1 TO 7
30160 PRINTTAB(7)"   {$b4}"SPC(18)"{$a7}   ":NEXT
30170 PRINTTAB(7)"   {$cc}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$ba}"
30180 FOR I=2 TO 1 STEP -1
30190 PRINTTAB(7)SPC(I)"{$ce}"SPC(24-I*2)"{$cd}":NEXT
30200 IF R(3)=0 THEN 30210
30205 PRINT"{$13}{$11}{$11}{$11}"TAB(7)"{$cd}{$11}{$9d}{$cd}{$cd}{$11}{$9d}{$9d}{$aa}{$d0}{$11}{$9d}{$9d}{$a7}{$a7}{$11}{$9d}{$9d}{$a7}{$a7}{$11}{$9d}{$9d}{$a7}{$a7}{$11}{$9d}{$9d}{$a7}{$a7}{$11}{$9d}{$9d}{$a7}{$a7}{$11}{$9d}{$9d}{$ba}{$a7}{$11}{$9d}{$9d}{$a7}{$ba}{$11}{$9d} "
30210 IF R(4)=0 THEN 30220
30215 PRINT"{$13}{$11}{$11}{$11}"TAB(32)"{$ce}{$11}{$9d}{$9d}{$ce}{$ce}{$11}{$9d}{$9d}{$cf}{$b4}{$11}{$9d}{$9d}{$a5}{$a5}{$11}{$9d}{$9d}{$a5}{$b4}{$11}{$9d}{$9d}{$a5}{$a5}{$11}{$9d}{$9d}{$b4}{$a5}{$11}{$9d}{$9d}{$b4}{$a5}{$11}{$9d}{$9d}{$b4}{$cc}{$11}{$9d}{$9d}{$cc}{$a5}{$11}{$9d}{$9d} "
30220 IF R(1)=0 THEN 30237
30225 PRINT"{$13}{$11}{$11}{$11}{$11}"TAB(17)"{$af}{$af}{$af}{$af}{$af}{$af}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a7}{$cd}{$af}{$af}{$af}{$af}{$ce}{$a5}"
30230 FOR I=1 TO 5:PRINTTAB(16)"{$a7}{$a7}    {$a5}{$a5}":NEXT
30235 PRINTTAB(16)"{$ba}{$ce}{$91}{$c4}{$c4}{$c4}{$c4}{$11}{$cd}{$cc}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}    "
30237 GOTO 31400:REM CARPET
30240 IF R(9)=0 THEN 30255
30245 PRINT"{$13}{$11}"TAB(10)"{$af}{$a2}{$12}{$b8}{$b8}{$92}{$a2}{$af}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a3}{$b8}{$cf}{$d0}{$b8}{$a3}"
30250 FORI=1 TO10:PRINTTAB(12)"{$cf}{$d0}":NEXT
30255 IF R(10)=0 THEN 30270
30260 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"TAB(25)"{$a5}{$a7}{$11}{$9d}{$9d}{$9d}{$9d}{$a4}{$b9}{$cf}{$d0}{$b9}{$a4}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$b7}{$12}{$a2}{$b9}{$b9}{$a2}{$92}{$b7}"
30270 RETURN
30300 REM ----- LANDSCAPES -----
30310 IF Z<9 OR Z>11 AND Z<>13 AND Z<>19 AND Z<>33 THEN 30400
30320 FOR I=1 TO 7:PRINTTAB(7)"{$1c}{$12}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}"
30325 PRINTTAB(7)"{$1c}{$12}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}{$b2}{$b1}":NEXT:IF Z=11 THEN 30600
30330 IF Z=13 THEN 30800
30331 IF Z=19 THEN 31100
30332 IF Z=33 THEN 31200
30335 PRINT"{$13}{$11}{$11}":PRINTTAB(9)"{$1e}{$12}====={$90}{$92}{$cf}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$d0}{$1e}{$12}====={$92}"
30340 FOR I=1 TO 6:PRINTTAB(9)"{$1e}{$12}====={$90}{$92}{$b4}{$1f}{$12}    {$b6}{$b5}    {$92}{$90}{$aa}{$1e}{$12}====={$92}":NEXT
30345 PRINTTAB(9)"{$1e}{$12}====={$90}{$92}{$cc}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$af}{$ba}{$1e}{$12}====={$92}"
30350 PRINTTAB(12)"{$90}{$12}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$b8}{$92}"
30355 PRINT"{$13}{$11}{$11}{$11}{$11}"TAB(15)"{$1f}{$12}{$11}{$1d}{$ce}{$91}{$ce}{$11}{$ce}{$11}{$9d}{$9d}{$ce}{$ce}{$11}{$9d}{$9d}{$9d}{$9d}{$ce}{$1d}{$ce}{$11}{$9d}{$ce}{$11}{$9d}{$9d}{$ce} {$ce}{$91}{$91}{$91}{$91}{$91}{$1d}{$1d}{$ce} {$ce}{$11}{$9d}{$9d}{$ce}{$ce}{$11}{$9d}{$9d}{$ce} ";
30360 PRINT"{$1f}{$12}{$ce}{$11}{$9d}{$9d}{$9d}{$9d}{$ce} {$ce}{$11}{$9d}{$9d}{$9d}{$ce} {$ce}{$11}{$9d}{$9d}{$ce}"
30390 RETURN
30400 IF Z<>29 AND Z<>31 THEN IF Z<14 OR Z>18 THEN 30500
30410 PRINT"{$13}{$11}"
30415 PRINTTAB(7)"    {$9e}{$d1}{$9b}   {$05} {$a4}{$b9}{$a2}{$12}{$b8}{$b7}{$a3}{$a3}{$b7}{$b8}{$92}{$a2}{$b9}{$b9}{$af}{$af}{$a4}"
30417 PRINTTAB(7)"{$9b}         {$05}{$a3}{$b7}{$b8}{$b8}{$12}{$a2}{$b9}{$b9}{$a2}{$92}{$b8}{$b7}{$b7}{$a3}"
30420 PRINTTAB(7)"{$11}{$11}{$11}{$95}{$c6}{$c0}{$c4}{$c5}{$c5}{$b7}{$c5}{$c4}{$c0}{$c6}{$d2}{$af}{$af}{$af}{$af}{$d2}{$d2}{$c6}{$c0}{$c4}{$c5}{$c5}{$c4}{$c0}{$c6}{$c0}"
30425 PRINTTAB(7)"{$95}   {$a4}{$af}{$a4} {$c4}{$c5}{$b7}{$c5}{$c4}{$c6}{$af}  {$c6}{$c0}{$c4}{$c5}{$c5}{$c4} {$af}{$c6}{$c4}"
30430 PRINTTAB(7)"{$95} {$c5}{$b7}{$a3} {$a3}{$b7}{$c4}{$c6}     {$b7}{$c5}{$c0}{$c0}{$c6}{$af}{$d2}{$c6}{$c0}"
30435 PRINTTAB(7)"{$95}{$c6}{$c0}{$c4}{$c5}  {$b7}{$c5}{$c4}{$c0}{$c6}{$b7}{$c5}{$c4}{$c6}{$af}{$d2}{$c0}{$c5}  {$c6}{$c0}{$c4}{$c5}{$c0}"
30440 IF R(1)=0 THEN 30460
30445 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"TAB(18)"{$95}{$12}{$a9}  {$11}{$9d}{$9d}{$9d}{$9d}{$a9}   {$92}{$b4}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$12}{$a9}    {$92}{$a1}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$12}{$a9}     {$aa}"
30450 PRINTTAB(14)"{$95}{$12}{$a9}       {$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a9}        {$92}{$b4}"
30460 IF R(3)=0 AND R(4)=0 THEN 30480
30465 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"TAB(7)"{$12}  {$a3}{$b7}{$b7}{$a3}          {$a3}{$a3}{$b7}{$a3} {$a3}{$b7}{$b7}{$b7}{$a3}"
30470 PRINTTAB(7)"{$12}                          "
30480 RETURN
30500 IF Z<>30 THEN IF Z<22 OR Z>26 THEN 30700
30510 PRINT"{$13}"
30515 PRINTTAB(7)"{$1e}       {$a8}{$a8}{$a8}   {$a8}{$a8}{$a8}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a8}  "
30520 PRINTTAB(7)"{$9e} {$d1}{$1e}   {$a8}{$a6}{$a6}{$a6}{$a6}{$a6}{$a8}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a8}"
30525 PRINTTAB(7)"{$1e}{$a6}{$a8}{$a8}{$a8}{$a8}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}"
30530 PRINTTAB(7)"{$1e}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}"
30535 PRINTTAB(7)"{$1e}{$a6}{$a6}{$a6}{$90}{$12}{$b5}{$92}{$1e}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$95}{$12}{$a1}{$92}{$1e}{$a6}{$a6}{$95}{$12} {$1e}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}"
30540 PRINTTAB(7)"{$1e}{$dc}{$95}{$12} {$92}{$b5}{$90}{$12}{$b5}{$92}{$b5}{$95}{$b6}{$12}{$b6}{$92}{$97}{$aa}{$12} {$b6}{$92}{$1e}{$a6}{$95}{$12}{$b5}{$b6}{$92}{$b6}{$12} {$b4}{$92}{$97}{$a7}{$12} {$b6}{$92}{$1e}{$a6}{$90}{$12} {$92}{$1e}{$dc}{$a6}{$95}{$12}{$b6}{$92}{$b6}{$12} {$92}"
30545 PRINTTAB(7)"{$95}{$a7}{$12} {$92}{$b5}{$90}{$12}{$b4}{$92}{$b5}{$95}{$b6}{$12}{$a7}{$92}{$97}{$aa}{$12} {$aa}{$92}{$95}{$cd}{$12}{$b4}{$b6}{$92}{$b6}{$12} {$c7}{$92}{$97}{$b6}{$12}  {$92}{$90}{$b6}{$12} {$92}{$a1}{$95}{$aa}{$12}{$a7}{$92}{$b6}{$12} {$92}"
30550 PRINTTAB(7)"{$95}{$b6}{$12} {$92}{$a1}{$90}{$12}{$a5}{$92}{$a1}{$95}{$12}{$b5}{$b6}{$92}{$97}{$b6}{$12} {$b6}{$92}{$95} {$12} {$a7}{$92}{$12}{$a1} {$d4}{$92}{$97}{$12}{$c7} {$a7}{$92}{$90}{$12}{$a1} {$b6}{$92}{$95}{$b6}{$12}{$a7}{$92}{$12}{$b5} {$92}{$b4}"
30555 PRINTTAB(7)"{$95}{$a7}{$12} {$92}{$b5}{$90}{$12}{$b5}{$92}{$b5}{$95}{$b6}{$12}{$b6}{$92}{$97}{$aa}{$12} {$a7}{$92} {$95}{$12}{$a5}{$b6}{$92}{$b6}{$12} {$b4}{$92}{$97}{$a7}{$12} {$b6}{$92}{$90}{$a7}{$12} {$92}{$a1}{$95}{$aa}{$12} {$92}{$b6}{$12} {$92}"
30560 PRINTTAB(7)"{$95}{$a7}{$12} {$92}{$a1}{$90}{$12}{$a5}{$92}{$a1}{$95}{$12}{$b5}{$a7}{$92}{$97}{$aa}{$12}  {$92}{$ce}{$95}{$12}{$a5}{$a7}{$92}{$aa}{$12} {$c7}{$92}{$97}{$a7}{$12} {$a7}{$92}{$90}{$12}{$a1} {$b6}{$92}{$95}{$b6}{$12} {$92}{$12}{$b5} {$92}{$b4}"
30565 PRINTTAB(7)"{$95}{$b6}{$12} {$92}{$a1}{$90}{$12} {$92}{$a1}{$95}{$12}{$b4}{$a7}{$92}{$97}{$b6}{$12}  {$92}{$a5}{$95}{$12} {$a7}{$92}{$12}{$b5} {$c7}{$92}{$97}{$12}{$c7}  {$92}{$90}{$12}{$b5} {$a7}{$92}{$95}{$b6}{$12} {$92}{$12}{$b5} {$92}{$b4}"
30570 PRINTTAB(7)"{$95}{$12}{$b5} {$92}{$a1}{$90}{$12} {$aa}{$92}{$95}{$12}{$b4} {$92}{$97}{$b6}{$12}  {$92}{$b5}{$95}{$12}  {$92}{$12}{$b4} {$c7}{$92}{$97}{$12}{$c7}  {$92}{$90}{$12}{$b4} {$a7}{$92}{$95}{$b6}{$12} {$92}{$12}{$a5} {$92}{$b4}"
30575 IF Z<>26 THEN PRINTTAB(7)"{$95}{$12}{$d2}{$c0}{$c4} {$90}{$c6}{$d2}{$97}{$af}{$a4}{$c4}{$95}{$c4}{$c0}{$97}{$c6}{$c5}{$c4}{$c6}{$d2}{$95}{$c4}{$c5}{$c0}{$c4}{$90}{$c5}{$c6}{$95}{$c4}{$c0}{$c5}{$c6}":RETURN
30580 PRINTTAB(7)"{$95}{$12}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$92}"
30585 PRINTTAB(10)"{$91}{$91}{$95}{$12}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$dc}{$92}"
30590 PRINTTAB(12)"{$91}{$91}{$95}{$12}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$dc}{$92}"
30595 PRINTTAB(14)"{$91}{$91}{$95}{$12}{$a6}{$a6}{$a6}{$a6}{$1d}{$1d}{$a6}{$a6}{$a6}{$a6}{$a6}{$a6}{$92}"
30599 RETURN
30600 PRINT"{$13}{$11}{$11}{$11}"TAB(18)"{$1c}{$a9}{$1e}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$1c}{$df}"
30610 FOR I=1 TO 8:PRINTTAB(18)"{$1e}{$12}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}":NEXT
30620 PRINTTAB(18)"{$1c}{$12}{$df}{$1e}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$a4}{$1c}{$a9}{$92}{$91}{$91}{$91}{$91}{$91}{$9d}{$9d}{$9d}{$9d}{$9d}{$9e}{$d1}"
30690 RETURN
30700 IF Z<>28 THEN 30800
30710 PRINT"{$13}{$11}{$11}{$11}{$11}"TAB(9)" {$9e}{$d1}"
30715 PRINTTAB(7)"{$11} {$95}{$dc}{$97}   {$af}{$d2}{$c6}{$d2}{$a4}      "
30720 PRINTTAB(7)"{$95}{$dc}{$a6}{$97}{$c4}{$c5}{$b7}    {$a3}{$b7}{$c5}{$c0}{$c6}{$d2}{$af}{$af}{$d2}{$c0}{$c5}{$b7}{$c5}{$c4}{$c6}{$d2}{$c6}"
30725 PRINTTAB(7)"{$95}{$a6}{$a6}{$dc}{$95}{$af}{$d2}{$c6}{$c0}{$c5}{$b7}{$c5}{$c4}{$c6}{$af}{$d2}{$c0}{$c4}{$c5}{$c4}{$c0}{$d2}{$af}{$c6}{$c4}{$c5}{$b7}{$c4}"
30730 PRINTTAB(7)"{$95}{$a6}{$a6}{$a6}              "
30735 PRINTTAB(7)"{$95}{$12}{$dc}{$dc}{$92}{$dc}              "
30740 PRINTTAB(7)"{$99}{$12}  {$a3}{$b7}{$b8}{$92}{$a2}{$b9}{$a4}{$af}{$a2}{$12}{$b8}{$b7}{$a3}    {$a3}{$b7}{$b8}{$92}{$a2}{$af}{$1e}{$af}{$c6}{$c4}{$c5}"
30745 PRINTTAB(7)"{$99}{$12}   {$af}{$c6}{$c4}{$b7}                {$b7}{$92}{$a2}{$af}"
30750 PRINTTAB(7)"{$99}{$12}{$c6}{$c4}{$b7}                       "
30755 PRINTTAB(7)"{$99}{$12}                          "
30760 RETURN
30800 IF Z<>13 THEN 30900
30810 PRINT"{$13}{$11}{$11}{$11}{$11}"
30830 FOR I=1 TO10:PRINTTAB(15)"{$90}{$12}    {$a7}{$a5}    {$92}":NEXT
30840 PRINT"{$13}"TAB(15)"{$11}{$11}{$11}{$11}{$11}{$11}{$90}{$12}{$a2}{$cb}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$ca}{$a2}"
30850 PRINTTAB(15)"{$90}{$a2}{$12}{$c9}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$d5}{$92}{$a2}"
30855 PRINTTAB(19)"{$11}{$12}{$ba}{$cc}"
30860 PRINTTAB(15)"{$11}{$90}{$12}{$a2}{$cb}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$ca}{$a2}"
30870 PRINTTAB(15)"{$90}{$a2}{$12}{$c9}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$d5}{$92}{$a2}"
30890 RETURN
30900 IF Z<>21 THEN 31000
30910 PRINT"{$13}"
30920 PRINTTAB(26)"{$9e}{$d1}{$11}"
30925 PRINTTAB(7)"{$99}{$d5}{$c9}{$1c}{$c1}{$99}{$ca}{$c9}{$05}{$da}{$99}{$c9}{$d5}{$c9}{$05}{$c1}{$1c}{$d8}{$99}{$d5}{$c9}{$05}{$c1}{$da}{$1c}{$c1}{$99}{$c9}{$05}{$da}{$99}{$c9}{$d5}{$c9}{$d5}{$c9}{$d5}{$c4}{$c9}"
30930 PRINTTAB(7)"{$99}{$ca}{$c4}{$c9}{$d5}{$cb}{$d5}{$cb}{$ca}{$ca}{$c6}{$c9}{$1c}{$da}{$99}{$ca}{$c4}{$c9}{$d5}{$cb}{$d5}{$cb}{$ca}{$c9}{$d5}{$cb}{$ca}{$c6}{$c9}"
30935 PRINTTAB(7)"{$99}{$d5}{$c4}{$cb}{$ca}{$c9}{$ca}{$c6}{$d2}{$c6}{$c9}{$ca}{$c9}{$05}{$c1}{$99}{$d5}{$cb}{$ca}{$c9}{$ca}{$c4}{$b2}{$cb}{$ca}{$c9}{$c9}{$d5}{$cb}"
30940 PRINTTAB(7)"{$99}{$ab}{$c9}{$d5}{$d5}{$cb}{$d5}{$d5}{$c9}{$d5}{$cb}{$d5}{$db}{$c6}{$cb}{$d5}{$c4}{$cb}{$c9}{$d5}{$cb}{$d5}{$d5}{$cb}{$c8}{$c7}{$c9}"
30945 PRINTTAB(7)"{$99}{$ca}{$c6}{$b3}{$c7}{$c9}{$c7}{$ca}{$c9}{$ca}{$c9}{$d5}{$cb}{$d5}{$c9}{$ca}{$c9}{$d5}{$cb}{$ca}{$c6}{$b3}{$ab}{$c6}{$cb}{$ca}{$b3}"
30950 PRINTTAB(7)"{$99}{$d5}{$d5}{$cb}{$ab}{$cb}{$ca}{$c9}{$c7}{$d5}{$c7}{$ca}{$c9}{$ca}{$c9}{$d5}{$cb}{$c8}{$ca}{$c9}{$c9}{$ab}{$cb}{$d5}{$c9}{$c9}{$c8}"
30955 PRINTTAB(7)"{$99}{$c7}{$ca}{$c9}{$ca}{$c9}{$d5}{$cb}{$ca}{$b3}{$ca}{$c6}{$b3}{$d5}{$cb}{$c8}{$d5}{$cb}{$d5}{$cb}{$c8}{$ca}{$c9}{$ca}{$c9}{$ca}{$b3}"
30960 PRINTTAB(7)"{$99}{$ca}{$c9}{$c8}{$d5}{$cb}{$c8}{$d5}{$d5}{$cb}{$d5}{$cb}{$c8}{$ab}{$c6}{$cb}{$c8}{$d5}{$c8}{$d5}{$cb}{$d5}{$cb}{$c9}{$d4}{$c9}{$c8}"
30965 PRINTTAB(7)"{$99}{$d5}{$db}{$cb}{$c8}{$d5}{$cb}{$c8}{$ca}{$c9}{$c7}{$d5}{$cb}{$ca}{$c9}{$d5}{$cb}{$ca}{$b3}{$ca}{$b2}{$cb}{$d5}{$cb}{$c7}{$ab}{$cb}"
30970 PRINTTAB(7)"{$99}{$cb}{$ab}{$c6}{$cb}{$c8}{$d5}{$cb}{$d5}{$cb}{$ca}{$b3}{$d5}{$d5}{$cb}{$c7}{$c9}{$d5}{$cb}{$d5}{$cb}{$d5}{$cb}{$c9}{$ab}{$cb} "
30975 PRINTTAB(7)"{$99}{$d5}{$cb}{$d5}{$c4}{$cb}{$ca}{$c9}{$c8}{$d5}{$c6}{$cb}{$ca}{$b3}{$d5}{$cb}{$ca}{$b1}{$c9}{$ab}{$c6}{$cb}{$d5}{$cb}{$ca}{$c4}{$c9}"
31000 IF Z<>12 THEN 31300
31010 PRINT"{$13}"
31015 PRINTTAB(7)"{$11}   {$9e}{$d1}  {$11}  {$95}{$af}{$a2}{$12}{$b8}{$b8}{$92}{$a2}{$af}"
31020 PRINTTAB(7)"       {$12}{$be}      {$bc}"
31025 PRINTTAB(7)"      {$12}{$be}        {$bc}"
31030 PRINTTAB(7)"   {$d8}{$af}{$12}{$be}  {$be}{$be}{$be}{$be}{$be}{$d1}{$bc} {$bc}{$92}{$af}{$d8}"
31035 PRINTTAB(7)"{$a2}{$12}{$b8}{$b7}    {$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$df}{$92}{$df}{$12}{$a3}   {$b7}{$b8}{$92}{$a2}{$b9}{$af}{$a4}{$d8}"
31040 FOR I=1 TO 6:PRINTTAB(7)"{$12}                          ":NEXT
31045 PRINTTAB(20)"{$91}{$91}{$91}{$91}{$91}{$91}{$a9} {$11}{$9d}{$9d}{$9d}{$a9}  {$12}{$b4}{$92}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$a9}   {$12}{$b5}{$92}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a9}    {$12}{$a1}{$92}"
31050 PRINTTAB(16)"{$a9}     {$b6}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a9}      {$a7}"
31055 PRINTTAB(9)"{$91}{$91}{$91}{$91}{$91}{$91}{$12}{$d8}{$1d}{$c1}{$91}{$d8}{$11}{$d8}{$11}{$9d}{$9d}{$9d}{$d8}{$d8}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$d8}{$11}{$d8}{$d8}{$91}{$91}{$91}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$d8}{$1d}{$c1}{$11}{$d8}{$d8}{$11}{$9d}{$9d}{$d8}{$11}{$d8}{$11}{$1d}{$d8}"
31090 RETURN
31100 PRINT"{$13}{$11}{$11}{$11}"
31110 PRINTTAB(9)"{$90}{$cf}{$b7}{$b7}{$b7}{$d0}{$1d}{$1d}{$1d}{$95}{$12}{$b0}{$c0}{$c0}{$c0}{$c0}{$ae}{$92}{$1d}{$1d}{$1d}{$90}{$cf}{$b7}{$b7}{$b7}{$d0}"
31120 FOR I=1 TO 3:PRINTTAB(9)"{$90}{$b4}   {$aa}{$1d}{$1d}{$1d}{$95}{$12}{$dd}    {$dd}{$92}{$1d}{$1d}{$1d}{$90}{$b4}   {$aa}":NEXT
31130 PRINTTAB(9)"{$90}{$cc}{$af}{$af}{$af}{$ba}{$1d}{$1d}{$1d}{$95}{$12}{$ab}{$c9}   {$dd}{$92}{$1d}{$1d}{$1d}{$90}{$cc}{$af}{$af}{$af}{$ba}"
31140 FOR I=1 TO 4:PRINTTAB(17)"{$95}{$12}{$dd}    {$dd}":NEXT
31150 PRINTTAB(17)"{$95}{$12}{$ad}{$c0}{$c0}{$c0}{$c0}{$bd}"
31190 RETURN
31200 PRINT"{$13}"
31210 PRINTTAB(7)"{$90}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}{$a4}{$a0}"
31220 PRINTTAB(7);:FOR I=1 TO 13:PRINT"{$1c}{$12} {$92}{$90}{$cc}";:NEXT:PRINT"{$11}"
31230 PRINTTAB(7)"{$1d}  {$1d}  {$1d}  {$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}  "
31240 PRINTTAB(7)"{$99}{$1d}{$a4}{$af}{$1d}{$b9}{$a2}{$1d}{$12}{$b8}{$b7}{$92}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$af}{$b9}"
31250 PRINTTAB(7)"{$99}{$12}{$1d}  {$1d}  {$1d}  {$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}  {$91}{$91}"
31260 FOR I=1 TO 9:PRINTTAB(18)"{$95}{$12}    {$dd}    ":NEXT
31270 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}":PRINTTAB(18)"{$95}{$12}{$af}{$11}{$9d}{$a1}{$11}{$9d}{$b7}{$91}{$91}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$af}{$11}{$9d}{$92}{$a1}{$12}{$11}{$9d}{$b7}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$ab}{$c4}{$c9}{$11}{$9d}{$9d}{$5e}"
31280 PRINTTAB(18)"{$91}{$91}{$11}{$95}{$12}{$af}{$11}{$9d}{$a1}{$11}{$9d}{$b7}{$91}{$91}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$1d}{$af}{$11}{$9d}{$92}{$a1}{$12}{$11}{$9d}{$b7}"
31300 IF Z<>32 THEN RETURN
31310 PRINT"{$13}"
31315 PRINTTAB(7)"{$9e}      {$11}{$d1}{$91}        {$05}{$af}{$a2}{$12}{$b8}{$b7}{$b8}{$92}{$a2}{$b9}{$af}{$a4}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$a3}{$b8}{$12}{$a2}{$b9}{$b9}{$b9}{$a2}{$92}{$b8}{$a3}"
31320 PRINTTAB(7)"{$95}           {$dc}
31325 PRINTTAB(7)"{$95}{$dc}          {$a6}
31330 PRINTTAB(7)"{$95}{$a6}          {$a6}{$dc}
31335 PRINTTAB(7)"{$95}{$a6}{$dc}{$9b}   {$af}{$a2}{$12}{$b8}{$92}{$a2}{$b9}{$af}{$95}{$12}{$b5}{$92}{$9b}{$af}{$a2}{$12}{$b7}{$a3}  {$a3}{$b7}{$92}{$a2}{$af}"
31340 PRINTTAB(7)"{$95}{$12}{$a1}{$92}{$9b}{$af}{$a2}{$12}{$b7}    {$af}{$c6}{$c4}            {$b7}{$92}{$a2}{$af}"
31345 PRINTTAB(7)"{$9b}{$12}   {$c5}{$c4}{$c0}{$c4}{$b7}   {$af}{$d2}{$c6}{$c0}{$c4}{$c5}{$b7}{$b7}{$c4}{$c6}{$af}    "
31350 PRINTTAB(7)"{$9b}{$12} {$b7}{$c5}{$c4}{$c6}{$af}{$d2}{$c6}{$c0}{$c4}{$b7}{$c4}{$c6}{$af}  {$b7}{$c4}{$c6}{$af}      "
31355 PRINTTAB(7)"{$9b}{$12}{$d2}{$af}{$a4}                 {$b7}{$c4}{$c3}{$c6}{$af} "
31360 PRINTTAB(7)"{$9b}{$12}  {$a3}{$b7}{$c5}{$c0}{$d2}{$a4}                  "
31365 PRINTTAB(7)"{$9b}{$12}{$c0}{$c6}{$c6}{$c0}{$c4}{$c5}{$b7}{$a3}{$c5}{$c0}{$c6}{$d2}{$af}             "
31370 PRINTTAB(7)"{$9b}{$12}                          "
31380 RETURN
31400 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}":POKE 646,Z
31410 PRINTTAB(9)"{$12}{$a9}                    {$df}"
31420 PRINTTAB(8)"{$12}{$a9}                      {$df}"
31430 POKE 646,0:IF Z<>35 THEN 30240
31450 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"
31460 PRINTTAB(18)"{$90}{$12}{$a9} {$ce}  {$cd} {$df}"
31470 PRINTTAB(18)"{$90}{$12}{$a3}{$a3}{$cf}{$b7}{$b7}{$d0}{$a3}{$a3}"
31480 PRINTTAB(18)"{$90}{$12}  {$a5}  {$a7}  "
31490 PRINTTAB(19)"{$90}{$12}{$b4}{$a3}{$a3}{$a3}{$a3}{$aa}"
31500 GOTO 30240
40000 REM ----- SPRITES -----
40100 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}";
40110 IF TU(4)=1 THEN PRINTTAB(22)"{$11}{$11}{$95}{$12}{$a9}{$cd}  {$df}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$cd} {$cd}  {$df}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d} {$cd}{$ce}{$a3}{$a3}{$a3}{$df}";
40120 IF TU(4)=0 THEN PRINTTAB(29)"{$95}{$12}{$a9}{$df}{$11}{$9d}{$9d}{$9d}{$a9}{$ce} {$df}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$a9}{$ce}  {$ce}";
40130 IF TU(4)=0 THEN PRINT"{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$cd}   {$a7}{$cd}  {$ce}{$92}{$a9}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$12} {$cd}  {$a7} {$cd}{$ce}{$92}{$a9}{$9d}{$9d}";
40140 PRINT"{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$95}{$12}  {$cf}{$b7}{$b7}{$b7}{$b7}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$92}{$df}{$12} {$a5}{$ca}{$c6}{$cb} {$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$92}{$df}{$12}{$a5}    {$11}{$11}"
40150 IF GE(5)=1 THEN S1=6:F1=0:H1=1:V1=1:X1=145:Y1=116
40190 RETURN
40200 IF PO(1)=2 THEN S1=10:F1=0:V1=1:X1=200:Y1=110:M1=1:G1=8:G2=9
40290 RETURN
40300 RETURN
40400 RETURN
40500 RETURN
40600 S1=9:F1=9:H1=1:X1=215:Y1=126:M1=1:G1=1:G2=2
40610 IF GE(8)=6 THEN S2=2:F2=8:X2=115:Y2=136
40690 RETURN
40700 PRINT"{$13}{$11}{$11}{$11}{$11}{$11}{$11}{$11}"
40710 PRINTTAB(10)"{$cc}{$af}{$af}{$af}{$af}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$ce}    {$ce}{$b4}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$cf}{$12}{$c4}{$c4}{$c4}{$92}{$d0} {$b4}{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$b4}{$12}{$a2}{$92}{$c4}{$12}{$a2}{$92}{$aa} {$cc}";
40720 PRINT"{$11}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$9d}{$cc}{$cf}{$b7}{$d0}{$ba}{$ce}"
40750 IF GE(4)=7 THEN PRINTTAB(23)"{$91}{$9e}{$12}{$d7}{$b2}{$ae}"
40760 IF GE(3)=7 THEN S1=1:F1=0:X1=170:Y1=140
40790 RETURN
40800 RETURN
40900 RETURN
41000 RETURN
41100 RETURN
41200 IF LEFT$(PE$(6),3)="DEA"THEN S1=12:F1=0:X1=155:Y1=140:M1=1:G1=8:G2=9:H1=1
41210 IF LEFT$(PE$(6),3)<>"DEA"THENS1=13:F1=0:X1=180:Y1=118:M1=1:G1=8:G2=9:V1=1
41290 RETURN
41300 RETURN
41400 RETURN
41500 RETURN
41600 IF GE(2)=16 THEN S1=8:F1=1:X1=155:Y1=137:H1=1
41690 RETURN
41700 S1=17:F1=0:X1=180:Y1=109:H1=1:V1=1
41790 RETURN
41800 RETURN
41900 RETURN
42000 IF PO(2)=20 THEN S1=10:F1=0:X1=180:Y1=109:V1=1:G1=8:G2=9:M1=1
42090 RETURN
42100 RETURN
42200 RETURN
42300 RETURN
42400 RETURN
42500 RETURN
42600 RETURN
42700 IF PO(7)=27 THEN S1=11:F1=0:X1=190:Y1=112:V1=1:G1=8:G2=1:M1=1
42710 IF GE(9)=27 AND PO(7)=27 THEN S2=3:F2=13:X2=130:Y2=139
42720 IF GE(9)=27 AND PO(7)=0 THEN S1=3:F1=13:X1=130:Y1=139
42790 RETURN
42800 S1=5:F1=0:X1=190:Y1=99:V1=1
42890 RETURN
42900 RETURN
43000 RETURN
43100 IF PO(8)=31 THEN S1=15:F1=0:X1=100:Y1=117:H1=1:V1=1:M1=1:G1=8:G2=11
43190 RETURN
43200 S1=4:F1=0:X1=190:Y1=130:H1=1
43290 RETURN
43300 RETURN
43400 PRINT"{$13}{$11}{$11}"
43410 PRINTTAB(15)"{$12}{$c4}{$c4}{$c4}{$c4}{$c4}{$c4}{$c4}{$c4}{$c4}{$c4}{$92}"
43420 IF R(1)=36 THEN 43450
43430 FOR I=1 TO 8:PRINTTAB(16)"{$1c}{$12}{$c7}{$dd}{$dd}{$c8}{$d9}{$c8}{$c7}{$dd}{$92}":NEXT:GOTO 43460
43450 FOR I=1 TO 8:PRINTTAB(16)"{$1c}{$12}{$c7}{$d4}{$d4}{$92}":NEXT
43460 IF LEFT$(PE$(5),3)="DEA"THEN S1=12:F1=0:X1=117:Y1=133:M1=1:G1=1:G2=9:H1=1
43470 IF LEFT$(PE$(5),3)<>"DEA"THENS1=14:F1=0:X1=125:Y1=110:M1=1:G1=8:G2=1:V1=1
43490 RETURN
43500 IF GE(10)=35 THEN S1=7:F1=7:X1=189:Y1=108:M1=1:G1=2:G2=6
43590 RETURN
43600 S1=16:F1=0:X1=175:Y1=110:M1=1:G1=8:G2=9:V1=1
43690 RETURN
45000 REM ----- SPRITE DISPLAY ----
45100 REM --- SPRITE 1 ---
45110 IF S1=0 THEN RETURN
45120 RESTORE 60050+S1*50
45130 FOR I=832 TO 832+62
45140 READ X:POKE I,X:NEXT
45150 POKE 2040,13
45160 POKE VC,X1:POKE VC+1,Y1
45170 POKE VC+39,F1
45180 POKE VC+29,H1:POKE VC+23,V1
45190 POKE VC+28,M1
45200 POKE VC+37,G1
45210 POKE VC+38,G2
45220 POKE VC+21,1
45300 REM --- SPRITE 2 ---
45310 IF S2=0 THEN RETURN
45320 RESTORE 60050+S2*50
45330 FOR I=896 TO 896+62
45340 READ X:POKE I,X:NEXT
45350 POKE 2041,14
45360 POKE VC+2,X2:POKE VC+3,Y2
45370 POKE VC+40,F2
45380 POKE VC+29,H1+2*H2:POKE VC+23,V1+2*V2
45390 POKE VC+28,M1+2*M2
45400 POKE VC+37,G1
45410 POKE VC+38,G2
45420 POKE VC+21,3
46000 RETURN
49000 RETURN
49999 END
50000 REM ----- WORD TABLES -----
50010 RESTORE 50000
50100 REM --- VERBS ---
50110 DATA TAKE,DROP,LIST,LOOK,QUIT,COMMANDS,OPEN,KILL,ASK,WEAR,GIVE,ENTER
50120 DATA EXAMINE,SMASH,READ,PAUSE
50190 VZ=16:DIM VE$(VZ):FOR I=1 TO VZ:READ VE$(I):NEXT
50200 REM ----- ITEMS -----
50210 DATA LETTER,0
50215 DATA RUSTY AXE,16
50220 DATA DEED,0
50225 DATA IRON KEY,0
50230 DATA OLD CLOAK,0
50235 DATA PAPER,0
50240 DATA RING,0
50245 DATA BAG OF GOLD,0
50250 DATA ELVEN DAGGER,0
50255 DATA GOLDEN CROWN,35
50290 GZ=10:DIM GE$(GZ):DIM GE(GZ):FOR I=1 TO GZ:READ GE$(I):READ GE(I):NEXT
50300 REM ----- OBJECTS -----
50310 DATA TOWN GATE,13
50320 DATA WINDOW,9
50330 DATA DESK,7
50335 DATA OAK CHEST,1
50340 DATA DOOR LOCK,19
50345 DATA MADE BED,6
50350 DATA HEDGE,21
50355 DATA OLD WILLOW,26
50360 DATA GRAVE,32
50365 DATA OPENING,0
50370 DATA DOOR,11
50375 DATA CURTAIN,34
50380 DATA INSCRIPTION,0
50385 DATA OBELISK,28
50390 OZ=14:DIM OB$(OZ):DIM OO(OZ):FOR I=1 TO OZ:READ OB$(I):READ OO(I):NEXT
50400 REM ----- PERSONS -----
50410 DATA SAM,2
50415 DATA MERRY,20
50420 DATA BLACK RIDER,17
50425 DATA GATE GUARD,33
50430 DATA INNKEEPER,34
50435 DATA WANDERER,12
50440 DATA BARROW WIGHT,27
50445 DATA TROLL,31
50450 DATA ARAGORN,36
50490 PZ=9:DIM PE$(PZ):DIM PO(PZ):FOR I=1 TO PZ:READ PE$(I):READ PO(I):NEXT
50500 REM ----- STRINGS -----
50505 O$="OK."
50510 DATA N,S,W,E,NW,NE,SW,SE,U,D
50515 FOR I=1 TO 10:READ R$(I):NEXT
50520 A$(0)="DON'T TALK NONSENSE."
50525 A$(1)="ALREADY DONE."
50530 A$(2)="YOU AREN'T CARRYING THAT."
50535 A$(3)="I DON'T SEE THAT HERE."
50540 A$(4)="PLEASE SPECIFY AN OBJECT."
50545 A$(5)="TOO HEAVY."
50550 A$(6)="IT WON'T OPEN."
50555 A$(7)="SOMETHING FALLS OUT WITH A CLINK."
50560 A$(8)="YOU HAVE NO SUITABLE WEAPON."
50600 P$(1)="SAMWISE GAMGEE IS YOUR GARDENER AND     FAITHFUL SERVANT."
50605 P$(2)="MERRY IS A YOUNG HOBBIT AND A DISTANT   RELATIVE OF YOURS."
50610 P$(3)="BEFORE YOU STANDS ONE OF SAURON'S DARK  SERVANTS!"
50615 P$(4)="HE IS A GRIM-LOOKING RESIDENT OF BREE."
50620 P$(5)="IT IS BARLIMAN BUTTERBUR, THE OWNER OF  THE INN."
50625 P$(6)="HE IS A WANDERER WHO COMES FROM RHUN IN THE EAST OF MIDDLE-EARTH."
50630 P$(7)="THE HIDEOUS-LOOKING BARROW-WIGHT GLOWS  WITH A GREENISH LIGHT."
50635 P$(8)="IT IS A TROLL FROM THE TROLLSHAWS EAST  OF BREE."
50640 P$(9)="ARAGORN IS A RANGER WHO GIVES A NOBLE   IMPRESSION."
50650 I$="HE READS ALOUD: 'GO SOUTH TO REACH THE  BARROWS.'"
50700 REM ----- VARIABLES -----
50705 TU(0)=1:REM LETTER
50710 TU(1)=1:REM TOWN GATE
50715 TU(2)=1:REM WINDOW
50720 TU(3)=1:REM DESK
50725 TU(4)=1:REM OAK CHEST
50730 TU(5)=1:REM DOOR LOCK
50735 TU(6)=1:REM GRAVE OPENING
50740 TU(7)=1:REM HOLE IN HEDGE
50745 TU(8)=1:REM CURTAIN
50750 TU(9)=1:REM GATE OF BREE
50755 TU(10)=1:REM BARROW
50770 P1=1:P2=1
50800 VC=53248
50900 RETURN
60000 REM ----- SPRITE DATA -----
60100 REM --- DEED ---
60110 DATA 63,255,252,64,0,18,128,0,33,128,0,33,127,255,241,8,0,2,8,119,210,16
60120 DATA 0,4,16,174,132,16,0,4,16,251,228,16,0,4,16,223,68,16,0,4,8,3,242,8,0
60130 DATA 2,127,255,241,128,0,33,128,0,33,64,0,18,63,255,252
60150 REM --- BAG OF GOLD ---
60160 DATA 0,0,0,0,32,0,1,243,128,7,255,224,3,255,128,0,254,0,0,124,0,0,254,0,3
60170 DATA 255,0,7,255,192,15,255,224,31,255,240,31,255,112,63,255,184,55,255
60180 DATA 184,119,255,188,123,255,124,123,255,120,61,254,240,30,255,224,7,255
60190 DATA 128
60200 REM --- ELVEN DAGGER ---
60210 DATA 240,0,0,184,0,0,220,0,0,238,0,0,119,0,0,59,128,0,29,192,0,14,224,0,7
60220 DATA 112,96,3,184,224,1,221,192,0,239,128,0,119,0,0,62,128,0,29,64,0,58
60230 DATA 160,0,117,80,0,226,168,0,193,88,0,0,176,0,0,96
60250 REM --- GRAVE ---
60260 DATA 0,56,0,0,56,0,0,56,0,0,254,0,0,254,0,0,254,0,0,254,0,0,56,0,0,56,0,0
60270 DATA 56,0,0,56,0,0,56,0,1,255,0,3,125,128,6,254,192,13,255,96,27,255,176
60280 DATA 48,0,24,127,255,252,127,255,252,127,255,252
60300 REM --- OBELISK ---
60310 DATA 0,124,0,0,254,0,1,255,0,1,255,0,3,255,128,3,255,128,7,255,192,7,255
60320 DATA 192,15,255,224,15,255,224,15,255,224,31,255,240,31,255,240,31,255
60330 DATA 240,31,255,240,31,255,240,31,255,240,31,255,240,15,255,224,7,255,192
60340 DATA 1,255,0
60350 REM --- CLOAK ---
60360 DATA 0,0,0,0,0,0,0,124,0,3,199,128,7,199,192,15,239,224,31,255,240,63,255
60370 DATA 248,127,239,252,187,255,186,83,255,148,35,239,136,3,255,128,3,255
60380 DATA 128,3,239,128,3,255,128,3,255,128,3,255,128,2,170,128,1,255,0,0,0,0
60400 REM --- CROWN ---
60410 DATA 0,0,0,0,0,0,0,32,0,0,16,0,0,32,0,0,168,0,3,187,0,2,154,0,6,222,64,10
60420 DATA 86,128,139,103,136,165,101,104,41,169,160,42,170,160,10,170,128,10
60430 DATA 170,128,11,171,128,11,187,128,10,186,128,2,170,0,0,0,0
60450 REM --- RUSTY AXE ---
60460 DATA 0,0,0,6,0,0,15,0,0,11,128,0,13,192,0,250,224,0,193,112,0,192,184,0
60470 DATA 224,92,0,224,238,0,112,151,0,124,139,128,63,133,192,15,130,224,0,1
60480 DATA 112,0,0,184,0,0,92,0,0,46,0,0,23,0,0,11,0,0,6
60500 REM --- BED ---
60510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,128,0,2,129,80,2,133
60520 DATA 84,14,149,85,126,149,85,254,149,85,254,170,170,170,170,170,170,170
60530 DATA 170,170,136,0,34,136,0,34,136,0,34,128,0,2
60550 REM --- SAM/MERRY ---
60560 DATA 0,252,0,3,87,0,13,153,192,13,85,192,13,153,192,1,101,0,0,84,0,0,220
60570 DATA 0,15,255,192,63,255,240,255,255,252,243,255,60,243,255,60,242,170,60
60580 DATA 81,85,20,17,85,16,1,69,0,1,69,0,1,69,0,1,69,0,63,207,240
60600 REM --- BARROW-WIGHT ---
60610 DATA 0,48,0,0,240,0,0,252,0,3,239,0,3,175,0,3,171,0,195,171,0,243,171,192
60620 DATA 179,239,192,191,255,240,255,255,124,63,254,252,63,250,252,15,250,240
60630 DATA 15,251,192,1,255,192,3,255,192,3,255,240,3,255,252,15,254,240,21,245
60640 DATA 192
60650 REM --- CORPSE ---
60660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,10,0,20,14,40,85,12,170,85
60670 DATA 204,170,85,252,170,85,252,169,85,252,181,85,240,245,85,192,245,87
60680 DATA 192,245,67,240,5,3,254,0,0,254,0,0,58,0,0,40
60700 REM --- WANDERER ---
60710 DATA 0,60,0,0,255,0,0,111,192,1,87,192,0,103,192,0,151,0,0,84,0,0,28,0
60720 DATA 128,255,0,131,255,192,127,255,192,191,247,192,128,95,192,128,255,192
60730 DATA 128,170,128,128,85,64,129,81,64,129,81,80,129,64,80,129,64,80,143
60740 DATA 195,240
60750 REM --- INNKEEPER ---
60760 DATA 3,223,0,15,87,192,13,85,192,5,153,64,5,85,64,1,153,0,1,101,0,0,84,0
60770 DATA 11,155,128,43,171,160,43,255,160,47,255,224,47,255,224,31,255,208,15
60780 DATA 255,192,7,255,64,5,253,64,1,85,0,1,69,0,1,69,0,10,138,128
60800 REM --- TROLL ---
60810 DATA 3,255,0,15,87,192,13,153,192,13,85,192,13,169,192,1,85,0,0,84,0,1,85
60820 DATA 0,5,85,64,21,85,80,85,85,84,85,85,84,81,85,20,81,85,20,82,170,20,19
60830 DATA 255,16,3,255,0,3,207,0,3,207,0,3,207,0,21,69,80
60850 REM --- ARAGORN ---
60860 DATA 0,252,0,3,87,0,13,153,192,13,85,192,1,169,0,0,84,0,3,223,0,63,255
60870 DATA 240,255,255,252,255,255,252,243,255,60,243,255,60,240,252,60,80,168
60880 DATA 20,16,84,16,1,85,0,1,85,0,5,69,64,5,1,64,5,1,64,42,2,160
60900 REM --- RIDER ---
60910 DATA 0,24,0,0,60,0,8,102,0,100,103,0,30,111,0,63,127,128,127,63,128,255
60920 DATA 191,128,239,255,224,127,255,246,123,255,255,119,255,251,119,255,251
60930 DATA 47,255,251,15,255,251,7,191,179,11,54,185,11,110,88,11,28,88,11,0
60940 DATA 176,22,1,96
61000 REM ----- TITLE SCREEN -----
61010 POKE 53280,0:POKE 53281,0
61020 PRINT CHR$(8)CHR$(142)
61100 REM --- MOON ---
61110 DATA 1,255,192,7,255,240,15,255,248,31,255,252,63,255,252,127,254,14,127
61120 DATA 248,0,255,224,0,255,224,0,255,192,0,255,192,0,255,192,0,255,192,0
61130 DATA 255,224,0,127,224,0,127,240,0,63,252,0,31,255,128,15,255,240,7,255
61140 DATA 192,1,255,0
61150 RESTORE 61000
61160 FOR I=832 TO 832+62
61170 READ X:POKE I,X:NEXT
61175 POKE 2040,13
61180 POKE VC+39,7
61190 POKE VC,250
61200 POKE VC+1,80
61210 POKE VC+29,0:POKE VC+23,0
61220 POKE VC+28,0
61230 POKE VC+21,1
61300 REM --- TITLE ---
61310 PRINT"{$93}{$11}{$11}{$11}{$11}{$11}{$11}"
61325 PRINT"{$1e}{$dc}"
61330 PRINT"{$1e}{$a6}"
61335 PRINT"{$1e}{$a6}{$dc}"
61337 PRINT"{$1e}{$a6}{$a6}"
61340 PRINT"{$1e}{$a6}{$a6}{$dc}"
61342 PRINT"{$1e}{$a6}{$a6}{$a6}"
61345 PRINT"{$1e}{$a6}{$a6}{$a6}{$dc}"
61347 PRINT"{$1e}{$a6}{$a6}{$a6}{$a6}"
61350 PRINT"{$1e}{$a6}{$a6}{$a6}{$a6}{$dc}"
61352 PRINT"{$1e}{$a6}{$a6}{$a6}{$a6}{$a6}{$a8}"
61355 PRINT"{$1e}{$a6}{$a6}{$a6}{$a6}"
61356 PRINT"{$95}{$12} {$b6}"
61357 PRINT"{$95}{$12} {$a7}"
61360 PRINT"{$97}{$b8}{$b8}{$c4}{$c6}{$d2}{$af}{$d2}{$c6}{$c0}{$c4}{$c5}{$c5}{$b7}{$b7}{$b7}{$c5}{$c4}{$c4}{$c0}{$c6}{$c6}{$d2}{$c6}{$c0}{$c4}{$c0}{$c0}{$c6}{$c6}{$c6}{$d2}{$d2}{$af}{$af}{$d2}{$c6}{$c0}{$c4}{$c5}{$b7}"
61370 PRINT"{$97}        {$d2}{$c6}{$c0}{$c6}{$c0}{$c4}{$c5}{$b7}{$b7}{$c5}{$c5}{$c4}{$c0}{$c6}{$c6}{$c0}{$c4}{$c0}   {$c5}{$c5}{$c4}{$c0}{$c6}{$d2}{$c6}{$c6}{$c0}"
61380 PRINT"{$13}{$9a} {$c0}{$b2}{$c0}         {$b2}   {$b2}"
61400 PRINT"  {$dd} {$ae}        {$c7}   {$c8}"
61410 PRINT"  {$dd} {$ab}{$c4}{$c9}{$d5}{$c4}{$c9}   {$c7} {$b2} {$c8}{$d5}{$c4}{$c9}{$b2} {$b2}"
61420 PRINT"  {$dd} {$dd} {$c8}{$ab}{$c6}{$bd}   {$c7} {$dd} {$c8}{$d5}{$c4}{$b3}{$dd} {$dd}"
61430 PRINT"  {$b1} {$b1} {$b1}{$ca}{$c6}{$cb}   {$ca}{$c6}{$b1}{$c6}{$cb}{$ca}{$c6}{$bd}{$ca}{$c6}{$b3}"
61440 PRINT"                     {$ca}{$c6}{$cb}"
61445 PRINTTAB(10)"{$11}{$11}{$11}               {$b2}{$c4}{$c4}{$c9}"
61450 PRINTTAB(10)"       {$dd}       {$dd}  {$c8}"
61460 PRINTTAB(10)"      {$c0}{$db}{$c0}{$d5}{$c4}{$c9}   {$ab}{$c0}{$c0}{$b3}{$b2}{$c4}{$c9}{$d5}{$c4}{$c9}{$d5}{$c4}{$c9}"
61470 PRINTTAB(10)"       {$dd} {$c7} {$dd}   {$dd}  {$c8}{$dd}  {$ab}{$c6}{$bd}{$ab}{$c6}{$bd}"
61480 PRINTTAB(10)"       {$ca}{$c6}{$ca}{$c6}{$cb}   {$b1}{$c6}{$c6}{$cb}{$b1}  {$ca}{$c6}{$cb}{$ca}{$c6}{$cb}"
61490 PRINTTAB(13)"{$11}{$11}{$11}{$99}(C)1986 BY  A R T S O F T"
61500 PRINT"{$11}{$11}{$11}{$11}{$11}{$11}{$05}       WRITTEN BY HOLGER SCHEMEL{$13}"
61510 POKE 198,0
61520 GET X$:IF X$=""THEN 61520
61530 POKE VC+21,0
61600 REM ----- INSTRUCTIONS -----
61610 POKE 53280,4:POKE 53281,7
61620 POKE 646,0
61630 PRINT"{$93}"CHR$(14)
61640 PRINTTAB(10)"- {$d4}{$c8}{$c5}{$a0}{$d7}{$c1}{$d9}{$a0}{$d4}{$cf}{$a0}{$c2}{$d2}{$c5}{$c5} -"
61650 PRINTTAB(3)"{$11}{$11}[ {$d4}HE {$cc}ORD OF THE {$d2}INGS; {$d0}ART 1 ]"
61660 PRINTTAB(2)"{$c2}ASED ON THE NOVEL BY {$ca}.{$d2}.{$d2}. {$d4}OLKIEN"
61670 PRINT"{$11}{$11}{$11}{$c9}NSTRUCTIONS:"
61680 PRINT"{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}{$b7}"
61690 PRINT" {$d7}ELCOME TO THE WORLD OF ADVENTURE!"
61700 PRINT" {$d9}OU ARE {$c6}RODO {$c2}AGGINS, THE NEPHEW OF"
61710 PRINT" THE FAMOUS OLD HOBBIT {$c2}ILBO."
61720 PRINT" {$d3}ET OUT ON THE PERILOUS WAY FROM"
61730 PRINT" {$c8}OBBITON TO THE VILLAGE OF {$c2}REE, WHICH"
61740 PRINT" LIES EAST OF THE {$d3}HIRE."
61750 PRINT" {$d9}OUR PATH LEADS YOU THROUGH THE NORTH-"
61760 PRINT" WEST OF {$cd}IDDLE-EARTH, THE FANTASTIC"
61770 PRINT" WORLD IN WHICH THIS ADVENTURE IS SET."
61780 PRINT" {$d9}OU WILL SOON FIND OUT THAT YOU ARE"
61790 PRINT" NOT THE ONLY LIVING CREATURE IN THIS"
61800 PRINT" ADVENTURE."
61810 PRINT"{$11}                 ({$c3}ONTINUE WITH {$d2}{$c5}{$d4}{$d5}{$d2}{$ce}){$13}"
61815 POKE 198,0
61820 GETX$:IF X$<>CHR$(13) THEN 61820
61830 REM ----- INSTRUCTIONS COMMANDS -----
61840 PRINT"{$93}"
61850 PRINT"{$11}{$11} {$d9}OU CAN GUIDE ME THROUGH THE ADVENTURE"
61860 PRINT" WITH ONE- OR TWO-WORD COMMANDS IN"
61870 PRINT" {$c5}NGLISH. {$d4}HE SYNTAX IS: VERB, OR"
61880 PRINT" VERB NOUN."
61890 PRINT"{$11} {$c5}XAMPLES:"
61900 PRINT"{$11} '{$cc}{$c9}{$d3}{$d4}' SHOWS THE ITEMS YOU ARE"
61910 PRINT" CARRYING;"
61920 PRINT"{$11} '{$c3}{$cf}{$cd}{$cd}{$c1}{$ce}{$c4}{$d3}' LISTS THE VOCABULARY AND"
61930 PRINT" SPARES YOU POINTLESS GUESSING;"
61940 PRINT"{$11} '{$d4}{$c1}{$cb}{$c5}{$a0}{$c3}{$d2}{$cf}{$d7}{$ce}' ETC..."
61950 PRINT"{$11} {$c4}IRECTIONS ARE ABBREVIATED WITH ONE"
61960 PRINT" ('{$ce}') OR TWO ('{$d3}{$c5}') LETTERS; UP AND"
61970 PRINT" DOWN ARE '{$d5}' AND '{$c4}'."
61980 PRINT"{$11}    {$c1}ND NOW HAVE FUN !!"
61990 POKE 198,0
62000 GETX$:IFX$<>CHR$(13) THEN 62000
62010 PRINTCHR$(147)CHR$(142):RETURN