home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_6dc.seq < prev    next >
Text File  |  1990-04-04  |  566b  |  20 lines
  1. \ NTABLE PROGRAM FOR P3.6
  2. \ BY DICKSON CHENG  04/04/90 20:39:05.93
  3.  
  4. : NTABLE        ( n -- )
  5.         CR ."   unsigned" ."     signed" ."   unsigned"
  6.            ."     signed" ."   unsigned" ."     signed"
  7.         CR ."    decimal" ."    decimal" ."      octal"
  8.            ."      octal" ."        hex" ."        hex"
  9.         20 0 DO
  10.              CR
  11.              DECIMAL DUP 10 U.R   DUP 10 .R
  12.              OCTAL   DUP 10 U.R   DUP 10 .R
  13.              HEX     DUP 10 U.R   DUP 10 .R
  14.              1 +
  15.              LOOP
  16.              DROP DECIMAL ;
  17.  
  18.  
  19.  
  20.