var movement : string (1) := "" %holds the value of what key the user enters
var location_x : int := 0 %location of the square left and right (x axis)
var location_y : int := 0 %location of the square up and down (y axis)
%Starts program
loop
    drawfillbox (100 + location_x, 100 + location_y, 200 + location_x, 200 + location_y, blue) %DRaws blue box where the user moves it
    exit when movement = "q" or movement = "Q"%Freezes game when q is pressed
    getch (movement) %Asks for input from user
    %Decides where the user moved the square
    if movement = KEY_LEFT_ARROW then
        location_x -= 1
    elsif movement = KEY_RIGHT_ARROW then
        location_x += 1
    elsif movement = KEY_UP_ARROW then
        location_y += 1
    elsif movement = KEY_DOWN_ARROW then
        location_y -= 1
        end if
    cls %clear the screen to move box without a tail
end loop
%Nothing is out side of the loop so program ends
/*Putting this at the end of the if statement would do the same thing
elsif movement = "q" then
        return*/