# calc.ps1
$MAXDISPSTRLEN = 64; $gdispstr = ""; $gfnotexit = $true; $gfnumenting = 0
$kbd = "Off", 2628095, "C", 2628095, "<x]", 2628095, "*", 1015567, "7", 986895, "8", 986895, "9", 986895, "/", 1015567, "4", 986895, "5", 986895, "6", 986895, "+", 986895, "1", 986895, "2", 986895, "3", 986895, "-", 1015567, "0", 986895, ".", 986895, "+/-", 986895, "=", 1015567

function myputs($s) { [Console]::Write($s.Replace('\n', "`n")); [Console]::Out.Flush() }

function dispstr($s, $color) { myputs "F 0 16777215\nFR 0 0 0 9900 600\nF 0 $color\nR 0 100 100 9800 500\nR$ 0 9800 520 `"$s`"\nZ \n" }

function itorect($i, $cmd, $x1, $y1, $x2, $y2) {
    $row = [Math]::Floor($i/4); $col = $i%4
    myputs "$cmd 0 $(($col*2000+$x1)) $(($row*1200+$y1)) $(($col*2000+$x2)) $(($row*1200+$y2))\n"
}

function keytoexe($r, $c) {
    $idx = ($r * 4) + $c
    switch ($idx) {
        { $_ -in 4,5,6,8,9,10,12,13,14,16,17 } {
            if ($script:gfnumenting -eq 1) {
                if ($script:gdispstr.Length -lt ($MAXDISPSTRLEN-1)) { $script:gdispstr += $kbd[$idx*2] }
            } else { $script:gdispstr = $kbd[$idx*2]; $script:gfnumenting = 1 }
            dispstr $script:gdispstr 6052991
        }
        0 { myputs "O 0 0 0\n"; Start-Sleep -s 1; $script:gfnotexit = $false }
        1 { $script:gdispstr = ""; $script:gfnumenting = 0; dispstr "0" 6052991 }
        2 { if ($script:gdispstr.Length -gt 0) { $script:gdispstr = $script:gdispstr.Substring(0, $script:gdispstr.Length - 1) }; if ($script:gdispstr -eq "") { dispstr "0" 6052991 } else { dispstr $script:gdispstr 6052991 } }
        18 { if ($script:gdispstr.StartsWith("-")) { $script:gdispstr = $script:gdispstr.Substring(1) } else { $script:gdispstr = "-" + $script:gdispstr }; dispstr $script:gdispstr 6052991 }
        { $_ -in 3,7,11,15 } { $script:gbinop = $kbd[$idx*2]; $script:gax = [double]$script:gdispstr; $script:gfnumenting = 0; $script:gdispstr = "" }
        19 {
            if ($script:gfnumenting -eq 1) { $script:gbx = [double]$script:gdispstr; $script:gfnumenting = 0 }
            switch ($script:gbinop) {
                "*" { $script:gax *= $script:gbx } "/" { $script:gax /= $script:gbx } "+" { $script:gax += $script:gbx } "-" { $script:gax -= $script:gbx }
            }
            $script:gdispstr = "$($script:gax)"; dispstr $script:gdispstr 6052991
        }
    }
}

while ($gfnotexit) {
    $line = [Console]::ReadLine()
    if ($null -eq $line) { break }
    if ($line -eq "drawapp") {
        myputs "Fo 0 611 3\nFo 1 400 3\nFo 2 140 3\nF 0 16777215\nFR 0 0 0 10000 10000\nZ \n"
        dispstr "0" 6052991
        myputs "B 0 12632256\n"
        for ($i=0; $i -lt 20; $i++) {
            myputs "F 0 10526880\n"; itorect $i "FR" 220 1220 2080 2280
            myputs "F 0 986895\n"; itorect $i "R" 200 1200 2100 2300
            myputs "F 0 $($kbd[$i*2+1])\nC$ 0 $(($i%4)*2000+1100) $([Math]::Floor($i/4)*1200+1700) `"$($kbd[$i*2])`"\n"
        }
        myputs "F 1 16711680\nC$ 1 5000 800 `"powershell cloud app`"\nZ \n"
        myputs "F 2 255\n"
        myputs "C$ 2 5000 7200`"Corrie Zucker Technologies LLC.`"\n" 
        myputs "C$ 2 5000 7340`"d/b/a CZ Technologies`"\nZ \n"
    } else {
        $pts = $line -split ' '
        $btn = [int]$pts[0]; $x = [int]$pts[1]; $y = [int]$pts[2]
        if ($x -ge 0) { keytoexe ([Math]::Floor(($y-1200)/1200)) ([Math]::Floor(($x-200)/2000))
        } elseif ($x -eq -2) {
            switch ($btn) {
                { $_ -in 79,111 } { keytoexe 0 0 } { $_ -in 99,67 } { keytoexe 0 1 } 8 { keytoexe 0 2 } 42 { keytoexe 0 3 }
                55 { keytoexe 1 0 } 56 { keytoexe 1 1 } 57 { keytoexe 1 2 } 47 { keytoexe 1 3 }
                52 { keytoexe 2 0 } 53 { keytoexe 2 1 } 54 { keytoexe 2 2 } 43 { keytoexe 2 3 }
                49 { keytoexe 3 0 } 50 { keytoexe 3 1 } 51 { keytoexe 3 2 } 45 { keytoexe 3 3 }
                48 { keytoexe 4 0 } 46 { keytoexe 4 1 } { $_ -in 105,73 } { keytoexe 4 2 } 61 { keytoexe 4 3 }
            }
        } elseif ($x -eq -4) {
            myputs "Rz $btn $y\n"
        } elseif ($x -eq -5) {
            myputs "Mv $btn $y\n"
        }
    }
}