100 CLEAR 1000:DIM R$(36),R1$(36),N$(53),V$(53),OB$(45),ST%(45),M$(74)
110 CLS:PRINT"WELLCOME TO THE GAME WHICH LETS YOU HAVE AN ADVENTURE FROM THE  PEACE AND COMFORT OF YOUR OWN HOME.
ADVENTURE SIMULATES THE ENVIROMENT IN WHICH YOU FIND YOURSELF - WITH ME ACTING AS YOUR PUPPET."
120 PRINT"YOU COMMAND ME USING 2 WORD ENGLISH SENTENCES, LIKE 'LOOK NORTH'AND I DISPLAY TO YOU, YOUR LOCATION, THE VISIBLE ITEMS IN  THAT LOCATION, AND THE OBVIOUS EXITS(THOUGH THERE MAY BE OTHERS)"
130 PRINT:PRINT"IF EVER YOU GET STUCK - TRY TYPING HELP - IF YOU WANT TO KNOW   WHAT YOU'RE CARRYING - TYPE 'I' - TO MOVE FROM LOCATION TO      LOCATION - TYPE 'N.' FOR NORTH, 'S.' FOR SOUTH,  ETC.."
140 PRINT:
150 PRINT"THE PROGRAM IS AT THE MOMENT INITIALISING - PLEASE WAIT UNTIL   THE QUESTION MARK, '?', COMES UP THEN PRESS <ENTER>"
160 PRINT"--------------> ";
170 DATA"IN A MEADOW BY A LIGHTHOUSE","IN A MEADOW BY A COTTAGE","INSIDE A LIVING-ROOM OF A COTTAGE","IN A SMALL GARDEN","ON TOP OF A SHED.
IN THE DISTANCE I SEE A CASTLE","INSIDE A SHED","ON TOP OF AN APPLE TREE","IN AN ORCHARD"
180 DATA"ON THE DRAWBRIDGE OF A CASTLE","IN THE HALL OF THE CASTLE","IN A KITCHEN IN THE CASTLE","IN A SERVANTS' QUARTERS","ON A LANDING ON TOP OF THE STAIRS","ON THE BATTLEMENTS OF THE CASTLE","IN A LONG, DOWN-SLOPING CORRIDOR"
190 DATA"IN A DARK TORTURE CHAMBER","INSIDE THE LIGHTHOUSE","IN THE LAMP-ROOM OF THE LIGHTHOUSE","IN A LARGE GREEN FIELD","IN AN ABBEY-RUIN","IN A CATACOMB OF CAVES","IN A CATACOMB OF CAVES","IN A CATACOMB OF CAVES"
200 DATA"IN A CATACOMB OF CAVES","IN A HIDDEN ROOM","IN A BURIAL CHAMBER","ON A DOCK BY THE SEA","ON A SAILING BOAT","IN THE LIVING-QUARTERS OF THE BOAT","ON TOP OF THE ALTAR","IN A GOTHIC CHURCH","ON TOP OF A STRANGE PYRAMID-LIKE MONUMENT"
210 DATA"ON A GOLF COURSE BY THE 18TH HOLE","IN A CLUB HOUSE","BY THE SEA AT THE BOTTOM OF A SAILING BOAT","UNDER WATER BY THE BOAT'S KEEL"
220 FOR I=1 TO 36:READR$(I):NEXT
230 DATA"02001900","0901200000","0000020400","0000030000","0000000004","0000040000","0000000008","3100090000","0002000800","1100120900","0010000000","0000001000","1500000010","0000000013","1613000000","0013000000","0001000000","0000000017"
240 DATA"2000000100","0019000200","2222232022","2121212324","2224222425","2123212621","2223000000","0000232200","0000003100","0027000029","2800000000","0000000031","0008273300","0000000020","0000313400","0000330000","0027000000","0000000000"
250 FOR I=1 TO 36:READ R1$(I):NEXT
260 DATA"N.","S.","E.","W.","D.","U.","GO","WAL","RUN","LOO","EXA","DES","TAK","PIC","GET","GRA","REM","LIG","UNL","LEA","DRO","CLI","ENT","TUR","PUS","MOV","PUL","SWI","STA","RAI","LOW","SWI","WAV","CUT","RUB","CLE","POL","PRI","OPE","CLO","LOC"
270 DATA"UNL","SAY","CAL","SHO","REA","BRE","SMA","DES","JUM","EAT","DRI","WIT"
280 FOR I=1 TO 53:READ V$(I):NEXT
290 DATA"NORTH","SOUTH","EAST","WEST","DOWN","UP"
300 DATA"DIA","FRU","SWO","CAL","BON","PAR","RUB","BAG","KEY","HAN","COA","ANC","CHA","BOA","MAT","RAC","IRO","ALT","ROB","STA","HOL","LAM","STE","SEA","TRE","POR","LEV","KNI","BAS","GAT","RAD","SIG","SHE","LAD","DOO","SWI","LEN","GLA","CLO"
310 DATA"FLA","PYR","TOM","CRA","PAD","DRA","ARO"," "
320 FOR I=1 TO 53:READ N$(I):NEXT
330 DATA"*GLOWING DIAMONDS*","*JEWELLED FRUIT*","*GOLDEN SWORD*","*STATUE OF A GOLDEN CALF*","*PHARAOH'S BONES*","*OLD PARCHMENT*","*LARGE RUBY*","*BAG OF SOVEREIGNS*","*GOLDEN KEY*","CUT HAND","*GOLDEN COAT*","*GOLDEN ANCHOR*"
340 DATA"*GOLDEN CHAIN*","DOCKED BOAT","MATCHES","TORTURE RACK","CLOSED IRON-MAIDEN","GLITTERING ALTAR","ROBE WITH WRITING ON IT","SPIRAL STAIRCASE LEADING UP","HOLE","RUSTY OLD LAMP","STEPS GOING DOWN","SEA","TREES"
350 DATA"LOWERED PORTCULLIS","IRON LEVER","KITCHEN KNIFE","LAUNDRY BASKET","CLOSED GATE","RADIO","SIGN","SHED","LADDER","LOCKED DOOR","LARGE TWO-WAY SWITCH","GLASS CIRCULAR LENS","BROKEN GLASS","PIECE OF CLOTH","FLAG IN HOLE"
360 DATA"STRANGE PYRAMID-LIKE MONUMENT","CLOSED STONE TOMB","CRACK","PADLOCK ON BASKET","LOWERED DRAWBRIDGE"
370 FOR I=1 TO 45:READ OB$(I):NEXT
380 DATA 118,7,14,19,126,25,133,5,10,0,112,36,116,27,29,16,16,31,30,17,33,34,27,35,8,9,9,11,12,2,3,26,4,6,1,17,18,118,118,33,20,26,120,12,9
390 FOR I=1 TO 45:READ ST%(I):NEXT
400 M$(1)=" THE FAMOUS THIEF-ECCENTRIC IRVIN KAPUTZ, RECENTLY ARRESTED FOR VARIOUS CHARGES OF BRIBERY THEFT & CORRUPTION, HAS HIDDEN 13 OF HIS GREATEST TREASURES ON THE ISLAND ON WHICH I NOW FIND MYSELF.MY TASK IS TO RETRIEVE THEM."
410 DATA"DELICIOUS","UGH!! NOT LIKELY","O.K.","I CAN'T GO IN THAT DIRECTION","I SEE NOTHING VERY SPECIAL","IT'S ONE OF THE STOLEN TREASURES","THE TIDE'S NOT VERY STRONG","IT'S NOT VERY SHARP","THERE'S WRITING ON IT"
420 DATA"IT LOOKS QUITE FRAGILE","THERE'S A PICTURE OF A PHAROAH ON IT","NOT SHARP - BUT TOUGH","IT'S BEYOND MY POWER TO DO THAT","I CUT MY HAND","LAMP IS LIT","PARCHMENT FLARES UP!AND BURNS","BOAT FLARES!UP AND I BURN WITH IT"
430 DATA"IT WON'T IGNITE","ROBE FLARES UP AND I BURN WITH IT","IT WON'T BUDGE","STAIRCASE FLARES UP AND I BURN WITH IT","CLOTH FLARES UP AND BURNS","FLAG FLARES UP AND BURNS","IT'S NOT LIT","I STICK THE FLAG INTO THE PYRAMID"
440 DATA"I LEAVE THE FLAG IN THE HOLE","I CAN'T DO THAT","THE PORTCULLIS MYSTERIOUSLY RISES AND I'M CRUSHED AGAINST THE    CEILING","FLAG BENDS UNDER MY WEIGHT","IT'S FAR TOO SMALL FOR ME","THERE'S NO ROOM IN THERE FOR ME"
450 DATA"NOTHING HAPPENS","THE TORCH HAS RUN OUT","I RUN OUT OF BREATH AND DROWN","I AM HOLDING MY BREATH","I CAN'T DO ANYTHING IN THE DARK","I'M BLINDED BY THE LIGHT","I DIE OF LOSS OF BLOOD","SPLAASSSHH!!","IT'S STIFF - BUT I MANAGE IT"
460 DATA"PORTCULLIS RAISES SLOWLY","","CLICK!!","NOT ON DRY LAND","I SINK TO THE BOTTOM","I AM SWIMING","NOT EXACTLY PATRIOTIC","THAT'S RUINED IT","EVERYTHING I'VE GOT ON ME GETS SOAKED","IT WON'T CUT"
470 DATA"I LEAVE GREASY FINGER MARKS ON IT","I POLISH IT WITH THE CLOTH","NO, IT'S TOO HOT","NO GOOD, DOESN'T WORK","SWORD BREAKS","NOTHING TO LIGHT IT WITH","DRAWBRIDGE CLOSES - I'M CRUSHED AGAINST THE PORTCULLI		S"
480 DATA"DRAWBRIDGE LOWERS","DRAWBRIDGE CLOSES - I'M FLUNG FORWARD","WITH WHAT?","IT SINKS TO THE BOTTOM AND IS LOST!!","","DOESN'T WORK - I'LL NEED SOMETHING TO PRY IT OFF","","I FALL TO MY DEATH","I FALL AND BREAK MY NECK","IT'S TOO DARK TOO SEE"
490 DATA"I CAN'T SEE ONE HERE","I'M ALREADY CARRYING IT","I DON'T QUITE KNOW WHAT YOU MEAN BY THAT","PLEASE SPECIFY A BIT MORE","I'M CARRYING TOO MUCH","I'M NOT CARRYING IT"
500 FOR I=2 TO 74:READ M$(I):NEXT
510 M$(43)="A VOICE ON THE RADIO SAYS "+CHR$(34)+"PYRAMID NOT TALL ENOUGH"+CHR$(34)
520 M$(62)="IT SAYS "+CHR$(34)+"LEAVE YOUR TREASURES HERE AS YOU FIND THEM"+CHR$(34)
530 M$(65)="IT SAYS "+CHR$(34)+"A CURSE UPON ALL WHO ENTER THIS ROOM"+CHR$(34)
540 DE=0:SC=0:LA=100:DR=5:S=1:LO=1:PR=1:V$="":HA=10
550 INPUTDE$:CLS:PRINT@960,STRING$(64,45)
560 PR$=M$(PR)
570 PRINT@960,;:IF LEFT$(OB$(22),2)="*B"ORLEFT$(OB$(22),2)="RU"THEN610
575 IF ST%(22)<>500ANDST%(22)<>LO THEN GOTO 590
580 IF LA=0 THEN PR$=PR$+CHR$(13)+M$(34) ELSE IF LA<40 THEN PR$=PR$+CHR$(13)+"THE LAMP RUNS OUT IN "+STR$(LA)+" TURNS"
590 LA=LA-1
600 IF LA=0ANDLEFT$(OB$(22),2)="*L" THEN OB$(22)="*BRASS LAMP*" ELSE IF LA=0ANDLEFT$(OB$(22),2)="LI" THEN OB$(22)="RUSTY OLD LAMP"
610 IF LO=36 THEN PR$=PR$+CHR$(13)+M$(36):DR=DR-1
620 IF LO=36 AND(ST%(15)=LOORST%(15)=500) THEN OB$(15)="SOGGY MATCH" 
630 IF LO=36 AND(ST%(11)=LOORST%(11)=500)THENOB$(11)="RUINED OLD RAG"
640 IF LO=36 AND (ST%(22)=LOORST%(22)=500)THEN OB$(22)="RUSTY OLD LAMP"
650 IF LA=0 THEN PR$=PR$+CHR$(13)+M$(34):LA=-1
660 IF DR=0 THEN PR$=PR$+CHR$(13)+M$(35):DE=1
670 IF SC=13 THEN PRINT@896,:PRINT:PRINT"WELL DONE - YOU'VE SOLVED IT!!!!!":PRINT:PRINT:PRINT:GOTO1810
680 IF LO=18 AND S=1 THEN PR$=PR$+CHR$(13)+M$(38):DE=1
690 IF ST%(10)=500 THEN HA=HA-1
695 IF HA<=5 THEN PR$=PR$+CHR$(13)+"I'M FEELING VERY WEAK!!"
700 IF HA=0 THEN DE=1:PR$=PR$+CHR$(13)+M$(39)
710 PRINTPR$
720 PRINTCHR$(30):PRINT@0,;
730 MN=15424
740 IF PEEK(MN)<>45 THEN PRINTCHR$(30):MN=MN+64:GOTO740
750 PRINTCHR$(30)
760 PRINT@0,;:
765 IF LO<27ANDLO>20ANDST%(22)<>LOANDST%(22)<>500THENPRINTM$(68):DA=1:GOTO940
770 LE$=LEFT$(OB$(22),2):IF LE$<>"*L"ANDLE$<>"LI"ANDLO<27ANDLO>20THENPRINTM$(68):DA=1:GOTO940 ELSE DA=0
780 IF DE=1 THEN PRINT"I'VE HAD IT!!";CHR$(30):GOTO940
790 PRINT"I'M ";R$(LO);". ";
800 VI=0
810 V$="":FOR I=1 TO 45
820 IF ST%(I)<>LO THEN 860
830 VI=VI+1
840 IF VI=1 THEN PRINT"VISIBLE ITEMS:
 ";CHR$(30)
850 IF LEN(V$)+LEN(OB$(I))>62 THEN PRINTV$;CHR$(30):V$=OB$(I)+"."  ELSE
        V$=V$+OB$(I)+"."
860 NEXT I
870 IF V$<>"" THEN PRINTV$;CHR$(30)
880 PRINTCHR$(30)
890 IF VI=0 THEN PRINTCHR$(30)
900 EX$="":FOR I=1 TO 5
910 IF VAL(MID$(R1$(LO),2*I-1,2))<>0 THEN EX$=EX$+N$(I)+"."
920 NEXT I
930 IF EX$<>"" THEN PRINT"OBVIOUS EXITS ARE AT: ";EX$;CHR$(30)
940 PRINTSTRING$(64,"-")
950 IF DE=1 THEN 1810
960 PRINT@896,;:INPUT"------------> TELL ME WHAT TO DO";RE$
970 IF RE$="I"ORRE$="TAKE INVENTORY"THEN1740
980 IF RE$="QUIT"THEN 1810
990 IF RE$="SCORE" THEN PR$="I HAVE RECOVERED"+STR$(SC)+" TREASURES":GOTO 570
1000 GOSUB 1500:IF I1=0 THEN V$=RE$:N$=" " ELSE 
        V$=LEFT$(RE$,I1-1):N$=RIGHT$(RE$,LEN(RE$)-I1)
1010 V=0:FOR I=1 TO 53
1020 IF LEFT$(V$,LEN(V$(I)))=V$(I)THENV=I:I=53
1030 NEXTI
1040 IF V=0 THEN PR$="I DONT KNOW HOW TO "+CHR$(34)+V$+CHR$(34)+" SOMETHING":GOTO 570
1050 N=0:FORI=1TO53
1060 IF LEFT$(N$,LEN(N$(I)))=N$(I)THENN=I:I=53
1070 NEXTI
1080 IF V<>43ANDV<>44ANDV<>45ANDN=0THENPR$="I DON'T KNOW WHAT A "+CHR$(34)+N$+CHR$(34)+" IS":GOTO 570
1090 IF DA=1 AND V<10 THEN PR=67:DE=1:GOTO560 ELSE IF DA=1 AND  V<>18 THEN PR=37:GOTO 560
1100 IF N>51 OR N<7 OR (N=20AND(LO=28ORLO=29))  THEN 1130
1110 IF ST%(N-6)<>LOANDST%(N-6)<>500THENPR=69:GOTO560
1120 LE$=LEFT$(OB$(N-6),2)
1130 IF V<10 THEN 1530
1140 ON V-9 GOTO 1150,1150,1150,1240,1240,1240,1240,1240,1350,1470,1830,1830,1900,1900
1150 IF N<7ORN=52THENPR=6:GOTO560
1160 IF N<20 AND N<>16 OR(N=28ANDLEFT$(LE$,1)="*")THENPR=7:GOTO560
1170 IF N=30 THEN PR=8:GOTO560
1180 IF N=34THENPR=9:GOTO560
1190 IF N=25ORN=38ORN=12THENPR=10:GOTO560
1200 IFN=43ANDLE$<>"BR"THENPR=11:GOTO560
1210 IF N=48 THEN PR=12:GOTO560
1220 IF N=9 THEN PR=13:GOTO560
1230 PR=6:GOTO 560
1240 ON N GOTO 1260,1260,1260,1260,1260,1260,1280,1280,1280,1280,1280,1280,1280,1280,1280,1260,1280,1280,1280,1270,1280,1270,1270,1270,1250,1270,1270,1280,1270,1260,1270,1270,1250,1280,1280,1250,1280,1250,1270,1280,1270,1250,1250,1280,1280,1280,1270,1270,1270,1280,1270
1250 PR=21:GOTO560
1260 PR=71:GOTO 560
1270 PR=14:GOTO560
1280 IF ST%(N-6)=500 THEN PR=70:GOTO560
1290 IF CA>7 THEN PR=73:GOTO560
1300 ST%(N-6)=500:CA=CA+1:PR=4
1305 IF N=46ANDLO=32 THEN OB$(41)="STRANGE PYRAMID-LIKE MONUMENT":ST%(43)=132
1310 IF N=46 AND OB$(40)="BURNT FLAG" AND ST%(7)-100=LO THEN ST%(7)=ST%(7)-100:PR=4:GOTO1340 ELSE IF N=46 AND OB$(40)="BURNT FLAG" THENPR=4:GOTO  1340
1315 IF N=46 AND OB$(40)="BENT FLAG" AND ST%(7)-100=LO THEN ST%(7)=ST%(7)=100:PR=4:GOTO1340 ELSE IF N=46 AND OB$(40)="BENT FLAG" THEN PR=4:GOTO 1340
1320 IF LO=30 AND LEFT$(LE$,1)="*" THEN SC=SC-1
1330 IF N=38 THEN PR=15 ELSE IF N=46 AND ST%(7)-100=LO THEN ST%(7)=ST%(7)-100:OB$(40)="GOLF FLAG"  ELSE IF N=46 THEN OB$(40)="GOLF FLAG" ELSE IF N=40 THEN OB$(34)="LADDER"
1340 GOTO 560
1350 IF ST%(15)<>500OR OB$(15)="SOGGY MATCH"  THEN PR=57:GOTO 560
1360 IF N=28ANDLE$<>"*U"ANDLE$<>"RU"THENPR=16:GOTO560
1370 IF N<>28 THEN 1410
1380 IF LA=<0 THEN PR=19:GOTO 560
1390 IF LE$="*U" THEN OB$(22)="*LIT BRASS LAMP*":PR=4:GOTO560
1400 OB$(22)="LIT LAMP":PR=4:GOTO560
1410 IF LE$="BU"OR(N<>11ANDN<>26ANDN<>25ANDN<>46ANDN<>20)THENPR=19:GOTO560
1420 IF N=12 THEN OB$(5)="BURNT PARCHMENT":PR=17:IF LO=30 THEN SC=SC-1
1430 IF N=46 THEN OB$(40)="BURNT FLAG":PR=24
1435 IF LO=30ANDN=46THENST%(43)=120:OB$(41)="STRANGE PYRAMID-LIKE MONUMENT"
1440 IF N=26 THEN DE=1:PR=22 ELSE IF N=20 AND (LO=28ORLO=29) THEN PR=18:DE=1 ELSE IF N=20 THEN PR=33
1450 IF N=25 THEN DE=1:PR=20
1460 GOTO 560
1470 IF N<>28 OR LE$="RU" OR LE$="*B" THEN PR=25:GOTO560 ELSE
        PR=4
1480 IF LE$="*L" THEN OB$(22)="*BRASS LAMP*" ELSE OB$(22)="RUSTY OLD LAMP"
1490 GOTO 560
1500 I1=0:FORI=1TOLEN(RE$)
1510 IF MID$(RE$,I,1)=" "THENI1=I
1520 NEXTI:RETURN
1530 IF V>5 THEN 1560
1540 IF VAL(MID$(R1$(LO),2*V-1,2))=0THENPR=5:GOTO560
1550 LO=VAL(MID$(R1$(LO),2*V-1,2)):PR=4:GOTO560
1560 IF N>5 THEN 1590
1570 IF MID$(R1$(LO),2*N-1,2)="00"THENPR=5:GOTO560
1580 LO=VAL(MID$(R1$(LO),2*N-1,2)):PR=4:GOTO 560
1590 IF N=20 THEN LO=28:PR=4:GOTO560
1600 IF N=6 OR V=6 THEN PR=5: GOTO560
1610 IF LE$="CL"ORLE$="LO"  THEN PR=28:GOTO560
1620 IF N=23 OR N=27 OR N=48 THEN PR=32:GOTO560
1630 IF N=24 THEN LO=30:PR=4:GOTO560
1640 IF N=26 THEN LO=18:PR=4:GOTO560
1650 IF N=29 THEN LO=35:PR=4:GOTO560
1660 IF N=31 THEN LO=7:PR=4:GOTO 560
1670 IF N=40 AND LO=13 THEN LO=14:PR=4:GOTO560
1680 IF N=41 THEN LO=17:PR=4:GOTO560
1690 IF N=30 THEN LO=36:PR=40:GOTO560
1700 IF N=26 THEN LO=10:PR=4:GOTO560
1710 IFN=30 THEN LO=3:PR=4:GOTO560
1715 IF N=49 THEN LO=21:PR=4:GOTO 560
1720 IF N=47 THEN LO=32:PR=4:GOTO560
1730 PR=71:GOTO 560
1740 P1$="":PR$="":TT=0:FORI=1 TO 45
1750 IF ST%(I)<>500 THEN 1770
1760 IF LEN(P1$)+LEN(OB$(I))>63 THEN PR$=P1$+CHR$(13)+OB$(I)+".":P1$=""  ELSE P1$=P1$+OB$(I)+"."
1770 NEXT I
1780 IF P1$<>"" THEN PR$=PR$+P1$
1790 IF PR$="" THEN PR$="I AM CARRYING THE FOLLOWING:
NOTHING AT ALL" ELSE PR$="I AM CARRYING THE FOLLOWING:
"+PR$
1800 GOTO 570
1810 PRINT@896,;"THE ADVENTURE IS OVER - TRY AGAIN (Y/N)?"
1820 A$=INKEY$:IF A$<>"Y"ANDA$<>"N"THEN1820ELSEIFA$="N"THENENDELSECLEAR0:GOTO100
1830 IF ST%(N-6)<>500 THEN PR=74:GOTO 560
1835 CA=CA-1
1840 IF LO=30 AND LEFT$(LE$,1)="*"THENSC=SC+1:PR=4
1850 IF N=46ANDLO=32ANDLE$="GO"THENPR=26:OB$(40)="FLAG IN PYRAMID":ST%(43)=20:OB$(41)="GLOWING PYRAMID"
1860 IF N=46 AND LO=33 THEN PR=27:OB$(22)="FLAG IN HOLE":IF ST%(7)=LOTHENST%(7)=100+ST%(7)
1870 IF LO=36 THEN PR=63:ST%(N-6)=0:GOTO560
1880 ST%(N-6)=LO:IF PR<>25 AND PR<>26 THEN PR=4
1890 GOTO 560
1900 IF N<5 THEN PR=71:GOTO 560
1910 IF N<7 THEN V=7:GOTO1530
1920 IF N<20ORN=21ORN=25ORN=28ORN=33ORN=34ORN=37ORN=38ORN=42ORN=43ORN=44ORN=45ORN=51THENPR=28:GOTO560
1925 IF V=22 AND N=32 THEN PR=29:DE=1:GOTO560
1930 IF LE$="CL"ORLE$="LO" THEN PR=28:GOTO560
1940 IF N=20ORN=29ORN=26ORN=22ORN=23ORN=24ORN=27ORN=35THENV=7:GOTO1530
1950 IF V=22AND(N=30ORN=36ORN=41ORN=48) THEN PR=71:GOTO560
1960 IF V=23AND(N=31ORN=40ORN=46ORN=45)THENPR=71:GOTO560
1965 IF N=46 ANDLE$<>"BE" THEN PR=30:OB$(40)="BENT FLAG":GOTO560
1970 IF N<>39 THEN V=7:GOTO1530
1980 IF V=22 THEN LO=5 ELSE LO=6
1990 PR=4:GOTO 560