home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
seedump.zip
/
SAMPLES
/
R3.BAG
< prev
next >
Wrap
Text File
|
1995-08-18
|
376b
|
22 lines
/* mini calculator for bagger */
parse arg p
if ( p = "" )
then do
say "Please enter a decimal or hexadecimal number as parameter."
say "e.g. r3 15 "
exit 1
end
res='r'
interpret res '=' p
if DATATYPE(r) == 'NUM' then do
say p '=' r',X'd2x(r)
return
end
if DATATYPE(r,'X') == 1 then do
r = x2d(r)
say p '=' r',X'd2x(r)
return
end
say r