Программа позволяет стрелками подвести указатель к нужной точке окружности, нажав клавишу «р», узнать ее координаты- QBasic(Бейсик)

CLS
SCREEN 12
k = .017453

FOR i = 5 TO 1 STEP -1
    CIRCLE (300, 200), 200, i + 9, 72 * k, 72 * i * k
NEXT i

PSET (x, y), 3
CIRCLE (x - 1, y - 1), 2, 0
1 A$ = INKEY$
IF A$ = "" THEN 1
IF A$ = CHR$(0) + CHR$(72) THEN y = y - 1
IF A$ = CHR$(0) + CHR$(80) THEN y = y + 1
IF A$ = CHR$(0) + CHR$(77) THEN x = x + 1
IF A$ = CHR$(0) + CHR$(75) THEN x = x - 1
IF A$ = "p" THEN PRINT x: PRINT y
IF A$ = "q" THEN STOP
PSET (x, y), 3
CIRCLE (x - 1, y - 1), 2, 0
GOTO 1