Код:
: del-block { a u x y dx dy \ at yt -- a u }
a TO at u 0
DO I a + C@ 0xA =
IF yt y y dy + WITHIN
IF at x + dx + at x + u at x + a - - MOVE
dx NEGATE R@ + RP@ !
THEN
a I 1+ + TO at yt 1+ TO yt
THEN
yt 1+ y dy + >
IF LEAVE THEN
LOOP a u dy dx * - ;
\ EOF
: cr!
S" 0x0A0D SWAP 2R@ DROP + W!" EVALUATE ; IMMEDIATE
: s1
S" 01234..56789..ABCDRTTY..RWRWRT.."
\ 5 12 22 30
2>R 5 cr! 12 cr! 22 cr! 30 cr! 2R> ;
s1 TYPE CR
s1 1 1 2 3 del-block TYPE
LOG
Код:
01234
56789
ABCDRTTY
RWRWRT
01234
589
ADRTTY
RWRT
Ok