%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3620
File Name:KNOSSOS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
2\->\theta:1\->\r
21\->M:\(-)1\->K
\ClrText
\Green " ":\Locate 1,1,"KNOSSOS  1.1":\Locate 1,3,"1\->LABYRINTH BETRETEN":\Locate 1,4,"2\->\Rnd-LABYRINTH":\Locate 1,5,"3\->LABYRINTH\(-)EDITOR":\Locate 1,7,"\Rb\y1":\Locate 6,7,"\Dim ":\Locate 3,7," \micro\Ra[":\Locate 8,7,"  "
\Do
\Getkey\->T
\LpWhile T=0
T=72\=>\Goto2
T=62\=>\Goto4
\ClrText
\Locate 1,1,"F1\->-   F2\->#":\Locate 1,2,"F3\->\femto   F4\->\Mega":\Locate 1,3,"EXE\->FERTIG":\Locate 1,4,"1\->NEUES LABYRINTH":\Locate 1,5,"2\->AKTUELLES LABYRINTH"
\Do:\Getkey\->F
\LpWhile F=0
\If F=72
\Then \For 21\->S \To 1 \Step \(-)1:\For 1\->Z \To 7
F=72\=>1\->\Mat A[Z,S]
\Next :\Next 
\IfEnd
\For 21\->S \To 1 \Step \(-)1:\For 1\->Z \To 7
\Mat A[Z,S]\->D
D=0\=>\Locate S,Z," "
D=1\=>\Locate S,Z,"#"
D=2\=>\Locate S,Z,"+"
D=3\=>\Locate S,Z,"\femto"
D=4\=>\Locate S,Z,"\Mega"
\Next :\Next 
0\->B:1\->S:1\->Z:1\->E
\Do:B+1\->B
B=15\=>\Locate S,Z,"\Dms"
\If B=30:\Then 0\->B
\Mat A[Z,S]\->D
D=1\=>\Locate S,Z,"#"
D=0\=>\Locate S,Z," "
D=2\=>\Locate S,Z,"+"
D=3\=>\Locate S,Z,"\femto"
D=4\=>\Locate S,Z,"\Mega"
\IfEnd:\Getkey\->A
\If A:\Then 14\->B
\Mat A[Z,S]\->D
D=0\=>\Locate S,Z," "
D=2\=>\Locate S,Z,"+"
D=1\=>\Locate S,Z,"#"
D=3\=>\Locate S,Z,"\femto"
D=4\=>\Locate S,Z,"\Mega"
A=27\=>S+1\->S:A=37\=>Z+1\->Z:A=28\=>Z-1\->Z:A=38\=>S-1\->S:S=0\=>21\->S:S=22\=>1\->S:Z=0\=>7\->Z:Z=8\=>1\->Z
\If A=79
\Then 0\->\Mat A[Z,S]
29\->B
\IfEnd
\If A=69
\Then 1\->\Mat A[Z,S]
29\->B
\IfEnd
\If A=59
\Then 3\->\Mat A[Z,S]
29\->B
\IfEnd
\If A=49
\Then 4\->\Mat A[Z,S]
29\->B
\IfEnd
A=31\=>9\->E
\IfEnd
\LpWhile E=1
\Stop
\Lbl 4
\ClrText
"GROESSE (1~10) "?\->L
\Int (L)*20\->L
L<20\=>20\->L
L>800\=>800\->L
\ClrText
\Locate 2,1,"\Rnd-LABYRINTH WIRD ":\Locate 2,2,"ERZEUGT..."
\Locate 1,5,"---------------------":\Locate 1,7,"---------------------":\For 1\->Z \To 7:\For 1\->S \To 21
1\->\Mat A[Z,S]
\Next 
\Next 
\theta=1\=>\ClrText
1\->S:1\->Z:2\->B
0\->\Mat A[Z,S]
\Locate 1,6,"#"
\For 1\->A \To L
A/(L/20)=\Int (A/(L/20))\ And \theta\<>1\=>\Locate A/(L/20),6,"#"
\Int (9\Ran#)\->C
C=2\=>B+1\->B:C=3\=>B-1\->B
\If C=4
\Then S\->G:Z\->H
\Int (3\Ran#)\->U
\If U=1
\Then B+1\->F
F=5\=>1\->F
\Else B-1\->F
F=0\=>4\->F
\IfEnd
\For 1\->D \To \Int (9\Ran#)+5:\Int (9\Ran#)\->E
E=2\=>F+1\->F:E=3\=>F-1\->F
F=0\=>4\->F:F=5\=>1\->F
F=1\=>G+1\->G:F=2\=>G-1\->G
F=3\=>H+1\->H:F=4\=>H-1\->H
H=0\=>1\->H:G=0\=>1\->G
G=22\=>21\->G:H=8\=>7\->H
0\->I
\If G>1:\Then \Mat A[H,G-1]=0\=>I+1\->I:\IfEnd
\If G<21:\Then \Mat A[H,G+1]=0\=>I+1\->I:\IfEnd
\If H>1:\Then \Mat A[H-1,G]=0\=>I+1\->I:\IfEnd
\If H<7:\Then \Mat A[H+1,G]=0\=>I+1\->I:\IfEnd
\If I>1
\Then F=1\=>G-1\->G:F=2\=>G+1\->G:F=3\=>H-1\->H:F=4\=>H+1\->H:F-1\->F:F<1\=>4\->F
\IfEnd
\Mat A[H,G]=3\=>1\->\r
0\->\Mat A[H,G]
\theta=1\=>\Locate G,H,"\(-)"
\If \r=1\ And \Int (8\Ran#)=5:\Then \If D>4
\Then 0\->\r
\theta=1\=>\Locate G,H,"\femto"
3\->\Mat A[H,G]
\IfEnd:\IfEnd:\Next 
\IfEnd
B>4\=>1\->B:B<1\=>4\->B
B=2\=>S+1\->S:B=3\=>S-1\->S
B=4\=>Z-1\->Z:B=1\=>Z+1\->Z
S=0\=>1\->S:Z=0\=>1\->Z
S=22\=>21\->S:Z=8\=>7\->Z
\If J<3:\Then 0\->I
\If Z>1:\Then \Mat A[Z-1,S]=0\=>I+1\->I:\IfEnd
\If Z<7:\Then \Mat A[Z+1,S]=0\=>I+1\->I:\IfEnd
\If S>1:\Then \Mat A[Z,S-1]=0\=>I+1\->I:\IfEnd
\If S<21:\Then \Mat A[Z,S+1]=0\=>I+1\->I:\IfEnd
\If I>1
\Then B=2\=>S-1\->S:B=3\=>S+1\->S:B=4\=>Z+1\->Z:B=1\=>Z-1\->Z:B-1\->B:B<1\=>4\->B:J+1\->J
\Else 0\->J
\IfEnd
\Else 0\->J
0\->Q
\Lbl 3
\theta=1\=>\Locate 1,1,M
\For 7\->N \To 1 \Step -1
\Mat A[N,M]=0\=>1\->Q
Q=1\=>\Break
\Next 
Q=0\=>M+K\->M
M=22\=>3\->M
M=0\=>21\->M
Q=0\=>\Goto3
\If A<L-9
\Then N\->Z:M\->S
\Else 'L-1\->A
\IfEnd
P+1\->P:P=6\=>L-1\->A
\(-)1\->K
\Int (10\Ran#)+6\->M
\IfEnd
\Mat A[Z,S]=3\=>1\->\r
0\->\Mat A[Z,S]
A=L\=>4\->\Mat A[Z,S]
\If \theta=1
\Then \Locate S,Z,"-"
A=L\=>\Locate S,Z,"\Mega"
\IfEnd
\Next 
\If \r=1
\Then '?
\Lbl 5
\Int (9\Ran#)+3\->C
\For 7\->B \To 1 \Step -1
\If \Mat A[B,C]=0
\Then 3\->\Mat A[B,C]
0\->\r
\Break
\IfEnd
\Next 
\r=1\=>\Goto5
\theta=1\=>\Locate C,B,"\femto"
\IfEnd
\If \theta=1
\Then \Locate 1,1,"O\kilo"
\Do
\LpWhile \Getkey\<>31
\IfEnd
\ClrText
\Locate 2,1,"FERTIG !":\Stop
\Lbl 2
\ClrText
1\->S:1\->Z
49\->R
\Locate S,Z,"\theta"
2\->V
\For 1\->U \To 3
U\->W
\If U=3
\Then 2\->W:1\->V
\IfEnd
\Mat A[W,V]\->F
F=0\=>\Locate V,W," "
F=1\=>\Locate V,W,"#"
F=3\=>\Locate V,W,"\femto"
F=4\=>\Locate V,W,"\Mega"
\Next 
0\->J:0\->\r:\(-)1\->W:\(-)1\->V
\Do
\Getkey\->A
\If A
\Then S\->D:Z\->E
A=28\=>Z-1\->Z:A=27\=>S+1\->S:A=37\=>Z+1\->Z:A=38\=>S-1\->S:S<1\=>1\->S:Z<1\=>1\->Z:S>21\=>21\->S:Z>7\=>7\->Z
\If \Mat A[Z,S]=1
\Then D\->S:E\->Z
\IfEnd
\If D\<>S\ Or E\<>Z
\Then \Locate D,E," "
\r=0\=>\Locate S,Z,"\theta"
\r\<>0\=>\Locate S,Z,"\aster"
\If D\<>S
\Then D-S\->M
\If D+M>0\ And D+M<22
\Then \Locate D+M,Z," ":Z\<>1\=>\Locate D+M,Z-1," ":Z\<>7\=>\Locate D+M,Z+1," "
\IfEnd
\If S-M>0\ And S-M<22
\Then \For Z-1\->C \To Z+1:\If C>0\ And C<8
\Then \Mat A[C,S-M]\->F
F=1\=>\Locate S-M,C,"#"
F=3\=>\Locate S-M,C,"\femto"
F=4\=>\Locate S-M,C,"\Mega"
\IfEnd
\Next 
\IfEnd:\IfEnd
\If E\<>Z
\Then E-Z\->N
\If E+N>0\ And E+N<8
\Then \Locate S,E+N," ":S\<>1\=>\Locate S-1,E+N," ":S\<>21\=>\Locate S+1,E+N," "
\IfEnd
\If Z-N>0\ And Z-N<8
\Then \For S-1\->B \To S+1:\If B>0\ And B<22
\Then \Mat A[Z-N,B]\->F
F=1\=>\Locate B,Z-N,"#"
F=3\=>\Locate B,Z-N,"\femto"
F=4\=>\Locate B,Z-N,"\Mega"
\IfEnd
\Next 
\IfEnd:\IfEnd
J+1\->J
\If \Mat A[Z,S]=3
\Then 0\->\Mat A[Z,S]
1\->\r:Z\->V:S\->W
\IfEnd
\If \Mat A[Z,S]=4
\Then "                                          ":\If \r\<>0
\Then \Locate 1,1,"  DU HAST GEWONNEN !":\Locate 6,2,J:J<10\=>\Locate 8,2,"SCHRITTE":J<100\ And J>9\=>\Locate 9,2,"SCHRITTE":J>99\ And J<1000\=>\Locate 10,2,"SCHRITTE":\Else \Locate 1,1,"  DU HAST VERLOREN !"
\Locate S,Z,"\Mega"
\IfEnd
\For 7\->M \To 1 \Step \(-)1
\For 1\->N \To 21
M=V\ And N=W\=>3\->\Mat A[M,N]:\Mat A[M,N]\->O
O=1\=>\Locate N,M,"#"
O=0\=>\Locate N,M," "
O=3\=>\Locate N,M,"\femto"
O=4\=>\Locate N,M,"\Mega"
\Next :\Next 
\Stop
\IfEnd
\IfEnd
\IfEnd
\LpWhile 1=1
\IfEnd
\Stop




%End