View.Set ("graphics:max,max")

procedure drawcross (x1, y1, x2, y2 : int)
    var width : int := x2 - x1
    var height : int := y2 - y1
    drawbox (x1, y1, x2, y2, 0)
    drawfillbox (x1 + width div 3, y1, x2 - width div 3, y2, 7)
    drawfillbox (x1, y1 + height div 2, x2, y2 - height div 3, 7)
end drawcross
drawcross (300, 300, 500, 500)