\ DEFAULT       Open file specified from command line.  by Tom Zimmer

\ Link this file into the FILELIST chain.

FILES DEFINITIONS

VARIABLE DEFAULT.SEQ

FORTH DEFINITIONS

128 CONSTANT DOS-LINE

: DOS>TIB       ( --- )
                 dos-line count >r tib r@ cmove
                 r@ span ! r> #tib ! >in off ;

: HDEFAULT      ( -- )
                shndl @ clr-hcb dos-line c@ 0<>
                if      dos>tib                         \ move dosline to tib
                        bl word 1+ c@ ascii - <>        \ is - in place of file
                        if      >in off                 \ reset >IN
                                shndl @ !hcb            \ load file to handle
                                shndl @ c@ 0<>          \ anything to open?
                                if      shndl @ hopen   \ did it open ok?
                                        if      >in off \ if not just passon
                                        then    loadline off
                                then
                        then            \ if first word is - then skip HOPEN
                then    ;               \ skip whole thing if dosline is null

' HDEFAULT IS DEFAULT