Les balances de précision offrent plusieurs unités de poids
tl, dwt, gn, ozt, oz, ct, mg, g.
PESER1 est un petit programme de convertion.
-----------------------------------------------------------
PROGRAM:PESER1

Effacer entrées
EffÉcran
0→T:0→D:0→N:0→Z:0→O
0→C:0→M:0→G:0→A:0→B

Disp "tl...:Teelöffel........= 8"
Disp "dwt..:pennyweight......= 7"
Disp "gn...:Céréales.........= 6"
Disp "ozt..:Onces troy.......= 5"
Disp "oz...:Onces............= 4"
Disp "ct...:Carat............= 3"
Disp "mg...:Milligramme......= 2"
Disp "g....:Gramme...........= 1"

Input "Votre choix = ",A
If A>0 et A<9:Then
Input "Le chiffre  = ",B
Else
EffÉcran:Stop
End

If A=1:B→G
If A=2:B/1000→G
If A=3:B/5→G
If A=4:B*28.349523125→G
If A=5:B*31.1034768→G
If A=6:B/15.432358352941→G
If A=7:B*1.5551857669398609663924355764296→G
If A=8:B*0.005→G

G*1000→M
G*5→C
G/28.349523125→O
G/31.1034768→Z
G*15.432358352941→N
G/1.5551857669398609663924355764296→D
G/0.005→T

EffÉcran

Output(1,3,"g.......:"):Output(1,12,G)
Output(2,3,"mg......:"):Output(2,12,M)
Output(3,3,"ct......:"):Output(3,12,C)
Output(4,3,"oz......:"):Output(4,12,O)
Output(5,3,"ozt.....:"):Output(5,12,Z)
Output(6,3,"gn......:"):Output(6,12,N)
Output(7,3,"dwt.....:"):Output(7,12,D)
Output(8,3,"tl......:"):Output(8,12,T)
Output(9,1,"--------------------------")
Output(10,3,"[entrer] pour sortir !")

Pause 
EffÉcran