3 dup 9 + rot dup 9 + \ x1 x2 y1 y2
\r
4 screen FF FF FF calccol boxf ;
\r
6 : tmplineh ( x y -- )
\r
7 swap 1+ swap 2dup tmpbox
\r
8 swap 1+ swap tmpbox ;
\r
10 : tmplinev ( x y -- )
\r
30 swap 3 + swap tmpI ;
\r
35 : tmplogo ( x y -- )
\r
44 .( Fifth, Copyright 2003 Svjatoslav Agejenko. All rights reserved.)
\r