10 REM ************************ 20 REM Allegro 30 REM Developed by Tim Surtell 40 REM ************************ 50 REM NC100/200 Version 60 REM Downloaded from Tim's NC Users' Site 70 REM http://www.ncus.org.uk 80 CLS:PRINTTAB(37,2)CHR$17CHR$19"Allegro"CHR$18TAB(32,4)"From Sonata No.3"TAB(17,6)"By Antonio Vivaldi. Arranged By Ken Swanson."CHR$20 90 RESTORE 100 C=0 110 REPEAT 120 READ note,length 130 IF note>0 SOUND2,0,note*4+108,-1:SOUND1,0,note*4+60,length*16:SOUND2,0,0,0 ELSE SOUND1,0,0,length*16 140 C=C+1 150 UNTIL C=359 160 END 170 REM A 180 DATA13,.5,16,1,15,.25,13,.25,20,.5,12,.5,13,1 190 DATA15,.5,16,.5,18,.25,16,.25,18,.25,15,.25,16,.25,13,.25,15,.25,12,.25,13,1 200 DATA13,.5,16,1,15,.25,13,.25,20,.5,12,.5,13,1 210 DATA20,.5,21,.25,20,.25,21,.25,20,.25,18,.25,16,.25,16,1,15,1 220 REM B 230 DATA16,.5,20,1,18,.25,16,.25,18,.25,15,.25,13,.25,11,.25,18,.25,15,.25,13,.25,11,.25 240 DATA16,.5,20,1,18,.25,16,.25,18,.25,15,.25,13,.25,11,.25,18,.25,15,.25,13,.25,11,.25 250 DATA21,.5,21,1,20,.25,18,.25,20,.25,21,.25,23,.5,0,.25,20,.25,18,.25,16,.25 260 DATA18,.25,20,.25,21,.75,18,.25,16,.25,15,.25,20,.25,21,.25,23,.75,20,.25,18,.25,16,.25 270 DATA18,.25,20,.25,21,.5,0,.25,18,.25,16,.25,15,.25 280 REM C 290 DATA19,.5,23,1,19,1,16,1,19,.5 300 DATA18,.5,16,.25,15,.25,13,.25,11,.25,13,.25,15,.25,16,.5,23,1,19,1,16,1,19,.5 310 DATA18,.5,16,.25,15,.25,13,.25,11,.25,13,.25,15,.25,9,.5,12,1,11,1 320 DATA18,1,15,1,21,1,18,.5,19,.5,18,.25,16,.25,18,.5,16,.25,15,.25 330 DATA16,.25,19,.25,18,.25,16,.25,18,.25,15,.25,13,.25,11,.25,16,.25,19,.25,18,.25,16,.25,18,.25,15,.25,13,.25,11,.25 340 DATA20,.5,18,.25,16,.25,18,.5,15,.5,16,2 350 REM D 360 DATA16,.5,20,1,18,.25,16,.25,18,.5,15,.5,16,1 370 DATA18,.5,20,.5,21,.25,20,.25,21,.25,18,.25,20,.25,16,.25,18,.25,15,.25,16,1 380 DATA16,.5,20,1,18,.25,16,.25,18,.5,15,.5,16,1 390 DATA16,.5,23,.5,20,.5,18,.25,16,.25,18,1,0,1 400 REM E 410 DATA18,.5,21,1,20,.25,18,.25,20,.5,17,.5,13,1 420 DATA20,.5,21,.5,23,.25,21,.25,23,.25,20,.25,21,.25,18,.25,20,.25,17,.25,18,1 430 DATA18,.5,21,1,20,.25,18,.25,20,.5,17,.5,13,1 440 DATA18,.5,20,.25,21,.25,23,.5,21,.5,21,1,20,1 450 REM F 460 DATA13,.5,18,1,16,.25,18,.25,14,.5,11,1,9,.5 470 DATA8,.5,20,1,18,.25,20,.25,17,.5,13,1,11,.5 480 DATA9,.5,21,1,20,.25,18,.25,17,.25,15,.25,13,.25,11,.25,9,.25,8,.25,6,.25,5,.25 490 DATA6,.5,18,.5,13,.5,17,.5,18,1,0,1 500 REM G 510 DATA13,.5,16,1,15,.25,13,.25,15,.5,12,.5,13,1 520 DATA15,.5,16,.5,18,.25,16,.25,18,.25,15,.25,16,.25,13,.25,15,.25,12,.25,13,1 530 DATA13,.25,16,.25,20,.75,18,.25,16,.75,15,.25,13,.75,11,.25,9,.25,8,.25 540 DATA9,.5,13,.25,11,.25,9,.5,8,.25,6,.25,15,.25,18,.25,21,.75,20,.25,18,.75 550 DATA16,.25,15,.75,13,.25,12,.25,10,.25,12,.5,15,.25,13,.25,12,.5,10,.25,8,.25 560 DATA16,.25,18,.25,20,.5,0,.25,16,.25,15,.25,13,.25,15,.25,16,.25,18,.75,15,.25,13,.25,12,.25 570 DATA16,.25,18,.25,20,.5,0,.25,16,.25,15,.25,13,.25 580 REM H 590 DATA12,.5,15,1,8,1,18,1,15,1 600 DATA21,1,18,.75,16,.25,18,.25,20,.25,18,.25,16,.25,15,.25 610 DATA16,.5,15,.25,13,.25,15,.5,13,.25,12,.25,13,.5,20,.25,18,.25,16,.5,15,.25,13,.25 620 DATA12,.25,13,.25,15,1,8,.75,15,.25,18,1,15,.75 630 DATA18,.25,21,1,18,.75,16,.25,18,.25,20,.25,18,.25,16,.25,15,.25 640 DATA16,.5,13,.5,6,.5,8,.5,1,2