2020-04-14 23:05:43 +10:00
|
|
|
: EFS@
|
|
|
|
256 /MOD 3 PC! 3 PC!
|
|
|
|
1024 0 DO
|
2020-04-17 07:22:18 +10:00
|
|
|
4 PC@
|
2020-04-14 23:05:43 +10:00
|
|
|
BLK( I + C!
|
|
|
|
LOOP
|
|
|
|
;
|
2020-04-17 07:22:18 +10:00
|
|
|
: EFS!
|
|
|
|
256 /MOD 3 PC! 3 PC!
|
|
|
|
1024 0 DO
|
|
|
|
BLK( I + C@ 4 PC!
|
|
|
|
LOOP
|
|
|
|
;
|
|
|
|
|
2020-04-14 23:05:43 +10:00
|
|
|
: INIT
|
|
|
|
CURRENT @ HERE !
|
|
|
|
BLK$
|
|
|
|
['] EFS@ BLK@* !
|
2020-04-17 07:22:18 +10:00
|
|
|
['] EFS! BLK!* !
|
2020-04-14 23:05:43 +10:00
|
|
|
RDLN$
|
2020-04-15 06:07:07 +10:00
|
|
|
LIT< _sys [entry]
|
2020-04-25 02:10:07 +10:00
|
|
|
." Collapse OS" CRLF
|
2020-04-14 23:05:43 +10:00
|
|
|
INTERPRET
|
|
|
|
;
|