SUB PaintCanvas
    draw_line 200,  10, 100, 200, &H00ff00
    draw_line 100, 200, 200, 400, &H00ff00
    draw_line 200, 400, 300, 200, &H00ff00
    draw_line 300, 200, 200,  10, &H00ff00
END SUB