-----------------------------------

MattyGG

Mon Nov 22, 2004 11:42 am


First program...dont make fun

-----------------------------------

I thought it was kinda cool, when done on the right machine, anyway...though it doesn't have much point to it...
var moveX, moveX2 : int
var moveY, moveY2 : int
setscreen ("graphics:max;max")
moveX := 50
moveY := 50
moveX2 := 65
moveY2 := 65
loop
    loop
        Draw.FillOval (moveX, moveY, 10, 10, black)
        Draw.FillOval (moveX2, moveY2, 10, 10, brightred)

        moveX -= 3
        moveY += 3
        if moveX >= maxx then
            moveX := 0
        elsif moveY >= maxy then
            moveY := 0
        elsif moveX = maxy then
            moveY2 := 0
        elsif moveX2