BASIC BasicPaint

dim as integer x, y, b, d = 0
do
    color d, d
    print chr (219)
    d+=1
loop until d=16
color 15,0
do
    do
        getmouse y,x,,b
        x+=1
        y+=1
        if b=1 AND y=1 then
            if x<=16 then
                color x-1, x-1
                b=10
            end if
        end if
        if b=1 then
            locate x, y
            print chr (219)
        end if
    loop while b=0
loop until b=3