%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:768
File Name:KIT 01-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\ClrText:0\->A~Z:\AxesOff:\BG-None
\Horizontal 63
\Horizontal 62
\Horizontal 52
\Horizontal 51
\Horizontal 13
\Horizontal 12
\Horizontal 2
\Horizontal 1
\F-Line 1,51,1,63
\F-Line 127,51,127,63
\F-Line 1,1,1,12
\F-Line 127,1,127,12
\Text 5,40,"VOTRE TITRE"
\Text 55,71,"VOS CREDITS..."
\Text 20,10,"MENU 1"
\Text 30,10,"MENU 2"
\Text 40,10,"MENU 3"
\Text 20,55,"MENU 4"
\Text 30,55,"MENU 5"
\Text 40,55,"MENU 6"
\Text 20,5," "
1\->A
\Text 20,5,"-"
\Do:\Do
\Getkey\->M
\LpWhile M\<>37\ And M\<>27\ And M\<>38\ And M\<>28\ And M\<>31
A=1\=>\Text 20,5," "
A=2\=>\Text 30,5," "
A=3\=>\Text 40,5," "
A=4\=>\Text 20,50," "
A=5\=>\Text 30,50," "
A=6\=>\Text 40,50," "
M=37\=>\Isz A
\If M=27\ And (A=1\ Or A=2\ Or A=3)
\Then A=1\=>4\->A
A=2\=>5\->A
A=3\=>6\->A
\IfEnd
\If M=38\ And A\>=4\ And A\<=6
\Then A=4\=>1\->A
A=5\=>2\->A
A=6\=>3\->A
\IfEnd
M=28\=>\Dsz A
A=7\=>1\->A
A=0\=>6\->A
A=1\=>\Text 20,5,"-"
A=2\=>\Text 30,5,"-"
A=3\=>\Text 40,5,"-"
A=4\=>\Text 20,50,"-"
A=5\=>\Text 30,50,"-"
A=6\=>\Text 40,50,"-"
\LpWhile M\<>31
A=1\=>\Prog "1"
A=2\=>\Prog "2"
A=3\=>\Prog "3"
A=4\=>\Prog "4"
A=5\=>\Prog "5"
A=6\=>\Prog "6"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:929
File Name:KIT 02-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 7\->Z \To 1 \Step -1
\Locate 1,Z,"-----VOS-CREDITS-----"
\Next 
\For 7\->Z \To 1 \Step -1
\Locate 1,Z,"                     "
\Next 
\For 21\->Z \To 1 \Step -5
\Locate Z,1,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
\For 21\->Z \To 1 \Step -5
\Locate Z,2,"L   VOTRE  TITRE    L"
\Next 
\For 21\->Z \To 1 \Step -5
\Locate Z,3,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
\For 7\->Z \To 4 \Step -1
\Locate 1,Z,"L      MENU 1       L"
\Next 
\For 7\->Z \To 5 \Step -1
\Locate 1,Z,"                     "
\Next 
\For 7\->Z \To 5 \Step -1
\Locate 1,Z,"L      MENU 2       L"
\Next 
\For 7\->Z \To 6 \Step -1
\Locate 1,Z,"                     "
\Next 
\For 7\->Z \To 6 \Step -1
\Locate 1,Z,"L      MENU 3       L"
\Next 
\Locate 1,7,"                     "
\For 21\->Z \To 1 \Step -5
\Locate Z,7,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
0\->M
4\->A
\Locate 6,A,">
\Locate 15,A,"<"
\Do:\Do
\Getkey\->M
\LpWhile M\<>37\ And M\<>28\ And M\<>31
\Locate 6,A," "
\Locate 15,A," "
M=37\ And A\<>6\=>\Isz A
M=28\ And A\<>4\=>\Dsz A
\Locate 6,A,">"
\Locate 15,A,"<"
\LpWhile M\<>31
\If A=4
\Then \For 1\->Y \To 3
\Locate 8,4,"      "
\Locate 8,4,"MENU 1"
\Next 
\Prog "1"
\IfEnd
\If A=5
\Then \For 1\->Y \To 3
\Locate 8,5,"      "
\Locate 8,5,"MENU 2"
\Next 
\Prog "2"
\IfEnd
\If A=6
\Then \For 1\->Y \To 3
\Locate 8,6,"      "
\Locate 8,6,"MENU 3"
\Next 
\Prog "3"
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:802
File Name:KIT 03-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\ClrText:\AxesOff:\BG-None:0\->A~Z
\Text 1,45,"VOTRE TITRE"
\For 57\->Z \To 52 \Step -1
\F-Line 6,Z,121,Z
\F-Line 6,Z-43,121,Z-43
\F-Line Z+64,9,Z+64,57
\F-Line Z-47,9,Z-47,57
\Next 
62\->C
31\->B
\F-Line 62,31,62,31
\F-Line 67,31,66,30
\F-Line 67,31,66,32
\F-Line 57,31,58,30
\F-Line 57,31,58,32
\F-Line 62,36,63,35
\F-Line 62,36,61,35
\F-Line 62,26,61,27
\F-Line 62,26,63,27
\Text 57,45,"VOS CREDITS"
\Text 15,15,"MENU 1"
\Text 15,86,"MENU 2"
\Text 43,15,"MENU 3"
\Text 43,86,"MENU 4"
\StoPict 6
\Lbl 0
\Do:\Do:\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>38\ And A\<>27\ And A\<>31
0\->T
\Cls
\RclPict 6
A=37\ And B>21\=>B-6\->B
A=28\ And B<46\=>B+6\->B
A=27\ And C<107\=>C+8\->C
A=38\ And C>15\=>C-8\->C
\StoPict 6
\Text 63-B,C,"*"
\If B<21\ And B>16\ And C>86\ And C<112
\Then \F-Line 86,16,112,16
1\->T
\IfEnd
\If B<50\ And B>44\ And C>86\ And C<112
\Then \F-Line 86,44,112,44
2\->T
\IfEnd
\If C>15\ And C<41\ And B<50\ And B>44
\Then \F-Line 15,44,41,44
3\->T
\IfEnd
\If C>15\ And C<41\ And B>16\ And B<21
\Then \F-Line 15,16,41,16
4\->T
\IfEnd
\LpWhile A\<>31
T=0\=>\Goto0
T=1\=>\Prog "1"
T=2\=>\Prog "2"
T=3\=>\Prog "3"
T=4\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1214
File Name:KIT 04-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\ClrText:\AxesOff:\BG-None:0\->A~Z
"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\For 1\->Z \To 5
\Locate Z,2," VOTRE"
\Next 
\For 21\->Z \To 12 \Step -3
\Locate Z,2,"TITRE   "
\Next 
\For 21\->Z \To 1 \Step -2.5
\Locate Z,3,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Next 
\Locate 1,2,"\aster"
\Locate 21,2,"\aster"
\For 21\->Z \To 11 \Step -5
\Locate Z,4,"VOS CREDITS"
\Next 
\Locate 14,7,"->"
\Locate 8,6,"MENU 1"
1\->B
\Lbl 0
B\>=5\=>4\->B
B\<=0\=>1\->B
\Do:\Do
\Getkey\->A
\LpWhile A\<>27\ And A\<>38\ And A\<>31
A=27\=>\Isz B
A=38\=>\Dsz B
B\<=0\ Or B\>=5\=>\Goto0
\If A=27\ And B=2
\Then \For 1\->Z \To 2
\Locate 14,7,"  "
\Locate 6,7,"<-      ->"
\Next 
\For 8\->Z \To 1 \Step -1
\Locate Z,6,"MENU 1  "
\Next 
\For 6\->Z \To 1 \Step -1
\Locate Z,6,"       MENU 2   "
\Next 
\IfEnd
\If A=27\ And B=3
\Then \For 1\->Z \To 2
\Locate 14,7,"  "
\Locate 6,7,"<-      ->"
\Next 
\For 8\->Z \To 1 \Step -1
\Locate Z,6,"MENU 2  "
\Next 
\For 6\->Z \To 1 \Step -1
\Locate Z,6,"       MENU 3   "
\Next 
\IfEnd
\If A=27\ And B=4
\Then \For 1\->Z \To 2
\Locate 14,7,"  "
\Locate 14,7,"->"
\Next 
\Locate 14,7,"  "
\For 8\->Z \To 1 \Step -1
\Locate Z,6,"MENU 3  "
\Next 
\For 6\->Z \To 1 \Step -1
\Locate Z,6,"       MENU 4   "
\Next 
\IfEnd
\If A=38\ And B=3
\Then \For 1\->Z \To 2
\Locate 6,7,"  "
\Locate 6,7,"<-      ->"
\Next 
\For 7\->Z \To 15
\Locate Z,6," MENU 4"
\Next 
\For 1\->Z \To 7
\Locate Z,6," MENU 3        "
\Next 
\IfEnd
\If A=38\ And B=2
\Then \For 1\->Z \To 3
\Locate 6,7,"  "
\Locate 6,7,"<-      ->"
\For 7\->Z \To 15
\Locate Z,6," MENU 3"
\Next 
\For 1\->Z \To 7
\Locate Z,6," MENU 2        "
\Next 
\IfEnd
\If A=38\ And B=1
\Then \For 1\->Z \To 2
\Locate 6,7,"  "
\Locate 6,7,"<-      ->"
\Next 
\Locate 6,7,"  "
\For 7\->Z \To 15
\Locate Z,6," MENU 2"
\Next 
\For 1\->Z \To 7
\Locate Z,6," MENU 1        "
\Next 
\IfEnd
\LpWhile A\<>31
B=1\=>\Prog "1"
B=2\=>\Prog "2"
B=3\=>\Prog "3"
B=4\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:924
File Name:KIT 05-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\F-Line 2,63,126,63
\F-Line 2,62,126,62
\F-Line 2,52,126,52
\F-Line 2,51,126,51
\F-Line 1,52,1,62
\F-Line 2,52,2,62
\F-Line 127,52,127,62
\F-Line 126,52,126,62
\Text 5,40,"VOTRE TITRE"
\F-Line 2,3,2,48
\F-Line 40,3,40,48
\F-Line 3,49,39,49
\F-Line 3,2,39,2
\Text 17,4,"TEXTE"
\Text 23,4,"OU"
\Text 29,4,"DESSIN"
\Text 35,4,"OU"
\Text 41,4,"CREDITS"
\Text 47,4,"......."
\Text 53,4,"..."
\F-Line 50,30,100,30
\F-Line 50,21,100,21
\F-Line 49,22,49,29
\Text 27,63,"MENU 1"
\Text 36,63,"MENU 2"
\Text 45,63,"MENU 3"
\F-Line 101,22,101,29
1\->B
27\->C
5\->N
\Lbl 0
C>36\=>36\->C
C<18\=>18\->C
\If (C=27\ And G=18)\ Or N=5
\Then \F-Line 105,24,109,24
\F-Line 106,23,108,23
\F-Line 107,22,107,22
\IfEnd
\If (C=27\ And G=36)\ Or N=5
\Then \F-Line 107,29,107,29
\F-Line 106,28,108,28
\F-Line 105,27,109,27
\IfEnd
C=18\=>\Text 40,105,"  "
C=36\=>\Text 34,105,"  "
\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
C\->G
0\->N
A=37\=>C-9\->C
A=28\=>C+9\->C
A=31\=>\Goto1
C>36\ Or C<18\=>\Goto0
A=28\=>C-9\->D
A=37\=>C+9\->D
\For D\->Z \To D+27 \Step +9
\Text Z,63,"         "
\Next 
\Text C,63,"MENU 1"
\Text C+9,63,"MENU 2"
\Text C+18,63,"MENU 3"
\Goto0
\Lbl 1
C=36\=>\Prog "1"
C=27\=>\Prog "2"
C=18\=>\Prog "3"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1422
File Name:KIT 06-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
16\->A
1\->B
\Do
A-1\->A
B+1\->B
\Locate A,1,"VOTRE "
\Locate B,1," TITRE"
\LpWhile A\<>6
\For 6\->Z \To 2 \Step -1
\Locate 1,Z,"     ===========     "
\Locate 1,Z+1,"                     "
\Next 
\Lbl 0
\Locate 2,4,"MENU 1\->"
\Locate 2,5,"MENU 2"
\Locate 2,6,"MENU 3"
\Locate 2,7,"MENU 4"
0\->A
4\->B
\Do:\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>27
\Locate 8,B," "
A=37\=>\Isz B
A=28\=>\Dsz B
B=8\=>4\->B
B=3\=>7\->B
\Locate 8,B,"\->"
A=27\=>\Break
\LpWhile \Getkey\<>1
\If B=4
\Then \For 5\->Z \To 7
\Locate 2,Z,"       "
\Next 
\For 1\->Y \To 2
\Locate 8,4," "
\Locate 8,4,"\->"
\Next 
4\->C
\Locate 9,4,"S-MENU 1"
\Locate 9,5,"S-MENU 2"
\Locate 9,6,"S-MENU 3"
\Locate 17,4,"#"
\IfEnd
\If B=5
\Then \Locate 2,4,"      "
\For 6\->Z \To 7
\Locate 2,Z,"       "
\Next 
\For 1\->Y \To 2
\Locate 8,5," "
\Locate 8,5,"\->"
\Next 
5\->C
\Locate 9,5,"S-MENU 4"
\Locate 9,6,"S-MENU 5"
\Locate 9,7,"S-MENU 6"
\Locate 17,5,"#"
\IfEnd
\If B=6
\Then \Locate 2,7,"      "
\For 4\->Z \To 5
\Locate 2,Z,"       "
\Next 
\For 1\->Y \To 2
\Locate 8,6," "
\Locate 8,6,"\->"
\Next 
4\->C
\Locate 9,4,"S-MENU 7"
\Locate 9,5,"S-MENU 8"
\Locate 9,6,"S-MENU 9"
\Locate 17,4,"#"
\IfEnd
\If B=7
\Then \For 4\->Z \To 6
\Locate 2,Z,"       "
\Next 
\For 1\->Y \To 2
\Locate 8,7," "
\Locate 8,7,"\->"
\Next 
5\->C
\Locate 9,5,"S-MENU10"
\Locate 9,6,"S-MENU11"
\Locate 9,7,"S-MENU12"
\Locate 17,5,"#"
\IfEnd
0\->M
\Do:\Do
\Getkey\->M
\LpWhile M\<>37\ And M\<>28\ And M\<>38\ And M\<>31
\Locate 17,C," "
M=37\=>\Isz C
M=28\=>\Dsz C
C=7\ And (B=4\ Or B=6)\=>4\->C
C=3\ And (B=4\ Or B=6)\=>6\->C
C=8\ And (B=5\ Or B=7)\=>5\->C
C=4\ And (B=5\ Or B=7)\=>7\->C
\Locate 17,C,"#"
\If M=38
\Then \For 4\->Z \To 7
\Locate 8,Z,"            "
\Next 
\Goto0
\IfEnd
\LpWhile M\<>31
\For 1\->Y \To 2
\Locate 17,C," "
\Locate 17,C,"#"
\Next 
\Locate 17,C," "
\For 1\->Z \To 7
\Locate 1,Z,"                     "
\Next 
\If B=4
\Then C=4\=>\Prog "1"
C=5\=>\Prog "2"
C=6\=>\Prog "3"
\IfEnd
\If B=5
\Then C=5\=>\Prog "4"
C=6\=>\Prog "5"
C=7\=>\Prog "6"
\IfEnd
\If B=6
\Then C=4\=>\Prog "7"
C=5\=>\Prog "8"
C=6\=>\Prog "9"
\IfEnd
\If B=7
\Then C=5\=>\Prog "10"
C=6\=>\Prog "11"
C=7\=>\Prog "12"
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1167
File Name:KIT 07-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Horizontal 63
\Horizontal 54
\Horizontal 53
\Horizontal 51
\Horizontal 13
\Horizontal 12
\Horizontal 10
\Horizontal 2
\Horizontal 1
\If \Getkey=32
\Then \RclPict 6
\Text 63,127," "
\Goto0
\IfEnd
\F-Line 1,1,1,63
\F-Line 127,1,127,63
\PlotOff 1,11
\PlotOff 1,1
\PlotOff 1,12
\PlotChg 127,11
\PlotOff 1,52
\PlotOff 1,53
\PlotOff 127,52
\Text 4,42,"VOTRE TITRE"
\Text 56,42,"VOS CREDITS"
\Text 40,10,"MENU 1"
\Text 40,50,"MENU 2"
\Text 40,90,"MENU 3"
16\->Z
\For 1\->Y \To 3
\F-Line Z,43,Z+11,43
\F-Line Z+1,31,Z+12,31
\F-Line Z+12,31,Z+12,42
\F-Line Z,43,Z,32
\F-Line Z,32,Z+12,32
\F-Line Z+11,32,Z+11,43
Z+40\->Z
\Next 
\F-Line 98,36,99,36
\F-Line 99,38,104,38
\F-Line 104,39,105,39
\F-Line 99,37,104,37
\F-Line 99,39,98,39
\F-Line 104,36,105,36
\F-Line 58,41,60,41
\F-Line 62,41,63,41
\F-Line 58,39,59,39
\F-Line 63,39,64,39
\F-Line 58,37,61,37
\F-Line 63,37,65,37
\F-Line 58,35,59,35
\F-Line 61,35,62,35
\PlotOn 64,35
\PlotOn 65,41
\PlotOn 61,39
\F-Line 21,34,21,39
\F-Line 22,34,22,39
\F-Line 20,38,21,40
\F-Line 23,38,22,40
\F-Line 19,37,21,41
\F-Line 22,41,24,37
\PlotOn 24,38
\PlotOn 23,40
\StoPict 6
\Lbl 0
6\->B
\F-Line 6,49,40,49
\F-Line 6,49,6,15
\F-Line 6,15,40,15
\F-Line 40,15,40,49
\Do:\Do
\Getkey\->A
\LpWhile A\<>27\ And A\<>38\ And A\<>31
\Cls
\RclPict 6
A=27\ And B\<>86\=>B+40\->B
A=38\ And B\<>6\=>B-40\->B
\F-Line B,49,B+34,49
\F-Line B,15,B+34,15
\F-Line B,15,B,49
\F-Line B+34,15,B+34,49
\LpWhile A\<>31
\If B=6
\Then \For 1\->Y \To 8
\Text 40,10,"       "
\Text 40,10,"MENU 1"
\Next 
\Prog "1"
\IfEnd
\If B=46
\Then \For 1\->Y \To 8
\Text 40,50,"       "
\Text 40,50,"MENU 2"
\Next 
\Prog "2"
\IfEnd
\If B=86
\Then \For 1\->Y \To 8
\Text 40,90,"       "
\Text 40,90,"MENU 3"
\Next 
\Prog "3"
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:722
File Name:KIT 08-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Locate 4,1,"---------------"
\Locate 4,2,"! VOTRE TITRE !"
\Locate 4,3,"---------------"
\Locate 5,4,"\-> MENU 1"
\Locate 8,5,"MENU 2"
\Locate 8,6,"MENU 3"
\Locate 8,7,"MENU 4"
4\->B
\Do:\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
A=37\=>\Isz B
A=28\=>\Dsz B
B=8\=>4\->B
B=3\=>7\->B
\If B=4
\Then \Locate 5,4,"\-> MENU 1 "
\Locate 5,5,"   MENU 2 "
\Locate 5,7,"   MENU 4 "
\IfEnd
\If B=5
\Then \Locate 5,4,"   MENU 1 "
\Locate 5,5,"\-> MENU 2 "
\Locate 5,6,"   MENU 3 "
\IfEnd
\If B=6
\Then \Locate 5,5,"   MENU 2 "
\Locate 5,6,"\-> MENU 3 "
\Locate 5,7,"   MENU 4 "
\IfEnd
\If B=7
\Then \Locate 5,4,"   MENU 1"
\Locate 5,6,"   MENU 3"
\Locate 5,7,"\-> MENU 4 "
\IfEnd
\LpWhile A\<>31
\For 1\->Y \To 4
\Locate 5,B," "
\Locate 5,B,"\->"
\Next 
\For 1\->Z \To B-1
\Locate 1,Z,"                     "
\Next 
\For B+1\->Z \To 7
\Locate 5,Z,"         "
\Next 
\For 5\->Z \To 15
\Locate Z,B," "
\Next 
B=4\=>\Prog "1"
B=5\=>\Prog "2"
B=6\=>\Prog "3"
B=7\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:643
File Name:KIT 09-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 1\->Z \To 3
\Locate 1,Z,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
\Locate 1,2,"     VOTRE TITRE     "
\Locate 1,4,"  MENU 1      MENU 5"
\Locate 1,5,"  MENU 2      MENU 6"
\Locate 1,6,"  MENU 3      MENU 7"
\Locate 1,7,"  MENU 4      MENU 8"
4\->B
1\->C
\Locate C,B,"\->"
\Do:\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
\Locate C,B," "
A=37\=>\Isz B
A=28\=>\Dsz B
\If B=8\ And C=1
\Then 13\->C
4\->B
\IfEnd
\If B=3\ And C=13
\Then 1\->C
7\->B
\IfEnd
\If B=3\ And C=2
\Then 1\->C
4\->B
\IfEnd
\If B=8\ And C=13
\Then 1\->C
4\->B
\IfEnd
\If B=3\ And C=1
\Then 13\->C
7\->B
\IfEnd
\Locate C,B,"\->"
\LpWhile A\<>31
\For 1\->Y \To 4
\Locate C,B,"      "
\Locate C,B,"\-> MENU"
\Next 
B=4\ And C=1\=>\Prog "1"
B=5\ And C=1\=>\Prog "2"
B=6\ And C=1\=>\Prog "3"
B=7\ And C=1\=>\Prog "4"
B=4\ And C=13\=>\Prog "5"
B=5\ And C=13\=>\Prog "6"
B=6\ And C=13\=>\Prog "7"
B=7\ And C=13\=>\Prog "8"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:523
File Name:KIT 10-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Text 3,42,"VOTRE TITRE"
\F-Line 5,53,122,53
\F-Line 5,10,122,10
\F-Line 5,10,5,53
\F-Line 122,53,122,10
\F-Line 6,51,6,12
\F-Line 7,52,120,52
\F-Line 8,51,119,51
\F-Line 7,50,7,13
\F-Line 7,11,120,11
\F-Line 121,12,121,51
\F-Line 8,12,119,12
\F-Line 120,13,120,50
\Text 17,49,"MENU 1"
\Text 26,49,"MENU 2"
\Text 35,49,"MENU 3"
\Text 44,49,"MENU 4"
16\->B
\Text B,38,">"
\Text B,86,"<"
\Do:\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
\Text B,38," "
\Text B,86," "
A=37\ And B\<=40\=>B+9\->B
A=28\ And B\<>16\=>B-9\->B
\Text B,38,">"
\Text B,86,"<"
\LpWhile A\<>31
\Cls
B=16\=>\Prog "1"
B=25\=>\Prog "2"
B=34\=>\Prog "3"
B=43\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1297
File Name:KIT 11-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 1\->Z \To 7
\Locate 1,Z,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Next 
\Locate 2,2,"    VOTRE TITRE    "
\For 4\->Z \To 5
\Locate 1,Z,"                     "
\Next 
\Locate 2,7,"                   "
\Locate 6,5,"\-> MENU 1"
\Locate 2,7,"COMMENTAIRE MENU 1"
1\->B
\Do:\Do
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
B\->C
A=37\ And B\<>5\=>\Isz B
A=28\ And B\<>1\=>\Dsz B
\If B=1
\Then \Locate 6,4,"        "
\Locate 6,5,"\-> MENU 1"
\IfEnd
\If B=2\ And C=1
\Then \Locate 6,4,"  MENU 1"
\Locate 6,5,"\-> MENU 2"
\IfEnd
\If B=3\ And C=2
\Then \Locate 6,4,"  MENU 2"
\Locate 6,5,"\-> MENU 3"
\IfEnd
\If B=4\ And C=3
\Then \Locate 6,4,"  MENU 3"
\Locate 6,5,"\-> MENU 4"
\IfEnd
\If B=5\ And C=4
\Then \Locate 6,4,"\-> MENU 5"
\Locate 6,5,"        "
\IfEnd
\If B=4\ And C=5
\Then \Locate 6,4,"\-> MENU 4"
\Locate 6,5,"  MENU 5"
\IfEnd
\If B=3\ And C=4
\Then \Locate 6,4,"\-> MENU 3"
\Locate 6,5,"  MENU 4"
\IfEnd
\If B=2\ And C=3
\Then \Locate 6,4,"\-> MENU 2"
\Locate 6,5,"  MENU 3"
\IfEnd
B=1\=>\Locate 2,7,"COMMENTAIRE MENU 1"
B=2\=>\Locate 2,7,"COMMENTAIRE MENU 2"
B=3\=>\Locate 2,7,"COMMENTAIRE MENU 3"
B=4\=>\Locate 2,7,"COMMENTAIRE MENU 4"
B=5\=>\Locate 2,7,"COMMENTAIRE MENU 5"
\LpWhile A\<>31
\If B=1
\Then \For 1\->Y \To 3
\Locate 2,7,"                  "
\Locate 2,7,"COMMENTAIRE MENU 1"
\Next 
\Prog "1"
\IfEnd
\If B=2
\Then \For 1\->Y \To 3
\Locate 2,7,"                  "
\Locate 2,7,"COMMENTAIRE MENU 2"
\Next 
\Prog "2"
\IfEnd
\If B=3
\Then \For 1\->Y \To 3
\Locate 2,7,"                  "
\Locate 2,7,"COMMENTAIRE MENU 3"
\Next 
\Prog "3"
\IfEnd
\If B=4
\Then \For 1\->Y \To 3
\Locate 2,7,"                  "
\Locate 2,7,"COMMENTAIRE MENU 4"
\Next 
\Prog "4"
\IfEnd
\If B=5
\Then \For 1\->Y \To 3
\Locate 2,7,"                  "
\Locate 2,7,"COMMENTAIRE MENU 5"
\Next 
\Prog "5"
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:425
File Name:KIT 12-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Graph Y<3X-249
\Text 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Text 8,1,"    VOTRE TITRE"
\Text 15,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Text 24,10,"MENU 1"
\Text 31,10,"MENU 2"
\Text 38,10,"MENU 3"
\Text 45,10,"MENU 4"
\F-Line 1,9,85,9
\Text 57,40,"VOS CREDITS"
24\->B
\Do:\Do
\Getkey\->A
\Text B,1,"  "
\Getkey\->A
\Text B,1,"\->"
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
\Text B,1,"  "
A=37\ And B\<>45\=>B+7\->B
A=28\ And B\<>24\=>B-7\->B
\LpWhile A\<>31
B=24\=>\Prog "1"
B=31\=>\Prog "2"
B=38\=>\Prog "3"
B=45\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:602
File Name:KIT 13-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 1\->Z \To 3
\Locate 5,Z,"-------------"
\Next 
\Locate 6,2,"VOTRE TITRE"
\Locate 1,4,"------   MENU 1 -----"
\Locate 1,5,"------   MENU 2 -----"
\Locate 1,6,"------   MENU 3 -----"
\Locate 1,7,"------   MENU 4 -----"
4\->B
\Do:\Do
\Getkey\->A
\Locate 8,B," "
\Getkey\->A
\Locate 8,B,"\->"
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
\Locate 8,B," "
A=37\ And B\<>7\=>\Isz B
A=28\ And B\<>4\=>\Dsz B
\LpWhile A\<>31
\If B=4
\Then \For 1\->Y \To 3
\Locate 10,B,"      "
\Locate 10,B,"MENU 1"
\Next 
\Prog "1"
\IfEnd
\If B=5
\Then \For 1\->Y \To 3
\Locate 10,B,"      "
\Locate 10,B,"MENU 2"
\Next 
\Prog "2"
\IfEnd
\If B=6
\Then \For 1\->Y \To 3
\Locate 10,B,"      "
\Locate 10,B,"MENU 3"
\Next 
\Prog "3"
\IfEnd
\If B=7
\Then \For 1\->Y \To 3
\Locate 10,B,"      "
\Locate 10,B,"MENU 4"
\Next 
\Prog "4"
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:265
File Name:KIT 14-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Text 3,1,"VOTRE TITRE"
\Horizontal 63
\Horizontal 55
\Text 17,5,"[1]\(-)MENU 1"
\Text 27,5,"[2]\(-)MENU 2"
\Text 37,5,"[3]\(-)MENU 3"
\Text 47,5,"[4]\(-)MENU 4"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62\ And A\<>52\ And A\<>73
A=72\=>\Prog "1"
A=62\=>\Prog "2"
A=52\=>\Prog "3"
A=73\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:251
File Name:KIT 15-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Locate 6,2,"VOTRE TITRE"
\Locate 2,4,"[1]\(-)MENU 1"
\Locate 2,5,"[2]\(-)MENU 2"
\Locate 2,6,"[3]\(-)MENU 3"
\Locate 2,7,"[4]\(-)MENU 4"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62\ And A\<>52\ And A\<>73
A=72\=>\Prog "1"
A=62\=>\Prog "2"
A=52\=>\Prog "3"
A=73\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:631
File Name:KIT 16-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 62\->Z \To 52 \Step -2
\F-Line 1,57,38,Z
\F-Line 88,Z,127,57
\Next 
\For 49\->Z \To 15 \Step -2
\F-Line 1,33,38,Z
\F-Line 88,Z,127,33
\Next 
\For 12\->Z \To 2 \Step -2
\F-Line 1,7,38,Z
\F-Line 88,Z,127,7
\Next 
\Text 5,42,"VOTRE TITRE"
\F-Line 38,62,88,62
\F-Line 38,52,88,52
\Text 18,50,"MENU 1"
\Text 26,50,"MENU 2"
\Text 34,50,"MENU 3"
\Text 42,50,"MENU 4"
\F-Line 38,15,88,15
\F-Line 38,49,88,49
\Text 55,42,"VOS CREDITS"
\F-Line 38,12,88,12
\F-Line 38,2,88,2
18\->B
\Do:\Do
\Getkey\->A
\Text B,50,"       "
\Getkey\->A
B=18\=>\Text B,50,"MENU 1"
B=26\=>\Text B,50,"MENU 2"
B=34\=>\Text B,50,"MENU 3"
B=42\=>\Text B,50,"MENU 4"
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
A=37\ And B\<>42\=>B+8\->B
A=28\ And B\<>18\=>B-8\->B
\LpWhile A\<>31
B=18\=>\Prog "1"
B=26\=>\Prog "2"
B=34\=>\Prog "3"
B=42\=>\Prog "4"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:851
File Name:KIT 17-N
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\For 1\->Y \To 3
\Locate 1,1,"                     "
\Locate 1,1,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
\For 1\->Y \To 3
\Locate 6,2,"           "
\Locate 6,2,"VOTRE TITRE"
\Next 
\For 1\->Y \To 3
\Locate 1,3,"                     "
\Locate 1,3,"LLLLLLLLLLLLLLLLLLLLL"
\Next 
\For 1\->Y \To 3
\Locate 8,4,"      "
\Locate 8,4,"MENU 1"
\Next 
\For 1\->Y \To 3
\Locate 8,5,"      "
\Locate 8,5,"MENU 2"
\Next 
\For 1\->Y \To 3
\Locate 8,6,"      "
\Locate 8,6,"MENU 3"
\Next 
\For 1\->Y \To 3
\Locate 8,7,"      "
\Locate 8,7,"MENU 4"
\Next 
4\->B
\Do
\Do
\Getkey\->A
\Locate 8,B,"      "
\Getkey\->A
B=4\=>\Locate 8,B,"MENU 1"
B=5\=>\Locate 8,B,"MENU 2"
\Getkey\->A
B=6\=>\Locate 8,B,"MENU 3"
B=7\=>\Locate 8,B,"MENU 4"
\Getkey\->A
\LpWhile A\<>37\ And A\<>28\ And A\<>31
A=37\ And B\<>7\=>\Isz B
A=28\ And B\<>4\=>\Dsz B
\LpWhile A\<>31
\If B=4
\Then \For 1\->Y \To 3
\Locate 8,4,"      "
\Locate 8,4,"MENU 1"
\Next 
\Prog "1"
\IfEnd
\If B=5
\Then \For 1\->Y \To 3
\Locate 8,5,"      "
\Locate 8,5,"MENU 2"
\Next 
\Prog "2"
\IfEnd
\If B=6
\Then \For 1\->Y \To 3
\Locate 8,6,"      "
\Locate 8,6,"MENU 3"
\Next 
\Prog "3"
\IfEnd
\If B=7
\Then \For 1\->Y \To 3
\Locate 8,7,"      "
\Locate 8,7,"MENU 4"
\Next 
\Prog "4"
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:472
File Name:KITBONUS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'
'  \(-)KIT GRAPHIQUE\(-)  
'   BY LENAINNOIR   
'
'   AVEC ASTUCE     
'   DE NEURONIX     
'                   
' LA CONSULTER AVANT
'   DE MODIFIER LE  
'       MENU        
' PLANETE-CASIO.COM 
'
\ViewWindow 1,127,0,1,63,0:\Cls:\AxesOff:\BG-None:\ClrText:0\->A~Z
\Locate 6,2,"VOTRE TITRE"
\Locate 1,3,"LLLLLLLLLLLLLLLLLLLLL"
\Locate 1,5,"    \(-)VOS CREDITS"
\Cls
\Text 58,1," MENU 1  \slash MENU 2 \slash  MENU 3"
\Horizontal 8
\Locate 1,1,"LLLLLLLLLLLLLLLLLLLLL"
\Do
\Getkey\->M
\LpWhile M\<>29\ And M\<>39\ And M\<>49\ And M\<>59\ And M\<>69\ And M\<>79
M=79\ Or M=69\=>\Prog "1"
M=59\ Or M=49\=>\Prog "2"
M=39\ Or M=29\=>\Prog "3"

%End