Make a program that is a person if they were coded!

Code:
Declare Function Handle_Input

Declare Function Draw_Stuff_and_barriers

const false = 0, true = not false

Screenres 640, 480, 24, 2

dim shared as integer x, y, workpage, left_check, right_check, up_check, down_check

dim shared as single version

dim shared button_left = &h4b

dim shared button_right = &h4d

dim shared button_up = &h48

dim shared button_down = &h50



workpage = 0

x = 300

y = 300

WindowTitle "V1ctor by Pritchard"



do

    cls

    Handle_Input

    Draw_stuff_and_Barriers



workpage = workpage xor 1

    screenset workpage, workpage xor 1

loop until multikey(&h01)



Function Handle_Input

    if multikey(button_left) then

        x -= 1

    end if

    if multikey(button_right) then

        x += 1

    end if

    if multikey(button_down) then

        y += 1

    end if

    if multikey(button_up) then

        y -= 1

    end if

    

If Left_Check = true and x < 0 then x = 0

if Right_Check = true and (x + 9) > 640 then x = (640 - 9)

if up_check = true and y < 0 then y = 0

if down_check = true and (y + 9) > 480 then y = (480 - 9)

End Function



Function Draw_stuff_And_Barriers

    if left_check = true and right_check = true and down_check = true and up_check = true then

    line (0, 0)-(639, 479), rgb(120, 120, 120), bf

    locate 20, 2: Print "V1ctor: Version 1.0 now in full effect."

    ? "Thanks for testing. Please hit Escape to exit"

    end if

    Line (x, y)-(x + 9, y + 9), rgb(20, 30, 180), bf

    locate 1, 1: Print "Move with the Arrow Keys or Hit Escape to End"

    ? version

    

If Left_Check = false and x < 0 then

    Print "V1ctor! There's a bug! I can go off-screen to the left!"

    ?

    Print "V1ctor: Fixed, changes made in CVS"

    ?

    Print "Downloading CVS. . ."

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

    sleep 2700, 1

    Print "CVS Downloaded, Changes are now in effect"

    version += .25

    Left_Check = true

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

sleep 1000, 1

end if



if Right_Check = false and (x + 9) > 640 then

    Print "V1ctor! There's a bug! I can go off-screen to the right!"

    ?

    Print "V1ctor: Fixed, changes made in CVS"

    ?

    Print "Downloading CVS. . ."

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

    sleep 2700, 1

    Print "CVS Downloaded, Changes are now in effect"

    version += .25

    right_Check = true

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

sleep 1000, 1

end if

 

if up_check = false and y < 0 then

    Print "V1ctor! There's a bug! I can go off-screen upward!"

    ?

    Print "V1ctor: Fixed, changes made in CVS"

    ?

    Print "Downloading CVS. . ."

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

    sleep 2700, 1

    Print "CVS Downloaded, Changes are now in effect"

    version += .25

    up_Check = true

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

sleep 1000, 1

end if

 

if down_check = false and (y + 9) > 480 then

    Print "V1ctor! There's a bug! I can go off-screen downward!"

    ?

    Print "V1ctor: Fixed, changes made in CVS"

    ?

    Print "Downloading CVS. . ."

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

    sleep 2700, 1

    Print "CVS Downloaded, Changes are now in effect"

    version += .25

    down_Check = true

    workpage = workpage xor 1

    screenset workpage, workpage xor 1

sleep 1000, 1

end if 



end Function