mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-12 02:29:27 +00:00
15 lines
299 B
Forth
15 lines
299 B
Forth
|
|
include extend2.fth
|
|
\needs drv : drv 2 ; \ showing C: if drv isn't defined
|
|
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
|