Нарисовать пятиугольник — QBasic(Бейсик)

CONST pi = 3.141592653589793#, Gradus = pi / 180
CONST deleniye = 72, chastey = (360 \ deleniye) - 1
 DIM xm%(chastey), ym%(chastey)
cx = 320: cy = 240: r = 150
 FOR i% = 0 TO chastey
xm%(i%) = cx + COS(i% * Gradus * deleniye) * r
ym%(i%) = cy - SIN(i% * Gradus * deleniye) * r
 NEXT
  ' Вывод линий
SCREEN 12
FOR i% = 0 TO chastey
 LINE (xm%(i%), ym%(i%))-(xm%((i% + 1) MOD (chastey + 1)), ym%((i% + 1) MOD (chastey + 1))), 10
NEXT