%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:ROUND
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\10^x(\Int B)\->B
\If A<0
\Then \(-)B\->B
\IfEnd
\Abs (A/B)+.5\->A
\If A=\Int A
\Then 2\Int (A/2)\->A
\Else \Int A\->A
\IfEnd
AB\->A
A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:44
File Name:ROUNDNEA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\10^x(\Int B)\->B
\If A<0
\Then \(-)B\->B
\IfEnd
B\Int (\Abs (A/B)+.5)\->A
A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:61
File Name:ROUNDUP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\10^x(\Int B)\->B
\If A<0
\Then \(-)B\->B
\IfEnd
\Abs (A/B)\->A
\If A\<>\Int A
\Then 1+\Int A\->A
\IfEnd
AB\->A
A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:22
File Name:ROUNDDOW
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\10^x(\Int B)\->B
B\Int (A/B)\->A
A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:33
File Name:ROUNDDIG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If A\<>0
\Then \Int \log \Abs A-B+1\->B
\IfEnd
\Prog "ROUND"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:139
File Name:ROUNDTST
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Value to round"?\->C
"Place"?\->D
C\->A
D\->B
\Prog "ROUNDDOW"
\Ans\DispC\->A
D\->B
\Prog "ROUNDNEA"
\Ans\DispC\->A
D\->B
\Prog "ROUND"
\Ans\DispC\->A
D\->B
\Prog "ROUNDUP"
\Ans\DispC\->A
D\->B
\Prog "ROUNDDIG"
\Ans
%End