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