SCREEN 12
c = 6
LINE (120, 240)-(220, 240), c
LINE (220, 240)-(220, 255), c
LINE (220, 255)-(120, 255), c
LINE (120, 255)-(120, 240), c
PAINT (130, 250), c
FOR i = 120 TO 220 STEP 3
LINE (i, 240)-(i, 180), 2
NEXT i
FOR i = 220 TO 230
LINE (120, i)-(220, i), 4
NEXT i
LINE (380, 300)-(370, 320)
LINE (370, 320)-(270, 320)
LINE (270, 320)-(260, 300)
LINE (303, 320)-(303, 325)
LINE (303, 325)-(336, 325)
LINE (336, 325)-(336, 320)
CIRCLE (320, 300), 20, 4
PAINT (320, 300), 4
LINE (325, 290)-(330, 280), 6
CONST pi = 3.1415
CIRCLE (400, 205), 50, 1, (140 * pi) / 180, (45 * pi) / 180
LINE (363, 172)-(363, 159), 1
LINE (435, 169)-(435, 159), 1
LINE (363, 159)-(435, 159), 1
PAINT (400, 205), 1
CIRCLE (400, 205), 20, 4, , , 4 * (2 / 5) / 3
PAINT (400, 205), 4
PSET (410, 201)
LINE (415, 207)-(420, 205)
LINE (380, 205)-(370, 195), 4
LINE (370, 195)-(370, 215), 4
LINE (370, 215)-(380, 205), 4
PAINT (371, 205), 4
LINE (397, 215)-(400, 220), 4
LINE (400, 220)-(403, 215), 4
PAINT (400, 217), 4
LINE (397, 195)-(400, 190), 4
LINE (400, 190)-(403, 195), 4
PAINT (400, 193), 4
CIRCLE (427, 195), 3, 0
CIRCLE (435, 183), 6, 0
CIRCLE (290, 200), 45, 8
LINE (290, 155)-(290, 165), 8
LINE (335, 200)-(325, 200), 8
LINE (290, 245)-(290, 235), 8
LINE (245, 200)-(255, 200), 8
LINE (290, 200)-(290, 180), 8
LINE (290, 200)-(270, 180), 8
LINE (290, 200)-(290, 220), 4
LOCATE 23, 29: PRINT "Happy New Year For You!"
LOCATE 25, 26: PRINT "WwW.AntiPrograming.Blogfa.CoM"