[Basic Casio] Améliorer ses menus

6->Z
2->B
Isz Z
Do
Locate 1,B,">"
Do
Getkey->K
LpWhile K=0    // ou Not K
For 1->R To 150:Next
If K=28
Then If B!=2
Then B-1->B     // ou Dsz B
Else Z->B
IfEnd
IfEnd
If=37
Then If B!=Z
Then B+1->B   // ou Isz B
Else 2->B
Ifend
IfEnd
LpWhile K!=31
ClrText



====================================
Valeurs du Getkey : http://www.planet-casio.com/Fr/reference_basic_casio/commande_basic.php?fonc=20
Menu déroulant : www.planet-casio.com/Fr/programmes/voir_un_programme_casio.php?showid=1682
Tutoriel de programmation en Basic Casio : http://www.planet-casio.com/Fr/programmation/