mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 10:08:46 +10:00
16 lines
185 B
Forth
16 lines
185 B
Forth
: EFS@
|
|
256 /MOD 3 PC! 3 PC!
|
|
1024 0 DO
|
|
3 PC@
|
|
BLK( I + C!
|
|
LOOP
|
|
;
|
|
: INIT
|
|
CURRENT @ HERE !
|
|
BLK$
|
|
['] EFS@ BLK@* !
|
|
RDLN$
|
|
Z80A$
|
|
INTERPRET
|
|
;
|