var playerwho, playerwho1 : int := 1

var collision1 : boolean
var collision2 : boolean
...

var x : array 1 .. 9 of int % For all player's and Bal
var y : array 1 .. 9 of int

if playerwho = 1 then
        Input.KeyDown (chars) % Value for key
        if chars (KEY_UP_ARROW) then
            y (1) := y (1) + 5
        end if
        if chars (KEY_RIGHT_ARROW) then
            x (1) := x (1) + 5
        end if
        if chars (KEY_LEFT_ARROW) then
            x (1) := x (1) - 5
        end if
        if chars (KEY_DOWN_ARROW) then
            y (1) := y (1) - 5
        end if

        % Goalie
    elsif playerwho = 2 then
        if chars (KEY_UP_ARROW) then
            y (2) := y (2) + 5

if chars (KEY_UP_ARROW) then
            y (playerwho) := y (playerwho) + 5
...

if score1 = 0 then
        Draw.Text ("0", 50, 600, font4, black)

Draw.Text(intstr(score1), 50, 600, font4, black)

cls
        Draw.Text ("5", 240, 200, font4, black)
        View.Update
        delay (1000)
        cls
        Draw.Text ("4", 240, 200, font4, black)
        View.Update
        delay (1000)
        cls
...

% player starting positions
        x (1) := 560
        y (1) := 300

    if x (9) < 10 and y (9) < 360 and y (9) > 240 then
        cls
        % Setting Screen size
        setscreen ("graphics:500;400,offscreenonly")
        put " PLAYER TWO GOAL GOAL GOAL"
        score2 := score2 + 1

        %Counting down
        Draw.Text ("Ready", 240, 200, font4, black)
...