var n : int
n := 1000
var x, y, l : array 1 .. n of int
for i : 1 .. n
    randint (l (i),1,5)
    randint (x (i), 1, maxx - l(i))
    randint (y (i), l(i), maxy)
end for
loop
    for i : 1 .. n
        if y (i) < maxy - l (i) then
            drawline (x (i), y (i), x (i), y (i) + l(i) , white)
        else
            drawline (x (i), maxy, x (i), y (i), white)
        end if
        if y (i) <= l(i) then
            randint (x (i), 1, maxx)
            y (i) := maxy
        else
            y (i) := y (i) - l(i)
        end if
        drawline (x (i), y (i) + l(i), x (i), y (i), blue)
    end for
end loop

View.Set ("graphics:550;350,offscreenonly")
const raincount := 25
var speed := 5
var rain,xr,yr : array 1 .. raincount of int
Draw.FillOval (106, 69, 4, 4, brightblue)
Draw.ThickLine (105, 73, 113, 78, 1, brightblue)
Draw.ThickLine (110, 69, 113, 78, 1, brightblue)
drawfill (109, 74, brightcyan, brightblue)

for num : 1 .. raincount
    rain (num) := Pic.New (100, 65, 115, 79)
    xr (num) := Rand.Int (0, maxx)
    yr (num) := Rand.Int (0, maxy)
end for

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

    for num : 1 .. raincount
        Pic.Draw (rain (num), xr (num), yr (num), picMerge)
        yr (num) -= speed
        xr (num) -= speed
        if xr (num) < -10 or yr (num) < -10 then
            xr (num) := Rand.Int (0, maxx + 300)
            yr (num) := Rand.Int (maxy + 50, maxy + 100)
        end if
    end for

    delay (10)
    View.Update
end loop

import GUI in "%oot/lib/GUI"
var iWindow : int := Window.Open ("noecho, offscreenonly")

const cDropCount := 100
type point :
    record
        x : int
        y : int
    end record
randomize
var iSpeed : int := 10
var aiDrops : array 1 .. cDropCount of point
var iX, iY, iButton : int

procedure DrawDrop (x, y : int)
    drawfillbox (x, y, x + 1, y + 5, 77)
    drawfillbox (x - 1, y + 1, x + 2, y + 3, 77)
end DrawDrop

mousewhere (iX, iY, iButton)
var iDir : int := iX - maxx div 2
for i : 1 .. cDropCount
    if iDir > 0 then
        randint (aiDrops (i).x, 1 - abs (iDir), 640)
    elsif iDir < 0 then
        randint (aiDrops (i).x, 1, 640 + abs (iDir))
    else
        randint (aiDrops (i).x, 1, 640)
    end if
    randint (aiDrops (i).y, 480, 480 * 2)
end for
RGB.SetColour (0, 0, 0, 0)

loop
    delay (10)
    Window.Update (iWindow)
    cls
    for i : 1 .. cDropCount
        if aiDrops (i).y < -5 then
            if iDir > 0 then
                randint (aiDrops (i).x, 1 - abs (iDir), 640)
            elsif iDir < 0 then
                randint (aiDrops (i).x, 1, 640 + abs (iDir))
            else
                randint (aiDrops (i).x, 1, 640)
            end if
            randint (aiDrops (i).y, 480, 490)
        else
            mousewhere (iX, iY, iButton)
            iDir := iX - maxx div 2
            aiDrops (i).x += iDir div 50
            aiDrops (i).y -= iSpeed
        end if
        DrawDrop (aiDrops (i).x, aiDrops (i).y)
    end for
    exit when buttonmoved ("down")
end loop
Window.Close (iWindow)

var n, font2, clr : int
n := 1000
var x, y, l, cl : array 1 .. n of int
for i : 1 .. n
    randint (clr , 1, 255)
end for
font2 := Font.New ("sans serif:20:bold,italic,underline")
assert font2 > 0
Font.Draw ("Are you happy Tony?", 50, 80, font2, clr)
Font.Free (font2)
for i : 1 .. n
    randint (cl (i), 1, 255)
    randint (l (i), 1, 5)
    randint (x (i), 1, maxx - l (i))
    randint (y (i), l (i), maxy)
end for
loop
    for i : 1 .. n
        if y (i) < maxy - l (i) then
            drawline (x (i), y (i), x (i), y (i) + l (i), white)
        else
            drawline (x (i), maxy, x (i), y (i), white)
        end if

        if y (i) <= l (i) then
            randint (x (i), 1, maxx)
            y (i) := maxy
        else
            y (i) := y (i) - 8 %l (i)
        end if
        drawline (x (i), y (i) + l (i), x (i), y (i), cl (i))
    end for
end loop

    randint (cl (i), 51, 56)