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