home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
p3_8dc.seq
< prev
next >
Wrap
Text File
|
1990-04-04
|
689b
|
25 lines
\ NTABLE PROGRAM FOR P3.6
\ BY DICKSON CHENG 04/04/90 20:39:05.93
: BINARY ( -- )
2 BASE ! ;
: NTABLE ( n -- )
DARK
CR ." unsigned" ." signed" ." unsigned"
." signed"
." unsigned" ." signed"
CR ." decimal" ." decimal" ." octal"
." octal"
." binary" ." binary"
20 0 DO
CR
DECIMAL DUP 10 U.R DUP 10 .R
OCTAL DUP 10 U.R DUP 10 .R
BINARY DUP 18 U.R DUP 18 .R
1 +
LOOP
DROP DECIMAL KEY DROP ;