REM PROGRAMMED BY: TRAVIS SCHULTZ
CLS
LOCATE 2, 27: PRINT "YANKEE DOODLE OR BARNEY THEME"
RANDOMIZE VAL(MID$(TIME$, 7, 2))
FOR I = 1 TO 65: LOCATE (RND * 17) + 5, (RND * 77) + 1: PRINT CHR$(14): NEXT
PLAY "ms mf t120 l8o2 b- b- >c d <b- >d c <f b- b- >c d l4<b- l8ap8"
 PLAY "b- b- >c d e- d c <b- a f g a l4b- l8b-p8"
 PLAY "l8g. l16a l8g f g a b-p8 l8f. l16g l8f e- l4d l8fp8"
 PLAY "l8g. l16a l8g f g a b- g f b- a >c l4<b- l8b-"