Voilà un code (et merde je dois me recopier tt à la main => ptet des fautes de copie)

:menu()
:Prgm
:
:Local g,a,b
:0->g
:70->a
:70->b
:setGraph("axes","OFF")
:FnOff
:0->xmin:0->ymin:158->xmax:76->ymax
:ClrDraw
:
:PtText "Titre 1",10,70
:PtText "Titre 2",10,60
:PtText "Titre 3",10,50
:PtText "Titre 4",10,40
:PtText "->",1,a
:
:While g≠13
:getkey()->g
:If g=338 and a≠70 Then
:PtText " ",1,a
:a+10->a
:PtText "->",1,a
:EndIf
:If g=334 and a≠40 Then
:PtText " ",1,a
:a-10->a
:PtText "->",1,a
:EndIf
:EndWhile
:0->g
:
:If a=70 Then
:ClrDraw
:PtText "Sous-titre 1",10,70
:PtText "Sous-titre 1",10,60
:PtText "Sous-titre 1",10,50
:PtText "Back",10,70
:PtText "->",1,b
:
:While g≠13
:getKey()->g
:If g=338 and b≠70 Then
:PtText " ",1,b
:b+10->b
:PtText "->",1,b
:EndIf
:If g=334 and b≠40 Then
:PtText " ",1,b
:b-10->b
:b-10->b
:PtText "->",1,b
:EndIf
:EndWhile
:If b=40 Then
:menu()
:EndIf
:EndIf
:
:EndPrgm