#! lua
-- plot
local riscos = require "riscos"
local sys in riscos
local plot = \ (action) => \ (x, y)
     => sys (0x45, action, x, y) end end
=> {
move = plot (4),
draw = plot (5),
point = plot (69),
moveby = plot (0),
drawby = plot (1),
pointby = plot (61),
   }
