Простенькая программа на 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