Очень нужен довольно простенький рисунок,нарисованный в QBASIC

[Terran]

Может этот код подойдёт?

DECLARE SUB PaintStar (x1!, y1!, wd!)
CLS
SCREEN 12

' Square
LINE (0, 0)-(639, 479), 7, BF
LINE (5, 5)-(634, 105), 9, BF
LINE (5, 205)-(634, 305), 9, BF
LINE (5, 5)-(634, 305), 0, B

' Stars
PaintStar 255, 113, 5
PaintStar 255, 157, 5
PaintStar 299, 135, 5
PaintStar 343, 113, 5
PaintStar 343, 157, 5

SUB PaintStar (x, y, wd)
  ' Lines ---------------------------
  x1 = x
  y1 = y + (2 * wd)
  x2 = x + (6 * wd)
  y2 = y + (2 * wd)
  LINE (x1, y1)-(x2, y2), 9

  x2 = x + (1 * wd)
  y2 = y + (6 * wd)
  LINE -(x2, y2), 9

  x2 = x + (3 * wd)
  y2 = y
  LINE -(x2, y2), 9

  x2 = x + (5 * wd)
  y2 = y + (6 * wd)
  LINE -(x2, y2), 9

  x2 = x
  y2 = y + (2 * wd)
  LINE -(x2, y2), 9

  ' Fill ---------------------------
  x1 = x + (3 * wd)
  y1 = y + (3 * wd)
  PAINT (x1, y1), 9, 9

  x1 = x + wd
  y1 = y + (2 * wd) + 3
  PAINT (x1, y1), 9, 9

  x1 = x + (3 * wd)
  y1 = y + wd
  PAINT (x1, y1), 9, 9

  x1 = x + (5 * wd)
  y1 = y + (2 * wd) + 3
  PAINT (x1, y1), 9, 9

  x1 = x + (4 * wd)
  y1 = y + (4 * wd)
  PAINT (x1, y1), 9, 9

  x1 = x + (2 * wd)
  y1 = y + (4 * wd)
  PAINT (x1, y1), 9, 9
END SUB