10 PRINT:PRINT:LINEINPUT"SET TIME AT(00:00:00): ";Z$
20 IF TIME$=Z$ THEN 40
30 GOTO 20
40 FOR XR=1 TO 4
45 RESTORE
50 READ N,L
60 ON ERROR GOTO 87
80 SOUND N,L
85 GOTO 50
87 RESUME 90
90 NEXT
95 RUN"RAM:BUGLE2.BA",R
100 DATA 4697,12,4697,5,3516,10,4697,10,3516,10,2793,10,3516,20,0,3
110 DATA 3516,15,3516,5,2793,10,3516,10,2793,10,2348,10,2793,20,0,4
120 DATA 3516,15,2793,5,2348,25,5,0,2793,15,0,1,3516,5,4697,20,0,5,4697,15,2,0,4697,5,0,3
130 DATA 3516,17,0,3,3516,15,0,3,3516,5,3516,25,0,10