setscreen ("offscreenonly")
type mobSpecs :                        %records stats
    record
        x, y : int
        dead : boolean
        speedX, speedY : int
        turn : int
    end record
var enemy : flexible array 1 .. 0 of mobSpecs
var mobTime, mobNum : int := 0

loop
    for n : 1 .. upper (enemy) %number of enemys
        enemy (n).speedX := 0
        enemy (n).speedY := 1
        enemy (n).turn := 1
        if enemy (n).dead = false then     %if they are not dead
            if enemy (n).y = 100 and enemy (n).turn = 1 then     %pathing
                enemy (n).speedX := -1
                enemy (n).speedY := 0
                enemy (n).turn := 2
            end if
            if enemy (n).x = 300 and enemy (n).turn = 2 then
                enemy (n).speedX := 0
                enemy (n).speedY := -1
                enemy (n).turn := 3
            end if
            if enemy (n) > maxx then      %if they cross maxx
                enemy (n).dead := true     %they are dead
            end if

            put enemy (n).turn
            enemy (n).x -= enemy (n).speedX     %moves them
            enemy (n).y -= enemy (n).speedY
            Draw.FillBox (enemy (n).x, enemy (n).y, enemy (n).x + 5, enemy (n).y + 5, 12)     %draws them
        end if
    end for

    mobTime += 1
    if mobTime > 100 then
        for number : 1 .. upper (enemy)
            if enemy (number).dead = true then
                mobNum := number
                exit
            end if
        end for

        if mobNum = 0 then                    %if there are no mobs on the screen
            mobNum := upper (enemy) + 1       %draws mobs
            new enemy, mobNum
        end if

        enemy (mobNum).x := 50
        enemy (mobNum).y := maxy
        enemy (mobNum).dead := false
        mobNum := 0
        mobTime := 0
    end if
    drawline (300, 0, 300, maxy, black)     
    drawline (0, 250, maxx, 250, black)
    drawline (0, 100, maxx, 100, black)
    View.Update
    delay (5)
    cls
end loop