Voilà le prog pour que vous me dites ce que vous en pensez
Les fichiers textes sont appelés math1, math2 ... ou chimie1... pour chaque matière
()
Prgm
Local fl,k,po,p1,v,y,d,i,l,lm,m,p,p2
flib("savscr

o","clrscr","font:0","initdelay:40","delay:20","drawstr:3,1,F1-Cours F2-Prog F3-Changer F4-Exit","fillrect:1,1,158,6,2","rect:0,0,159,99","savscr

1")
Lbl debut
Loop
flib("rclscr

1","keywait")
fl[1]»k
If k=271 or k=264:Goto fin
If k=270:Goto menu
EndLoop
Lbl menu
{"Mathematiques","Physique","Chimie","SI/STII","Informatique"}»lm
flib("font:0","fillrect:76,7,129,42,0","rect:75,6,130,42")
For i,1,5
flib("drawstr:77,"&string(7*i+1)&","&lm[i])
EndFor
flib("savscr

")
1»v
Loop
flib("rclscr

","fillrect:76,"&string(7*v)&",129,"&string(6+7*v)&",2","keywait")
fl[1]»k
If k=340:v+1»v
If k=337:v-1»v
If k=264:Goto debut
If k=13:Exit
If v=0:5»v
If v=6:1»v
EndLoop
flib("rclscr

1")
If v=1:{"Cours Math 1","Cours Math 2","Cours Math 3","Cours Math 4"}»l
If v=2:{"Cours Physique 1","Cours Physique 2","Cours Physique 3","Cours Physique 4"}»l
If v=3:{"Chimie","Atomistique","Cinetique Chimique","Corrosion","Cristallographie","Diagramme d'Ellingham","Diagramme potentiel-pH","Courbes intensite-potentielle","Materiaux organiques","Reactions en solution aqueuse","RMGX","Stereochimie","Thermodynamique des reactions"}»l
If v=4:{"Sciences de l'ingenieur","Asservissement","Cinetique","Dynamique","Inertie","Mecanique","Puissance"}»l
If v=5:{"Cours Informatique 1","Cours Informatique 2","Cours Informatique 3","Cours Informatique 4"}»l
dim(l)»d
For i,1,d
flib("drawstr:1,"&string(7*i+1)&",1,"&l[i])
EndFor
flib("savscr

2","fillrect:1,7,158,13,2")
1»y
Loop
flib("rclscr

2","fillrect:1,"&string(7*y)&",158,"&string(7*y+6)&",2","","keywait")
fl[1]»k
If k=337:y-1»y
If y=0:d»y
If k=340:y+1»y
If y=d+1:1»y
If k=264:Goto debut
If k=271:Goto fin
If k=270:Goto menu
If k=269:flib("msg:Non disponible")
If k=13 or k=268 Then
If v=1:zmath\math»m
If v=2:zphys\phys»m
If v=3:zchimie\chimie»m
If v=4:zsistii\sistii»m
If v=5:zinfor\infor»m
hibview(string(m)&string(y))
EndIf
EndLoop
Lbl fin
flib("rclscr

o","line:0,93,159,93","slmsg:Cours Prepas par 0diN ¨ 2003")
EndPrgm