%chris beauvais
setscreen ("graphics:600;480")
setscreen ("nocursour;noecho")
var arrow : string (1)
var column, row : int
column := 300
row := 240
drawfilloval (column, row, 20, 20, 14)
drawfilloval (column - 10, row + 10, 3, 3, 7)
drawfilloval (column + 10, row + 10, 3, 3, 7)
drawfilloval (column, row - 10, 9, 6, 12)
loop
getch (arrow)
if ord (arrow) = 205 then
drawfilloval (column, row, 20, 20, 0)
column := column + 10
elsif ord (arrow) = 203 then
drawfilloval (column, row, 20, 20, 0)
column := column - 10
elsif ord (arrow) = 200 then
drawfilloval (column, row, 20, 20, 0)
row := row + 10
elsif ord (arrow) = 208 then
drawfilloval (column, row, 20, 20, 0)
row := row - 10
end if
drawfilloval (column, row, 20, 20, 14)
drawfilloval (column - 10, row + 10, 3, 3, 7)
drawfilloval (column + 10, row + 10, 3, 3, 7)
drawfilloval (column, row - 10, 9, 6, 12)
end loop
|