25©12
ClrText
" ":" "
Locate 1,1,"Generateur de"
Locate 1,2,"labyrinthe"
"Lignes "?ŽL
"Colonnes "?ŽC
L<2 Or C<2ćStop
L>12ć12ŽL
C>25ć25ŽC
{L,C}ŽDim Mat L
Fill(.11,Mat L)
ClrText
1ŽM~N
1ŽD~E
1ŽT
1.11ŽMat L[1,1]
Lbl 0
Int 4Ran#ŽA
AŽB
Lbl 1
MŽP:NŽQ
A=0ćN‰1ŽQ
A=1ćM™1ŽP
A=2ćN™1ŽQ
A=3ćM‰1ŽP
P<1 Or P>L Or Q<1 Or Q>CćGoto 2
Int Mat L[P,Q]=0ćGoto 3
Lbl 2
Isz A
A=4ć0ŽA
A=BćGoto 4
Goto 1
Lbl 3
Isz T
Locate 1,1,Int (100T¹(CL))
If A=0
Then Mat L[M,N]™.1ŽMat L[M,N]
1.11ŽMat L[P,Q]
IfEnd
A=1ć1.1ŽMat L[P,Q]
A=2ć1.01ŽMat L[P,Q]
If A=3
Then Mat L[M,N]™.01ŽMat L[M,N]
1.11ŽMat L[P,Q]
IfEnd
PŽM:QŽN
T=CLćGoto Z
Goto 0
Lbl 4
DŽF:EŽG
Lbl 5
G‰1ŽG
If G=C‰1
Then 1ŽG
F‰1ŽF
IfEnd
Int Mat L[F,G]=1ćGoto 5
FŽD:GŽE
Int 4Ran#ŽA
Lbl 6
Isz A:A=4ć0ŽA
A=0ćG=Cć1ŽA
A=1ćF=1ć2ŽA
A=2ćG=1ć3ŽA
A=3ćF=Lć0ŽA
A=0ćG=Cć1ŽA
FŽH:GŽI
A=0ćG‰1ŽI
A=1ćF™1ŽH
A=2ćG™1ŽI
A=3ćF‰1ŽH
Int Mat L[H,I]=0ćGoto 6
A=0ć1.01ŽMat L[F,G]
If A=1
Then Mat L[H,I]™.01ŽMat L[H,I]
1.11ŽMat L[F,G]
IfEnd
If A=2
Then 1.11ŽMat L[F,G]
Mat L[H,I]™.1ŽMat L[H,I]
IfEnd
A=3ć1.1ŽMat L[F,G]
Isz T
FŽM:GŽN
TįCLćGoto 0
Lbl Z
Prog "DES"