Нарисовать в QBasic снеговика

взгляни этот код:

SCREEN 12

CIRCLE (300, 150), 30

CIRCLE (300, 150), 15, 12, 3.14 + 3.14 / 4, 3 * 3.14 / 2 + 3.14 / 4

CIRCLE (290, 140), 5, 6

CIRCLE (310, 140), 5, 6

LINE (300, 140)-(320, 160), 12

LINE (298, 150)-(320, 160), 12

LINE (300, 140)-(298, 150), 12

CIRCLE (300, 230), 50

CIRCLE (300, 350), 70

CIRCLE (370, 230), 20

CIRCLE (230, 230), 20

CIRCLE (230, 415), 30, 15, , , .6

CIRCLE (370, 415), 30, 15, , , .6

LINE (372, 150)-(372, 400), 6

LINE (372, 150)-(300, 100), 6

LINE (372, 150)-(340, 100), 6

LINE (372, 150)-(380, 100), 6

LINE (372, 150)-(420, 100), 6

CIRCLE (300, 210), 5

CIRCLE (300, 250), 5

CIRCLE (300, 300), 5

CIRCLE (300, 340), 5

CIRCLE (300, 380), 5

PAINT (300, 210), 5, 15

PAINT (300, 250), 5, 15

PAINT (300, 300), 5, 15

PAINT (300, 340), 5, 15

PAINT (300, 380), 5, 15

PAINT (290, 140), 1, 6

PAINT (310, 140), 1, 6