Define chute()=
Prgm
:Local hau,vim,vik,acc,i
:0→hau:0→vim:0→vik
:2*9.80664→acc
:setMode(5,2)
:Disp ""
:Disp "Calcul de la vitesse théorique d'un corps"
:Disp "lâché sans vitesse initiale dans le champ"
:Disp "de pesanteur terrestre"
:For i,1,3:Disp "":EndFor
:Disp "                          [enter] pour commencer"
:getKey(1)
:Request "Quel hauteur en mètre voulez-vous",hau
:If hau=0
:  Stop
:©----------------------calcul
:√(acc*hau)→vim
:vim*3.6→vik
:©----------------------arrondir
:round(hau,3)→hau
:round(vim,3)→vim
:round(vik,3)→vik
:©----------------------affiche
:For i,1,2:Disp "":EndFor
:Disp "L'objet que vous avez lâché"
:If hau>1 Then
: Disp "d'une hauteur de ",hau,"mètres"
:Else
:  Disp "d'une hauteur de ",hau,"mètre"
:EndIf
:Disp "arrivera en bas à la vitesse"
:If vim>1 Then
:  Disp "de ",vim,"mètres-seconde"
:Else
:  Disp "de ",vim,"mètres-seconde"
:EndIf
:If vik>1 Then
:  Disp "ou ",vik,"kilomètres-heure"
:Else
:  Disp "ou ",vik,"kilomètre-heure"
:EndIf
:Disp ""
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:EndPrgm