Anonymous

: +X // n -->
 WHERETEXTXY ROT ROT + SWAP TEXTXY
;

: +Y // n -->
 WHERETEXTXY ROT + TEXTXY
;

: .PRINT // p --->
 DUP C@ IF // p
  BEGIN
  DUP C@ 16 * SYMBOLS + // p chr(p)
   16 0 DO
    DUP I + C@
    0x80
    8 0 DO
     OVER OVER AND IF WHERETEXTXY GETCOLOR PIXEL THEN
     2/
     1 +X
    LOOP
    DROP DROP
    -8 +X
    1 +Y
   LOOP
   DROP
   8 +X
   -16 +Y
  1+ DUP C@ 0 = UNTIL // p
 THEN
 DROP
;