home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / lib / loading.4th < prev    next >
Encoding:
Text File  |  1994-09-13  |  1.0 KB  |  37 lines
  1. \
  2. \ loading.4th ---    Library code for pfe, utilities for loading blocks.
  3. \
  4. \ (duz 22May94)
  5. \
  6.  
  7. \ =======================================================================
  8. \ more on blocks and loading
  9. \ =======================================================================
  10.  
  11. : #BLOCKS    \ --- u ; number of blocks in current block file
  12.         BLOCK-FILE FILE-SIZE ?FILE  1024 UM/MOD NIP ;
  13.  
  14. : +LOAD        \ n --- ; load screen relative
  15.         ?LOADING BLK @ + LOAD ;
  16.  
  17. : +THRU        \ first last --- ; like THRU, relative block numbers
  18.         ?LOADING SWAP BLK @ + SWAP BLK @ + THRU ;
  19.  
  20. : INDEX        \ first last --- ; show first lines of block range
  21.         START?CR
  22.         1+ SWAP DO  ?CR I 3 .R SPACE  I BLOCK 64 TYPE
  23.         LOOP SPACE ;
  24.  
  25. : QX        \ --- ; show first lines partially of every block in file
  26.         CR START?CR
  27.         #BLOCKS 0 DO
  28.             OUT @ 20 + XMAX >= IF ?CR THEN
  29.             I 3 .R SPACE  I BLOCK 16 TYPE
  30.         LOOP SPACE ;
  31.  
  32. \ =======================================================================
  33. \ end of loading.4th
  34. \ =======================================================================
  35.  
  36. CR .( Loading utilities loaded. )
  37.