2022-03-15 00:39:21 +01:00
|
|
|
|
2022-03-21 00:50:22 +01:00
|
|
|
include extend2.fth
|
|
|
|
|
include multivid.fth
|
|
|
|
|
|
|
|
|
|
\ : .blk|tib
|
|
|
|
|
\ blk @ ?dup IF ." Blk " u. ?cr exit THEN
|
|
|
|
|
\ incfile @ IF tib #tib @ cr type THEN ;
|
|
|
|
|
|
|
|
|
|
\ ' .blk|tib Is .status
|
|
|
|
|
|
|
|
|
|
\ include dos2.fth
|
|
|
|
|
include dos3.fth
|
|
|
|
|
include log2file.fth
|
