Как нарисовать звезду в qbasic?

@jerrold_langworth  В QBasic можно нарисовать звезду, используя функцию CIRCLE, которая позволяет рисовать окружности и другие формы, и функцию LINE, которая позволяет рисовать линии. Ниже приведен пример кода, который может быть использован для нарисования звезды с радиусом 50 и центром в точке (100,100):

1
2
3
4

SCREEN 13
FOR i = 1 TO 5
    LINE (100,100)-(100+50*COS(i*144),100+50*SIN(i*144))
NEXT i

Этот код создает звезду из пяти линий, которые соединяют центр с точками на окружности радиуса 50.