Define agraire()=
Prgm
:Local a,b,r
:0→a:0→b:0→r
:Disp "Faite [enter] et donner l'unitée de départ "
:Disp "  mm².................................................: 1      "
:Disp "  cm²..................................................: 2"
:Disp "  dm²..................................................: 3"
:Disp "  m²     ou   ca.....................................: 4"
:Disp "  Dm²   ou   a......................................: 5"
:Disp "  Hm²   ou   ha....................................: 6"
:Disp "  Km²..................................................: 7"
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<8 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:If a=1:((b)/(1000000))→r
:If a=2:((b)/(10000))→r
:If a=3:((b)/(100))→r
:If a=4:b→r
:If a=5:b*100→r
:If a=6:b*10000→r
:If a=7:b*1000000→r
:Disp ""
:Disp "mm²..............=",r*1000000
:Disp "cm²...............=",r*10000
:Disp "dm²...............=",r*100
:Disp "m² ou ca........=",r
:Disp "Dm² ou a.......=",r*0.01
:Disp "Hm² ou ha.....=",r*1.−4
:Disp "Km²...............=",r*1.−6
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:EndPrgm
===========================================
           Abréviations des surfaces
   Millimètres...mm - Centimètres...cm
   Décimètres....dm - Mètres.............m
 --------------------------- 
Centiares...ca - Ares...a - Hectares...ha
  Décamètres...dam - Hectomètres...hm
                  Kilomètres...km
============================================