Convertir les caractères, centimètres, millimètres, pouces, pixels, points, twips.
              A           E            M            U       X       I       T
----------------------------------------------------------------------------------
PROGRAM: TWIPS

0→A:0→E:0→M
0→U:0→X:0→I:0→T
0→C:0→N:0→R

EffÉcran

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 ""
Input "Votre choix = ",C
If C>0 et C<9:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1:N*120→T
If C=2:N*566.9291338583→T
If C=3:N*56.69291338583→T
If C=4:N*15→T
If C=5:N*20→T
If C=6:N*1440→T
If C=7:N→T

T*0.008333333333333→A
T*0.001763888888889→E
T*0.01763888888889→M
T*0.06666666666667→X
T*0.05→I
T*0.0006944444444444→U

EffÉcran

Output(1,1,"caractères.= "):Output(1,13,A)
Output(2,1,"centimètres= "):Output(2,13,E)
Output(3,1,"millimètres= "):Output(3,13,M)
Output(4,1,"pixels.....= "):Output(4,13,X)
Output(5,1,"points.... = "):Output(5,13,I)
Output(6,1,"pouces.....= "):Output(6,13,U)
Output(7,1,"twips......= "):Output(7,13,T)

Pause 
EffÉcran