home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_1dc.seq < prev    next >
Text File  |  1990-04-03  |  230b  |  11 lines
  1. \ PROGRAM FOR PROBLEM 3.1
  2. \ Revised by Dickson Cheng  04/03/90 15:36:28.28
  3.  
  4. : .SS           ( -- )
  5.     DEPTH ?DUP IF
  6.         0 ?DO DEPTH I - 1- PICK
  7.         .  \ out put value
  8.         loop
  9.         else ." Empty" THEN ;
  10.  
  11.