POUR DEPART
VC  
findex "pages
Classes
DEBUTPAGE
CHERCHE "1
PRECEDENT
CHOISIS
FIN

POUR PRECEDENT
DESELECTE
DDL MC
SI CARSOUSCUR = car 13 [DC]
SELECTE
FDL
FIN

POUR CHOISIS
DONNE "TOUCHE ASCII LISCAR
SI :TOUCHE = 13 [findex selectionne EXECUTE SELECTIONNE stop]
SI :TOUCHE = 328 [PRECEDENT]
SI :TOUCHE = 336 [SUIVANT]
CHOISIS
FIN

POUR SUIVANT
DESELECTE
DDL DC
SI CARSOUSCUR = car 13 [MC]
SELECTE
FDL
FIN

POUR CHOISISNOM
DONNE "TOUCHE ASCII LISCAR
SI :TOUCHE = 13 [donne "eleve enliste SELECTIONNE donne "index1 selectionne stop]
SI :TOUCHE = 328 [PRECEDENT]
SI :TOUCHE = 336 [SUIVANT]
CHOISISNOM
FIN

pour compilindex
donne "index "
donne "index2 de :eleve 
repete 5
	[donne "index mot :index ( pr :index1 ) 
	donne "index1 sp :index1]
repete 3
	[donne "index mot :index ( pr :index2 )
	donne "index2 sp :index2]
findex :index
quittepage
fin

Pour classes
vt ct ec [Sélectionne ton année.] ec [] ec []
ec "1A
ec "1B
ec "2A
ec "2B
ec "3A
ec "3B
ec "4A
ec "4B
ec "5A
ec "5B
ec "6A
ec "6B
ec "
fin

pour classe
vt ct ec [Sélectionne ton nom.]
ec [] ec []

ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
ec []
DEBUTPAGE
CHERCHE "B
PRECEDENT
CHOISISNOM
compilindex
fin

pour 1a
vt ct ec [Sélectionne ton nom.]
ec [] ec []

ec [BEAUPA Xavier]
ec [de_BILLE Pascal]
ec [DELACRE Maxime]
ec [de_VLEESCH Albert]
ec [DYS__ Amand]
ec [ET_CAETERA etc]

ec []
DEBUTPAGE
CHERCHE "B
PRECEDENT
CHOISISNOM
compilindex
fin