Disp "T ?"
Prompt T
Disp "1(C) 2(K) 3(F) ?"
prompt U
If U = 1
Then
T → T
Else
If U = 2
Then
T − 273.15 → T
Else
If U = 3
Then
(T − 32) * 100 / 180 → T
End
End
End
Disp "T(C)=", T
Disp "T(K)=", T + 273.15
Disp "T(F)=", 32 + 180 * T / 100
Stop

[prgm] [E/S] [3:Disp]
[prgm] [E/S] [2:Prompt]
[prgm] [E/S] [3:Disp]
[prgm] [E/S] [2:Prompt]
[prgm] [CTL] [1:If] U [test] [TEST] [1:=] 1
[prgm] [CTL] [2:Then]
T [sto→] T
[prgm] [CTL] [3:Else]
[prgm] [CTL] [1:If] U [test] [TEST] [1:=] 2
[prgm] [CTL] [2:Then]
T [sto→] T
[prgm] [CTL] [3:Else]
[prgm] [CTL] [1:If] U [test] [TEST] [1:=] 3
[prgm] [CTL] [2:Then]
T [sto→] T
[prgm] [CTL] [7:End]
[prgm] [CTL] [7:End]
[prgm] [CTL] [7:End]
[prgm] [E/S] [3:Disp]
[prgm] [E/S] [3:Disp]
[prgm] [E/S] [3:Disp]
[prgm] [CTL] [F:Stop]