home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / forthmac / !Forthmacs / extend / showspace < prev    next >
Encoding:
Text File  |  1996-08-26  |  278 b   |  9 lines
  1. \ show-space  ( -- )    displays the amount of remaining space in the
  2. \                       resident and transient dictionaries
  3.  
  4. : show-space    ( -- )
  5.     base @ >r decimal
  6.     ." Bytes available (decimal): Resident: " limit here - .
  7.     ."  Transient " hedge there - .  cr
  8.     r> base ! ;
  9.