Lbl AA
0->K
ClrHome
Output(1,1,"----------------"
Output(2,1,"1.Weight/Force"
Output(3,1,"2.Length/Distances"
Output(4,1,"3.Pressure"
Output(5,1,"----------------"
Output(8,1,"By edi.the.raven"
Repeat Ans
getKey->K
End
If K=45
Then
Goto EX
End
If K!=92 and K!=93 and K!=94
Then
Goto AA
End
If K=92
Then
Lbl AB
ClrHome
0->A
0->B
0->C
0->T
Output(1,1,"----------------"
Output(2,1,"Kg"
Output(3,1,"----------------"
Output(4,1,"Lb"
Output(5,1,"----------------"
Output(6,1,"Tf"
Output(7,1,"----------------"
Repeat X
getKey->X
End
If X=25
Then
Goto AA
End
If X=25
Then
Goto AA
End
If X!=92 and X!=93 and X!=94
Then
Goto AB
End
If X=45
Then
Goto EX
End
If X=92
Then
Lbl AC
ClrHome
Output(1,1,"----------------"
Output(3,1,"----------------"
Disp ""
Input "Kg ",A
ClrHome
Output(1,1,"----------------"
Output(2,1,"Kg"
Output(2,4,A
Output(3,1,"----------------"
Output(4,1,"Lb"
Output(4,4,A*2.20462262
Output(5,1,"----------------"
Output(6,1,"Tf"
Output(6,4,A*9.80665002864*0.0001019716
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto AB
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto AC
End
End
If X=93
Then
Lbl BA
ClrHome
Disp ""
Disp ""
Output(3,1,"----------------"
Disp ""
Output(5,1,"----------------"
Input "Lb ",B
Lbl ZZ
ClrHome
Output(1,1,"----------------"
Output(2,1,"Kg"
Output(2,4,B*0.45359237
Output(3,1,"----------------"
Output(4,1,"Lb"
Output(4,4,B
Output(5,1,"----------------"
Output(6,1,"Tf"
Output(6,4,B*4.448221628254617*0.0001019716
Output(7,1,"----------------"
T+(B*0.45359237)->T
Repeat Ans
getKey
End
Ans->L
If L=34
Then
ClrHome
Output(2,1,"Total BOM Weight"
Output(3,1,"----------------"
Output(4,1,T
Output(6,1,"----------------"
Output(5,6,"lb/-kg"
Pause
Goto ZZ
End
If L=25
Then
Goto AB
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto BA
End
End
If X=94
Then
Lbl BB
ClrHome
Disp ""
Disp ""
Disp ""
Disp ""
Output(5,1,"----------------"
Disp ""
Output(7,1,"----------------"
Input "Tf ",C
ClrHome
Output(1,1,"----------------"
Output(2,1,"Kg"
Output(2,4,C*1000
Output(3,1,"----------------"
Output(4,1,"Lb"
Output(4,4,C*1000*2.20462262
Output(5,1,"----------------"
Output(6,1,"Tf"
Output(6,4,C
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto AB
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto BB
End
End
End
If K=93
Then
Lbl CA
ClrHome
0->A
0->B
0->C
0->X
Output(1,1,"----------------"
Output(2,1,"mm"
Output(3,1,"----------------"
Output(4,1,"in"
Output(5,1,"----------------"
Output(6,1,"Ft"
Output(7,1,"----------------"
Repeat X
getKey->X
End
If X=25
Then
Goto AA
End
If X!=92 and X!=93 and X!=94
Then
Goto CA
End
If X=45
Then
Goto EX
End
If X=92
Then
Lbl CB
ClrHome
Output(1,1,"----------------"
Output(3,1,"----------------"
Disp ""
Input "mm ",A
ClrHome
Output(1,1,"----------------"
Output(2,1,"mm"
Output(2,4,A
Output(3,1,"----------------"
Output(4,1,"in"
Output(4,4,A/25.4
Output(5,1,"----------------"
Output(6,1,"Ft"
Output(6,4,A*0.003280839895013
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto CA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto CB
End
End
If X=93
Then
Lbl CC
ClrHome
Disp ""
Disp ""
Output(3,1,"----------------"
Disp ""
Output(5,1,"----------------"
Input "in ",B
ClrHome
Output(1,1,"----------------"
Output(2,1,"mm"
Output(2,4,B*25.4
Output(3,1,"----------------"
Output(4,1,"in"
Output(4,4,B
Output(5,1,"----------------"
Output(6,1,"Ft"
Output(6,4,B*0.0833333333
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto CA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto CC
End
End
If X=94
Then
Lbl CD
ClrHome
Disp ""
Disp ""
Disp ""
Disp ""
Output(5,1,"----------------"
Disp ""
Output(7,1,"----------------"
Input "Ft ",C
ClrHome
Output(1,1,"----------------"
Output(2,1,"mm"
Output(2,4,C*304.8
Output(3,1,"----------------"
Output(4,1,"in"
Output(4,4,C*12
Output(5,1,"----------------"
Output(6,1,"Ft"
Output(6,4,C
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto CA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto CD
End
End
End
If K=94
Then
Lbl DA
ClrHome
0->A
0->B
0->C
0->X
Output(1,1,"----------------"
Output(2,1,"MPa"
Output(3,1,"----------------"
Output(4,1,"Atm"
Output(5,1,"----------------"
Output(6,1,"Psi"
Output(7,1,"----------------"
Repeat X
getKey->X
End
If X=25
Then
Goto AA
End
If X!=92 and X!=93 and X!=94
Then
Goto DA
End
If X=45
Then
Goto EX
End
If X=92
Then
Lbl DB
ClrHome
Output(1,1,"----------------"
Output(3,1,"----------------"
Disp ""
Input "MPa ",A
ClrHome
Output(1,1,"----------------"
Output(2,1,"MPa"
Output(2,5,A
Output(3,1,"----------------"
Output(4,1,"Atm"
Output(4,5,A*9.86923266716
Output(5,1,"----------------"
Output(6,1,"Psi"
Output(6,5,A*145.03773773
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto DA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto DB
End
End
If X=93
Then
Lbl DC
ClrHome
Disp ""
Disp ""
Output(3,1,"----------------"
Disp ""
Output(5,1,"----------------"
Input "Atm ",B
ClrHome
Output(1,1,"----------------"
Output(2,1,"MPa"
Output(2,5,B*0.101325
Output(3,1,"----------------"
Output(4,1,"Atm"
Output(4,5,B
Output(5,1,"----------------"
Output(6,1,"Psi"
Output(6,5,B*14.69594877549
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto DA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto DC
End
End
If X=94
Then
Lbl DD
ClrHome
Disp ""
Disp ""
Disp ""
Disp ""
Output(5,1,"----------------"
Disp ""
Output(7,1,"----------------"
Input "Psi ",C
ClrHome
Output(1,1,"----------------"
Output(2,1,"MPa"
Output(2,5,C*0.006894757293177
Output(3,1,"----------------"
Output(4,1,"Atm"
Output(4,5,C*0.06804596390996
Output(5,1,"----------------"
Output(6,1,"Psi"
Output(6,5,C
Output(7,1,"----------------"
Repeat Ans
getKey
End
Ans->L
If L=25
Then
Goto DA
End
If L=45
Then
Goto EX
End
If L!=45
Then
Goto DD
End
End
End
Lbl EX
ClrDraw
ClrHome