ZXTape! 0Created with Ramsoft MakeTZXLABYRINTH +N + "LABYRINT" 2 63999 <1:1:7: F8,6;4;" ";10 ,6;6;1;"L A B Y R I N T ";12 ,6;0;4;" " P 2000 Z dC$="+" x,,"LABYTINT-GROESSE? (1-9)" y 0 z 0 {I$= |I$<"1"I$>"9"121y }H=I$+6 ~'V=I$+2:V11 V=10 ,:#0;"BITTE EINEN MOMENT GEDULD ..." K$="1" PT=0 E=2 SCH=1 %0,0;"+";2*H;"+" W(16,25) B(16,25) 1,0; Q=0 Z=0 X=(*H+1) I=1H I=X173 "++"; 180 "+-"; I "+" C=1 W(X,1)=C C=C+1 R=X S=1 260 RH240 SV230 R=1 S=1 250 R=1 S=S+1 250 R=R+1 W(R,S)=0210 R=1530 #W(R-1,S)0530 S=1390 #W(R,S-1)0390 "R=H330J ,#W(R+1,S)0330J 6X=(*3+1) @X=1790 AX=28204 BX=3860\ JSV340T KZ=1370r L Q=1 M 350^ T#W(R,S+1)0370r ^X=(*3+1) hX=1790 iX=28204 jX=3910 rX=(*2+1) |X=1790 }X=28204 R=H470 #W(R+1,S)0470 SV420 Z=1450  Q=1  430 #W(R,S+1)0450 X=(*3+1) X=1790 X=2860\ X=3910 X=(*2+1) X=1790 X=2860\ SV490 Z=1520  Q=1  500 #W(R,S+1)0520 X=(*2+1) X=1790 X=2910  790 S=1670 #W(R,S-1)0670 R=H610b #W(R+1,S)0610b &SV5600 'Z=1590N ( Q=1 ) 570: 0#W(R,S+1)0590N :X=(*3+1) DX=18204 EX=2860\ FX=3910 NX=(*2+1) XX=18204 YX=2860\ bSV630v lZ=1660 m Q=1 n 640 v#W(R,S+1)0660 X=(*2+1) X=18204 X=2910  8204 R=H740 #W(R+1,S)0740 SV700 Z=1730  Q=1  830> #W(R,S+1)0730 X=(*2+1) X=1860\ X=2910  860\ SV760 Z=1760  Q=1  770 #W(R,S+1)0780   910  1000 W(R-1,S)=C  C=C+1 !B(R-1,S)=2 " R=R-1 *C=H*V+11010 + Q=0 , 260 4W(R,S-1)=C > C=C+1 HB(R,S-1)=1 I S=S-1 JC=H*V+11010 R Q=0 S 260 \W(R+1,S)=C f C=C+1 gB(R,S)=0880p hB(R,S)=3 i 890z pB(R,S)=2 z R=R+1 C=H*V+11010  530 Q=1960  W(R,S)=C  C=C+1 B(R,S)=0940 B(R,S)=3  950 B(R,S)=1  S=S+1 C=H*V+11010  260  Z=1 B(R,S)=0980 B(R,S)=3  Q=0  1000 B(R,S)=1  Q=0  R=1  S=1  250  210  J=1V "+";  I=1H B(I,J)<21030 " ";  1040 " +"; I   I=1H B(I,J)=01060$ B(I,J)=21060$ "+ ";  1070. $"++"; .I /"+" 0J 11+2*V,0; 3I=12*H+1 4"+"; 5I 8"" LI=1(H*V)/4 VX=2+2*(*V) WY=1+2*(*H) `X,Y;3;"#" tI y02*V,1+2*(*H);6;"`" A=0:B=1  A,B;"*" ?23672x\,0:23673y\,0:23674z\,0 =""1252 ="0"127 I$=K$  A,B;"*" C$"+".01z# =,0  A1=A:B1=B K$=I$  ""I$= I$="7"A1=A-(A>0) I$="6"A1=A+1 I$="5"B1=B-1 I$="8"B1=B+1 ="9"1145y  C$=(A1,B1) C$=" "1350F C$="+"1255 C$="#"PT=PT+100d (C$="`"SCH=SCH-1 <C$="-"1380d F A,B;" " P A=A1:B=B1 Z 1260 n E=E-1 oE<1SCH1400x p A,B;" " qA=A1+1 s 1260 x@T=23672x\+256*23673y\+65536*23674z\ } A1,B1;" " ~ A,B;" " PT=PT-(T/10 ) I=160< I X$="> "+PT+" <" (2*V+1,0;1;X$ &0,0;"NOCH EINMAL?" ""1475 =""1480 ="j"127 :1,0;" "'"NEUE GROESSE?" ""1505 =""1510 ="j"1540  9998'   100d $#0;"EINEN MOMENT GEDULD ..." *B=48384:I=15616=16383?  (I+B),I I 236077\,249   I=14 A$  ADDR=63744+8*A$ *J=07 4A > ADDR+J,A HJ RI \"": f2"SPIELANLEITUNG: " p'"JE NACH GROESSE DAUERT ES EINEN MOMENT, BIS DAS LABYRINT ER- SCHEINT. DANN WERDEN DIE SCHAETZE (#) EINGETRAGEN UND ZUMSCHLUSS DER SCHLUESSEL (`)." z"SIE (*) MUESSEN SO VIELE SCHAETZE WIE MOEGLICH INMOEG- LICHST KURZER ZEIT MITNEHMEN. OHNE SCHLUESSEL KOMMEN SIE NICHTWIEDER ZURUECK." *,,"WER ERREICHT DIE HOECHSTE PUNKTZAHL?"  U"#",000,026,008,030,062>,126~,124|,000 U"`",000,000,064@,160,191,167,069E,000 U"*",024,060<,024,060<,090Z,153,036$,102f U"+",255,255,195,195,195,195,255,255 '?3,0;" "'1;"> SPIELENDE <" ' 9999' b(LddXaA+hvecqzxcrsy  C-tX> 175