'******************************************************
' XMAS Screen
'******************************************************
SCREEN 12
CLS
COLOR 15
LINE (10, 10)-(630, 470), , B      'Frame the Screen
COLOR 2
LINE (320, 60)-(420, 330)       'Draw a Tree - Sorta
LINE (320, 60)-(220, 330)
LINE (220, 330)-(420, 330)
COLOR 6
LINE (300, 331)-(340, 420), , B   'Draw the trunk
DRAW "bm 320,150"   'Move to Interior of Tree w/o drawing
DRAW "p 2,2"        'Fill the Tree With Color
DRAW "bm 335,350"   'Move to Interior of Trunk
DRAW "p 6,6"        'Fill it.
'------------Now for some Ornaments.
COLOR 14
y = 30: x = 320
'-------Make a Star
LINE (x, y - 5)-(x + 5, y + 10)
LINE (x, y - 5)-(x - 5, y + 10)
LINE (x - 5, y + 10)-(x - 15, y + 10)
LINE (x + 5, y + 10)-(x + 15, y + 10)
LINE (x - 15, y + 10)-(x - 5, y + 20)
LINE (x + 15, y + 10)-(x + 5, y + 20)
LINE (x + 5, y + 20)-(x + 15, y + 35)
LINE (x - 5, y + 20)-(x - 15, y + 35)
LINE (x - 15, y + 35)-(x, y + 25)
LINE (x + 15, y + 35)-(x, y + 25)
DRAW "bm 320,45"        'Fill the Star
DRAW "p 14,14"
'--------Draw Balls and Fill them
CIRCLE (305, 140), 10, 12: DRAW "bm 305,140": DRAW "p 12,12" 'BRed
CIRCLE (340, 175), 10, 1: DRAW "bm 340,175": DRAW "p 1,1"  'Blue
CIRCLE (285, 190), 10, 4: DRAW "bm 285,190": DRAW "p 4,4"  'Red
CIRCLE (340, 220), 10, 5: DRAW "bm 340,220": DRAW "p 5,5" 'Purple
CIRCLE (280, 240), 10, 13: DRAW "bm 280,240": DRAW "p 13,13" 'Magenta
CIRCLE (350, 255), 10, 11: DRAW "bm 350,255": DRAW "p 11,11" 'Cyan
CIRCLE (280, 285), 10, 12: DRAW "bm 280,285": DRAW "p 12,12"  'BRed
CIRCLE (345, 295), 10, 14: DRAW "bm 345,295": DRAW "p 14,14"  'Yellow
CIRCLE (250, 310), 10, 1: DRAW "bm 250,310": DRAW "p 1,1" 'Blue
CIRCLE (320, 105), 5, 4: DRAW "bm 320,105": DRAW "p 4,4"  'Red
CIRCLE (310, 165), 5, 14: DRAW "bm 310,165": DRAW "p 14,14"  'Yellow
CIRCLE (315, 200), 5, 11: DRAW "bm 315,200": DRAW "p 11,11"  'Cyan
CIRCLE (310, 250), 5, 1: DRAW "bm  310,250": DRAW "p 1,1"   'Blue
CIRCLE (305, 300), 5, 13: DRAW "bm 305,300": DRAW "p 13,13"  'Magenta
CIRCLE (375, 310), 5, 5: DRAW "bm 375,310": DRAW "p 5,5"   'Purple
COLOR 10
LOCATE 5, 5: PRINT "M E R R Y  C H R I S T M A S"
LOCATE 7, 15: PRINT "A N D"
LOCATE 9, 5: PRINT "H A P P Y  N E W  Y E A R"
DO WHILE INKEY$ = "": LOOP