import std/[strutils, os, tables]

var 
  gfisnum = false
  gdisplaystr = ""
  gbinop = "+"
  gax = 0.0
  gbx = 1.0
  MAXDISP = 24

const kbd = [
  ("Off", 2628095), ("C", 2628095), ("<x]", 2628095), ("*", 1015567),
  ("7", 986895), ("8", 986895), ("9", 986895), ("/", 1015567),
  ("4", 986895), ("5", 986895), ("6", 986895), ("+", 1015567),
  ("1", 986895), ("2", 986895), ("3", 986895), ("-", 1015567),
  ("0", 986895), (".", 986895), ("+/-", 986895), ("=", 1015567)
]

proc displaystr(psz: string, color: int) =
  stdout.writeLine "F 0 16777215\nFR 0 0 0 9900 600"
  stdout.writeLine "F 0 ", color
  stdout.writeLine "R 0 100 100 9800 500"
  stdout.writeLine "R$ 0 9800 520 \"", psz, "\"\nZ "
  stdout.flushFile()

proc keytoexe(rowcol: int) =
  case rowcol
  of 4,5,6,8,9,10,12,13,14,16,17:
    if gfisnum:
      if gdisplaystr.len < (MAXDISP - 1):
        gdisplaystr.add(kbd[rowcol][0])
        displaystr(gdisplaystr, 6052991)
    else:
      gdisplaystr = kbd[rowcol][0]
      gfisnum = true
      displaystr(gdisplaystr, 6052991)
  of 0:
    stdout.writeLine "O 0 0 0"
    stdout.flushFile()
    quit(0)
  of 1:
    gdisplaystr = ""
    displaystr("0", 6052991)
    gfisnum = false
  of 2:
    if gdisplaystr.len > 0:
      if gdisplaystr.len == 1: displaystr("0", 6052991)
      gdisplaystr.setLen(gdisplaystr.len - 1)
      if gdisplaystr.len > 0: displaystr(gdisplaystr, 6052991)
  of 18:
    if gdisplaystr.len > 0:
      if gdisplaystr[0] == '-':
        gdisplaystr = gdisplaystr[1..^1]
      elif gdisplaystr.len < (MAXDISP - 1):
        gdisplaystr = "-" & gdisplaystr
      displaystr(gdisplaystr, 6052991)
  of 3, 7, 11, 15:
    gbinop = kbd[rowcol][0]
    try: gax = parseFloat(gdisplaystr) except: gax = 0.0
    gfisnum = false
  of 19:
    if gfisnum:
      try: gbx = parseFloat(gdisplaystr) except: gbx = 0.0
      gfisnum = false
    case gbinop
    of "+": gax = gax + gbx
    of "-": gax = gax - gbx
    of "*": gax = gax * gbx
    of "/": gax = if gbx != 0: gax / gbx else: 0.0
    else: discard
    gdisplaystr = $gax
    displaystr(gdisplaystr, 6052991)
  else: discard

let keyMap = {79:0, 111:0, 99:1, 67:1, 8:2, 42:3, 55:4, 56:5, 57:6, 47:7, 
              52:8, 53:9, 54:10, 43:11, 49:12, 50:13, 51:14, 45:15, 48:16, 
              46:17, 105:18, 73:18, 61:19}.toTable

while true:
  let line = try: stdin.readLine() except EOFError: break
  if line == "drawapp":
    stdout.writeLine "Fo 0 611 3\nFo 1 400 3\nFo 2 140 3"
    stdout.writeLine "F 0 16777215\nFR 0 0 0 10000 10000\nB 0 12632256"
    for i in 0..<kbd.len:
      let (x, y) = ((i mod 4) * 2000, (i div 4) * 1200)
      stdout.writeLine "F 0 10526880\nFR 0 ", x+220, " ", y+1220, " ", x+2080, " ", y+2280
      stdout.writeLine "F 0 986895\nR 0 ", x+200, " ", y+1200, " ", x+2100, " ", y+2300
      stdout.writeLine "F 0 ", kbd[i][1]
      stdout.writeLine "C$ 0 ", x+1100, " ", y+1700, "\"", kbd[i][0], "\""
    stdout.writeLine "F 1 16711835\nL$ 1 20 924 \"nim cloud app transparent shell stdinout\""
    stdout.writeLine "F 2 255\nC$ 2 5000 7200\"Corrie Zucker Technologies LLC.\""
    stdout.writeLine "C$ 2 5000 7340\"d/b/a CZ Technologies\"\nZ "
    stdout.flushFile()
    displaystr("0", 6052991)
  elif line == "QUERY_REMOTE":
    stdout.writeLine "Rz 300 206"
    stdout.flushFile()
  else:
    try:
      let parts = line.split()
      if parts.len >= 3:
        let (btn, px, py) = (parseInt(parts[0]), parseInt(parts[1]), parseInt(parts[2]))
        if px >= 0:
          let row = (py - 1200) div 1200
          let col = (px - 200) div 2000
          if row in 0..4 and col in 0..3: keytoexe(row * 4 + col)
        elif px == -2:
          if keyMap.contains(btn): keytoexe(keyMap[btn])
        elif px == -4:
          stdout.writeLine "Rz ", btn, " ", py
        elif px == -5:
          stdout.writeLine "Mv ", btn, " ", py
        elif px == -98:
          sleep(py)
    except: discard