AxesOff
0ŢA~Z:ClrText:File1
Lbl 0:Cls:Text 10,5,"[0].GESTION"
Text 20,5,"[1].LECTURE"
Text 30,5,"[2].STOCK"
Text 40,5,"[3].ERASE"
Text 50,95,"BYE"
Lbl B
Getkey=71ăGoto 1
Getkey=72ăGoto 3
Getkey=62ăGoto 2
Getkey=52ăProg "RESETPNT"
Getkey=47ăGoto 4
Getkey=29ăProg "MENU"
Goto B
Lbl 1:0ŢC
For 1ŢA To 100:List 1[A]ŢB
If Bá0:Then (C‰1)ŢC:AŢList 6[C]:IfEnd
Next
Cls
Text 1,5,"POINTS MEMORISES:"
Text 1,85,C
For 1ŢI To C
List 6[I]ŢA
Text 8‰6Int (Aą12),10A™9™110Int (Aą12)™10Int ((A™12)ą12),A
Next
Text 6,1,""
Lbl C
Getkey=47ăGoto 4
Getkey=31ăGoto 0
Goto C
Lbl 2:ClrText
"ŢN0"?ŢN
N=999ăProg "MENU"
If N=0
Then ClrText:Goto 0
IfEnd
"X/E"?ŢX:"Y/N"?ŢY
If Nâ101
Then If List 4[N™100]á0:Then Goto E
Else If List 5[N™100]á0:Then Goto E
Else XŢList 4[N™100]
YŢList 5[N™100]
IfEnd:IfEnd:IfEnd
If N<101
Then If List 1[N]á0
Then Goto E
Else If List 2[N]á0
Then Goto E
Else XŢList 1[N]
YŢList 2[N]
IfEnd:IfEnd:IfEnd
ClrText:Goto 2
Lbl 3:"N0Ţ"?ŢN
N=999ăProg "MENU"
If N=0
Then ClrText:Goto 0
IfEnd
If N<101
Then ClrText
Locate 1,6,"X/E:"
Locate 8,6,List 1[N]
Locate 1,7,"Y/N:"
Locate 8,7,List 2[N]
IfEnd
If Nâ101
Then ClrText
Locate 1,6,"X/E:"
Locate 8,6,List 4[N™100]
Locate 1,7,"Y/N:"
Locate 8,7,List 5[N™100]
IfEnd:Goto 3
Lbl E:"ECRASER"?ŢZ
Z=999ăProg "MENU"
Zá1ăClrText
Zá1ăGoto 2
If N<101
Then XŢList 1[N]
YŢList 2[N]
Else XŢList 4[N™100]
YŢList 5[N™100]
IfEnd:Goto 2
Lbl 4:AxesOn:Stop