var touch, cont:int := 0
View.Set ("graphics:640;480")

loop
if (touch = 0) then
drawline(640 div 2, 480 div 2, Rand.Int(1,640), Rand.Int(1,480), red)
cont += 1
if cont = 50000 then
touch := 1
cont := 0
end if


elsif (touch = 1) then
drawline(640 div 2, 480 div 2, Rand.Int(1,640), Rand.Int(1,480), green)
cont += 1
if cont = 50000 then
touch := 2
cont := 0
end if

elsif (touch = 2) then
drawline(640 div 2, 480 div 2, Rand.Int(1,640), Rand.Int(1,480), blue)
cont += 1
if cont = 50000 then
touch := 3
cont := 0
end if


elsif (touch = 3) then
drawline(640 div 2, 480 div 2, Rand.Int(1,640), Rand.Int(1,480), yellow)
cont += 1
if cont = 50000 then
touch := 0
cont := 0
end if



end if
end loop

drawfillbox (0, 0, maxx, maxy, black)

loop
    var x1 : int := Rand.Int (maxx div 2 - 150, maxx div 2 + 150)
    var x2 : int := Rand.Int (maxx div 2 - 150, maxx div 2 + 150)
    var y1 : int := Rand.Int (maxy div 2 - 150, maxy div 2 + 150)
    var y2 : int := Rand.Int (maxy div 2 - 150, maxy div 2 + 150)
    drawline (x1, y1, x2, y2, white)
    delay (5)
end loop

var x1, y1, x2, y2, x3, y3, x4, y4 : int


drawfillbox (0, 0, maxx, maxy, brightblue)
drawline (maxx div 2, maxy div 2 + 120, maxx div 2 - 50, maxy div 2 + 180, black)
drawline (maxx div 2, maxy div 2 + 120, maxx div 2 + 50, maxy div 2 + 180, black)
drawfilloval (maxx div 2 + 50, maxy div 2 + 180, 3, 3, black)
drawfilloval (maxx div 2 - 50, maxy div 2 + 180, 3, 3, black)
drawfillbox (maxx div 2 + 120, maxy div 2 + 120, maxx div 2 - 120, maxy div 2 - 120, black)
drawfillbox (0, 0, maxx, maxy div 2 - 180, brown)
drawbox (0, 0, maxx, maxy div 2 - 180, black)
for i : 0 .. 10
    drawline (maxx div 2 - 150 + i, maxy div 2 - 180, maxx div 2 - 120 + i, maxy div 2 - 120, black)
    drawline (maxx div 2 + 150 - i, maxy div 2 - 180, maxx div 2 + 120 - i, maxy div 2 - 120, black)
end for


    loop
        x1 := Rand.Int (maxx div 2 - 100, maxx div 2 + 100)
        y1 := Rand.Int (maxy div 2 - 100, maxy div 2 + 100)
        x2 := Rand.Int (maxx div 2 - 100, maxx div 2 + 100)
        y2 := Rand.Int (maxy div 2 - 100, maxy div 2 + 100)
        x3 := Rand.Int (maxx div 2 - 100, maxx div 2 + 100)
        y3 := Rand.Int (maxy div 2 - 100, maxy div 2 + 100)
        x4 := Rand.Int (maxx div 2 - 100, maxx div 2 + 100)
        y4 := Rand.Int (maxy div 2 - 100, maxy div 2 + 100)

        drawdot (x2 + 1, y2 + 1, white)
        drawdot (x2, y2, white)
        drawdot (x1 + 1, y1 + 1, black)
        drawdot (x1, y1, black)




    end loop