home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / DEFAULT.SEQ < prev    next >
Encoding:
Text File  |  1988-01-06  |  845 b   |  31 lines
  1. \ DEFAULT       Open file specified from command line.  by Tom Zimmer
  2.  
  3. \ Link this file into the FILELIST chain.
  4.  
  5. FILES DEFINITIONS
  6.  
  7. VARIABLE DEFAULT.SEQ
  8.  
  9. FORTH DEFINITIONS
  10.  
  11. 128 CONSTANT DOS-LINE
  12.  
  13. : DOS>TIB       ( --- )
  14.                  dos-line count >r tib r@ cmove
  15.                  r@ span ! r> #tib ! >in off ;
  16.  
  17. : HDEFAULT      ( -- )
  18.                 shndl @ clr-hcb dos-line c@ 0<>
  19.                 if      dos>tib >in @
  20.                         bl word 1+ c@ ascii - <>
  21.                         if      dup >in ! shndl @ !hcb
  22.                                 shndl @ c@ 0<>
  23.                                 if      shndl @ hopen drop
  24.                                         loadline off
  25.                                 then
  26.                         then    drop
  27.                 then    ;
  28.  
  29. ' HDEFAULT IS DEFAULT
  30.  
  31.