var x, y := 0
loop
    Pic.Draw("car.bmp", x, y, picCopy)
    x := x + 1
    cls
end loop
   

%Set screen up
setscreen ("nocursor")
setscreen ("noecho")
setscreen ("offscreenonly")

%Declartion section
 var startpointy : int := 150
 var startpointy2: int := 400
 var startpointx, endpointx, endpointy : int := 0
 var endpointy2: int :=450
var y : int := 10
var x: int :=50
%var pictureID : int
var key : string (1)
var mainWin := Window.Open ("position:130;30,graphics:800;600")

%Procedure section
proc title
    cls
    locate (1, 35)
    put "Racing Game"
end title
%Proc displayPic
procedure displayPic
    var pictureID : int := Pic.FileNew ("BG.JPG")
    Pic.Draw (pictureID, 0, 0, picCopy)
   
    pictureID := Pic.FileNew ("P1.jpg")
    %drawfillbox (startpointx,startpointy,endpointx+700, endpointy+640,white)
    Pic.Draw (pictureID, startpointx + 1, startpointy + 1, picMerge)
        getch (key)

    if key = chr (200) and endpointy <= 300 then
        startpointy := startpointy + 10
        endpointy := endpointy + 10
    elsif key = chr (208) and startpointy >= 90 then
        startpointy := startpointy - 10
        endpointy := endpointy - 10
    elsif key = chr (205) and endpointx <= 630 then
        startpointx := startpointx + 10
        endpointx := endpointx + 10
    else
        if key = chr (203) and startpointx >= 1 then
            startpointx := startpointx - 10
            endpointx := endpointx - 10
        end if
    end if
   
     pictureID:= Pic.FileNew ("Comp.jpg")
loop
drawfillbox (startpointx+1,startpointy2+1, endpointx+1,endpointy2+1,grey)
    Pic.Draw (pictureID,startpointx,startpointy2,picMerge)
startpointx:= startpointx +10
delay (50)
end loop
    View.Update
end displayPic

%Main Program
loop
    displayPic
    exit when key = chr (10) or key = chr (27)
end loop