Draw.FillBox (0, 0, maxx, maxy, 255)
locate (13, 25)
color (12)
colorback (black)
put "Come..."
locate (14, 25)
put "take the gateway.."
locate (15, 25)
put "follow the steps..."
locate (16, 25)
put "enter the stars...."
delay (8000)
var x, y : int := 200
var num := 50
Draw.FillBox (0, 0, maxx, maxy, 255)
for i : 1 .. 50
    var xer, yer : int := 0
    randint (xer, 1, 640)
    randint (yer, 1, 400)
    Draw.Dot (xer, yer, 14)
end for
num := 50
loop
    delay (5)
    Draw.Line (x + num, y + 50, x, y, 2)
    num := num + 1
    y := y - 1
    exit when y < 0 - 50
end loop
var xer : int := 0
loop
    randint (num, 1, 3)
    Draw.FillOval (x + 25, y + 325, 30, 70, num)
    xer := xer + 1
    if xer = 10000 then
        locate (5, 30)
        put "k....close the program now..."
    end if
end loop

var x, y, num : int := 200
num := 0
var modi : int := 1
Draw.FillBox (0, 0, maxx, maxy, 255)
loop
    Draw.Oval (x + num, y - 50, x, y, 14)
    delay (5)
    Draw.Oval (x + num, y - 50, x, y, 12)
    delay (5)
    num := num + 1
    Draw.Oval (x + num, y - 50, x, y, 2)
    y := y + modi
    if y < 0 then
        modi := 1
    elsif y > maxy then
        modi := -1
    end if
end loop

var x, y, num : int := 200
num := 0
loop
    num := num + 1
    Draw.Line (x + num, y - 50, x, y, 255)
    y := y - 1
end loop