Нарисовать природу- QBasic(Бейсик)

DECLARE SUB tree (x!, y!)
DECLARE SUB text (col!)
CLS
SCREEN 12
LINE (0, 480)-(640, 300), 2, BF
LINE (0, 300)-(640, 0), 1, BF
CIRCLE (500, 50), 30, 14
PAINT (500, 50), 14, 14
CALL tree(150, 350)
SUB tree (x, y)
SCREEN 12
LINE (x, y)-(x + 20, y - 80), 4, BF
CIRCLE (x + 10, y - 170), 100, 2, , , 4
PAINT (x + 10, y - 170), 2, 2
END SUB