10 REM****************************************************************
 20 REM****************************************************************
 30 REM***        **************** TROLLS ****************        *****
 40 REM***  AND   ****************        **************** TRAP-  *****
 50 REM***        **************** DOORS  ****************        *****
 60 REM****************************************************************
 70 REM****************************************************************
 75 POKE515,0:CLEAR
 77 FORDL=1TO1000:NEXTDL
 80 POKE530,1
 85 GOSUB6000
 90 C=161:N=1:SC=32:CS=32:TR=32:LT=10
 100 PRINTCHR$(30);:FORPR=1TO10:PRINTCHR$(11);:NEXTPR
 200 DEFFNA(P)=53380+(32*(Y(I)-1))+X(I)
 210 READD
 290 I=0
 300 FORY=1TO24
 310 FORX=1TO24
 320 Y(I)=Y:X(I)=X
 330 POKEFNA(P),C
 340 IFN=DANDC=161THENC=32:N=1:READD:GOTO360
 342 IFN=DANDC=32THENC=161:N=1:READD:GOTO360
 350 N=N+1
 360 NEXTX
 370 NEXTY
 380 I=2:X(2)=10:Y(2)=8:POKEFNA(P),241:I=3:X(3)=15:Y(3)=9
 381 POKEFNA(P),241:I=4:X(4)=6:Y(4)=10:POKEFNA(P),241:I=5:X(5)=13
 382 Y(5)=18:POKEFNA(P),241:I=6:X(6)=22:Y(6)=20:POKEFNA(P),241
 390 I=0
 400 FORTD=1TO5
 410 X(I)=INT(RND(1)*100)
 415 IFX(I)>20ORX(I)<3GOTO410
 420 Y(I)=INT(RND(1)*100)
 425 IFY(I)>20ORY(I)<3GOTO420
 430 IFX(I)>20ANDY(I)>20GOTO410
 440 IFX(I)<7ANDY(I)<7GOTO410
 450 IFPEEK(FNA(P))<>32GOTO410
 460 POKEFNA(P),96
 470 NEXTTD
 490 I=1
 500 X(I)=23:Y(I)=23:POKEFNA(P),240
 510 IFSW=0GOTO516
 511 IFL=LNGOTO519
 512 L$=STR$(LT):TY=LEN(L$)+6:LT=10-L
 513 FORPR=1TOTY
 514 PRINTCHR$(95);
 515 NEXTPR
 516 PRINT"LIVES";LT;
 517 IFL=10GOTO4200
 518 LN=L:SW=1
 519 IFFNA(P)<53385THENGOTO4000
 520 POKE57088,254
 525 IFPEEK(57088)=222GOTO4200
 530 LP=FNA(P):A=X(I):B=Y(I)
 540 IFPEEK(57088)=250THENX(I)=X(I)-1
 550 IFPEEK(57088)=252THENX(I)=X(I)+1
 560 POKE57088,253
 570 IFPEEK(57088)=223THENY(I)=Y(I)+1
 580 IFPEEK(57088)=247THENY(I)=Y(I)-1
 590 IFPEEK(FNA(P))=161ORPEEK(FNA(P))=241THENX(I)=A:Y(I)=B
 595 IFPEEK(FNA(P))=96THENGOSUB1800
 600 REM
 610 POKELP,TR:POKEFNA(P),240:TR=32
 700 FORI=2TO6
 710 YC=Y(I)-Y(1):XC=X(I)-X(1)
 720 IFYC<4ANDYC>-4ANDXC<4ANDXC>-4THENGOSUB1100
 730 NEXTI
 740 I=1
 1000 GOTO510
 1100 BS=FNA(P)
 1105 IFXC<1ANDYC<1GOTO1200
 1110 IFXC<0ANDYC>-1GOTO1300
 1120 IFXC>-1ANDYC>-1GOTO1400
 1130 IFXC>0ANDYC<1GOTO1500
 1200 IFYC=0GOTO1300
 1201 Y(I)=Y(I)+1
 1205 IFPEEK(FNA(P))<>161THENGOTO1600
 1210 Y(I)=Y(I)-1
 1215 X(I)=X(I)+1
 1220 IFPEEK(FNA(P))<>161THENGOTO1600
 1225 X(I)=X(I)-1
 1230 Y(I)=Y(I)-1
 1235 IFPEEK(FNA(P))<>161THENGOTO1600
 1240 Y(I)=Y(I)+1
 1245 X(I)=X(I)-1
 1250 IFPEEK(FNA(P))<>161THENGOTO1600
 1255 X(I)=X(I)+1
 1300 X(I)=X(I)+1
 1305 IFPEEK(FNA(P))<>161THENGOTO1600
 1310 X(I)=X(I)-1
 1315 Y(I)=Y(I)-1
 1320 IFPEEK(FNA(P))<>161THENGOTO1600
 1325 Y(I)=Y(I)+1
 1330 X(I)=X(I)-1
 1335 IFPEEK(FNA(P))<>161THENGOTO1600
 1340 X(I)=X(I)+1
 1345 Y(I)=Y(I)+1
 1350 IFPEEK(FNA(P))<>161THENGOTO1600
 1355 Y(I)=Y(I)-1
 1400 IFYC=0GOTO1500
 1401 Y(I)=Y(I)-1
 1405 IFPEEK(FNA(P))<>161THENGOTO1600
 1410 Y(I)=Y(I)+1
 1415 X(I)=X(I)-1
 1420 IFPEEK(FNA(P))<>161THENGOTO1600
 1425 X(I)=X(I)+1
 1430 Y(I)=Y(I)+1
 1435 IFPEEK(FNA(P))<>161THENGOTO1600
 1440 Y(I)=Y(I)-1
 1445 X(I)=X(I)+1
 1450 IFPEEK(FNA(P))<>161THENGOTO1600
 1455 X(I)=X(I)-1
 1500 X(I)=X(I)-1
 1505 IFPEEK(FNA(P))<>161THENGOTO1600
 1510 X(I)=X(I)+1
 1515 Y(I)=Y(I)+1
 1520 IFPEEK(FNA(P))<>161THENGOTO1600
 1525 Y(I)=Y(I)-1
 1530 X(I)=X(I)+1
 1535 IFPEEK(FNA(P))<>161THENGOTO1600
 1540 X(I)=X(I)-1
 1545 Y(I)=Y(I)-1
 1550 IFPEEK(FNA(P))<>161THENGOTO1600
 1555 Y(I)=Y(I)+1
 1600 CS=PEEK(FNA(P))
 1602 IFCS=240THENCS=32:X(1)=23:Y(1)=23:L=L+1
 1604 POKEBS,SC:POKEFNA(P),241
 1610 SC=CS
 1700 RETURN
 1800 FORDT=128TO143
 1810 POKEFNA(P),DT
 1820 FORDL=1TO50:NEXTDL
 1830 NEXTDT
 1840 POKEFNA(P),96
 1860 FORI=2TO6
 1870 IFLP=FNA(P)THENTR=241:GOTO1890
 1880 NEXTI
 1890 I=1:X(I)=23:Y(I)=23
 1893 L=L+1
 1895 RETURN
 3000 DATA1,1,23,10,1,5,1,5,4,1,6,3,6,1,5,3,1,6,3,9,2,1,6,1,1,5,7,1,2
 3005 DATA14,1
 3010 DATA7,5,1,5,1,3,3,8,4,4,2,4,1,2,5,2,1,2,2,4,1,3,2,3,1,2,1,2,5
 3015 DATA1,4,4,1,3
 3020 DATA1,2,1,5,1,2,1,4,11,5,1,2,1,3,2,9,1,2,4,2,6,3,7,2,1,5,6,3,1
 3025 DATA8,12,3,7
 3030 DATA9,1,3,5,5,1,2,3,1,4,4,3,3,4,2,1,6,1,3,2,5,1,5,1,1,6,4,1,5,1
 3035 DATA5,1,1,1
 3040 DATA6,4,3,3,1,2,2,1,1,8,4,3,4,1,2,1,5,1,7,1,1,6,2,22,25,10
 4000 REM
 4010 FORDL=1TO2000:NEXTDL
 4020 PRINTCHR$(30)
 4030 PRINT:PRINT:FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 4040 PRINT"  WELL DONE HUMAN !!":PRINT
 4050 PRINT" You have avioded my    Trolls,but BEWARE !!!"
 4060 PRINT:PRINT"Next time you may have  to forfeit ALL!!!"
 4070 PRINT:FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 4100 GOTO4600
 4200 PRINTCHR$(30):PRINT:PRINT:PRINT:PRINT:PRINT
 4300 FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 4400 PRINT" HUMAN YOU ARE DEFEATED":PRINT:PRINT"ALL IS FORFEIT!":PRINT
 4500 FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 4600 FORDL=1TO5000:NEXTDL:PRINTCHR$(26);
 4610 PRINT:PRINT:FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 4620 PRINT"HUMAN will you chance   your fortunes again?":PRINT
 4630 PRINT"I will allow you a time to decide,":PRINT
 4640 PRINT"A count of ten for that is the number of your   fate!"
 4641 PRINT
 4650 PRINT"<RETURN> again quickly, Or lose your chance!"
 4660 FORDL=1TO5000:NEXTDL
 4665 PRINT:PRINT"I AM COUNTING NOW!!!":PRINT:PRINT
 4670 FORCN=1TO10:PRINTCN;
 4680 FORDL=1TO100
 4681 POKE57088,223
 4682 IFPEEK(57088)=247GOTO70
 4684 NEXTDL
 4690 NEXTCN
 4695 GOTO5000
 5000 POKE530,0
 5100 PRINTCHR$(26)
 5200 FORPR=1TO8:PRINT:NEXTPR
 5300 FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 5400 PRINT" Until WE meet again":PRINT:PRINT"      COWARD !!!!!":PRINT
 5500 FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT:END
 6000 PRINTCHR$(30);:FORPR=1TO24:PRINTCHR$(241);:NEXTPR:PRINT
 6010 PRINT"I AM THE KING OF TROLLS  ":PRINT" HEAR ME AND TREMBLE"
 6020 PRINT:PRINT
 6030 PRINT"You have entered my     domain."
 6040 PRINT"My guards are hungry    for sport!"
 6050 PRINT"Trap-doors await your   luck.":PRINT
 6060 PRINT"Know your enemies by    fives,"
 6070 PRINT"Five trolls,five traps, Ten lives,"
 6080 PRINT"Ten lost and all is     forfeit.":PRINT
 6090 PRINT"BEWARE my first guard   He is hungry for BLOOD!"
 6100 PRINT"There is no RETURN      For that is your start";
 6200 POKE57088,223
 6300 IFPEEK(57088)=247GOTO6500
 6400 GOTO6300
 6500 PRINTCHR$(30);:FORPR=1TO24:PRINTCHR$(240);:NEXTPR:PRINT
 6510 PRINT"I AM THE QUEEN OF THE   FAERIES":
 6520 PRINT:PRINT" HEAR ME AND BE SAVED":PRINT:PRINT
 6530 PRINT"Skill is your salvation A good heart and quick  wit."
 6540 PRINT:PRINT"A SHIFT for left and    a SHIFT for right;"
 6550 PRINT"A question (?) for up   and an end (Z) for down"
 6560 PRINT:PRINT"You have an ESCape but, ALL isforfeit":PRINT
 6570 PRINT"RETURN again and enter, Your peril begins here."
 6580 IFPEEK(57088)=247GOTO6600
 6590 GOTO6580
 6600 RETURN
 20000 REM
 20010 DEFFNA(P)=X(I)+Y(I)
 20015 FORI=1TO5
 20020 INPUT"X,Y";X(I),Y(I)
 20022 NEXTI
 20025 FORI=1TO5
 20030 PRINTFNA(P)
 20035 NEXTI
 20040 GOTO20000
 21010 DEFFNA(A)=A*Y
 31105 IFXC<1ANDYC<1GOTO1200
 31110 IFXC<1ANDYC>0GOTO1300
 31120 IFXC>0ANDYC>0GOTO1400
 31130 IFXC>0ANDYC<1GOTO1500
 32000 REM>>>>>375
OK
RUN