%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1093
File Name:PATHFIND
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls:0\->A~Z:\AxesOff
\ViewWindow 1,127,1,1,63,1
\F-Line 34,55,94,55
\F-Line 94,55,94,10
\F-Line 94,10,34,10
\F-Line 34,10,34,55
{18,32}\->\Dim \Mat B
[[3,1,1,3,1,2,2,1][1,2,1,1,2,2,1,1][1,2,2,2,1,1,1,2][1,2,1,1,1,1,1,1][1,2,1,2,1,1,2,1][1,1,1,2,1,1,1,4]]\->\Mat A
\For 1\->A \To 6
\For 1\->B \To 8
\Mat A[A,B]=2\=>\Text 7A+5,7B+30,"#"
\If \Abs \Mat A[A,B]=3
\Then \Text 7A+5,7B+31,"0"
A+B/10\->\Mat B[1,1]
1\->\Mat B[1,32]
1\->O
\IfEnd
\Mat A[A,B]=4\=>\Text 7A+6,7B+31,"\Dms"
\Next :\Next 
\Text 1,1,"CASE VERIFIEE (Y.X)"
\Lbl D
0\->A
\For 1\->I \To O
\Mat B[I,31]=0\=>\Isz A
\Next 
A=0\=>\Text 33,1,"IMPASSE"
A=0\=>\Stop
\Do
O\->H
0\->M
\Do
\Do
\Isz M
\LpWhile \Mat B[M,31]=1
\Mat B[M,1]=0\=>\GotoD
\Mat B[M,32]\->N
\Mat B[M,N]\->L
0\->A
0\->W
\Text 8,20,L
0\->Z
\While 1
\Lbl A
\Isz Z
Z\>=5\=>\GotoC
0\->V~W
Z=1\=>\(-)1\->V
Z=2\=>1\->W
Z=3\=>1\->V
Z=4\=>\(-)1\->W
\Int L+V\<=0\ Or \Int L+V\>=7\ Or 10\Frac L+W\<=0\ Or 10\Frac L+W\>=9\=>\GotoA
\Mat A[\Int L+V,10\Frac L+W]=2\=>\GotoA
\Mat A[\Int L+V,10\Frac L+W]<0\=>\GotoA
\If \Mat B[M,N+1]\<>0
\Then \Isz O
\For 1\->C \To N
\Mat B[M,C]\->\Mat B[O,C]:\Mat B[O,32]+1\->\Mat B[O,32]
\Next 
L+V+W/10\->K
K\->\Mat B[O,N+1]
\Mat B[O,32]+1\->\Mat B[O,32]
O\->F
\Else L+V+W/10\->K
K\->\Mat B[M,N+1]
\Mat B[M,32]+1\->\Mat B[M,32]
M\->F
\IfEnd
\Isz A
\Int K>0\=>10\Frac K>0\=>\Abs \Mat A[\Int K,10\Frac K]=4\=>\GotoB
\(-)\Mat A[\Int K,10\Frac K]\->\Mat A[\Int K,10\Frac K]
\WhileEnd
\Lbl C
A=0\=>1\->\Mat B[M,31]
\LpWhile M<H
\LpWhile 1
\Lbl B
\Text 33,1,"TROUVE"
\Mat B[F,32]\->G
\For 1\->H \To G
\Int \Mat B[F,H]\->C
10\Frac \Mat B[F,H]\->D
\Abs \Mat A[C,D]=1\=>\Text 7C+5,7D+31,"0"
\Abs \Mat A[C,D]=4\=>\Text 7C+5,7D+31,"X"
\Next 
\Do:\Getkey
\LpWhile \Not \Ans
\Stop
=M=
%End