Получить на экран рисунок паутины - QBasic

Формулировка задачи:

1Получить на экран рисунок паутины с центром в произвольной(заданной) точке, с произвольным числом лучей. Паутина образована лучами и многоугольниками. нужно перевезти на бейсик вотэтоткод

                    Листинг программы
                
 
                        
                          
                    
uses crt,graphABC;
var k,r1,i,x,y,r,z:integer;
begin
writeln('Введите координаты центра паутины');
readln(x,y);
writeln('Введите радиус многоугольника');
readln(r);
r1:=r;
writeln('Введите количество многоугольников');
readln(k);
clrscr;
line(x,0,x,WindowHeight);
line(0,y,WindowWidth,y);
{y:=WindowHeight div 2;{считаем центр экрана}
{x:=WindowWidth div 2;{считаем центр экрана}
line(0,y+x,x+y,0);
line(0,y-x,x+y,WindowHeight);
for i:=1 to k do
begin
z:=0;{начальный угол}
r:=r+r1;
MoveTo(x+Round(r*cos(2*z*Pi/360)),y+Round(r*sin(2*z*Pi/360)));{начальная точка}
repeat
inc(z,45);{следующий угол}
LineTo(x+Round(r*cos(2*z*Pi/360)),y+Round(r*sin(2*z*Pi/360)));{рисуем линию}
until 360<=z;
end;
ReadKey;
end.

Решение задачи: «Получить на экран рисунок паутины»

textual
                            Листинг программы 
                        
LINE (x, 0)-(x, 349)
LINE (0, y)-(639, y)
LINE (0, y + x)-(y + x, 0)