У кого есть рисунки в QBASIC

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

У меня: домики, машинки, деревья, коты.