(* EEPROM version of ." and XY" for OLED screen
   can be used with all loaded letter sets
*)

value O-EMIT
\ value O-CR
: &EMIT     o-emit execute ;
\ : &CR       o-cr execute ;

\ : TINY      ['] &emit  to o-emit ;
: FAT       ['] &femit to o-emit ;
: THIN      ['] &&emit to o-emit ;
: GRAPHIC   ['] gemit  to o-emit ;

: &SPACES   0 ?do  bl o-emit  loop ;
: ETYPE     bounds ?do  i ec@ &emit  loop ;
: E"(       inl# ec@+ etype ;

: &"            ( -- )
    flyer  postpone E"(  ehere ,
    ch " parse dup ec,
    bounds ?do i c@ ec, loop ;  immediate

: XY"       ( x y ccc -- )
    flyer  postpone >xy postpone &" ; immediate

\ End
