{{ ---------------------------------------------------------------------------------------------------------

Hive-Computer-Projekt: keyeasy

Keyboard driver test for keyboard-de with easy cursor codes

 --------------------------------------------------------------------------------------------------------- }}


OBJ
        ios: "ios"

CON

_CLKMODE     = XTAL1 + PLL16X
_XINFREQ     = 5_000_000


PUB main | key,spec
  ios.start

' code für test im ram, sollte bei bin-datei auskommentiert werden
' ios.startram


  ios.print(string("keyeasy - press [ESC] to exit.",13))
  repeat
    key  := ios.keywait
    spec := ios.keyspec
      if key=="←"
        ios.cursetx(ios.curgetx-1)
      elseif key=="→"
        ios.cursetx(ios.curgetx+1)
      elseif key=="↑"
        ios.cursety(ios.curgety-1-1)
      elseif key=="↓"
        ios.cursety(ios.curgety+1-1)
      elseif key=="◀"
        ios.cursetx(0)
      elseif key=="▶"
        ios.cursetx(-1)
      else
        ios.printchar(key)
  until key == 27               'Esc

  ios.stop