Filename:CURSEUR
'J=MODE CURSEUR
'1=CLASSIQUE TXT
'1.X=1+X LIGNES PR LE 1er CHOIX
'M=NB ENTREES
For 0I To 300:Next
0I
If Int (J)=1
Then 
'MODE TXT CLASSIQUE
Int (10(J-Int J))I
Int JJ
If (M<1 Or M>7 Or M+I>7)
Then 
7M
IfEnd
If M+I>7
Then 
While M+I>7
Dsz I
WhileEnd
IfEnd
If C>M Or C<1
Then 
1C
IfEnd
Locate 1,(1+I),""
While Getkey31
GetkeyZ
If (Z=28 And C>1) Or (Z=37 And C<M)
Then 
If Z=28
Then 
Dsz C
IfEnd
If Z=37
Then 
Isz C
IfEnd
For 1+IZ To 7
Locate 1,Z," "
Next
Locate 1,(C+I),""
IfEnd
For 0Z To 200:Next
WhileEnd
IfEnd
For 0I To 300:Next
ClrText