imageFile/f/5th_logo

   1 : tmpbox ( x y -- )\r
   2 10 * swap 10 *          \ y x\r
   3 dup 9 + rot dup 9 +     \ x1 x2 y1 y2\r
   4 screen FF FF FF calccol boxf ;\r
   5 \r
   6 : tmplineh ( x y -- )\r
   7 swap 1+ swap 2dup tmpbox\r
   8 swap 1+ swap tmpbox ;\r
   9 \r
  10 : tmplinev ( x y -- )\r
  11 1+ 2dup tmpbox\r
  12 1+ tmpbox ;\r
  13 \r
  14 : tmpI ( x y -- )\r
  15 2dup tmplinev\r
  16 3 + 2dup tmplinev\r
  17 tmpbox ;\r
  18 \r
  19 : tmpT ( x y -- )\r
  20 2dup tmpI\r
  21 tmplineh ;\r
  22 \r
  23 : tmpF ( x y -- )\r
  24 2dup tmpT\r
  25 3 + tmplineh ;\r
  26 \r
  27 : tmpH ( x y -- )\r
  28 2dup tmpI\r
  29 2dup 3 + tmplineh\r
  30 swap 3 + swap tmpI ;\r
  31 \r
  32 : tmpxp\r
  33 swap 5 + swap ;\r
  34 \r
  35 : tmplogo ( x y -- )\r
  36 2dup tmpF tmpxp\r
  37 2dup tmpI tmpxp\r
  38 2dup tmpF tmpxp\r
  39 2dup tmpT tmpxp\r
  40 tmpH ;\r
  41 \r
  42 7 3 tmplogo\r
  43 0 18 at!\r
  44 .( Fifth, Copyright 2003 Svjatoslav Agejenko. All rights reserved.)\r
  45 forget tmpbox\r
  46 update\r