'===========================================================================
' Subject: ROBERT THE RED NOSED SANTA         Date: 09-29-99 (18:59)       
'  Author: Marc Santa                         Code: QB, QBasic, PDS        
'  Origin: santa@tir.com                    Packet: SOUND.ABC
'===========================================================================
' RECEIVED FROM: Marc Santa <santa@tir.com>
DECLARE SUB NOSE ()
CLS : SCREEN 12
CIRCLE (300, 200), 30, 12 '       FACE
PAINT (300, 200), 12 '            FILL IN FACE
LINE (310, 130)-(270, 190), 12 '  HAT
LINE (310, 130)-(320, 190), 12 '  HAT
PAINT (300, 160), 12 '            FILL IN HAT
CIRCLE (300, 200), 30, 0 '        OUTLINE FACE
CIRCLE (300, 260), 50, 12 '       BODY
PAINT (300, 260), 12 '            FILL IN BODY
CIRCLE (300, 225), 30 '           BEARD
PAINT (300, 225) '                BEARD FILL IN
CIRCLE (280, 190), 3, 0 '         LEFT EYE
PAINT (280, 190), 0 '             LEFT EYE FILL IIN
CIRCLE (315, 190), 3, 0 '         RIGHT EYE
PAINT (315, 190), 0 '             RIGHT EYE FILL IN
CIRCLE (313, 130), 10 '           FUZZ BALL FOR HAT
PAINT (313, 130) '                FILL IN FUZZ BALL
CIRCLE (298, 195), 10, 4 '        NOSE
PAINT (298, 195), 4 '             FILL IN NOSE
LINE (240, 330)-(270, 300), 12 '  RIGHT LINE, LEFT LEG
LINE (260, 330)-(290, 300), 12 '  LEFT LINE, LEFT LEG
LINE (240, 330)-(260, 330), 12 '  BOTTOM LINE, LEFT LEG
LINE (310, 300)-(340, 330), 12 '  LEFT LINE, RIGHT LEG
LINE (330, 300)-(360, 330), 12 '  RIGHT LINE, RIGHT LEG
LINE (340, 330)-(360, 330), 12 '  BOTTOM LINE, RIGHT LEG

PRINT "ROBERT THE RED NOSED SANTA"
PLAY "O1L7CL5DL7CO0L5AO1FDCP2"
NOSE
PRINT "HAD A VERY SHINY NOSE"
PLAY "L7CL8DL7CL8DL6CFEP2"
NOSE
PRINT "AND IF YOU EVER SAW IT"
PLAY "O1L7CDP30CO0L5AO1EDCP2"
NOSE
PRINT "YOU WOULD EVEN SAY IT GLOWS"
PLAY "O1L7CL8DL7CL8DL6CL4DO0AP2"
NOSE
PRINT "ALL OF THE OTHER SANTAS"
PLAY "O1L7CDP30CO0L5AO1FDCP2"
NOSE
PRINT "USED TO LAUGH AND CALL HIM NAMES"
PLAY "L7CL8DL7CL8DL6CFEP2"
NOSE
PRINT "THEY NEVER LET POOR ROBERT"
PLAY "O1L7CDP30CO0L5AO1EDCP2"
NOSE
PRINT "JOIN IN ANY SANTA GAMES"
PLAY "O1L7CL8DL7CL8DL7CL6L4GFP2"
NOSE

SUB NOSE
CIRCLE (298, 195), 10, 12 '     NOSE (BRIGHT RED)
PAINT (298, 195), 12 '         FILL IN NOSE (BRIGHT RED)
FOR DE = 1 TO 500: NEXT DE
CIRCLE (298, 195), 10, 4 '      NOSE (DARK RED)
PAINT (298, 195), 4 '          FILL IN NOSE  (DARK RED)
FOR DE = 1 TO 500: NEXT DE
CIRCLE (298, 195), 10, 12 '     NOSE (BRIGHT RED)
PAINT (298, 195), 12 '         FILL IN NOSE (BRIGHT RED)
FOR DE = 1 TO 500: NEXT DE
CIRCLE (298, 195), 10, 4 '      NOSE (DARK RED)
PAINT (298, 195), 4 '          FILL IN NOSE  (DARK RED)
FOR DE = 1 TO 500: NEXT DE

END SUB