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ãGoto N
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ÞÎ
0ÞX
25áVãText B,A,"Î"