REM PROGRAMMED BY: TRAVIS SCHULTZ
CLS
LOCATE 2, 27: COLOR 15: PRINT "POP! GOES THE WEASEL!"
RANDOMIZE VAL(MID$(TIME$, 7, 2))
FOR I = 1 TO 65: LOCATE (RND * 17) + 5, (RND * 77) + 1: COLOR 3: PRINT CHR$(14): NEXT
PLAY "MF T90 O2 L16GP16 G AP16 A L18 B O3D O2B L16GP16"
PLAY "D GP16 G AP16 A L9B. L16GP16"
PLAY "D L16GP16 G AP16 A L18 B O3D O2B L16GP8"
PLAY "O3L16E.P16 O2A.P16 O3C O2L9B. l12Gp16."
PLAY "O3L16GP16 G EP16 L16 G F# A F# Dp16."
PLAY "O3L16GP16 G EP16 G l9F#. Dp12"
PLAY "l16cp16 o2b o3cp16 d ep16 f# gp12. e.p12 o2a.p16 o3c o2l9b. gp16"