home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
RXCALC.ZIP
/
REMAIND.CAL
< prev
next >
Wrap
Text File
|
1991-04-23
|
486b
|
10 lines
/* Rexx Calculator remainder processor */
parse arg left, right /* get the two operands */
numeric digits CalcPrecision() /* set current precision */
numeric form value CalcForm() /* set current form */
if (right = 0) /* bad division? */
then return 'Error' /* return error indicator */
return left // right /* return result */