home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / l3p030.seq < prev    next >
Encoding:
Text File  |  1988-10-30  |  686 b   |  21 lines
  1.  
  2. \ Illustration of Number bases and formated display operators.
  3. : NTABLE ( dn -- )
  4.          CR ."      unsigned"  ."        signed" ."      unsigned"
  5.             ."        signed"  ."      unsigned" ."        signed"
  6.          CR ."       decimal"  ."       decimal" ."        octal "
  7.             ."        octal "  ."         hex  " ."         hex  "
  8.          20 0 DO
  9.               CR
  10.               DECIMAL 2DUP 13 UD.R
  11.                       2DUP 13  D.R
  12.               OCTAL   2DUP 13 UD.R
  13.                       2DUP 13  D.R
  14.               HEX     2DUP 13 UD.R
  15.                       2DUP 13  D.R
  16.               1. D+
  17.               LOOP
  18.               2DROP DECIMAL ;
  19.  
  20.  
  21.