j j l d DUNGEON nM(100d) xQ(100d) 1100L I=0 4 J=1 9 'Q(18*I+J)=90Z+J-20*I /Q(18*I+J+9 )=90Z-J-20*I .M(18*I+J)=2*I+10 *J+1 8M(18*I+J+9 )=2*I-10 *J+102f J:I "X=0:Y=2:1700 " ***********" N=1 9 " *+++++++++*" N " ***********" PT=0:MT=0 #X=0:Y=14:1700 ""ENTER PRINCESS' MOVE" ,81500:K$=G$:P=1:2700 :Q=A-480 6"Q<1 Q>9 300, @$1700:"ENTER MONSTER'S MOVE" J81500:K$=G$:P=1:2700 :M=A-480 T"M<1 M>9 330J ^$1700:"NOW THE MOVES BEGIN " hT=1:1400x r$1700:" " |K=0:B=0 QY=9 :QX=1 MY=1:MX=1 G=1 Q (PT=PT+1:T=0.1}L:1400x PT>81Q 630v )C=(Q(PT)/10 ):L=Q(PT)-10 *C .X=QX+2:Y=QY+2:1700:"+"; &X=C+2:Y=L+2:1700 "P"; MY=L MX=C 700 QY=L QX=C G G=1 M 'MT=MT+1:T=0.1}L:140 MT>81Q 630v &)B=(M(MT)/10 ):K=M(MT)-10 *B 0.X=MX+2:Y=MY+2:1700:"+"; :&X=B+2:Y=K+2:1700 D"M"; NK=QY B=QX 700 X MY=K:MX=B bG l 410 v#T=3:1400x:1200 "X=0:Y=6:1700 "CONGRATULATIONS! THE" :"CHOICE OF ";Q;" FOR" :"PRINCESS AND ";M;" FOR" :"MONSTER HAS WORKED" : #T=3:1400x:1200 "X=0:Y=6:1700 "TOO BAD - YOU MET" :"IN CELL ";L;C;" AND" :"THE PRINCESS WAS" :"CAUGHT !" : SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$): |