home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / forthmacs / !Forthmacs / lib / xprint < prev   
Encoding:
Text File  |  1994-07-24  |  242 b   |  16 lines
  1. decimal
  2. 2  constant two
  3. 8  constant eight
  4. 10 constant ten
  5. 16 constant sixteen
  6. : n. ( n base -- )
  7.   base @ >r base ! u. r> base !
  8. ;
  9. : ln. ( d base -- )
  10.   base @ >r base ! ul. r> base !
  11. ;
  12. : x. ( n -- ) ( print in unsigned hex )
  13.   sixteen n.
  14. ;
  15.  
  16.