View.Set ("graphics:max,max")
setscreen ("nocursor")
var cars : array 1 .. 7 of int
var cars1 : int := Pic.FileNew ("cars1.bmp")
var frogger : int := Pic.FileNew ("frogger.bmp")
var carsx : array 1 .. 15 of int
var froggerx : int := 500
var froggery : int := 0
var ch : string (1) := " "
var fx : int := 0
var fy : int := 0
var frogspeed : int := 7

for i : 1 .. 7
    cars (i) := Pic.FileNew ("cars1.bmp")
    carsx (i) := maxx + i * 200
end for


Pic.Draw (frogger, froggerx, froggery, picCopy)



loop

    loop
        exit when not hasch
        getch (ch)
    end loop
    if ord (ch) = 200 then
        fx := 0
        fy := frogspeed
    elsif ord (ch) = 203 then
        fx := -frogspeed
        fy := 0
    elsif ord (ch) = 208 then
        fx := 0
        fy := -frogspeed
    elsif ord (ch) = 205 then
        fx := frogspeed
        fy := 0
    end if
    froggerx += fx
    froggery += fy
    for i : 1 .. 7
        carsx (i) -= 1
        Pic.Draw (cars (i), carsx(i), 75, picCopy)
        drawfillbox (carsx(i)+65,75,carsx(i)+70,125,white)
        if carsx (i) < -350 then
            carsx (i) := maxx
        end if
    end for
    delay (10)
    Pic.Draw (frogger, froggerx, froggery, picCopy)
    
  
    fx := 0
    fy := 0
    ch := " "
end loop