link graphics

$define Height 700  # symbolic constants
$define Width 900  #  via preprocessor

procedure main() # g2
    WOpen("size=" || Width ||","||Height)

    repeat {
        DrawPoint(?Width-1, ?Height-1)
        }
end