dundan X$#Z$423658j\,255:0:7:0: 5:5,1;"DUNGEON DANNY BY A CARTWRIGHT": 236077\,60<:10 ,0;"DATA BEING READ PLEASE WAIT 767":X=0767:Y=(15616=+X):64000+X,Y:15,15;X:X X=6426464407 num:x,num:x 568,252,60<,92\,252,28,120x,60<,126~,110n,239,223,60<,110n,102f,238 ;255,17,255,68D,255,0,0,0,0,2,2,37%,491,86V,181,239,255,105i,146,255,0,0,0,0,255,146,105i,255,0,0,0,0,255,66B,36$,24,255,0,0,0,255,24,36$,66B,255,0,0,0,255,126~,60<,0,60<,0,60<,0,32 ,32 ,32 ,24,28,14,7,3 #28,63?,60<,58:,63?,568,30,60<,126~,118v,247,251,60<,118v,102f,119w $K255,153,153,153,153,0,0,0 %,184,124|,60<,92\,252,124|,60<,126~,118v,247,239,60<,24,24,568,0,29,62>,60<,58:,63?,62>,60<,126~,110n,239,247,60<,24,24,28,0  &G8,28,42*,127,42*,28,8,0 ' VARIABLES -J$="Q":L$="O":R$="P" 28SCREEN=5000:SC=0:LI=5:LEV=1 n o236077\,249 xcF$="CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC":0,0;0;1;F$;20,0;F$ =19,1;6;"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD" S=121:S,0;0;1;"C";S,31;"C":S:S=112 :S,2;0;1;"C":S:1,0;" ";2,0;" ";3,1;" ";4,1;" ";5,1;" ";6,1;" " i236077\,60<:21,1;"SC ";"DYNAMITE ";;" LI ";"LEV":236077\,249 :DI=0:A=3:B=29:236077\,249 4500 W1,0;" ";2,0;" ";3,1;" ";4,1;" " Z$="N":X$="O":A$="A":B$="B" JU=2518 QTI=0:E=0:DI=0:A=3:B=29:236077\,249 MAIN LOOP  A1=A:B1=B E>54000 a=L$X$="O":Z$="N":JU=2518 :A1,B1;" ";A1-1,B1;" ":B=B-1:A$="A":B$="B" a=R$Z$="P":X$="Q":JU=2500 :A1,B1;" ";A1-1,B1;" ":B=B+1:A$="K":B$="L"  (A+1,B)="I"1000 Y(A+1,B)="J"DI=DI+1:SC=SC+5:.002xn,60<:A+1,B;" " !I(A,B)="J"DI=DI+1:SC=SC+5:.002xn,60<:A,B;" " "(A,B)>32 B=B1: # (A-1,B)>32 B=B1 % (A+1,B)=" "2000 ,(A+1,B)="E"500 .(A+1,B)="F"410 1(A+1,B)="G"700 3(A+1,B)="H"900 @ =J$JU ^A,B;B$;A-1,B;A$: 236077\,60<:21,4;SC;21,23;LI;21,17;DI;" ";21,30;LEV:236077\,249 DDI>17DI=0:6,2;" ";7,2;" " A,B;X$;A-1,B;Z$  260  LEFT SLIDER  A1=A:B1=B 4(A+1,B-1)=" "B=B-1:430 A+1,B;"E":300, A,B+1;" ";A-1,B+1;" ";A+1,B+1;" ";A,B;B$;A-1,B;A$;A+1,B;3;"F":.001wn,68D:A,B;X$;A-1,B;Z$  =J$JU ,=L$A,B;" ";A-1,B;" ":270 ,=R$A,B;" ";A-1,B;" ":270  410 RIGHT SLIDER  A1=A:B1=B 4(A+1,B+1)=" "B=B+1:520 A+1,B;"F":302. A,B-1;" ";A-1,B-1;" ";A+1,B-1;" ";A,B;B$;A-1,B;A$;A+1,B;3;"E":.001wn,68D:A,B;7;X$;A-1,B;Z$ & =J$JU ',=L$A,B;" ";A-1,B;" ":270 (,=R$A,B;" ";A-1,B;" ":270 + 505  UP LIFT =(A-2,B)=" "A,B;" ";A-1,B;" ":A=A-1: !A=2B=15401 YA,B;B$;A-1,B;A$;A+1,B;4;"G";A+2,B;" ":.002xn,30  =J$JU =R$260 =L$260  710  DOWN LIFT <(A+2,B)=" "A,B;" ";A-1,B;" ":A=A+1 HA,B;B$;A-1,B;A$;A+1,B;4;"H":.002xn,30  =J$JU =L$260 =R$260  910  SPRINGERS XA=A-1:A,B;"B";A-1,B;"A":.002xn,10 :A,B;"O";A-1,B;"N" A$="A":B$="B" A+1,B;" " E>54000:  E=0 T=03  A1=A:B1=B =L$B=B-1: .002xn,10 -A,B+1;" ";A1-1,B+1;" ": 7A,B;"B";A-1,B;"A"::A,B;"O";A-1,B;"N" T $ 250 FALLING ROUTINE  E=0:D=020:  E=E+1 X(A+1,B)="J"SC=SC+5:.03{u\,60<:DI=DI+1:A+1,B;" "  (A+1,B)="D"4000 %(A+1,B)>32 320@  A=A+1 A-2,B;" " A,B;B$;A-1,B;A$ /.0001sQX,69E:A,B;X$;A-1,B;Z$  D RIGHT JUMP V=0 E>54000 ,(A-2,B)=" "A=A-1:V=1 A,B;X$;A-1,B;Z$ V=1A+1,B;" " J=02 A1=A:B1=B B=B+1 2529 LEFT JUMP V=0 E>54000 ,(A-2,B)=" "A=A-1:V=1 A,B;X$;A-1,B;Z$ V=1A+1,B;" " J=02 A1=A:B1=B B=B-1 I(A,B)="J"DI=DI+1:SC=SC+5:.003xD,60<:A,B;" " Y(A-1,B)="J"DI=DI+1:SC=SC+5:.003xD,60<:A-1,B;" " )(A,B)>32 A=A1:B=B1:276 1(A-1,B)>32 A=A1:B=B1:276 7A1,B1;" ";A1-1,B1;" ";A,B;X$;A-1,B;Z$ J:250 DEATH ROUTINE YLI=LI-1:I=70-1:A,B;I;B$;A-1,B;A$:.002xn,I:I: LI<08000@  200 CLEAR SCREEN S=113 :S,3;" ":S:S=1418:S,1;" ":S W1,0;" ";2,0;" ";3,1;" ";4,1;" " =6,2;0;1;"C";7,2;"C" SCREEN  SCREEN 1 SCREEN=5000 "4,3;2;0;"CC CCC";9 ,4;"C";9 ,12 ;"C";8,19;"C";5,25;"C";7,19;"C";4,25;"CCC CC";8,3;"CC";8,12 ;"C";8,29;"CC";10 ,7;"C";11 ,18;"CC";12 ,4;"C";12 ,26;"CC";13 ,1;"CC";13 ,12 ;"C";13 ,29;"CC";14,9 ;"C";15,6;"C";16,2;"CC";17,15;"C";17,20;"C";17,24;"C" 3,3;3;0;;"J";3,26;"J";3,30;"J";6,19;"J";7,3;"J";7,12 ;"J";7,30;"J";9 ,7;"J";11 ,4;"J";11 ,26;"J";12 ,12 ;"J";12 ,30;"J";13 ,9 ;"J";14,6;"J";15,2;"J";16,15;"J";16,20;"J";16,24;"J" x17,14;5;"I";17,19;"I";17,25;"I";17,28;2;0;"C" 54,5;4;"H";4,28;"H" H17,6;2;0;"C";17,7;4;"G" 8,20;3;"E";4,24;"F";9 ,11 ;"F";17,11 ;"F";12 ,1;4;"G";12 ,15;"G";15,5;"G" A,B;"B";A-1,B;"A"  245 PRINT WELL DONE 236077\,60<:10 ,5;"WELL DONE YOU ESCAPED THE";11 ,10 ;"DREADED DUNGEON":R=05:.05|L,10 :.05|L,10 :.05|L,12 :.05|L,10 :.05|L,12 :R::#0;" ANOTHER GO (Y/N)" ##0;" ANOTHER GO(Y/N)" ="Y"30 ="N"9999':  5403 @c236077\,60<::10 ,0;"YOU COULD NOT SURVIVE THE PERILS OF THE DUNGEON..... " B 5402 '236077\,60<  y<uJLRcreeeF CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCabZXAB e"