Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, June 15, 2021

Rem ***** Main Source File *****
Rem инициализация x,y
x=0
y=0

Rem цикл
do
 Rem Очистка экрана
 cls
 Rem Ждём 5 мсек. 
 wait 5
 Rem Обработчик клавиш
 Rem Если нажали вниз
 if downkey() = 1 then y=y+1
 Rem Если нажали вверх
 if upkey() = 1 then y=y-1
 Rem Если нажали влево
 if leftkey() = 1 then x=x-1
 Rem Если нажали вправо
 if rightkey() = 1 then x=x+1
 Rem Устанавливаем курсор на x=10, y=10
 set cursor 10,10
 Rem Выводим значение переменной x
 print x
 Rem Устанавливаем курсор на x=50, y=10
 set cursor 50,10
 Rem Выводим значение переменной y
 print y
loop