%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:537
File Name:3D-DRAW
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\S-WindMan
\ViewWindow 1,8,1,8,1
'{1,8,8,1,1}\->\List 1
'{8,8,1,1,8}\->\List 2
'\Prog "3D-GRPH"
\If U\<>0
\Then {1,2,2,3,2,2,3,2,2,1}\->\List 1
{1,2,3,3,3,6,6,6,7,8}\->\List 2
\Else {1,3,3,1}\->\List1
{1,3,6,8}\->\List2
\IfEnd
\Prog "3D-GRPH"
\If W\<>0
\Then {8,7,7,6,7,7,6,7,7,8}\->\List1
{1,2,3,3,3,6,6,6,7,8}\->\List2
\Else {8,6,6,8}\->\List1
{1,3,6,8}\->\List2
\IfEnd
\Prog "3D-GRPH"
\If V\<>0
\Then {4,3,3,4,4}\->\List1:{4,3,6,5,4}\->\List2
\Prog "3D-GRPH"
{5,6,6,5,5}\->\List1
{4,3,6,5,4}\->\List2
\Else {3,6}\->\List1
{3,3}\->\List2
\Prog "3D-GRPH"
{3,6}\->\List1
{6,6}\->\List2
\IfEnd
\Prog "3D-GRPH"
\If \theta=1
\Then 1\->\r
{4.0,5.0,5.0,4.0,4.0,4.2,4.8,5.0,000,000,000}\->\List1
{6.0,6.0,7.1,7.1,6.0,5.8,5.8,6.0,000,000,000}\->\List2
\Prog "3D-GRPH"
\IfEnd
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:65
File Name:3D-GRPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If \r=0
\Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,,\Green :\DrawStat
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,,\Orange :\DrawStat
\IfEnd
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:200
File Name:3D-POS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Mat L[Q,P]\->C
\For 3\->B \To 0 \Step \(-)1
\If C-(2^B)\>=0
\Then C-(2^B)\->C
1\->\Mat K[1,4-B]
\Else 0\->\Mat K[1,4-B]
\IfEnd
\Next 
4-R\->K
K>1\=>\Mat K[1,K-1]\->U
K=1\=>\Mat K[1,4]\->U
K<4\=>\Mat K[1,K+1]\->W
K=4\=>\Mat K[1,1]\->W
K>2\=>\Mat K[1,K-2]\->V
K\<=2\=>\Mat K[1,K+2]\->V
\Prog "3D-DRAW"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1692
File Name:3D-EDIT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
2\->G:1\->F:1.0\->E
\ClrText
\Green " ":" "
\Locate 1,1,"\Deg>3D-LABYRINTH-EDITOR\Deg>"
"GROESSE (3~20)"?\->S
\Int S\->S
S>20\=>20\->S
S<1\=>1\->S
S\->T
S\->\Mat J[1,8]
T\->\Mat J[1,9]
\Identity S\->\Mat L
\Fill(0,\Mat L)
\Fill(0,\Mat K)
1\->P~Q:5\->J:1\->M
\Int (2\Ran#)+1\->R
\Int ((S*T*\Mat J[1,1])\->O
G=1\=>\Locate 5,7,O
\If G=2
\Then \ClrText
\Green " "
\Locate 1,1,"\Deg>3D-LABYRINTH-EDITOR\Deg>"
\Locate 1,3,"ERZEUGE LABYRINTH..."
\Locate 5,5,"\slash MAX"
\Locate 11,5,S*T
\IfEnd
\For 0\->Z \To O
R\->N:0\->I
\Do
I+1\->I
\If \Int (\Mat J[1,2]*\Ran#)=0\ Or M\<>0:\Then \Int (4\Ran#)\->R:\IfEnd
0\->M
P=1\ And R=3\=>8\->M
P=S\ And R=1\=>2\->M
Q=1\ And R=0\=>1\->M
Q=T\ And R=2\=>4\->M
\If M=0
\Then \If R=0:\Then \Mat L[Q-1,P]\<>0\=>9\->M:\IfEnd
\If R=1:\Then \Mat L[Q,P+1]\<>0\=>9\->M:\IfEnd
\If R=2:\Then \Mat L[Q+1,P]\<>0\=>9\->M:\IfEnd
\If R=3:\Then \Mat L[Q,P-1]\<>0\=>9\->M:\IfEnd
\IfEnd
\LpWhile M\<>0\ And I<20
\If I<20
\Then G=1\=>\Locate 14,7,I
F+E\->F
G=2\ And \Int F=F\=>\Locate 1,5,F/E
\Mat L[Q,P]+2^R\->\Mat L[Q,P]
\If \Int (\Mat J[1,3]*\Ran#)=0\ And J<\Mat J[1,4]:\Then P\->\Mat K[1,J]
Q\->\Mat K[1,J+1]
J+2\->J
G=1\=>\Locate 10,7,(J-5)/2
\IfEnd
G=1\=>\Locate 1,7,Z
R=0\=>Q-1\->Q
R=2\=>Q+1\->Q
R=1\=>P+1\->P
R=3\=>P-1\->P
R<2\=>R+2\->K
R>1\=>R-2\->K
2^K\->\Mat L[Q,P]
\Else O+1\->Z
\IfEnd
\Next 
5\->J
P\->\Mat J[1,6]
Q\->\Mat J[1,7]
\While \Mat K[1,J]\<>0
G=1\=>\Locate 1,7,"                    "
G=1\=>\Locate 18,7,(J-3)/2
\Mat K[1,J]\->P
\Mat K[1,J+1]\->Q
1\->M:\Int (12\Ran#)+2\->O
\For 1\->Z \To O
0\->I
\Do
I+1\->I
\If \Int (\Mat J[1,2]*\Ran#)=0\ Or M\<>0:\Then \Int (4\Ran#)\->R:\IfEnd
0\->M
P=1\ And R=3\=>9\->M
P=S\ And R=1\=>9\->M
Q=1\ And R=0\=>9\->M
Q=T\ And R=2\=>9\->M
\If M=0
\Then \If R=0:\Then \Mat L[Q-1,P]\<>0\=>1\->M:\IfEnd
\If R=1:\Then \Mat L[Q,P+1]\<>0\=>2\->M:\IfEnd
\If R=2:\Then \Mat L[Q+1,P]\<>0\=>3\->M:\IfEnd
\If R=3:\Then \Mat L[Q,P-1]\<>0\=>4\->M:\IfEnd
\IfEnd
\LpWhile M\<>0\ And I<20
\If I<20
\Then F+E\->F
G=2\ And \Int F=F\=>\Locate 1,5,F/E
\Mat L[Q,P]+2^R\->\Mat L[Q,P]
R=0\=>Q-1\->Q
R=1\=>P+1\->P
R=2\=>Q+1\->Q
R=3\=>P-1\->P
R<2\=>R+2\->K
R>1\=>R-2\->K
2^K\->\Mat L[Q,P]
G=1\=>\Locate 1,7,Z
G=1\=>\Locate 5,7,O
\Else O+1\->Z
\If \Int (\Mat J[1,5]*\Ran#)=0\ And P\<>S\ And P\<>1\ And Q\<>T\ And Q\<>1
\Then 0\->H
\Do
H+1\->H
\Int (4\Ran#)\->R
\Mat L[Q,P]\->C
\For 3\->B \To 0 \Step \(-)1
\If C\>=2^B
\Then C-2^B\->C
1\->\Mat K[1,4-B]
\Else 0\->\Mat K[1,4-B]
\IfEnd
\Next 
\If \Mat K[1,4-R]=0
\Then \Mat L[Q,P]+2^R\->\Mat L[Q,P]
R=0\=>Q-1\->Q
R=2\=>Q+1\->Q
R=1\=>P+1\->P
R=3\=>P-1\->P
R<2\=>R+2\->K
R>1\=>R-2\->K
\Mat L[Q,P]+2^K\->\Mat L[Q,P]
G=1\=>\Locate 14,7,"~"
\IfEnd
\LpWhile H<20\ And \Mat K[1,4-R]\<>0
\IfEnd
\IfEnd
\Next 
J+2\->J
\WhileEnd
\Locate 14,7,"FERTIG"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:487
File Name:2D-DRAW
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 1,127,1,63,1
\Mat J[1,8]\->S
\Mat J[1,9]\->T
\Orange \F-Line 1,1,3S+2,1
\Orange \F-Line 3S+2,1,3S+2,3T+2
\Orange \F-Line 3S+2,3T+2,1,3T+2
\Orange \F-Line 1,3T+2,1,1
\For 1\->P \To S
\For 1\->Q \To T
\Mat L[Q,P]\->C
\If C\<>0
\Then \For 3\->B \To 0 \Step \(-)1
\If C\>=2^B
\Then C-2^B\->C
1\->\Mat K[1,4-B]
\Else 0\->\Mat K[1,4-B]
\IfEnd
\Next 
\Mat K[1,1]=1\=>\F-Line 3P-1,3Q,3P,3Q
\Mat K[1,2]=1\=>\F-Line 3P,3Q+1,3P,3Q
\Mat K[1,3]=1\=>\F-Line 3P,3Q,3P+1,3Q
\Mat K[1,4]=1\=>\F-Line 3P,3Q-1,3P,3Q
\IfEnd
\Next 
\Next 
\Lbl 5
5\->J
\If \Mat K[1,J]\<>0\ And 1=1
\Then \Do
\If \Mat K[1,J]=0
\Then \Mat J[1,4]\->J
\Else \Mat K[1,J]\->P
\Mat K[1,J+1]\->Q
\Orange \PxlOn 3Q,3P
J+2\->J
\IfEnd
\LpWhile J<\Mat J[1,4]
\IfEnd
\Mat J[1,6]\->P
\Mat J[1,7]\->Q
\PxlOff 3Q,3P
\Green \PxlOn 3Q,3P

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:848
File Name:3D-LABY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Green " "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>3D-LABYRINTH\Deg>\Deg>\Deg>\Deg>"
\Locate 2,3,"1\->\Rnd-LABYRINTH"
\Locate 2,4,"2\->LABYRINTH BETRETEN"
\Locate 1,7,"FEB 00  \micro\Ra[,"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62
A=72\=>\Prog "3D-EDIT"
A=72\=>\Stop
0\->Z:1\->P:1\->Q:3\->R:0\->\theta:0\->\r:\Mat J[1,8]\->S
\Identity S\->\Mat M
\Fill(0,\Mat M)
1\->\Mat M[Q,P]
\Prog "3D-POS"
\Text 58,58,\Mat M[Q,P]:\Prog "3D-DIR"
\Green \F-Line 1,1,1,1
\Do
\Do
\Getkey\->A
\LpWhile A\<>38\ And A\<>28\ And A\<>27\ And A\<>37\ And A\<>77
A=38\=>R-1\->R
R<0\=>3\->R
A=27\=>R+1\->R
R>3\=>0\->R
\If (A=28\ And V=1)\ Or (A=27\ And W=1)\ Or (A=38\ And U=1)
\Then R>1\=>R-2\->D
R<2\=>R+2\->D
D=0\=>Q-1\->Q
D=2\=>Q+1\->Q
D=3\=>P-1\->P
D=1\=>P+1\->P
\Mat M[Q,P]+1\->\Mat M[Q,P]
\Mat J[1,6]=P\ And \Mat J[1,7]=Q\=>1\->\theta
\Prog "3D-POS"
\Text 58,58,\Mat M[Q,P]:\Prog "3D-DIR"
\Green \F-Line 1,1,1,1:Z+1\->Z
\IfEnd
\If A=37\ And Z>0
\Then R=0\=>Q-1\->Q
R=1\=>P+1\->P
R=2\=>Q+1\->Q
R=3\=>P-1\->P
R>1\=>R-2\->D
R<2\=>R+2\->D
D\->R
\Mat M[Q,P]+1\->\Mat M[Q,P]
\Prog "3D-POS"
\Text 58,58,\Mat M[Q,P]:\Prog "3D-DIR"
\Green \F-Line 1,1,1,1:Z+1\->Z
\IfEnd
A=77\=>\Stop
\LpWhile P\<>\Mat J[1,6]\ Or Q\<>\Mat J[1,7]
\ClrText
\Orange \Text 1,20," DU HAST GEWONNEN !"
\Text 8,41,"SCHRITTE:":\Text 8,80,Z
\Text 8,80,Z
\Identity 1\->\Mat M
\Do
\LpWhile \Getkey\<>31
\Prog "2D-DRAW"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:81
File Name:3D-DIR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
R=2\=>\Text 58,68,"NORD"
R=3\=>\Text 58,68,"OST"
R=0\=>\Text 58,68,"SUED"
R=1\=>\Text 58,68,"WEST"
\Return

%End