10*TV255 20MODE7 30DATA34,100,5,9,100,6,10,100,6,6,4,4 ,10,5 40PROCtitle 50PROCload 60REPEAT 70PROCbuild`1:CLS 80PROCmonster 90IF A(1)=3 AND A(2)=3 AND A(3)=3 PRO Cpit:GOTO140 100PROCoptions:PROCoperate`cell(1) 110IF RND(12)<>1 GOTO 130 ELSE PROCmon ster:CLS:PRINT'':PROCprint`monster:IF B$ ="a " OR B$="an " THEN PRINTB$; 120PRINTA$;" arrives":R1=2:RM=1:PROCop erate`cell(2) 130V1=0:RM=0 140UNTIL FALSE 150DEFPROCpit 160H=RND(12) 170PRINT'"You fell down a ";H*10;" foo t pit" 180PRINT"you took";:D1=RND(6)*H:PRINT; D1;" hps damage" 190IF RND(6)=1 GOTO 210 200H1=H1-D1:L1=L1+1:PROCdelay(20):PROC status`1:ENDPROC 210PRINT"At the bottom there ";:H1=H1- D1 220R=RND(3) 230IF R=1 PRINT"is a pool of acid"'"yo u take ";:D1=RND(8):PRINT;D1;" hps of da mage":GOTO200 240IF R=2 PRINT"are some spikes":R=RND (8):PRINT;R;" of which you hit":D1=R*RND (4):PRINT"doing ";D1;" hps damage":GOTO2 00 250PROCmonster:PROCprint`monster:PROCs uper`monsters:PRINT"was"'B$;A$':L1=L1+1: PROCdelay(20):PROCcombat:ENDPROC 260DEFPROCsuper`monsters 270IF T1>80000 D1=D1+INT(4*(D1*(L1-1)) ^0.5) 280ENDPROC 290DEFPROCdelay(I%) 300FOR Z%=0TOI%*1000 310NEXT 320ENDPROC 330DEFPROCmonster`noises:RN=RND(4):ON RN GOTO 340,350,360,370 340PRINT"s snorting":ENDPROC 350PRINT"s":ENDPROC 360PRINT"s growling":ENDPROC 370PRINT"s howling":ENDPROC 380DEFPROCbuild`1 390FOR D1=1TO3 400A1=RND(7) 410R=RND(100) 420IF A1<5 A(D1)=A1 430IF L1=1 AND (A(1)=3 OR A(1)=5) AND (A(2)=3 OR A(2)=5) A(3)=1:GOTO 490 440IF A1=5 IF R<10 A(D1)=A1:GOTO 490 450IF A1=6 IF R<25 A(D1)=A1:GOTO 490 460IF A1=7 IF R=1 A(D1)=A1:GOTO 490 470IF A1>4 A1=RND(4):A(D1)=A1 480REM**NO GO HERE** 490NEXT 500FOR D1=1TO3 510IF A(D1)=2 PROCbuild`2 520IF A(D1)=4 PROCbuild`2 530NEXT 540ENDPROC 550DEFPROCbuild`2 560A(D1+3)=RND(4) 570IF A(D1+3)=1 ENDPROC 580IF A(D1+3)=4 ENDPROC 590PROCmonster 600FOR X=1 TO 14 610A(-30*(D1=1)-45*(D1=2)-60*(D1=3)+X- 1)=A(9+X) 620NEXT 630ENDPROC 640DEFPROCstatus`1 650PRINTCHR$135;CHR$157'CHR$135;CHR$15 7;CHR$132;"Your hit points stand at: ";H 1 660PRINTCHR$135;CHR$157;CHR$132;"You h ave ";S1;" spells" 670PRINTCHR$135;CHR$157;CHR$132;"You a re on level :";L1 680PRINTCHR$135;CHR$157;CHR$132;"You h ave ";G1;" gold pieces" 690PRINTCHR$135;CHR$157;CHR$132;"and y ou have killed ";M1;" monsters!!" 700IF J1=0 PRINTCHR$135;CHR$157:GOTO72 0 710PRINTCHR$135;CHR$157;CHR$132;"You a lso have a ";J1*25;"% luckstone"'CHR$135 ;CHR$157 720PRINTCHR$135;CHR$157'CHR$135;CHR$15 7;CHR$133;CHR$141;"Your score now is ";I NT(SC)'CHR$135;CHR$157;CHR$133;CHR$141;" Your score now is ";INT(SC)'CHR$135;CHR$ 157 730PROCstatus`2:ENDPROC 740DEFPROCoptions 750PRINT''SPC(5);"LEFT";SPC(7);"FORWAR DS";SPC(6)"RIGHT" 760FOR D1=1TO3 770PRINTSPC(1); 780IF A(D1)=1 PRINTCHR$130;" Corridor "; 790IF A(D1)=2 PRINTCHR$130;" Door "; 800IF A(D1)=3 PRINTCHR$130;"Blank wall "; 810IF A(D1)=4 PRINTCHR$130;" Room "; 820IF A(D1)=5 PRINTCHR$130;" Stairs up "; 830IF A(D1)=6 PRINTCHR$130;"Stairs dow n"; 840IF A(D1)=7 PRINTCHR$136;CHR$131;" Exit ";CHR$137 850NEXT 860ENDPROC 870DEFPROCoperate`cell(I%) 880ON I% GOTO 890,1500 890PRINT''"What direction - L,F,R or S (tatus)?";:SS=0 900L=1:F=2:R=3:S=4 910PROCread`keyboard:D1=key 920D1=-((D1=76)+2*(D1=70)+3*(D1=82)+4* (D1=83)) 930IF D1=S PROCstatus`1:GOTO890 940IF D1<>0 GOTO 960 950PRINTCHR$11;CHR$11;CHR$11;CHR$11:GO TO890 960IF A(D1+3)<>2 IF A(D1+3)<>3 GOTO 10 00 970FOR X=1 TO 4 980A(9+X)=A(-30*(D1=1)-45*(D1=2)-60*(D 1=3)+X-1) 990NEXT 1000IF A(D1)=7 PROCexit(1) ELSE ON A(D1 ) GOTO 1010,1020,1250,1330,1620,1660 1010ENDPROC 1020PRINT''"Door...O-open, L-listen "; 1030O=1:L=2:S=3 1040PROCread`keyboard:A=key 1050A=-((A=79)+2*(A=76)+3*(A=83)) 1060IF A=S PROCstatus`1:GOTO1020 1070IF A<>0 GOTO 1090 1080PRINTCHR$11;CHR$11;CHR$11;CHR$11:GO TO1020 1090IF A=O GOTO 1330 1100IF A=L R1=A(D1+3) 1110PRINT'"You hear "; 1120IF R1<>2 AND R1<>3 PRINT"nothing":G OTO1160 1130R=RND(6) 1140IF R>2 PRINT "nothing":GOTO1160 1150PROCprint`monster:PRINT;A$;:PROCmon ster`noises 1160PRINT"Do you want to open it? "; 1170Y=1:N=2:S=3 1180PROCread`keyboard:A=key 1190A=-((A=89)+2*(A=78)+3*(A=83)) 1200IF A=S PROCstatus`1:GOTO 1160 1210IF A<>0 GOTO 1230 1220PRINTCHR$11;CHR$11:GOTO1160 1230IF A=Y GOTO 1340 1240PRINT"...Chicken":PROCoptions:GOTO8 90 1250CLS:PRINT'CHR$136;CHR$131;SPC(5);"Y ou cant move there dummy!" 1260IF RND(6)=1 PROCoptions:GOTO890 1270PRINT'"But as you have a liking for walls...." 1280PROCdelay(20) 1290PRINT"it falls over, you take ";:D1 =RND(20) 1300PRINT;D1;" hps damage" 1310H1=H1-D1 1320PROCstatus`1:ENDPROC 1330R1=A(D1+3) 1340CLS:PRINT'"The room "; 1350IF R1=1 PRINT"is empty":PROCdelay(8 ):ENDPROC 1360PRINT"contains "; 1370IF R1=2 PROCprint`monster:PRINT;B$; A$; 1380IF R1=3 PRINT"treasure"'"+ ";:PROCp rint`monster:PRINT;B$;A$; 1390IF R1=4 PRINT"treasure":T1=500:T=0 1400PRINT'"What now?"''"G-go in,L-leave ,H-help,S-status"; 1410G=1:L=2:H=3:S=4 1420PROCread`keyboard:A=key 1430A=-((A=71)+2*(A=76)+3*(A=72)+4*(A=8 3)) 1440IF A=S PROCstatus`1:GOTO1400 1450IF A<>0 GOTO 1470 1460PRINTCHR$11;CHR$11;CHR$11;CHR$11;CH R$11:GOTO1400 1470IF A=L GOTO 1240 1480IF A=H AND R1<4 PRINT"The ";:PROCpr int`monster:PRINT;A$;" has ";D1;" hps":G OTO1400 1490IF R1=4 PROCtreasure(1):ENDPROC 1500IF SS=2 SS=0:PROCdelay(20):CLS 1510PRINT'"Now what?"'"C - combat,S - s pell cast,R - retreat "; 1520C=1:S=2:R=3 1530PROCread`keyboard:A=key 1540A=-((A=67)+2*(A=83)+3*(A=82)) 1550IF A=R GOTO 1590 1560IF A=C PROCcombat:ENDPROC 1570IF A=S IF S<1 PRINT"Er..you don't s eem to have any":GOTO 1500 ELSE PROCcast `spell:IF F%=1 GOTO 1500 ELSE ENDPROC 1580PRINTCHR$11;CHR$11;CHR$11;CHR$11;CH R$11:GOTO1500 1590IF RND(6)=1 PRINT"TOUGH LUCK. He at tacks you":PROCdelay(8):PROCcombat:ENDPR OC 1600IF RM=1 CLS:PRINT''"With a bust of cowardly speed...":PROCdelay(8):ENDPROC 1610GOTO1240 1620L1=L1-1 1630IF L1>0 ENDPROC 1640PRINT'''CHR$134;CHR$136;SPC(2);"Sor ry, the stairs are blocked":L1=L1+1:PROC delay(20) 1650CLS:PRINT':PROCoptions:GOTO890 1660L1=L1+1:ENDPROC 1670DEFPROCexit(I%) 1680ON I% GOTO 1690,1700 1690CLS:PRINTCHR$135;CHR$157'CHR$135;CH R$157;CHR$136;CHR$133"Well done, you got out alive"'CHR$135;CHR$157 1700E=1:PROCstatus`1:ENDPROC 1710END:ENDPROC 1720DEFPROCcast`spell 1730F%=0 1740S1=S1-1:SS=SS+1 1750PRINT'"The now spell-blasted ";:PRO Cprint`monster:PRINT;A$; 1760IF A$="Intellect devourer" PRINTCHR $11 1770H=RND(21) 1780IF V1<>0 D1=V1 1790D1=D1-H 1800IF D1<1 PRINT'"lies dead on the flo or":M1=M1+1:SC=SC+L1:PROCtreasure(2):END PROC 1810IF D1>0 PRINT'"is angry, he advance s";:PROCdelay(8) 1820IF RND(6)<3 PRINT"..he attacks":PRO Cdelay(20):PROCcombat:ENDPROC 1830V1=D1:F%=1:ENDPROC 1840DEFPROCcombat 1850CLS:PRINT'"You had a terrific battl e with ";:PROCprint`monster:IF B$="a " O R B$="an " PRINT "the" 1860PRINTA$; 1870IF V1<>0 D1=V1 1880IF H1>D1 PRINT" and you killed him" :PROCdelay(20):M1=M1+1:H1=H1-D1:SC=SC+L1 :PROCtreasure(2):ENDPROC 1890PRINT", but he killed you"'"and too k all your treasure":G1=0:H1=H1-D1:PROCe xit(2):ENDPROC 1900DEFPROCstatus`2 1910Z$=CHR$135+CHR$157+CHR$129:IF H1<=0 PROCdead:ENDPROC 1920IF E<>1 THEN 1980 1930IF H1<150 H1=150 1940IF S1<15 S1=15 1950L1=1:E=0:PRINTZ$'Z$'Z$;"Having left the catacombs, you can" 1960PRINTZ$;"only enter again at level 1 but your" 1970PRINTZ$;"hps and spells have been r eplenished"'Z$ 1980PRINTZ$'Z$+"Press space to continue " 1990PRINTZ$;"Press Q to save character on tape"; 2000*FX15,1 2010z$=GET$:IF ASC(z$)<>32 AND z$<>"Q" PRINTCHR$11:GOTO1990 2020IF z$<>"Q" ENDPROC ELSE PROCsave`ch aracter:PROCdead:END:ENDPROC 2030DEFPROCsave`character 2040INPUT''"What is your name,"'"(maxim um of 10 characters) "NM$ 2050IF LEN(NM$)>10 PRINT:GOTO2040 2060PRINT'"INSERT AND REWIND DATA TAPE" 2070PRINT''"Press any key when ready"'" to record data"' 2080ZZ=GET 2090XY=OPENOUT(NM$) 2100PRINT#XY,H1,S1,L1,G1,M1,J1,SC 2110CLOSE#XY 2120ENDPROC 2130DEFPROCread`character 2140INPUT''"What is your name,"'"(maxim um of 10 characters) ",NM$ 2150IF LEN(NM$)>10 PRINT"too long...."' GOTO2130 2160PRINT'"INSERT AND REWIND DATA TAPE" 2170PRINT''"Press any key to load data" ' 2180ZZ=GET 2190XY=OPENIN(NM$) 2200INPUT#XY,H1,S1,L1,G1,M1,J1,SC 2210CLOSE#XY 2220ENDPROC 2230DEFPROCdead 2240PRINT''"Do you wish to play again?" ; 2250W$=GET$:IF W$<>"Y" AND W$<>"N" PRIN TCHR$11:GOTO 2230 2260IF W$="Y" RUN 2270CLS:PRINT"Ok. Bye for now adventure r."'':END:ENDPROC 2280DEFPROCtreasure(I%) 2290ON I% GOTO 2300,2310 2300IF T1=0 PRINT"It was an illusion":P ROCdelay(3):ENDPROC 2310IF R1=2 PROCdelay(8):ENDPROC 2320PRINT "There are:-"' 2330R=INT(LOG((RND(1)*T1+10)*INT(RND(1) *L1/2+1))^2) 2340IF J1>0 R=R+INT(((25*J1)/100)*R) 2350PRINT;R;" gold pieces";:SC=SC+R/100 :G1=G1+R 2360IF T=0 AND RND(100)<15+L1*2 GOTO238 0 2370IF T=0 PROCdelay(8):ENDPROC 2380FOR X=1 TO T 2390R=RND(10) 2400IF R=1 PRINT" + a sword":H1=H1+RND( 120) 2410IF R=2 PRINT" + a wand":S1=S1+RND(1 5) 2420IF R=3 PRINT" + a suit of armour":H 1=H1+RND(90) 2430IF R=4 PRINT" + a scroll":S1=S1+RND (12) 2440IF R=5 PRINT" + some more spells":S 1=S1+RND(8) 2450IF R=6 PRINT" + a potion":H1=H1+RND (75) 2460IF R=7 PRINT" + a special artefact" :H1=H1+RND(100):S1=S1+RND(12) 2470IF R=8 PRINT" + a book":PROCrandom 2480IF R=9 PRINT" + a ring":PROCrandom 2490IF R=10 Z=RND(6)/2 2500IF R=10 AND Z>J1 PRINT" + a ";Z*25; "% luckstone" 2510IF R=10 AND J1<Z J1=Z 2520IF RND(10)=1 GOTO 2390 2530NEXT 2540PROCdelay(20):ENDPROC 2550DEFPROCrandom 2560IF RND(2)=1 H1=H1+RND(80):PROCdelay (20):ENDPROC 2570S1=S1+RND(10):PROCdelay(20):ENDPROC 2580DEFPROCmonster 2590RESTORE 2600FOR Z=1 TO 14 2610READ D:A(9+Z)=RND(D) 2620NEXT 2630ENDPROC 2640DEFPROCprint`monster 2650R=A(10) 2660P=A(11):T=0 2670IF R=1 A$="Wrait":B$="a ":D1=10:T1= 8000:ENDPROC 2680IF R=2 A$="Vampire":B$="a ":D1=20:T 1=10000:ENDPROC 2690IF R=3 AND P<65 PROCserpents:A$=A$+ "Serpent":ENDPROC 2700IF R=4 AND P<65 PROCdemons:ENDPROC 2710IF R=5 AND P<65 PROCdevils:ENDPROC 2720IF R=6 A$="Troll":B$="a ":D1=16:T1= 6000:ENDPROC 2730IF R=7 A$="Kobold":B$="a ":D1=1:T1= 300:ENDPROC 2740IF R=8 A$="Ghost":B$="a ":D1=32:T1= 8000:ENDPROC 2750IF R=9 PROCgiants:A$=A$+"Giant":END PROC 2760IF R=10 A$="Hydra":B$="a ":D1=50:T1 =4000:ENDPROC 2770IF R=11 AND P<65 A$="Intellect Devo urer":B$="an ":D1=20:T1=6000:ENDPROC 2780IF R=12 A$="Salamander":B$="a ":D1= 20:T1=9000:T=2:ENDPROC 2790IF R=13 A$="Zombie":B$="a ":D1=8:T1 =0:ENDPROC 2800IF R=14 A$="Aerial servant":B$="an ":D1=40:T1=0:ENDPROC 2810IF R=15 A$="Basilisk":B$="a ":D1=10 :T1=6000:T=1:ENDPROC 2820IF R=16 A$="Beholder":B$="a ":D1=42 :T1=15000:T=3:ENDPROC 2830IF R=17 AND P<65 PROCelementals:A$= A$+"Elemental":T1=0:ENDPROC 2840IF R=18 A$="Ettin":B$="an ":D1=39:T 1=12000:ENDPROC 2850IF R=19 A$="Gargolye":B$="a ":D1=10 :T1=1000:ENDPROC 2860IF R=20 A$="Giant Wolf":B$="a ":D1= 34:T1=12000:ENDPROC 2870IF R=21 AND P<65 PROCgolems:A$=A$+" Golem":T1=0:ENDPROC 2880IF R=22 A$="Hell hound":B$="a ":D1= 12:T1=1000:ENDPROC 2890IF R=23 PROClich:ENDPROC 2900IF R=24 A$="Were-":B$="a ":PROClyca nthropes:ENDPROC 2910IF R=25 A$="Manticore":B$="a ":D1=4 8:T1=8000:T=1:ENDPROC 2920IF R=26 A$="Medusa":B$="a ":D1=15:T 1=12000:T=1:ENDPROC 2930IF R=27 AND P<65 A$="Mind slayer":B $="a ":D1=48:T1=4000:T=2:ENDPROC 2940IF R=28 A$="Minotaur":B$="a ":D1=10 :T1=5000:ENDPROC 2950IF R=29 A$="Mummy":B$="a ":T1=5000: D1=12:ENDPROC 2960IF R=30 A$="Orc":B$="an ":D1=2:T1=5 00:ENDPROC 2970IF R=31 A$="Purple worm":B$="a ":D1 =56:T1=9000:T=2:ENDPROC 2980IF R=32 AND P<65 A$="Umber hulk":B$ ="an ":D1=34:T1=40000:T=2:ENDPROC 2990IF R=33 A$="Wight":B$="a ":D1=8:T1= 8000:ENDPROC 3000IF R=34 AND P<65 A$="Xorn":B$="a ": D1=34:T1=40000:T=2:ENDPROC 3010A$="Hobgoblin":B$="a ":D1=6:T1=1000 :ENDPROC 3020DEFPROCserpents 3030R=A(12) 3040B$="a " 3050IF R=1 A$="Black":D1=50:T1=60000:T= 2:ENDPROC 3060IF R=2 A$="White":D1=40:T1=50000:T= 1:ENDPROC 3070IF R=3 A$="Blue":D1=60:T1=70000:T=2 :ENDPROC 3080IF R=4 A$="Green":D1=70:T1=80000:T= 3:ENDPROC 3090A$="Red":D1=80:T1=90000:T=4:ENDPROC 3100DEFPROCdemons 3110R=A(13) 3120P=A(14) 3130IF R=1 AND P<5 A$="Demogorgon":B$=" ":D1=95:T1=100000:T=6:ENDPROC 3140IF R=2 AND P<5 A$="Jubilex":B$=" ": D1=80:T1=81000:T=2:ENDPROC 3150IF R=3 AND P<5 A$="Orcus":B$=" ":D1 =105:T1=150000:T=7:ENDPROC 3160A$="Type":B$="a " 3170IF R=4 A$=A$+"VI":D1=60:T1=60000:T= 3:GOTO3240 3180IF R=5 A$=A$+"V":D1=50:T1=50000:T=2 :GOTO3240 3190IF R=6 A$=A$+"IV":D1=40:T1=40000:T= 1:GOTO3240 3200IF R=7 A$=A$+"III":D1=30:T1=30000:G OTO3240 3210IF R=8 A$=A$+"II":D1=20:T1=20000:GO TO3240 3220IF R=8 A$=A$+"I":D1=10:T1=10000:GOT O3240 3230IF R<=3 R=A(15)+3:GOTO 3170 3240A$=A$+" DEMON":ENDPROC 3250DEFPROCdevils 3260R=A(16) 3270P=A(17) 3280IF R=1 AND P<5 A$="Asmondeus":B$=" ":D1=110:T1=170000:ENDPROC 3290IF R=2 AND P<5 A$="Baalzebul":B$=" ":D1=80:T1=81000:T=5:ENDPROC 3300IF R=3 AND P<5 A$="Dispaterz":B$=" ":D1=70:T1=81000:T=3:ENDPROC 3310IF R=4 AND P<5 A$="Geryon":B$=" ":D 1=50:T1=81000:T=2:ENDPROC 3320IF R=5 A$="Barbed Devil":B$="a ":D1 =32:T1=0:ENDPROC 3330IF R=6 A$="Boned Devil":B$="a ":D1= 35:T1=0:ENDPROC 3340IF R=7 A$="Erinyes":B$="an ":D1=16: T1=40000:ENDPROC 3350IF R=8 A$="Horned Devil":B$="a ":D1 =35:T1=5000:ENDPROC 3360IF R=9 A$="Ice Devil":B$="an ":D1=6 0:T1=10000:T=3:ENDPROC 3370IF R=10 A$="Pit fiend":B$="a ":D1=6 5:T1=12000:T=4:ENDPROC 3380R=A(18)+4:GOTO3320 3390DEFPROCgiants 3400R=A(19) 3410B$="a " 3420IF R=1 A$="Cloud ":D1=36:T1=9000:EN DPROC 3430IF R=2 A$="Fine ":D1=30:T1=8000:END PROC 3440IF R=3 A$="Frost ":D1=24:T1=8000:EN DPROC 3450IF R=4 A$="Hill ":D1=16:T1=3000:END PROC 3460IF R=5 A$="Stone ":D1=18:T1=4000:EN DPROC 3470A$="Storm ":D1=42:T1=10000:T=1:ENDP ROC 3480DEFPROCelementals 3490R=A(20) 3500IF R=1 A$="Air ":B$="an ":D1=90:END PROC 3510IF R=2 A$="Earth ":B$="an":D1=65:EN DPROC 3520IF R=3 A$="Fire ":B$="a ":D1=48:END PROC 3530A$="Water ":B$="a ":D1=60:ENDPROC 3540DEFPROCgolems 3550R=A(21) 3560IF R=1 A$="Clay ":B$="a ":D1=30:END PROC 3570IF R=2 A$="Flesh ":B$="a ":D1=32:EN DPROC 3580IF R=3 A$="Iron ":B$="an ":D1=90:EN DPROC 3590A$="Stone ":B$="a ":D1=24:ENDPROC 3600DEFPROClich 3610D=A(22) 3620B$="a " 3630IF D>6 A$="Hobgoblin":D1=6:T1=1000: ENDPROC 3640A$="Lich":D1=90:T1=80000:T=5:ENDPRO C 3650DEFPROClycanthropes 3660R=A(23) 3670IF R=1 A$=A$+"bear":D1=10:T1=2500:E NDPROC 3680IF R=2 A$=A$+"boar":D1=12:T1=3000:E NDPROC 3690IF R=3 A$=A$+"rat":D1=8:T1=2000:END PROC 3700IF R=4 A$=A$+"tiger":D1=20:T1=5000: ENDPROC 3710A$=A$+"wolf":d1=8:t1=2000:ENDPROC 3720DEFPROCtitle 3730DIM A(80) 3740L1=1:G1=0:H1=100:M1=0:J1=0:S1=10:T= 0:D1=1:V1=0:SC=0:E=0 3750Z%=RND(-TIME) 3760VDU23,0,11,0,0,0,0,0,0 3770FOR I%=0TO24:PRINTTAB(0,I%)CHR$135; CHR$157; 3780NEXT 3790PRINTTAB(13,8)CHR$141;CHR$132;"Cell s And";TAB(13,9);CHR$141;CHR$132;"Cells And"' 3800PRINTTAB(14,12)CHR$141;CHR$132;"Ser pents";TAB(14,13)CHR$141;CHR$132;"Serpen ts" 3810PROCdelay(30) 3820VDU23,0,11,255,0,0,0,0,0,0 3830CLS 3840ENDPROC 3850DEFPROCload 3860PRINT''"Do you wish to load a chara cter" 3870PRINT"from tape?"; 3880W$=GET$:IF W$<>"Y" AND W$<>"N" PRIN TCHR$11:GOTO3870 3890IF W$="Y" PROCread`character 3900ENDPROC 3910DEFPROCread`keyboard 3920*FX15,1 3930key=GET 3940PRINT CHR$(key) 3950ENDPROC