% The Car controller.
import GUI

View.Set ("graphics:360;200,nobuttonbar")

var chars : array char of boolean



procedure Left
locate (10, 5)
put "Left"
parallelput (1)
end Left
cls

procedure Right
locate (10, 5)
put "Right"
parallelput (2)
end Right
cls

procedure Forward
locate (10, 5)
put "Forward"
parallelput (4)
end Forward
cls

procedure Back
locate (10, 5)
put "Back"
parallelput (8)
end Back


procedure Exit
GUI.Quit
loop
exit when GUI.ProcessEvent
end loop
Window.Hide (defWinID)
end Exit
loop
var bl : int := GUI.CreateButton (10, 155, 100, "Left", Left)
var bf : int := GUI.CreateButton (130, 170, 100, "Forward", Forward)
var br : int := GUI.CreateButton (250, 155, 100, "Right", Right)
var bb : int := GUI.CreateButton (130, 140, 100, "Back", Back)
var bcw : int := GUI.CreateButton (130, 10, 100, "Exit", Exit)

loop
exit when GUI.ProcessEvent
end loop

loop
Input.KeyDown (chars)
locate (4, 1)
if chars (KEY_UP_ARROW) then
Forward
end if
if chars (KEY_RIGHT_ARROW) then
Right
end if
if chars (KEY_LEFT_ARROW) then
Left
end if
if chars (KEY_DOWN_ARROW) then
Back
end if
end loop
end loop