2020-05-01 21:52:38 -04:00
|
|
|
: F
|
|
|
|
|
FBUF _type FBUF EDPOS @ _cpos ( a1 a2 )
|
|
|
|
|
BEGIN
|
|
|
|
|
C@+ ROT ( a2+1 c2 a1 ) C@+ ROT ( a2+1 a1+1 c1 c2 )
|
|
|
|
|
= NOT IF DROP FBUF THEN
|
2020-05-22 14:17:38 -04:00
|
|
|
TUCK C@ 0xd = ( a1 a2 f1 )
|
2020-05-01 21:52:38 -04:00
|
|
|
OVER BLK) = OR ( a1 a2 f1|f2 )
|
|
|
|
|
UNTIL
|
|
|
|
|
DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! THEN
|
2020-05-07 08:38:57 -04:00
|
|
|
EDPOS @ 64 / _pln DROP
|
2020-05-01 21:52:38 -04:00
|
|
|
;
|
|
|
|
|
|
