キー入力

main
  Display.Mode(0)
  Canvas.Init
  while TRUE
    Canvas.Locate(0,0)
    k=Key.Press
    if k@KEY_X1
      Canvas.Write("X1")
    if k@KEY_X2
      Canvas.Write("X2")
    if k@KEY_X3
      Canvas.Write("X3")
    if k@KEY_X4
      Canvas.Write("X4")
    if k@KEY_START
      break
    if k==0
      Canvas.Clear

Xキーの押下げ状態を表示します。
STARTキーで終了します。