home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFB.ZIP / FFUTILS.ARC / ZIMMER.ARC / RSTACK.SEQ < prev    next >
Encoding:
Text File  |  1987-12-04  |  430 b   |  18 lines
  1. \ RSTACK.SEQ    Return stack name printing              by Tom Zimmer
  2.  
  3. comment:
  4.  
  5.   Prints a list of all words on the return stack.
  6.  
  7. comment;
  8.  
  9. : .RSTACK       ( --- )
  10.                 CR
  11.                 RP0 @ RP@ - 2/ DUP
  12.                 BEGIN   DUP
  13.                 WHILE   1- R> ROT ROT REPEAT DROP
  14.                 BEGIN   DUP
  15.                 WHILE   1- SWAP DUP >R >.ID TAB ?CR
  16.                 REPEAT  DROP  ;
  17.  
  18.