home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_2dc.seq < prev    next >
Encoding:
Text File  |  1990-04-10  |  532 b   |  20 lines
  1. \ Problem 4.2    04/10/90 15:21:11.24
  2.  
  3.  
  4.  
  5. : B.R           ( n w -- )
  6.         2 BASE ! U.R DECIMAL ;
  7.  
  8.  
  9.  
  10. : LTEST         ( n1 n2 -- )
  11.         CR 10 SPACES SWAP DUP 16 B.R DUP 21 B.R DUP 21 B.R
  12.         CR 10 SPACES SWAP DUP 16 B.R DUP 21 B.R DUP 21 B.R
  13.         CR 10 SPACES ." ----------------"
  14.             5 SPACES ." ----------------"
  15.             5 SPACES ." ----------------"
  16.         CR  7 SPACES ." AND" 2DUP AND 16 B.R
  17.             3 SPACES ." OR"  2DUP OR  16 B.R
  18.             2 SPACES ." XOR"      XOR 16 B.R ;
  19.  
  20.