REM PROGRAMMED BY: TRAVIS SCHULTZ
CLS
LOCATE 2, 27: COLOR 14: PRINT "THE WILLIAM TELL OVERTURE"
RANDOMIZE VAL(MID$(TIME$, 7, 2))
FOR I = 1 TO 65: LOCATE (RND * 17) + 5, (RND * 77) + 1: COLOR 6: PRINT CHR$(14): NEXT
OPEN "a:\WILLTELL.DAT" FOR INPUT AS #1
PLAY "MBL16T155"
INPUT #1, M$
WHILE NOT EOF(1)
PLAY M$
INPUT #1, M$
'PRINT M$
WEND
CLOSE
END