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