home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / LASER / FPC35_5.ZIP / FPCSRC.ZIP / FILSTAT.SEQ < prev    next >
Encoding:
Text File  |  1989-05-26  |  1.1 KB  |  29 lines
  1. \ FILSTAT       Display file status, and loaded files.  by Tom Zimmer
  2.  
  3. decimal
  4.  
  5. : .LOADED       ( --- ) \ Print a list of all files that have been loaded.
  6.                 cr also files words previous ;
  7.  
  8. : .FILES        ( --- ) \ Print the contents of the system handles.
  9.                 hndls maxnest bounds
  10.                 ." \n\s11___Filename___\s11Status"
  11.                 do      cr i seqhandle =
  12.                         if      ." Current - "
  13.                         else    ." \s8- "
  14.                         then    i count ?dup
  15.                         if      type
  16.                         else    drop ." .....No File....."
  17.                         then    26 i c@ ?dup 0=
  18.                                 if      17 then - spaces
  19.                                 i >hndle @ 0<
  20.                         if      i c@
  21.                                 if      ." Closed"
  22.                                 else    ." ......"
  23.                                 then
  24.                         else            ." *Open*"
  25.                         then
  26.          b/hcb +loop    cr ;
  27.  
  28.  
  29.