: tmpbox ( x y -- ) 10 * swap 10 * \ y x dup 9 + rot dup 9 + \ x1 x2 y1 y2 screen FF FF FF calccol boxf ; : tmplineh ( x y -- ) swap 1+ swap 2dup tmpbox swap 1+ swap tmpbox ; : tmplinev ( x y -- ) 1+ 2dup tmpbox 1+ tmpbox ; : tmpI ( x y -- ) 2dup tmplinev 3 + 2dup tmplinev tmpbox ; : tmpT ( x y -- ) 2dup tmpI tmplineh ; : tmpF ( x y -- ) 2dup tmpT 3 + tmplineh ; : tmpH ( x y -- ) 2dup tmpI 2dup 3 + tmplineh swap 3 + swap tmpI ; : tmpxp swap 5 + swap ; : tmplogo ( x y -- ) 2dup tmpF tmpxp 2dup tmpI tmpxp 2dup tmpF tmpxp 2dup tmpT tmpxp tmpH ; 7 3 tmplogo 0 18 at! .( Fifth, Copyright 2003 Svjatoslav Agejenko. All rights reserved.) forget tmpbox update