Построить окружность с любым радиусом - QBasic

Помогите пожалуйста построить окружность в qbasic. Неважен какой размер круга.

Листинг программы

FOR t=0 TO 6.28 STEP 0.01
x=100*COS(t)+320
y=100*SIN(t)+240
PSET(x,y)
NEXT

Объяснение кода листинга программы

FOR t=0 TO 6.28 STEP 0.01 — это цикл, который выполняет 649 итераций (с шагом 0.01 от 0 до 6.28).
x=100*COS(t)+320 — это формула, которая вычисляет значение переменной x на каждой итерации цикла. Значение переменной x равно 100 умноженное на косинус t плюс 320.
y=100*SIN(t)+240 — это формула, которая вычисляет значение переменной y на каждой итерации цикла. Значение переменной y равно 100 умноженное на синус t плюс 240.
PSET(x,y) — это функция, которая рисует точку на экране с координатами x и y.
NEXT — это команда, которая выполняет следующую итерацию цикла.