'ProgramMode:RUN
Blue Locate 7,2,"Derivees"
Green Locate 10,4,"by"

Red Locate 7,6,"ShownbacK"DispsClrText
Lbl 1
Red "Page:"
"1"
"2"
"3"
?->A

If A=1
Then 
Goto 2

IfEnd
If A=2
Then
Goto 3

IfEnd
If A=3
Then
Goto 4

ClrText
IfEnd

Lbl 2
Red "Que Deriver:"
"1 u+v+w"
"2 u*v"
"3 AFAIRE"
"4 u/v"
"5 f o u"
"6 x->xPALPHA"
"7 uPALPHA"
?->B

Lbl 3
Red "Que Deriver:"
"8 x->1/x"
"9 1/u"
"10 x->RACINx"
"11 RACINu"
"12 x->lnx"Disps
"13 lnu"
"14 x->ePX"
?->B

Lbl 4
Red "Que Deriver:"
"15 ePu"
"16 x->ePax"
"17 x->cosx"
"18 cosu"
"19 x->sinx"
"20 sinu"
"21 ePu"
?->B

If B=1
Then "u'+v'+w'"DispsClrText
Goto 1

IfEnd
If B=2
Then "u'*v+u*v'"DispsClrText
Goto 1

ClrText
IfEnd