home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / l3p010.seq < prev    next >
Text File  |  1988-10-30  |  469b  |  15 lines
  1.  
  2.  
  3. \ This stack print will print double numbers that are on the stack.
  4. \ If there is an odd number of numbers on the stack or if the stack
  5. \ has a mixed combination of singles and doubles you are likely to
  6. \ get confusing results.
  7. : .SD ( -- )
  8.      DEPTH ?DUP IF
  9.                  0 ?DO DEPTH I - 1- PICK
  10.                        DEPTH I - 2- PICK
  11.                        D.  8 EMIT ASCII . EMIT
  12.                  2 +LOOP
  13.                 ELSE ." Empty" THEN ;
  14.  
  15.