%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:866
File Name:  FF7
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
SIMSOFT(A)HOTMAIL\ab/cCOM
1\->\r:2\->D~O:3\->N:4\->S~U:5\->M:6\->I~Y:7\->A~Q:8\->C:9\->P~R:10\->E~F
\AxesOff
\LabelOff
CREER-ET-PROGRAMMER--PAR-SIMON-EYRAUD-SUR-UNE-IDEE-ORIGINAL-DE-NICOLAS-SAINTE-ROSE--SIMSOFT-EST-UNE------MARQUE(C)
\Ans\->X
9\->U
\GridOff
\CoordOff
55\->A
\Prog "DIVER"
0\->U
[[0,0,0,0,0,0,0,0,0,0][\r,1,Q,1,1,1,1,1,1,1][10,0,0,0,0,0,0,0,0,0][50,50,400,\r,5,2,2,2,2,0]]\->\Mat G
1\->N
6\->\theta
\If S>0:\Then S=1\=>\Mat H\->\Mat G
S=2\=>\Mat I\->\Mat G
\Mat G[1,10]\->N
0\->S
\IfEnd
\Lbl 9
\Prog "EDITEUR"
\Lbl 1
1\->\theta
\Int (\Ran#*\Mat G[2,3])\->V
\Prog "VERIF 1"
\RclPict 1
\Text B,A,"\theta"
1=U\=>\Goto9
\Lbl 2
\Getkey\->Z
0\->\theta
Z=0\=>\Goto2
0\->U
Z=27\=>\GotoA
Z=38\=>\GotoB
Z=28\=>\GotoC
Z=37\=>\GotoD
Z=48\=>\Prog "MENU 2"
\If Z=31:\Then 1\->K
\Prog "VERIF 1"
0\->K
\IfEnd
\Goto2
\Lbl A
\If L<11:\Then \If \Mat F[L+1,C]\<>1:\Then \Text B,A," "
A+10\->A
L+1\->L
\IfEnd
\IfEnd
\Goto1
\Lbl B
\If L>1:\Then \If \Mat F[L-1,C]\<>1:\Then \Text B,A," "
A-10\->A
L-1\->L
\IfEnd
\IfEnd
\Goto1
\Lbl C
\If C<6:\Then \If \Mat F[L,C]=3\ And \Mat F[L,C+1]\<>1\ Or \Mat F[L,C]=51:\Then \Text B,A," "
C+1\->C
B-10\->B
\IfEnd
\IfEnd
\Goto1
\Lbl D
\If C>1:\Then \If \Mat F[L,C]=3\ And \Mat F[L,C-1]\<>1\ Or \Mat F[L,C-1]=3\ Or \Mat F[L,-1+C]=51:\Then \Text B,A," "
C-1\->C
B+10\->B
\IfEnd
\IfEnd
\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1088
File Name:CLAD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P=POSITION
\If 0=P
\Then \F-Line A+15,B,A+19,B
\F-Line A+19,B,A+20,B+5
\F-Line A+21,B+5,A+21,B+7
\F-Line A+21,B+7,A+21,B+5
\F-Line A+22,B+5,A+22,B+2
\F-Line A+21,B+1,A+21,B
\F-Line A+22,B,A+25,B
\F-Line A+25,B,A+25,B+4
\F-Line A+24,B+5,A+22,B+10
\F-Line A+22,B+10,A+21,B+18
\F-Line A+21,B+18,A+23,B+20
\F-Line A+24,B+21,A+24,B+26
\F-Line A+24,B+26,A+22,B+27
\F-Line A+22,B+27,A+20,B+27
\F-Line A+19,B+26,A+19,B+24
\F-Line A+18,B+24,A+18,B+21
\F-Line A+19,B+20,A+20,B+18
\F-Line A+20,B+17,A+20,B+15
\F-Line A+15,B+1,A+16,B+2
\F-Line A+16,B+2,A+17,B+5
\F-Line A+17,B+6,A+20,B+9
\F-Line A+20,B+9,A+20,B+12
V=777\=>\Text 30,40,"FOLIE 777"
\StoPict 1
\Return
\IfEnd
\Cls
\RclPict 1
\If P=1
\Then \F-Line A+20,B+15,A+18,B+13
\F-Line A+13,B+11,A+17,B+15
\F-Line A+14,B+12,A+5,B+21
\F-Line A+16,B+14,A+7,B+23
\F-Line A+7,B+23,A+5,B+23
\F-Line A+5,B+23,A+5,B+21
\F-Line A+20,B+13,A+17,B+12
\F-Line A+16,B+12,A+17,B+13
\PlotOn A+16,B+13
\IfEnd
\If P=2:\Then \F-Line A+19,B+13,A+16,B+13
\F-Line A+19,B+15,A+16,B+15
\PlotOn A+15,B+16
\PlotOn A+15,B+12
\IfEnd
\If P=3:\Then \F-Line 20+A,B+15,A+16,B+15
\F-Line A+16,B+16,A+9,B+23
\F-Line A+9,B+23,A+9,B+24
\F-Line A+8,B+25,A+7,B+25
\F-Line A+6,B+24,A+6,B+23
\F-Line A+7,22+B,A+8,B+22
\F-Line A+8,B+22,A+15,B+15
\F-Line A+15,B+14,A+19,B+13
\IfEnd
\If P=4:\Then \F-Line A+20,B+15,A+17,B+14
\F-Line A+19,B+13,A+17,B+14
\F-Line A+16,B+12,A+16,B+16
\F-Line A+15,B+15,A+3,B+15
\PlotOn A+2,B+14
\F-Line A+3,B+13,A+15,B+13
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:188
File Name:CLE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If D>200\ And D<300
\Then \ClrText
"ALLER AU TABLEAU N\Deg>          [O\slashN]"
\Locate 20,1,D-200
\For 1\->T \To 2
1\->T
\Getkey\->Z
Z=54\ Or Z=64\=>2\->T
\Next 
\If Z=54:\Then D-200\->N
1\->\theta
\Prog "EDITEUR"
\IfEnd
\If Z=64:\Then \ClrText
\ClrText
\Cls
\RclPict 1
\Text B,A,"\theta"
\Return
0\->U
\IfEnd
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3275
File Name:COMBAT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
4\->N
N=5\ And D\<>1001\=>\Return
D=1001\=>2\->\Mat F[L,C]
\ClrGraph
\For 1\->T \To 20
\Getkey=71\=>55\->A
\Next 
\ViewWindow 1,127,1,1,63,1
\Cls
1\->J
0\->K
\Mat G[4,1]\->M
\Mat G[4,2]\->\theta
\Mat G[4,4]\->E
\If M>\theta:\Then \theta\->M
\theta\->\Mat G[4,1]
\IfEnd
100\->S
1001=D\ And N=5\=>1000\->S
\Horizontal 10
\Text 57,1,"COUPS:[MENU]"
\Getkey=75\=>\GotoF
\For 52\->T \To 53
\F-Line T,10,T,1
\Next 
\Mat G[4,3]\->V
\Text 57,55,"MP:   \slash"
\Text 57,68,M
\Text 57,84,\theta
\F-Line 96,10,96,1
\Text 57,100,"HP:"
\Text 57,111,V
0\->P
0\->X
1\->A
1\->B
\Prog "MONSTRE"
80\->A
12\->B
0\->P
\Prog "CLAD"
1\->P
\Prog "CLAD"
\Goto1
\Lbl 3
\Cls
\RclPict 1
S-W\->S
\Text 57,68,"   "
\Text 57,68,M
\Text 57,111,"     "
\Text 57,111,V
\StoPict 1
1\->P
\Prog "CLAD"
\Text 40,40,-W
\For 1\->T \To 600
\Next 
\Text 40,40,"        "
\Goto1
\Lbl 4
1=K\=>\GotoA
1\->J
2\->I
O=2\ Or O=4\=>3\->I
\Int (\Ran#*I+10)\->C
O=12\=>55\->C
\Prog "COUPS"
C=10\=>V-\Int (\Ran#*10+10)*\Mat G[4,4]\->V
\Cls
\RclPict 1
\Text 57,111,"    "
\Text 57,111,V
\Text 57,68,"   "
\Text 57,68,M
\StoPict 1
1\->P
\Prog "CLAD"
11=C\=>\Goto3
\Lbl 1
\Getkey\->Z
S<0\=>\GotoF
V<0\=>\GotoF
J=2\=>\Goto4
Z=71\=>M+2\->M
Z=61\=>V+10\->V
Z=51\=>E+1\->E
Z=79\=>777\->V
V=777\=>\Goto2
Z=72\=>\Text 20,60,S
48=Z\=>\Goto2
\Goto1
\Lbl 2
\If V=777:\Then 1\->K
\GotoA
\IfEnd
\For 16\->G \To 46 \Step 5
\Text G,10,"               "
\Next 
\F-Line 10,53,80,53
\F-Line 80,53,80,13
\F-Line 80,13,10,13
\F-Line 10,13,10,53
\Text 13,12,"ATTAQUER:[A]"
\Text 21,12,"MAGIE:[M]"
\Text 29,12,"INVOCATION:[I]"
\Text 37,12,"OBJET:[O]"
0\->W
\Lbl P
\Getkey\->Z
Z\<>0\=>\GotoQ
\GotoP
\Lbl Q
Z=76\=>\GotoA
Z=74\=>\GotoB
Z=55\=>\GotoC
Z=54\=>\GotoD
\Goto2
\Lbl D
\For 13\->G \To 43 \Step 5
\Text G,11,"                 "
\Next 
\Text 14,12,"POTION:    \->[P]"
\Text 14,41,\Mat G[4,6]
\Text 24,12,"ETHER:   \->[E]"
\Text 24,36,\Mat G[4,8]
\Text 34,12,"SUPERPOTION:  \->[S]"
\Text 34,61,\Mat G[4,7]
\Text 44,12,"X-ETHER:    \->[X]"
\Text 44,45,\Mat G[4,9]
\For 1\->T \To 9
1\->T
\Getkey\->Z
Z\<>0\=>9\->T
\Next 
\If Z=43\ And \Mat G[4,7]>0:\Then \Mat G[4,7]-1\->\Mat G[4,7]
V+100*\Mat G[4,4]\->V
0\->W
2\->J
\Goto3
\IfEnd
\If Z=36\ And \Mat G[4,8]>0:\Then \Mat G[4,8]-1\->\Mat G[4,8]
M+\Int (\Mat G[4,2]/2)\->M
M>\Mat G[4,2]\=>\Mat G[4,2]\->M
0\->W
2\->J
\Goto3
\IfEnd
\If Z=42\ And \Mat G[4,9]>0:\Then \Mat G[4,9]-1\->\Mat G[4,9]
\Mat G[4,2]\->M
0\->W
2\->J
\Goto3
\IfEnd
\If Z=73\ And \Mat G[4,6]>0:\Then \Mat G[4,6]-1\->\Mat G[4,6]
V+50\->V
2\->J
0\->W
\Goto3
\IfEnd
\Goto2
\Lbl B
\For 13\->G \To 43 \Step 5
\Text G,11,"                "
\Next 
\Text 13,12,"FEU\->5 MP     [F]"
\Text 20,12,"ECLAIR\->6 MP [E]"
\Text 27,12,"VIE\->6 MP     [V]"
\Text 34,12,"ULTIMA\->20 MP [U]"
\For 1\->T \To 2
1\->T
\Getkey\->Z
Z\<>0\=>2\->T
\Next 
\If Z=62\ And M>6:\Then 5\->C
VIE
80\->S
14\->H
\Prog "COUPS"
2\->J
M-6\->M
E*100+V\->V
0\->W
\Goto3
\IfEnd
\If Z=26\ And M>5:\Then 4\->C
FEU
S-20\->S
\Prog "COUPS"
2\->J
M-5\->M
E*30\->W
\Goto3
\IfEnd
\If Z=72\ And M>19:\Then 3\->C
ULTIMA
\Prog "COUPS"
\For 1\->T \To 300
\Next 
\Cls
\RclPict 1
1\->P
\Prog "CLAD"
2\->J
M-20\->M
E*90\->W
\Goto3
\IfEnd
\If Z=36\ And M>6:\Then 2\->C
ECLAIR
\Cls
\RclPict 1
3\->P
\Prog "CLAD"
-10\->A
14\->B
\Prog "COUPS"
\For 1\->T \To 300
\Next 
\Cls
\RclPict 1
1\->P
80\->A
12\->B
2\->J
M-6\->M
30*E\->W
2\->J
\Goto3
\IfEnd
\Goto2
\Lbl A
\Cls
\RclPict 1
20\->A
0\->P
\For 17\->T \To 47 \Step 5
\Text T,80,"                    "
\Next 
\Prog "CLAD"
1\->P
\Prog "CLAD"
\Cls
\RclPict 1
4\->P
\Prog "CLAD"
\For 1\->T \To 200
\Next 
\Cls
\RclPict 1
\For 25\->T \To 47 \Step 2
\Text T,35,"              "
\Next 
80\->A
0\->P
\Prog "CLAD"
2\->J
15*E\->W
\Goto3
\IfEnd
\Goto2
\Lbl C
\Text 13,12,"THOR \->25MP [T]"
20\->G
\For 1\->T \To 5
\Text G,12,"               "
G+6\->G
\Next 
\For 1\->T \To 2
1\->T
\Getkey\->Z
Z\<>0\=>2\->T
\Next 
\If Z=33\ And M>24:\Then \Cls
THOR
\RclPict 1
\For 17\->T \To 47 \Step 5
\Text T,90,"                 "
\Next 
\For 10\->T \To 40
\F-Line 61,T,65,T
\Next 
\Circle 63,50,10
\For 1\->T \To 75
\Int (\Ran#*50+10)\->G
\Int (\Ran#*126+1)\->H
\F-Line 63,50,H,G
\Next 
\For 1\->T \To 500
\Next 
M-25\->M
E*150\->W
2\->J
\Goto3
\IfEnd
\Goto2
\Lbl F
\Graph Y>=10
\Cls
V\<=0\=>\GotoG
O=4\=>\GotoX
\Mat G[4,5]-1\->D
D\->\Mat G[4,5]
\If D=0:\Then 5\->\Mat G[4,5]
\Mat G[4,4]+1\->\Mat G[4,4]
\IfEnd
\Text 10,1,"NIVEAU:"
\Text 10,31,\Mat G[4,4]
\Text 20,1,"PROCHAIN NIVEAU DANS    COMBAT"
\Text 20,91,\Mat G[4,5]
\Text 30,1,"MP MAX +"
O=1\=>9\->P
O=2\=>5\->P
\Text 30,37,P
\Mat G[4,2]+P\->\Mat G[4,2]
\Text 40,1,"OBJET RECU:"
\Int (\Ran#*7+1)\->R
R=5\=>1\->R
\If R=1:\Then \Text 40,45,"POTION"
\Mat G[4,6]+1\->\Mat G[4,6]
\IfEnd
\If R=2:\Then \Text 40,45,"SUPER POTION"
\Mat G[4,7]+1\->\Mat G[4,7]
\IfEnd
\If R=3:\Then \Text 40,45,"ETHER"
\Mat G[4,8]+1\->\Mat G[4,8]
\IfEnd
\If R=4:\Then \Text 40,45,"X-ETHER"
\Mat G[4,9]+1\->\Mat G[4,9]
\IfEnd
R>4\=>\Text 40,45,"AUCUN"
\Text 57,53,"[EXE]"
\For 1\->T \To 2
1\->T
\Getkey\=>2\->T
\Next 
V=777\=>1\->V
V\->\Mat G[4,3]
M\->\Mat G[4,1]
\Return
\Lbl G
\Text 30,46,"GAME OVER"
\Stop
\Stop
\Lbl X
\Cls
"FIN!"
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1868
File Name:COUPS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If C=55:\Then 40\->G
44\->H
\For 40\->Q \To 95 \Step 4
\cos Q*Q+14\->R
\F-Line G,H,Q,R
R\->H
Q\->G
\Next 
0\->W
1\->J
V-30\->V
\For 1\->T \To 18
\F-Line 95,11,\Ran#*30+80,\Ran#*15+10
\Next 
\For 1\->T \To 600
\Next 
\IfEnd
\If C=2:\Then \F-Line A+25,B+49,A+30,B+39
\F-Line A+30,B+39,A+21,B+25
\F-Line A+22,B+27,A+34,B+20
\F-Line A+27,B+35,A+37,B+29
\F-Line A+29,B+23,A+22,B+16
\F-Line A+26,B+20,A+37,B+9
\F-Line A+22,B+16,A+14,B+5
\F-Line A+22,B+16,A+30,B+4
\IfEnd
\If C=3:\Then \Cls
3\->P
\Prog "CLAD"
1\->H
19\->Q
\For 18\->G \To 33 \Step H
H+0.2\->H
Q-H\->Q
\F-Line G,63,G,11
\F-Line Q,63,Q,11
\Next 
\IfEnd
\If C=4:\Then \Cls
\RclPict 1
2\->P
\Prog "CLAD"
\For 94\->F \To 25 \Step -2
\F-Line F,26,F-3,26
\F-Line F-2,25,F-2,27
\Next 
\For 1\->T \To 20
\Int (\Ran#*20+5)\->G
\Int (\Ran#*30+10)\->H
\Int (\Ran#*20+5)\->I
\Int (\Ran#*30+10)\->J
\F-Line G,H,I,J
\Next 
\For 1\->T \To 400
\Next 
\IfEnd
\If C=5:\Then \Cls
\RclPict 1
3\->P
\Prog "CLAD"
\For 1\->T \To 30
\Int (\Ran#*30)\->G
\Int (\Ran#*30)\->R
\PlotOn S+G,R+H
\Next 
\For 1\->T \To 300
\Next 
\IfEnd
\If C=10\ And O\<>4:\Then \Cls
\RclPict 1
1\->P
\Prog "CLAD"
\F-Line 19,45,95,12
\For 1\->T \To 20
\Int (\Ran#*40+70)\->Q
\Int (\Ran#*30+10)\->R
\F-Line 95,12,Q,R
\Next 
\For 1\->T \To 300
\Next 
\IfEnd
\If C=11\ And O=1:\Then \For 45\->T \To 63 \Step 2
\F-Line 19,45,19,T
\Next 
\For 63\->T \To 30 \Step -3
\F-Line 95,63,95,T
\F-Line 99,63,99,T
\F-Line 103,63,103,T
\Next 
\Circle 99,20,10
\For 99\->T \To 19 \Step -5
\F-Line 99,20,T,20
\Next 
\Int (-V/5)\->W
\Int (V-V/5)\->V
\IfEnd
\If C=11\ And O=2:\Then \For 17\->T \To 47 \Step 5
\Text T,1,"              "
\Next 
40\->A
1\->B
1\->X
\Prog "MONSTRE"
\Circle 58,29,5
\For 1\->T \To 90
\Int (\Ran#*126+1)\->I
\Int (\Ran#*53+10)\->K
\F-Line 58,29,I,K
\Next 
1000\->W
\Int (V/3)\->V
80\->A
12\->B
\IfEnd
\If C=12\ And O=2:\Then \Circle 20,29,5
180\->G
14\->I
\For 1\->H \To 300 \Step 10
G+3\->G
I+3\->I
\F-Line I+5*\cos H,29+5*\sin H,I+\cos G,29+\sin G
\Next 
\For 1\->T \To 30
\F-Line \Ran#*30+90,\Ran#*40+10,\Ran#*30+90,\Ran#*40+10
\Next 
V-150\->V
\For 1\->T \To 300
\Next 
\IfEnd
\If O=4\ And C=10:\Then A\->Q
B\->F
3\->P
\For 7\->K \To 47 \Step 5
\Text K,3,"            "
\Next 
70\->A
9\->B
0\->H
\Prog "SEPHIROT"
\For 1\->S \To 300
\Next 
V-\Int (\Ran#*20+50)\->V
Q\->A
F\->B
\Return
\IfEnd
\If O=4\ And C=11:\Then \For 7\->G \To 47 \Step 5
\Text G,3,"                "
\Next 
1\->P
A\->Q
B\->F
3\->A
9\->B
\Prog "SEPHIROT"
4\->P
\Prog "SEPHIROT"
0\->H
0\->I
\For 16\->G \To 105 \Step 2
\F-Line G,B+16,G+2,B+18
\F-Line G,B+16+H,G,B+16-I
B+16+H<63\=>H+0.5\->H
B+16-I>10\=>I+0.5\->I
\Next 
0\->W
Q\->A
F\->B
V-\Int (\Ran#*100+1)\->V
\IfEnd
\If C=12\ And O=4:\Then \For 7\->G \To 47 \Step 5
\Text G,3,"          "
\Next 
A\->Q
B\->F
3\->A
9\->B
1\->P
\Prog "SEPHIROT"
4\->P
\Prog "SEPHIROT"
\For 16\->A \To 100 \Step 2
\F-Line A,B+16,A+2,B+16
\Next 
\For 100\->A \To 16 \Step -4
\F-Line A,B+17,A-2,B+17
\F-Line A,B+15,A-2,B+15
\Next 
11\->C
Q\->A
F\->B
-50\->W
V-50\->V
M>5\=>M-5\->M
\Return
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:605
File Name:DIVER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Ans\->M
\If 55=A:\Then " "
\GotoX
\Lbl Y
\Prog "DIVER 2"
\ViewWindow 1,127,1,1,63,1
\Cls
0\->A
\For 1\->H \To 2
\F-Line A+5,15,A+25,55
\Getkey\=>\Goto0
\F-Line A+25,55,A+50,55
\F-Line A+50,55,A+43,41
\F-Line A+42,41,A+30,41
\F-Line A+29,41,A+26,33
\F-Line A+26,33,A+33,33
\F-Line A+33,33,A+30,27
\Getkey\=>\Goto0
\F-Line A+30,27,A+24,27
\F-Line A+24,27,A+18,15
\F-Line A+18,15,A+5,15
30\->A
\Next 
\Getkey\=>\Goto0
\F-Line 84,55,115,55
\F-Line 115,55,95,15
\F-Line 95,15,82,15
\F-Line 82,15,95,40
\F-Line 95,41,77,41
\F-Line 77,41,84,55
\Getkey\=>\Goto0
\Text 54,60,"FINAL FANTASY 7"
\F-Line 59,4,121,4
\GotoW
\Lbl X
\If M\<>-1108521506:\Then \Locate 1,1,"TU N'AURAIS PAS DU"
\Locate 1,2,"EFFACE MON NOM.TU "
\Locate 1,3,"N'A PLUS QU'A FAIRE "
\Locate 1,4,"RESET"
\Lbl O
1\->A
\Do
\Break
\GotoO
\IfEnd
0\->K
1\->N
1\->\theta
1\->U
\GotoY
\Lbl W
\For 1\->A \To 2
1\->A
\Getkey\=>2\->A
\Next 
\IfEnd
\Lbl 0
\Prog "MENU"
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:709
File Name:DIVER 2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If 55=A:\Then \Cls
\ViewWindow 1,127,1,1,63,1
0\->A
\For 1\->C \To 2
\F-Line 10,25,35,25
\F-Line A+35,25,A+50,40
\Getkey\=>\Return
\F-Line 50,40,90,40
\If C=1:\Then \For 36\->B \To 44
\F-Line 90,40,83,B
\Next 
\IfEnd
\F-Line A+45,25,A+57,37
\Getkey\=>\Return
\F-Line A+55,25,A+67,37
\F-Line A+67,37,A+60,25
\F-Line A+60,25,A+77,37
\F-Line A+77,37,A+65,25
\Getkey\=>\Return
A+1\->A
\Next 
\F-Line 85,25,90,25
\F-Line 90,25,90,30
\F-Line 90,30,85,30
\F-Line 85,30,85,35
\F-Line 85,35,90,35
\Getkey\=>\Return
\F-Line 92,25,98,25
\F-Line 98,25,98,35
\F-Line 98,35,92,35
\F-Line 92,35,92,25
\F-Line 100,25,100,35
\F-Line 100,35,105,35
\F-Line 100,30,102,30
\Getkey\=>\Return
\F-Line 107,35,113,35
\F-Line 110,35,110,25
\F-Line 118,38,116,38
\F-Line 116,38,116,36
\F-Line 116,36,118,36
\F-Line 7,22,121,22
\Getkey\=>\Return
\F-Line 121,22,121,46
\F-Line 121,46,7,46
\F-Line 7,46,7,22
125\->B
\For 7\->T \To 121 \Step 4
\Getkey\=>\Return
B-4\->B
\F-Line 63,63,T,46
\F-Line 63,5,B,22
\Next 
50\->B
\For 22\->T \To 46 \Step 4
\Getkey\=>\Return
B-4\->B
\F-Line 2,34,7,T
\F-Line 126,34,121,B
\Next 
\StoPict 1
\For 1\->A \To 350
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1187
File Name:EDITEUR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
V\<>25\=>\Prog "NIVEAUX"
\Cls
\ViewWindow 1,127,1,1,63,1
\Text 10,114,"TAB:"
\Text 17,119,N
\Vertical 111
\Vertical 112
\For 62\->I \To 63
\F-Line 111,I,1,I
\Next 
\Horizontal 1
-9\->A
-9\->B
56\->G
\For 1\->C \To 6
B+10\->B
G-10\->G
\For 1\->L \To 11
A+10\->A
A
\Mat F[L,C]\->D
\Int (D/100)\->I
D-(I*100)\->I
0=D\=>\GotoN
\If D=9\ Or D=52:\Then \F-Line A,B,A+9,B
\F-Line A+1,B+2,A+2,B+1
\PlotOn A+3,B+2
\F-Line A+6,B+2,A+7,B+1
\PlotOn A+8,B+2
D=52\=>\PlotOn A+6,B+1
\IfEnd
\If D=15\ Or D=16:\Then \F-Line A,B,A+9,B
\F-Line A+2,B+2,A+7,B+2
\F-Line A+8,B+3,A+8,B+4
\F-Line A+7,B+5,A+6,B+5
\F-Line A+5,B+6,A+5,B+7
\F-Line A+6,B+8,A+3,B+8
\F-Line A+4,B+7,A+4,B+6
\F-Line A+3,B+5,A+2,B+5
\F-Line A+1,B+4,A+1,B+3
\IfEnd
\If I>0\ And I<4\ And D>100000:\Then \F-Line A,B,A+9,B
\F-Line A+3,B,A+7,B+5
\F-Line A+6,B+5,A+7,B+4
\IfEnd
\If D=11:\Then \F-Line A,B,A+9,B
\F-Line A+1,B+1,A+8,B+3
\F-Line A+8,B+1,A+1,B+3
\IfEnd
\If D=1:\Then \F-Line A,B,A+9,B
\F-Line A+3,B+1,A+4,B+7
\F-Line A+2,B+6,A+6,B+6
\F-Line A+1,B+8,A+3,B+8
\PlotOn A,B+7
\F-Line A+5,B+8,A+7,B+8
\F-Line A+1,B+4,A+1,B+5
\F-Line A+7,B+5,A+7,B+4
\PlotOn A+8,B+7
\IfEnd
\If D>1000000\ And I=0:\Then \Text 58-B,A+3,"?"
\F-Line A,B,A+9,B
\IfEnd
\If D=2\ Or I=5:\Then \F-Line A,B,A+9,B
0\->I
\IfEnd
\If D=3:\Then \F-Line A,B,A+9,B
\F-Line A+2,B,A+2,B+9
\F-Line A+7,B,A+7,B+9
\For B\->G \To B+9 \Step 2
\F-Line A+2,G,A+7,G
\Next 
\IfEnd
\If D>1000\ And D<2000:\Then \F-Line A,B,A+9,B
\F-Line A+3,B+1,A+5,B+7
\F-Line A+5,B+1,A+3,B+7
\F-Line A+5,B+7,A+3,B+7
\F-Line A+3,B+4,A+5,B+4
\IfEnd
\If D>100\ And D<300:\Then \F-Line A,B,A+9,B
\For A+3\->G \To A+7
\F-Line G,B,G,B+7
\Next 
\PlotOff A+6,B+4
\IfEnd
\Lbl N
\Next 
-9\->A
56\->G
\Next 
\StoPict 1
1\->C
1\->L
57\->B
5\->A
0\->U
0\->\theta
0\->X
25\<>V\ And V\<>50\ And V\<>75\ And V\<>100\=>\Text B,A,"\theta"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:20
File Name:M
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
[[0]]\->\Mat A
\Mat->List\Mat A,1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:657
File Name:MENU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->L
\Cls
0\->S
\F-Line 15,52,110,52
\F-Line 110,52,110,15
\F-Line 110,15,15,15
\F-Line 15,15,15,52
\Text 10,53,"MENU"
\Text 25,32,"-NOUVELLE PARTIE"
\Text 35,32,"-SAUVEGARDE"
25\->A
\Lbl 1
\Text A,25,"\->"
\Lbl 2
\Getkey\->Z
Z=0\=>\Goto2
\If 37=Z\ And A=25:\Then \Text A,20,"   "
A+10\->A
\Goto1
\IfEnd
\If 28=Z\ And A=35:\Then \Text A,20,"   "
A-10\->A
\Goto1
\IfEnd
31=Z\=>\Goto3
\Goto2
\Lbl 3
\If A=25:\Then \ClrText
\Locate 5,2,"PERSONNAGE:"
\Locate 5,3,"\Dms\Dms\Dms\Dms\Dms\Dms\Dms\Dms\Dms\Dms\Dms"
\Locate 2,4,"-CLAD........\->[C]"
\Locate 2,5,"-YOUFIE......\->[Y]"
\Locate 4,7,"ANNULER:[DEL]"
\Lbl A
\Getkey\->Z
Z=0\=>\GotoA
\If Z=44:\Then \PlotOff 1,1
\Goto1
\IfEnd
\If Z=56:\Then 1\->\r
100\->Q
\Return
\IfEnd
\If Z=32:\Then 2\->\r
0\->Q
\Return
\IfEnd
\GotoA
\IfEnd
\If A=35:\Then \ClrText
"DANS QUELLE MEMOIRE  SE TROUVE VOTRE      PARTIE? (1\slash2)        ANNULER:[DEL]"
\Lbl Z
\Getkey\->Z
Z=0\=>\GotoZ
0\->\r
\If Z=72:\Then 1\->S
\Return
\IfEnd
\If Z=62:\Then 2\->S
\Return
\IfEnd
\If Z=44:\Then \PlotOff 1,1
\Goto1
\IfEnd
\GotoZ
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1485
File Name:MENU 2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Cls
\Horizontal 56
\F-Line 50,56,50,1
\Text 2,53,"MENU"
\Text 12,2,"PERSONNAGE:"
\Mat G[2,1]=2\=>\Text 18,6,"\(-)YOUFIE\(-)"
\Mat G[2,1]=1\=>\Text 18,11,"\(-)CLAD\(-)"
\F-Line 1,39,50,39
\Text 28,2,"HP:"
\Text 28,13,\Mat G[4,3]
\F-Line 1,30,50,30
\Text 37,2,"MP MAX:"
\Text 37,33,\Mat G[4,2]
\Text 44,2,"MP:"
\Text 44,15,\Mat G[4,1]
\F-Line 1,13,50,13
\Text 54,2,"TABLEAU:"
\Text 54,34,N
\Text 20,65,"-REVENIR"
\Text 30,65,"-SAUVEGARDER"
\Text 40,65,"-OBJETS"
\Text 50,65,"-QUITTER"
20\->E
\Lbl 1
\Text E,60,"\->"
\Lbl 2
\Getkey\->Z
Z=0\=>\Goto2
\If Z=28\ And E>20:\Then \Text E,53,"   "
E-10\->E
\Goto1
\IfEnd
\If Z=37\ And E<50:\Then \Text E,53,"   "
E+10\->E
\Goto1
\IfEnd
Z=31\=>\Goto3
\Goto2
\Lbl 3
\If E=20:\Then \Cls
\Text B,A,"\theta"
\RclPict 1
\Plot 1,1
\Return
\IfEnd
\If E=30:\Then " "
\Lbl 7
\ClrText
"SAUVEGARDER DANS QUELMEMOIRE? (1\slash2)       ANNULER:[DEL]"
\For 1\->T \To 2
1\->T
\Getkey\->Z
\If Z=44:\Then \ClrText
\PlotOff 1,1
\Goto1
\IfEnd
\If Z=72\ Or Z=62:\Then " "
N\->\Mat G[1,10]
Z=72\=>\Mat G\->\Mat H
Z=62\=>\Mat G\->\Mat I
\ClrText
\Locate 2,4,"PARTIE SAUVEGARDEE"
\For 1\->T \To 400
\Next 
\Lbl 8
\If E=50:\Then \Cls
\ClrText
[[0]]\->\Mat F
[[0]]\->\Mat G
\Stop
\IfEnd
\PlotOff 1,1
\Goto1
\IfEnd
\Next 
\IfEnd
\If E=50:\Then \ClrText
"QUITTER EN SAUVEGARD-ANT ?(O\slashN)
ANNULER:[DEL]"
\For 1\->T \To 2
1\->T
\Getkey\->Z
Z=54\=>\Goto7
Z=64\=>\Goto8
\If Z=44:\Then \ClrText
\PlotOff 1,1
\Goto1
\IfEnd
\Next 
\IfEnd
\If E=40:\Then \Cls
\Mat G[4,6]\->P
\Mat G[4,7]\->Q
\Mat G[4,8]\->R
\Mat G[4,9]\->S
\Text 3,10,"UTILISER:"
\Text 13,4,"-POTION:  \->.........[P]"
\Text 13,37,P
\Text 23,4,"-SUPERPOTION:  \->....[S]"
\Text 23,58,Q
\Text 33,4,"-ETHER:  \->..........[E]"
\Text 33,32,R
\Text 43,4,"-X\(-)ETHER:  \->........[X]"
\Text 43,40,S
\Text 57,37,"QUITTER:[DEL]"
\Lbl E
\Getkey\->Z
Z=0\=>\GotoE
\If Z=73\ And P>0:\Then 50*\Mat G[4,4]+\Mat G[4,3]\->\Mat G[4,3]
\Mat G[4,6]-1\->\Mat G[4,6]
\Goto0
\IfEnd
Z=44\=>\Goto0
\If Z=43\ And Q>0:\Then \Mat G[4,3]+100*\Mat G[4,4]\->\Mat G[4,3]
\Mat G[4,7]-1\->\Mat G[4,7]
\Goto0
\IfEnd
\If Z=36\ And R>0:\Then \Mat G[4,1]+20\->\Mat G[4,1]
\Mat G[4,8]-1\->\Mat G[4,8]
\Goto0
\IfEnd
\If Z=42\ And S>0:\Then \Mat G[4,2]\->\Mat G[4,1]
\Mat G[4,9]-1\->\Mat G[4,9]
\Goto0
\IfEnd
\GotoE

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:451
File Name:MONSTRE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If N=5\ And D=1001:\Then 4\->A
4\->O
9\->B
\For 1\->P \To 2
\Prog "SEPHIROT"
\Next 
\Return
\IfEnd
0=X\=>\Int (\Ran#*2+1)\->O
\Getkey=25\=>12\->O
\If O=1:\Then \F-Line 5,12,30,12
\F-Line 30,12,27,17
\F-Line 27,17,23,37
\F-Line 15,37,13,29
\F-Line 13,29,10,18
\F-Line 10,18,7,14
\F-Line 7,14,5,12
\PlotOn 17,32
\PlotOn 22,32
\F-Line 22,35,26,40
\F-Line 17,35,13,40
\F-Line 21,35,19,45
\F-Line 17,35,19,45
\IfEnd
\If O=2:\Then \F-Line A+5,B+20,A+30,B+20
\F-Line A+30,B+20,A+19,B+45
\F-Line A+19,B+45,A+5,B+20
\PlotOn A+18,B+38
\PlotOn A+20,B+38
\IfEnd
\If O=12:\Then \Circle 15,29,7
\F-Line 15,36,35,47
\F-Line 23,29,35,40
\F-Line 35,47,35,40
\F-Line 35,40,40,44
\F-Line 40,44,35,47
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2155
File Name:NIVEAUX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If \Mat G[2,1]=2:\Then N=1\=>[[0,11060000,51,51,51,206][2,2,52,0,0,2][3,2,1,2,0,1][1,1,11,0,0,0][10050000,06020002,1,1,1,2][0,2,11,0,0,06060002][0,2,1,1,08040001,2][10010000,2,9,0,0,2][1,2,0,0,1,2][0,1,1,1,2,2][202,0,9,0,0,2]]\->\Mat F
N=2\=>[[55060000,201,0,0,55060000,0][1,1,1,2,55060000,0][06020000,0,0,1,55060000,0][55060000,0,0,0,3,2][1,1,1,1,55060000,0][203,2,9,06040002,55060000,0][9,06020002,1,2,3,2][1,2,201,09040002,55060000,0][9,2,2,2,55060000,0][0,2,2,2,55060000,0][203,09020002,02040000,55060000,55060000,0]]\->\Mat F
N=3\=>[[0,2,0,10020002,9,06060001][0,2,0,02040002,9,02060002][0,2,03030002,2,9,10040002][0,202,10030002,2,9,2][0,1,3,2,1,2][3,3,2,1,9,0][0,2,1,1,1,2][1,3,2,1,3,2][0,2,3,2,2,1][11,2,2,2,0,0][9,09010003,1,05060000,204,1]]\->\Mat F
4=N\=>[[11,0,0,0,0,0][1,205,1,1,2,1][10040000,1,2,03040002,3,2][0,0,2,01030003,1,2][1,1,9,05040002,52,05060002][11050000,02050000,9,04030002,2,2][3,2,1,2,0,2][0,1,1,1,1,2][0,0,0,09040002,9,09060002][9,52,1,2,9,01020001][201,52,0,11040002,2,11060002]]\->\Mat F
\IfEnd
\If \Mat G[2,1]=1:\Then N=1\=>[[0,2,0,1,0,206][01030000,2,1,0,0,51][1,3,2,0,0,51][9,0,2,0,0,51][9,11060004,2,0,0,51][9,11060005,2,0,0,51][11550000,0,0,0,0,51][1,1,1,2,1,2][11550000,11550000,11550000,2,11550000,0][2,10060005,2,2,9060005,0][202,2,2,2,2,0]]\->\Mat F
N=2\=>[[06060000,2,2,0,3050002,1][1,2,2,2,2,0][3,2,2,9,2,2][2,2,2,9,2050002,1][2,2,0,1,2,1][2,1,1,1,1,2][2,0,0,0,2,0][1001,1,1,2,0,1][203,2,0,0,1,3060000][2,2,0,1,3,2][11,0,0,0,0,0]]\->\Mat F
N=3\=>[[55020000,0,2,2,0,0][55020000,0,6040003,2,1,2][55020000,0,05030000,2,0,2][55020000,0,1030003,3,3,2][3,3,2,2,1,1][1,1,1,2,2,204][3,3,2,2,0,0][55020000,0,2,2,3,2][55020000,0,3,2,2,6050003][55020000,0,1,2,2,11020001][11,0,0,0,0,0]]\->\Mat F
N=4\=>[[2,3,2,0,3,205][2,2,2,2,9,1001][2,1,3060001,2,0,0][3,2,2,1,2,2][1,2,2,1,2,2][2,0,1,1,2,2][2,1,3,3,3,2][2,9,2,1,1,1][2,9,0,0,0,0][2,1,1,1,2,2][3,3,3,3,3,2]]\->\Mat F
\IfEnd
N=5\=>[[3,3,3,3,3,2][2,0,1,1,1,2][0,1,0,1,0,2][2,0,1,0,1,2][2,1,0,0,1,2][1,0,1,1,0,2][1001,1,1,1,1,2][0,1,2,0,0,2][8010000,0,0,0,0,2][1,1,1,2,1,2][1,1,1,2,0,0]]\->\Mat F
N=6\=>[[0,0,0,0,0,0][0,0,0,0,0,0][0,0,2,2,0,0][0,0,2,2,0,0][0,0,2,2,0,0][6060004,0,16,15,0,2][0,0,2,2,0,0][0,0,2,2,0,0][0,0,2,2,0,0][0,0,0,0,0,0][202,0,0,0,0,0]]\->\Mat F
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:784
File Name:SEPHIROT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->I
\Lbl 1
\If P=1:\Then I=1\=>3\->P
\F-Line A+5,B+3,A+9,B+3
\F-Line A+9,B+4,A+8,B+5
\F-Line A+7,B+5,A+9,B+10
\F-Line A+9,B+10,A+11,B+8
\F-Line A+11,B+8,A+11,B+3
\F-Line A+11,B+3,A+15,B+3
\F-Line A+15,B+3,A+15,B+4
\PlotOn A+14,B+5
\F-Line A+13,B+5,A+12,B+12
\F-Line A+12,B+12,A+7,B+12
\F-Line A+7,B+12,A+5,B+7
\F-Line A+5,B+6,A+5,B+3
\F-Line A+6,B+13,A+6,B+21
\F-Line A+7,B+22,A+11,B+22
\F-Line A+12,B+21,A+12,B+12
\F-Line A+8,B+20,A+8,B+16
\F-Line A+9,B+15,A+14,B+15
\F-Line A+8,B+20,A+10,B+20
\F-Line A+10,B+19,A+10,B+17
\F-Line A+10,B+17,A+14,B+17
\PlotOff A+12,B+16
\F-Line A+8,B+23,A+10,B+23
\F-Line A+11,B+24,A+11,B+28
\F-Line A+10,B+29,A+8,B+29
\F-Line A+7,B+28,A+7,B+24
\PlotOn A+10,B+27
\IfEnd
\If 2=P:\Then \F-Line A+15,B+14,A+14,B+19
\F-Line A+15,B+15,A+32,B+32
\F-Line A+14,B+17,A+34,B+37
\F-Line A+34,B+37,A+32,B+32
\IfEnd
\If 3=P:\Then I=0\=>1\->P
I+1\->I
I=1\=>\Goto1
\F-Line A+14,B+14,A+14,B+18
\F-Line A+14,B+15,A+34,B+15
\F-Line A+14,B+17,A+38,B+17
\F-Line A+34,B+15,A+38,B+17
\IfEnd
\If P=4:\Then \PlotOn A+15,B+18
\PlotOn A+15,B+14
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1418
File Name:VERIF 1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->F
99=D\=>\GotoO
\Lbl 1
\Mat F[L,C]\->D
\Lbl O
2=D\ Or D=3\=>\Return
\If D=11\ And C<6:\Then \For C\->G \To 6
\RclPict 1
\If C<6:\Then \If \Mat F[L,C+1]=0:\Then \For B\->H \To B-10 \Step -5
\Text H,A,"\theta"
\Text H,A," "
\Next 
B-10\->B
C+1\->C
\IfEnd
\IfEnd
\Next 
0\->F
\Mat F[L,C]\->D
\IfEnd
\If D=99:\Then \PxlTest 38,85:0\->A:\Ans+A\->A:\PxlTest 38,100:\Ans+A\->A:\PxlTest 27,116:\Ans+A\->A:\PxlTest 38,35:\Ans+A\->A:\Return
\IfEnd
\If D=15\ Or D=16:\Then \ClrText
D=15\=>"HP+600"
D=16\=>"MP+100"
D=15\=>\Mat G[4,3]+600\->\Mat G[4,3]
D=16\=>\Mat G[4,2]+100\->\Mat G[4,2]
2\->\Mat F[L,C]
\For 1\->T \To 2
1\->T
\Getkey\=>2\->T
\Next 
\PlotOn 1,1
\IfEnd
\If D>100\ And D<300\ And \theta=0:\Then \Prog "CLE"
\Return
\IfEnd
\Lbl G
\If D>1000000:\Then \Int (D/1000000)\->G
D-\Int (G*1000000)\->H
H/10000\->H
\Int (H)\->H
0\->F
\Int (G)\->G
\Text B,A," "
\Int (D/100)\->I
D-(I*100)\->I
\If G=55\ Or H=55:\Then G=55\=>\Int (\Ran#*10+1)\->G
H=55\=>\Int (\Ran#*5+1)\->H
\Mat F[G,H]=1\=>\GotoG
\IfEnd
I>1\ And 0=\theta\=>\Prog "VERIF 2"
\If I=0\ Or I=4:\Then G\->L
H\->C
L*10-5\->A
57-(C*10-10)\->B
\Text B,A,"\theta"
\Mat F[L,C]\->D
\IfEnd
\If I=1\ And \theta=0\ Or \theta=0\ And I=5:\Then \F-Line G*10-9,H*10-9,G*10,H*10-9
2\->\Mat F[G,H]
\Prog "VERIF 2"
\RclPict 1
\StoPict 1
\Text B,A,"\theta"
\IfEnd
\Text B,A,"\theta"
\IfEnd
\If D=1001\ And K=1:\Then "CLAD"
\IfEnd
\If \theta=1:\Then \If V=25\ Or V=50\ Or V=7\ Or V=100\ Or D=1001\ Or D=1002:\Then N=5\ And D\<>1001\=>\GotoK
A\->\Mat G[1,1]
B\->\Mat G[1,2]
C\->\Mat G[1,3]
L\->\Mat G[1,4]
55\->A
\Prog "COMBAT"
\Prog "EDITEUR"
0\->F
\Mat G[1,1]\->A
\Mat G[1,2]\->B
\Mat G[1,3]\->C
\Mat G[1,4]\->L
\Lbl K
\IfEnd
\IfEnd
\If D=0\ And C>1\ And \theta=1:\Then \Mat F[L,C-1]\->\r
\If \r=0\ Or \r=2\ Or \r=11\ Or \r=52\ Or \r>100\ Or \r=9:\Then \If F>0:\Then \Getkey\->Z
\If Z=27\ And L<11\ And F>0:\Then \If \Mat F[L+1,C]\<>1:\Then \Text B,A," "
A+10\->A
0\->P
L+1\->L
\Text B,A,"\theta"
\Goto1
\IfEnd
\Text B,A,"\theta"
\IfEnd
\If F>0\ And Z=38\ And L>1:\Then \If \Mat F[L-1,C]\<>1:\Then \Text B,A," "
L-1\->L
0\->P
A-10\->A
\Text B,A,"\theta"
\Goto1
\IfEnd
\IfEnd
\IfEnd
1\->P
\For B\->G \To B+10 \Step 5
\Text G,A,"\theta"
\Text G,A," "
\RclPict 1
\Next 
B+10\->B
C-1\->C
F+1\->F
\Goto1
\IfEnd
\IfEnd
\If F\>=3\ Or D=9:\Then \Text B+1,A,"\aster"
\RclPict 1
\ClrText
"ARGH!!"
\For 500\->A \To 1 \Step -1
\Next 
1\->U
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:304
File Name:VERIF 2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text B,A," "
\F-Line L*10-3,C*10-9,L*10-7,C*10-4
\F-Line L*10-6,C*10-4,L*10-7,C*10-5
\If I=2:\Then \For G*10-9\->Q \To G*10-1
\PlotOff Q,H*10-9
\Next 
0\->\Mat F[G,H]
\If G=L\ And H=C:\Then 0\->D
1\->\theta
\IfEnd
\IfEnd
\If I=3
\Then \F-Line G*10,H*10-9,G*10-9,H*10-9
\F-Line G*10-3,H*10-9,G*10-3,H*10
\F-Line G*10-7,H*10-9,G*10-7,H*10
\For H*10-9\->P \To H*10 \Step 2
\F-Line G*10-3,P,G*10-7,P
\Next 
3\->\Mat F[G,H]
\IfEnd
\StoPict 1
%End