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