goblin :i:i):C$(G,36$,24):M$(G,12 ,M):P$(20,14):T$(20,19):Z1=236066\:Z2=Z1+B $6100:N=B20:P$(N):N $62008:N=B20:T$(N):N -)A:A:H::23658j\,J:236099\,M /SV=A:970 0NAM995 2?:"ENTER CHARACTERS' NAMES, (MAXIMUM SEVEN LETTERS) :":N=BE 7FA$:A$>HA$="""NAME WRONG LENGTH!":.5,-20:557 8A$(B)=" "557 9V$(B)=A$:991 <;N$(N)=V$(B):N;":";N$(N):.1}L,B:N:N=B200:N A":B;G;C,A;"SELECT YOUR QUEST" F'''F;"1:Visit the Cave of the Orcs"''"2:Kill the Deathfiend "''"3:Amass 200 Experience Points"''"4:Find the Sceptre of Life" K8''"In all cases you must return to the Cave Entrance." PI$= U%I$<491ůI$>52480P Z0.3,M:L(62>)=I$:L(I$+502)=B _#';" Quest number ";I$;" selected" d*''G;B;B;"PRESS SPACE KEY TO CONTINUE" iI$= nI$=" "490 s 105i  1500 Z1,A:Z2,60<: Z1,249:Z2,250: N=EM:H;N,A;X$:N: @505:N=HM:B;E;H;N,16;"JJJJJ":N:500: 505:B;H;F;E,22;"DDDDDDDDDD";F,22;"DMDDGHDDDD";G,22;"DDDGNNHDDD";A;H,22;"DDG";H,29;"HDD";J,22;"DGNNNNNNHD"  zA;H;B;H,25;"IIII":500:H;E;K,22;" M.PAGE ";M,22;" 1987 ":22711X,110n: FA;B;G;B,14;" "+C$(Y,X,J);C,20;Y;C,28;L(D): 3A:G:B:505:N=EG:N,16;"OOOOO":N *C$(Y,X,H)>BF,18;"N":540 F,18;"A" C$(Y,X,B)=BE,18;"B" C$(Y,X,C)=BG,18;"B"  C$(Y,X,D)=BF,19;"CC" " C$(Y,X,E)=BF,16;"CC" $C$(Y,X,F)=BE,16;"E" &C$(Y,X,G)=BG,20;"F" (H:A:500: +HN=BE:H;E;12 +N*C,A;N$(N):N:A;G;D,11 ;L(62>): 0:I=14:Q=J:N=E23:A;F;B;I,Q;L(N):Q=Q+D 5Q=23I=I+C:Q=J :N: ?[N=AD:L(N*F+F)A;N*C+14,A;" ";N*C+15,A;" " DN: XI$= YI$="N"620l ZI$="S"625q [I$="E"630v \I$="W"635{ ]I$="U"640 ^I$="D"645 bI$="Q"U4000 dI$="O"U3000 fI$="M"U5000 k 600X lC$(Y,X,B)="0"650 nC$(Y,X-G,C)="0"655 pX=X-G:670 qC$(Y,X,C)="0"650 sC$(Y,X+G,B)="0"655 uX=X+G:670 vC$(Y,X,D)="0"650 xC$(Y,X+B,E)="0"655 zX=X+B:670 {C$(Y,X,E)="0"650 }C$(Y,X-B,D)="0"655 X=X-B:670 C$(Y,X,F)="0"650 Y=Y-B:670 C$(Y,X,G)="0"650 Y=Y+B:670 -W:G,C;"No Pathway!":B,-20:BUN=B: MW:G,B;"Blocked Path!":.05|L,D:.05|L,A:N=B502:N:BUN=B: $W:528:530:515 *L(513)C$(Y,X,J)="C"L(557)=B  (.01z# =,20:B;B;M,M;"SPACE" I$= !I$=" ".03{u\,25:W:  685 8F,A;"N)orth, S)outh,"'"E)ast, W)est,"'"U)p, D)own,": E,B;C;"SELECT OPTION" 7J,A;;"Q)uit,Save,Load"'"O)bject details"'"M)agic.": ƱR(502)=FYGL(26)XY=Y+B:W:B;E,F;"TRAP!";A;G,A;"Oh dear, you"'"have fallen"'"through to the"'"level below.":528:530:515:718:L  *N=30A-.5:.02{# =,N:N: 11 ,A: ڏV=32 *M$(Y,MON,HJ)+63449:Z1,V-256*(V/256):Z2,(V/256):B;B;H,16;"AB";J,16;"CD":500: W:G,C;"Spell cast!":N=B20:.02{# =,*H:N:L(I*F+B)=L(I*F+B)-D:L(I*F+D)=L(I*F+D)+C:A;I*C+12 ,14;B$:A;F;B;I*C+12 ,14;L(I*F+B);I*C+12 ,20;L(I*F+D): NL=A:N=31502 L(N)=OBJH,A;T$(N-30,F):NL=B:K,A;"Object No:";K,10 ;N-30:780 :.1}L,M:Q=B100d:Q::Q=GK:Q,A;X$:Q N #NLH,A;"Nothing!":B,-20   N<40(G,A;"Scroll:"   -W:F,A;"Input object"'"number and"'"ENTER" !A$:A$=""801! "9N=ḆA$:F$=A$(N):F$<480ůF$>579801! #N $"Q=A$:Q20801! % *YA;I*C+12 ,D*T$(Q,C)+F;B$;A;F;B;I*C+12 ,D*T$(Q,C)+F;L(V):.1}L,M: 4N=31502 9OX=L(N)-100d*YY=(L(N)-X)/100dB;B;H;B;K,16;"*OBJ*":RET >N:RET HBN=EM:505:B;G;N,22;"OOOOOOOOOO":N:500: RHA$="OOOOOOOO":V=B:N=F20F:L(N)A$(V)=(N/F+79O):V=V+C WN \1N=JB-1:A$(N)"O"A$=A$(N):865a ^N aPOS=(535-A$)/C: f9A$="OOOOOOOO":V=B:N=BQ:M(N)A$(V)=84T:V=V+C kN:860\: Q850R:505:8;B;G,23;"OOOOOOOO";G,POS;A$:500: Q870f:505:8;B;J,23;"OOOOOOOO";J,POS;A$:500: E;H;B;14,26;"HUMAN1WARRIOR";16,26;"DWARF2WARRIOR";18,26;"ELF 3WAR/WIZ";20,26;"HUMAN4WIZARD": @"DO YOU WISH TO LOAD IN A PREVIOUSLY SAVED GAME (Y/N)?" I$= I$="N"480 I$="Y"SV=B:1500  975 VI=BN-B:V$(B)=N$(I)"YOU'VE ALREADY USED THAT NAME!":.5,-20:557  I:60< 3:"SAME NAMES AS BEFORE (Y/N)?":N=B100d:N I$= I$="N"502 I$="Y"65A  996 *6400:I=BG:N=BJ:M$(I,N,):N:I V=BC:I=BG:N=B15 "R1=R(12 ):R2=R(12 ) 2V=BA$=M$(I,R1):M$(I,R1)=M$(I,R2):M$(I,R2)=A$ LV=CA$(KM)=M$(I,R1,KM):M$(I,R1,KM)=M$(I,R2,KM):M$(I,R2,KM)=A$(KM)  N:I:V I=BG:V=A:N=B36$  OC$(I,N,H)>BV=V+B:M$(I,V,KM)" "L(M$(I,V,KM)+30)=100d*I+N N:I  $%6300:N=D24:L(N):N: 8N=BG:6000p =I=B36$:C$(N,I):I:N LI=BG:N=B40( Q"R1=R(36$):R2=R(36$) V-A$=C$(I,R1):C$(I,R1)=C$(I,R2):C$(I,R2)=A$ [N:I `N=BD:I=BF e0R=R(36$):C$(I,R,G)="1":C$(I+B,R,F)="1" jI:N oI=BG tN=BG:C$(I,N,B)="0":N y'N=3136$:C$(I,N,C)="0":N ~"N=B31G:C$(I,N,E)="0":N "N=G36$G:C$(I,N,D)="0":N I: :Y=B Z1,89Y:Z2,250:G;C;B;A,A;"AB";M;"AB";B,A;"CD";M;"CD":505:A,C;"K";K;"K":G;A;C,A;"LLLLLLLLLLLL":500 (B;H;B;A,D;"GOBLIN";B,C;"MOUNTAIN" fH;C;B;A,17;"*LOCATION*";C,14;"LEVEL:";C,22;"TURNS:":W:515:520 A;G;D,C;"QUEST NO:" B;G;12 ,B;"NAME";12 ,J;"ST";12 ,11 ;"EN";12 ,14;"MA";12 ,17;"AG";12 ,20;"EXP";12 ,26;"RACE"  950 SN=BE:V=N*32 +64089Y:Z1,V-256*(V/256):Z2,(V/256) PN;B;H;N*C+12 ,24;"AB";N*C+13 ,24;"CD":N:500 L505:N=1521C:B;B;N,26;"KLLLLK":N:500 "A:H:SV4300:2025 NB;G,C;"PLEASE WAIT";H,C;"90 SECONDS.":10808:1060$:1000 \N=B36$:C$(Y,N,H)=BX=N:C$(Y,N,J)="The Cave Entrance":L(26)=N:1542 N  V=R(D)+D HN=B36$:C$(V,N,H)="3"C$(V,N,J)="Cave of the Orcs":1545  N 7555+:5600:575?:528:530 :N=BH:.01z# =,20:N:23658j\,J:L(D)=L(D)+B 9L(579)=L(579)-B:L(25)=L(25)-B:W !700:690:600X  710  528:MON=A:N=B36$ C$(Y,X,H)BMON=MON+B:N=X2042 N UL(579)>AM$(Y,MON,B)" "730:1.5@,20:515:2050 _M$(Y,MON,B)" "W:F,A;"You are"'"attacked by ";M$(Y,MON,G)'P$(M$(Y,MON,HJ)):8000@ 4RET=2400` :8204 `fL(25)1992590 N 5L(546)L(502)>AL(502)KW:F,A;"Sorry, that"'"would exceed"'"your carrying"'"capacity!":B,F:L:3000 qL(Q+30)=I:L(I+26)=L(I+26)+T$(Q,B):V=I*F+T$(Q,C)-C:QX=T$(Q,DE):L(V)=L(V)+QX:810* W:G,B;"O.K. taken":B,M 5NL=A:N=31502:L(N)=Y*100d+XNL=B N:NL515 3000 W:RET=3505 :3900< 800  KL(Q+30)IW:F,A;"You haven't"'"got it!":B,-20:3000 }L(Q+30)=Y*100d+X:L(I+26)=L(I+26)-T$(Q,B):V=I*F+T$(Q,C)-C:QX=T$(Q,DE):L(V)=L(V)-QX:810* 8W:G,B;"O.K. dropped":B,M:RET=3000 :8204 tCOBJ=Y*100d+X:W:F,A;"Objects here:":750:3000 <W:G,B;"Which player?" AI$= F'I$<491ůI$>5243905A KAI=I$:L(I*F)W:G,B;"Player dead!":B,-20:3000 PRET <W:N=B502:N:F,F;"Q)uit";H,F;"S)ave";K,F;"L)oad" I$= I$="Q"GB=A:4040 !I$="S"GB=502:4040 "I$="L"GB=100d:4040  4005 W:H,B;"Are you sure?" I$=  I$="N"W: I$="Y"W:GB+4200h  4045 hK gF,A;"The game SAVEs"'"in four blocks."'"Please follow"'"screen prompts.":L:W:B;H,C;"SAVING NOW" L(B)=Y:L(C)=X A"G1"L():"G2"C$():"G3"M$():"G4"N$():W:H,E;"SAVED":L: CF,A;"The game LOADs"'"in four blocks."'"Play your"'"SAVEd tape." њ720:"G1"L():720:"G2"C$():720:"G3"M$():720:"G4"N$():A;13 ,A;" ":W:G,E;"LOADED":L rY=L(B):X=L(C):A;C,28;" ":528:555+:N=1420C:A;N,J;" ":N 95600:950:575?:530:515: APS=B:MG=A:W:F,A;"Select wizard"'"to cast spell"'"(3 or 4)?" I$= 'I$<513ůI$>5245005 I=I$ 0L(I*F)W:H,B;"Late Wizard!":B,-20: +W:F,A;"Which spell to"'"cast (6 to 9)?" I$= 'I$<546ůI$>5795030 V=I$ ;L(V+30)IW:G,A;"Scroll not held":B,-15: >L(I*F+B)5245080 QL=I$ =L(QL*F)W:G,F;"Late";H,C;" Adventurer!":B,-20: L(QL*F+SP)=L(QL*F+SP)+PS  R740:A;F;B;C*QL+12 ,SP*D+11 ;L(QL*F+SP):.1}L,20: pa"1110002A grimy room","1101000A dusty passage","1111002A bleak dungeon","1011000A dim corridor" u^"0111000A dark tunnel","1111002A dusty room","1110000A bleak tunnel","1101002A dark chamber" z_"1111001A grim passage","1011000A slimy tunnel","0111000A dirty tunnel","1111002A vile crypt" c"1110000A dungeon path","1101000A dark passage","1111000A creepy corridor","1011002A filthy room" _"0111000A black pathway","1111003A throne room","1110000An awful path","1101000A dank tunnel" c"1111002A torture chamber","1011000A dusty pathway","0111002An armoury","1111000An evil corridor" a"1110000A bleak passage","1101000A damp pathway","1111004A magic pool","1011000A dingy passage" i"0111000A grimy corridor","1111002A barrack room","1110000A draughty tunnel","1101000An odious pathway" e"1111000A filthy corridor","1011000A dark corridor","0111000A loathsome path","1111002A dim chapel" E"Deathfiend","Black Knight","wraiths","manticores","mutant badgers" <"hell hounds","mummies","ogres","giant ticks","giant mice" 7"orcs","zombies","gargoyles","giant spiders","ghosts" 7"ghouls","kobolds","skeletons","lizard men","goblins" 8G"1505Fireball","1505Lifedrain","1505Repel","1505Curse","1505Teleport" =S"1505Invisibility","1505Speed","1505Wellbeing","1505Strongman","5102A Broadsword" Bl"6520Shield of Light","1402Boots of Speed","2515Cloak of Delth","2510Talisman of Zit","6103Mace of Kandos" Gn"3515Nilgrack's Helm","2101Staff of Nordus","4402Sorbozon's Wand","1510Eye of the Orc","8550Sceptre of Life" B,R(D)+G,R(D)+H,A,R(D)+B,A,R(D)+G,R(D)+H,A,R(D)+B,A,R(D)+F,R(D)+G,R(D)+E,R(D)+B,A,R(D)+E,R(D)+F,R(D)+G,R(D)+C,A,E a"0606230501","0605420606","0606021210","0707331308","05051414","06073315","08072219","08083220" _"0909620402","0806230707","0806430911","07075210","08054316","09095317","07053218","09094320"  _"0707440503","09073407","1111620812","0909521119","08082312","07053314","08065416","10105320" a"1109720304","0907730613","1211730816","1010641309","08085415","09085416","08064318","11116420" _"1616810205","1312720414","1110631117","09084412","08096415","10107417","10096419","12127420" _"18209101","09106409","1309731015","1211841118","1110841720","09086418","10107419","14138420" X0,131,207,223,127,579,579,63?,0,194,230,246,252,152,156,252 ]127,127,245,245,117u,85U,95_,31,254,254,95_,95_,95_,83S,250,250 b1,7,15,31,579,63?,513,524,128,224,240,248,152,252,228,20 g535,21,29,12 ,7,7,253,253,84T,72H,88X,480,240,80P,95_,95_ l0,3,15,29,63?,557,579,14,0,128,224,240,120x,190,238,246 q31,579,47/,15,1,247,25,63?,127,191,79O,183,187,221,243,247 v0,74J,63?,63?,T,513,123{,189,0,144,164,248,240,60<,176,252 {61=,121y,249,63?,248,63?,159,T,218,216,252,186,120x,254,248,T q0,0,0,0,3,15,127,127,2,6,63?,T,T,191,T,T 47/,40(,44,,502,33!,0,0,0,T,127,3,4,146,73I,68D,36$ 0,8,8,12 ,13 ,15,31,63?,0,128,128,192,64@,96`,224,240 513,127,127,125},251,183,238,92\,184,216,204,239,239,183,123{,253 iT,224,T,128,140,T,140,128,T,7,T,1,97a,T,97a,1 hT,194,192,T,245,240,T,252,T,1,1,T,67C,7,T,7 31,63?,32 ,45-,101e,193,194,210,248,252,30,110n,46.,15,7,17 212,67C,64@,95_,85U,64@,160,31,17,135,2,242,84T,6,13 ,240 32 ,23,15,557,35#,43+,35#,119w,20,162,194,182,22,90Z,20,180 127,250,223,154,149,213,165,168,248,212,228,68D,44,,36$,36$,194 65A,115s,122z,61=,242,63?,87W,155,193,227,181,253,254,252,156,156 30,10 ,15,7,3,1,1,1,252,249,249,242,225,226,230,227 35#,103g,120x,89Y,91[,203,145,155,128,192,32 ,224,480,222,70F,2 148,85U,66B,64@,132,42*,73I,200,30,568,248,136,97a,34",196,8 ƛ31,32 ,124|,172,164,190,132,164,224,16,248,180,158,242,2,84T z102f,96`,79O,95_,79O,224,T,T,72H,80P,136,208,156,62>,T,T Б2,67C,63?,20,8,14,20,32 ,8,136,212,244,116t,8,72H,40( ՘40(,63?,4,65A,142,132,227,240,164,164,198,65A,32 ,96`,164,72H ڙ0,1,3,199,143,141,141,253,0,224,240,248,252,220,222,222 ߘ127,15,15,253,141,579,33!,231,254,254,92\,254,546,546,513,513 T,95_,87W,7,15,62>,60<,60<,T,227,131,1,0,80P,80P,0 568,568,0,0,8,42*,42*,191,0,0,64@,524,8,0,0,240 0,0,3,7,13 ,13 ,13 ,7,0,0,192,224,176,176,176,224 135,131,163,163,227,231,207,223,229,197,197,213,207,231,247,251 8,8,25,21,87W,105i,480,61=,128,128,128,68D,44,,212,524,244 21,93],112p,65A,126~,32 ,31,4,72H,200,40(,480,16,208,80P,104h }T,T,240,224,237,237,224,226,T,T,63?,31,159,159,31,30 98b,240,557,240,61=,253,192,158,30,58:,186,568,126~,127,3,121y  0,3,5,14,10 ,21,26,42*,0,192,240,152,212,154,245,170 85U,106j,127,2,125},42*,31,0,213,170,85U,170,117u,218,149,42* 0,17,26,29,26,17,63?,222,0,136,88X,184,88X,136,252,123{ 246,165,210,212,67C,95_,101e,191,63?,165,77M,43+,194,250,166,249  0,1,7,15,31,62>,60<,58:,0,224,240,248,32 ,112p,40(,4 %546,117u,114r,112p,112p,113q,491,31,10 ,30,112p,16,144,96`,0,0 *31,63?,32 ,92\,66B,200,194,194,248,252,12 ,116t,132,39',129,133 /246,91[,160,175,168,167,176,180,111o,178,27,233,41),203,11 ,171 41,3,2,2,4,4,8,63?,0,128,128,128,64@,64@,32 ,248 910 ,25,17,8,11 ,20,35#,96`,160,480,16,32 ,160,80P,136,12 >0,3,4,15,24,27,26,24,0,240,8,248,14,106j,76L,24 C9 ,9 ,8,11 ,4,6,27,63?,24,144,16,208,32 ,96`,144,248 Hu60<,60<,T,T,T,T,60<,60<,60<,60<,60<,60<,60<,60<,60<,60< Mi0,0,T,T,T,T,0,0,0,0,0,0,0,0,0,0 R197,69E,119w,16,28,4,7,1,192,64@,112p,16,28,196,167,193 Wz3,3,15,15,31,127,T,T,192,192,240,240,248,254,T,T \`146,T,T,T,T,T,T,T,0,10 ,4,10 ,16,32 ,64@,128 a0,16,40(,214,214,40(,16,0,0,0,136,221,119w,34",0,0 fO24,126~,126~,T,T,126~,126~,24,T,T,T,T,T,T,T,T k8,64@,0,18,0,128,16,0,31,502,118v,99c,110n,226,254,568 p126~,66B,169,145,82R,T,195,T,16,40(,68D,254,108l,84T,68D,568 u60<,67C,169,146,82R,114r,60<,230,480,112p,26,58:,92\,40(,36$,108l @730:L JW:G,A;"R)un or F)ight?" OI$= TI$="R"8100 YI$="F"8200 ^ 8015O 2BUN=A:FLEE=A:N=H22F:FLEE=FLEE+L(N):N (FLEE/L(24)+R(D)-R(D))ȰM$(Y,MON,F)W:G,B;"You run away!":N=B15:.03{u\,30:N:W:690:B;K,F;"Which";M,C;" Direction?":U=A:600X:U=B:BUN515:W:L(D)=L(D)+B:2030 7W:G,B;"You weren't";H,B;"fast enough!":B,30 5N=60<61=:L(N)=A:N:REP=A:MST=A:LDR=A !YI=DE:L(I*F)W:F,A;N$(I)'"Do you want"'"to cast a"'"spell (Y/N)?":MG=B:8235+ & 8395 +I$= 0I$="N"8395 5I$="Y"8255? : 8235+ ?+W:F,A;"Which spell to"'"cast (1 to 5)?" DI$= I'I$<491ůI$>5358260D N 5040 SMG=C8285] X 8395 ] 740 bV=BL(I+579)=R(E)+D gV=CLDR=R(C)-D lwV=DREP=B:M$(Y,MON,HJ)V=FY=GW:F,A;"Sorry, there"'"is NO seventh"'" level!":L I 0W:N=HM:A;N,16;" ":N:730 CG;A;H,18;"NO:";C;H;K,16;"ST:";M,16;"EN:" =STR=M$(Y,MON,BC)-MST:Q=M$(Y,MON,G)-REP:M(Q):840H +N=BQ:M(N)=M$(Y,MON,DE)+B-R(D)+LDR:N n505:I=EMG:N=2231:G;B;I,N;(R(E)+73I):N:I:500:900:910 I=R(E):L(I*F)8435 fW:F,A;"Press SPACE and"'"combat will be"'"conducted"'"automatically.":L:G;A;B;K,19;STR FT=R(Q):M(FT)8445 !!W:F,A;N$(I)'"attacks monster" !QBH,A;"number ";FT ! :G;A;B;J,19;FT;M,19;B$;M,19;M(FT) !ZZ=(R(G)+L(I*F-B)+(L(I*F+D)/(M+(F*R(C))))+L(I+579)+(L(I*F+C)/F))-(R(G)+STR+C-R(E)-(CM(FT) 8800`" !>W:G,A;"No-one has been"'"injured.":9500%:8900" !DW:F,A;N$(I)'"has been hit":L(I*F)=L(I*F)+ZZ:L(I*F)