View.Set ("graphics")
Mouse.ButtonChoose ("multibutton")

% Hold L to draw a line. To stop drawing a line, right click while holding L.
% You must create code.txt in the same directory as this file before using
% this program. Clear the code.txt file before using again.

var x, y, button, right, lastx, lasty, counter : int

var filename : string := "code.txt"
var filenumber : int

var drawline1 : string := "drawline("
var comma : string := ", "
var drawline2 : string := ", black)"

var stringx : string
var thisvar : string

var keydown : array char of boolean

counter := 0
right := 100

open : filenumber, filename, put

loop

    loop
   
        Input.KeyDown (keydown)
       
        if keydown ('l') then
       
        delay (75)

        Mouse.Where (x, y, button)

        if button = 1 and counter = 0 then

            lastx := x
            lasty := y

            counter := 1

        elsif button = 1 then

                put : filenumber, drawline1 ..
                put : filenumber, lastx ..
                put : filenumber, comma ..
                put : filenumber, lasty ..
                put : filenumber, comma ..
                put : filenumber, x ..
                put : filenumber, comma ..
                put : filenumber, y ..
                put : filenumber, drawline2

            drawline (lastx, lasty, x, y, black)

            lastx := x
            lasty := y


        end if

        exit when button = 100
       
        end if
       
       
    end loop


    counter := 0
    lastx := 0
    lasty := 0

end loop
close : filenumber

var x, y, button : int
var c:int:=10
var keydown : array char of boolean

loop
Input.KeyDown (keydown)
       
        if keydown ('c') then
cls
elsif keydown ('v') then
randint (c,1,255)
end if
    Mouse.Where (x, y, button)
    if button = 0 then

    else
        drawfilloval (x, y , 5, 5, c)
    end if
end loop