10 REM > F_Jaques 20 REM Plays a simple tune 30 ON ERROR REPORT:PRINT" at line ";ERL:END 40 BEATS 200 50 REPEAT 60 REPEAT UNTIL BEAT=0 70 PROCbar 80 REPEAT UNTIL BEAT<>0 90 UNTIL FALSE 100 : 110 DEFPROCbar 120 beat%=0 130 REPEAT 140 READ pitch% 150 IF pitch%=-1 THEN 160 RESTORE +1:PROCbar:ENDIF:ENDPROC 170 ELSE 180 READ dur% 190 IF pitch%<>0 SOUND 1,-15,pitch%,dur%,beat% 200 beat%+=dur%*5 210 UNTIL beat%>=200 220 ENDIF 230 DATA 53,10,61,10,69,10,53,10 240 DATA 53,10,61,10,69,10,53,10 250 DATA 69,10,73,10,81,20 260 DATA 69,10,73,10,81,20 270 DATA 81,5,89,5,81,5,73,5,69,10,53,10 280 DATA 81,5,89,5,81,5,73,5,69,10,53,10 290 DATA 53,10,33,10,53,10,0,10 300 DATA 53,10,33,10,53,10,0,10 310 DATA -1 320 ENDPROC