Define twips()=
Prgm
:Local a,b,car,cms,mms,pix,pts,pou,twi
:0→a:0→b:0→car:0→cms:0→mms
:0→pix:0→pts:0→pou:0→twi
:setMode(5,2)
:Disp "     Caractères.......: 1"
:Disp "     Centimètres.....: 2"
:Disp "     Millimètres......: 3"
:Disp "     Pixels..............: 4"
:Disp "     Points..............: 5"
:Disp "     Pouces.............: 6"
:Disp "     Twips...............: 7"
:Disp "[enter] pour commencer                "
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<8 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:
:If a=1: b*120→twi
:If a=2: b*566.9291338583→twi
:If a=3:b*56.69291338583→twi
:If a=4:b*15→twi
:If a=5:b*20→twi
:If a=6:b*1440→twi
:If a=7:b→twi
:
:twi*0.008333333333333→car
:twi*0.001763888888889→cms
:twi*0.01763888888889→mms
:twi*0.06666666666667→pix
:twi*0.5→pts
:twi*6.944444444444−4→pou
:
:Disp ""
:Disp "Caractères",car
:Disp "Centimètres",cms
:Disp "Millimètres",mms
:Disp "Pixels",pix
:Disp "Points",pts
:Disp "Pouces",pou
:Disp "Twips",twi
:Disp ""
:getKey(1)
:EndPrgm