dont worry about this im just posting ti so i can see what my brother showed my from computer class tomorrow
%Code copyright Santiago Barreda
setscreen ("graphics:vga")
setscreen ("noecho")
setscreen ("nocursor")
var input : string (1)
var x, y := 100
input := " "
drawfilloval (x, y, 5, 5, 14)
loop
if hasch then
getch (input) %203 205 200 208
end if
drawfilloval (x, y, 5, 5, 0)
if ord (input) = 203 and x - 15 > 0 then
x -= 9
elsif ord (input) = 205 and x + 15 < maxx then
x += 9
elsif ord (input) = 208 and y - 15 > 0 then
y -= 9
elsif ord (input) = 200 and y + 15 < maxy then
y += 9
end if
drawfilloval (x, y, 5, 5, 14)
delay (30)
if input = "q" then
exit
end if
end loop
%Code copyright Santiago Barreda
setscreen ("graphics:vga")
setscreen ("noecho")
setscreen ("nocursor")
var input : string (1)
var x, y := 100
input := " "
drawfilloval (x, y, 5, 5, 14)
loop
if hasch then
getch (input) %203 205 200 208
end if
drawfilloval (x, y, 5, 5, 0)
if ord (input) = 203 and x - 15 > 0 then
x -= 9
elsif ord (input) = 205 and x + 15 < maxx then
x += 9
elsif ord (input) = 208 and y - 15 > 0 then
y -= 9
elsif ord (input) = 200 and y + 15 < maxy then
y += 9
end if
drawfilloval (x, y, 5, 5, 14)
delay (30)
if input = "q" then
exit
end if
end loop
