\ 2007-01-16 EW adv4_lcd.fs

\ always display a sign
: sign! 0 < IF 45 ELSE 43 ENDIF hold ;
\ always display 4,2 digits
: p4!  s>d <# # # # # #> ;
\ : p3!  s>d <# # # # #> ;
: p2!  s>d <# # # #> ;
\ start next lcdtype at lcdposition
\ row (0,1) col (0..15)
: lcdpos ( row col -- )
  swap $40 * + $80 + lcdctrl! &1 ms
;