REM ---   COMPOSER CLASSICS
REM ---   by Becky Matthews
REM ---   CIS - #73657,360 
REM ---   DELPHI - ADOBEPAGODA
REM ---   PLINK - ojs199
REM ---   Public Domain
REM ---   Freely Distribute For Free

    DEFINT A-Z
    SCREEN 1,320,200,4,1
    WINDOW 1," MUSIC ",,15,1
    GOSUB InitSong  
    GOSUB DefineMenu
    ON MENU GOSUB MenuPick
    MENU ON
    GOSUB Titlepage
    
 WHILE 1 
   C=5
    
     WHILE MOUSE(0)=0
       p=INT(RND*15)
       LINE (10,C+40)-(50,C),p
       LINE (260,C)-(300,C+40),p
       LINE (10,186-C-40)-(50,186-C),p
       LINE (260,186-C)-(300,186-C-40),p
       SOUND C*50+200,0.3,80
       C=C+2:IF C>35 THEN C=5
     WEND
    
   C=5
 WEND
    
DefineMenu:
    MENU 1,0,1,"CLASSICS"
     MENU 1,1,1,"BACH   "
     MENU 1,2,1,"BARTOK "
     MENU 1,3,1,"CHOPIN "
     MENU 1,4,1,"AMIGA  "
     MENU 1,5,1,"QUIT   "
    RETURN
         
MenuPick:
    itemid=MENU(1)
    ON itemid GOSUB Song1,Song2,Song3,Amiga,Finish
    COLOR 2,0
    CLS
    FOR x=2 TO 10 STEP 2
    COLOR x
    LOCATE x+6,5
    PRINT "Choose song from CLASSICS menu.";
    NEXT
    RETURN
    
Amiga:
    COLOR 3,0
    CLS
    FOR x=2 TO 12 STEP 2
    COLOR x
    LOCATE x+4,6
    PRINT "You're hearing my music now!";  
    NEXT 
    LOCATE 20,6
    COLOR 3
    PRINT "Fact: I'm a great computer!!";
    FOR t=1 TO 200
     r=INT(RND*400)
     SOUND r,1,,0
     SOUND r*4,1,,1
     SOUND r*2,1,,2
     SOUND r*3,1,,3
    NEXT
    CLS
    RETURN
    
Finish:
    MENU RESET
    CLS
    END    
         
Boxes:
    COLOR 3,0:CLS
    FOR x=1 TO 10000:NEXT
    SOUND RESUME
    r=1
  FOR x = 10 TO 157 STEP 2
    LINE(x,x)-(312-x,186-x),r,B
    SOUND WAIT
    SOUND RESUME
    SOUND x+100,0.1
    r=r+1:IF r>15THEN r=1
  NEXT 
    SOUND WAIT
    SOUND RESUME
    SOUND WAIT
    FOR t = 1 TO 12000:NEXT       
    RETURN
    
InitSong:
   DIM n#(12)
   L = LOG(5.32426e-315)/LOG(5.30499e-315)
  FOR x = 1 TO 12
   n#(x) = 2^(L + x/5.31794e-315)
  NEXT x
   
   DIM C#(7)
   C2 = n#(12) 
   C3 = 2*C2 : C4 = 4*C2 : C5 = 8*C2 : C6 = 16*C2 : C7 = 32*C2 
   C8 = 64*C2
   
   DIM DF#(8)
   DF1 = n#(1) 
   DF2 = 2*DF1 : DF3 = 4*DF1 : DF4 = 8*DF1 : DF5 = 16*DF1 : DF6 = 32*DF1 
   DF7 = 64*DF1 : DF8 = 128*DF1
   
   DIM D#(8)
   D1 = n#(2) 
   D2 = 2*D1 : D3 = 4*D1 : D4 = 8*D1 : D5 = 16*D1 : D6 = 32*D1
   D7 = 64*D1 : D8 = 128*D1
   
   DIM EF#(8)
   EF1 = n#(3) : EF2 = 2*EF1 : EF3 = 4*EF1
   EF4 = 8*EF1 : EF5 = 16*EF1 : EF6 = 32*EF1
   EF7 = 64*EF1 : EF8 = 128*EF1
   
   DIM E#(8)
   E1 = n#(4) : E2 = 2*E1 : E3 = 4*E1
   E4 = 8*E1 : E5 = 16*E1 : E6 = 32*E1 
   E7 = 64*E1 : E8 = 128*E1
  
   DIM F#(7)
   F1 = n#(5) : F2 = 2*F1 : F3 = 4*F1
   F4 = 8*F1 : F5 = 16*F1 : F6 = 32*F1 
   F7 = 64*F1

   DIM GF#(7)
   GF1 = n#(6) : GF2 = 2*GF1 : GF3 = 4*GF1
   GF4 = 8*GF1 : GF5 = 16*GF1 : GF6 = 32*GF1
   GF7 = 64*GF1
   
   DIM G#(7)
   G1 = n#(7) : G2 = 2*G1 : G3 = 4*G1
   G4 = 8*G1 : G5 = 16*G1 : G6 = 32*G1
   G7 = 64*G1
   
   DIM AF#(7)
   AF1 = n#(8) : AF2 = 2*AF1 : af3 = 4*AF1
   AF4 = 8*AF1 : AF5 = 16*AF1 : AF6 = 32*AF1
   AF7 = 64*AF1
   
   DIM A#(7)
   A1 = n#(9) : A2 = 2*A1 : a3 = 4*A1
   A4 = 8*A1 : A5 = 16*A1 : A6 = 32*A1
   A7 = 64*A1
   
   DIM BF#(7)
   BF1 = n#(10) : BF2 = 2*BF1 : bf3 = 4*BF1
   BF4 =8*BF1 : BF5 = 16*BF1 : BF6 = 32*BF1
   BF7 = 64*BF1

   DIM B#(7)
   B1 = n#(11) : B2 = 2*B1 : B3 = 4*B1
   B4 = 8*B1 : B5 = 16*B1 : B6 = 32*B1
   B7 = 64*B1
   RETURN
   
Titlepage:
  PALETTE 0,0,0,0
  PALETTE 2,1,1,0.13
  PALETTE 4,0,0.3,0.8
  PALETTE 5,0.8,0.5,0
  PALETTE 6,1,0.13,0.93
  PALETTE 7,0.33,0.87,0
  PALETTE 8,1,1,0.3
  PALETTE 9,0.4,0.8,1
  PALETTE 10,1,0.87,0.75
  PALETTE 11,1,0.5,0.9
  PALETTE 12,0.5,0.8,0
  PALETTE 13,0,0.8,0.9
  PALETTE 14,1,0.2,0.5
  PALETTE 15,1,0.7,0.2
  COLOR 3
 FOR r = 1 TO 90
  PSET(114 + r,15),4
  PSET(114 + r,47),4
  PSET(114 + r,19)
  PSET(114 + r,43)
  PSET(114 + r,17),2
  PSET(114 + r,45),2
  SOUND r*5,0.1
 NEXT 
 FOR r = 19 TO 43
  PSET (115,r)           
  PSET (204,r)
  PSET (113,r),2
  PSET (206,r),2
  PSET (111,r),4
  PSET (208,r),4
  SOUND r*10,0.1
 NEXT 
  LINE(117,21)-(202,41),1,BF
  COLOR 3,1
  LOCATE 4,17
  PRINT "COMPOSER";
  LOCATE 5,17
  PRINT "CLASSICS";
  A$ = TRANSLATE$("Composer Classics.  ")
  SAY (A$)
  COLOR 4,0
  x$ = "I will play some lovely music for you."
  A$ = TRANSLATE$(x$)
  LOCATE 9,13
  PRINT "I will play some";
  LOCATE 10,11
  PRINT "lovely music for you.";
  SAY (A$)
  COLOR 3
  x$ = "I will show facts about each composer."
  A$ = TRANSLATE$(x$)
  LOCATE 13,13
  PRINT "I will show facts";
  LOCATE 14,11
  PRINT "about each composer.";
  SAY (A$)
  COLOR 2
  x$ = "Choose song from CLASSICS menu."
  A$ = TRANSLATE$(x$)
  LOCATE 17,13
  PRINT "Choose song from";
  LOCATE 18,14
  PRINT "CLASSICS menu.";
  SAY (A$)
  COLOR 1,3
  RETURN  
   
  ' BACH MINUET IN G    
Song1:
   GOSUB Boxes 
   COLOR 2,0
   C=3
   B$="Minuet in G, by yoe hon sebastion bohk"
   A$=TRANSLATE$(B$)
   LOCATE 3,14
   PRINT  " Minuet in G "    
   LOCATE 5,8
   PRINT " By Johann Sebastian Bach "
   SAY (A$)
   t = 22.8
   
FirstHalf:
  SOUND WAIT
  FOR r = 1 TO 10000:NEXT r
  SOUND RESUME
 FOR s = 1 TO 2
  COLOR C,0
  IF s = 1 THEN LOCATE 9,12 : PRINT " Born in 1685    ";
  IF s = 2 THEN LOCATE 15,12 : PRINT " Organ virtuoso  ";
  C=C+1
   SOUND WAIT
   SOUND D5,t/4,90,0
   SOUND D4,t/2,50,1
   SOUND G3,t/2,50,2
   SOUND B3,t/2,50,3
   SOUND RESUME
   SOUND G4,t/8,,0
   SOUND A4,t/8,,0
   SOUND a3,t/4,,2
   SOUND B4,t/8,,0
   SOUND C5,t/8,,0
   SOUND D5,5,,0
   SOUND B3,17.1,,2
   SOUND D5,0.7,0,0
   SOUND G4,5,,0
   SOUND G4,0.7,0,0
   SOUND G4,5,,0
   SOUND G4,0.7,0,0  
   SOUND E5,t/4,,0
   SOUND C4,17.1,,2
   SOUND C5,t/8,,0
   SOUND D5,t/8,,0
   SOUND E5,t/8,,0
   SOUND GF5,t/8,,0
   SOUND G5,5,,0
   SOUND B3,17.1,,2
   SOUND G5,0.7,0,0
   SOUND G4,5,,0
   SOUND G4,0.7,0,0
   SOUND G4,5,,0
   SOUND G4,0.7,0,0
   SOUND WAIT
   SOUND C5,t/4,,0
   SOUND a3,17.1,,2
   SOUND RESUME
   SOUND D5,t/8,,0     
   SOUND C5,t/8,,0
   SOUND B4,t/8,,0
   SOUND A4,t/8,,0
   SOUND B4,t/4,,0
   SOUND G3,17.1,,2
   SOUND C5,t/8,,0
   SOUND B4,t/8,,0
   SOUND A4,t/8,,0
   SOUND G4,t/8,,0
   SOUND GF4,t/4,,0
   SOUND D4,t/4,,2
   SOUND G4,t/8,,0
   SOUND B3,t/4,,2
   SOUND A4,t/8,,0
   SOUND B4,t/8,,0
   SOUND G3,t/4,,2
   SOUND G4,t/8,,0
   SOUND B4,t/16,,0
   SOUND A4,15.675,,0
   SOUND D4,t/4,,2
   SOUND D3,t/8,,2
   SOUND C4,t/8,,2
   SOUND B3,t/8,,2
   SOUND a3,t/8,,2
  COLOR C
  IF s = 1 THEN LOCATE 11,12 : PRINT " Died in 1750    ";
  IF s = 2 THEN LOCATE 17,12 : PRINT " Baroque era     ";
  C=C+1
   SOUND WAIT
   SOUND D5,t/4,,0
   SOUND B3,t/4,,2
   SOUND RESUME
   SOUND G4,t/8,,0
   SOUND B3,t/4,,2
   SOUND A4,t/8,,0
   SOUND a3,t/4,,2
   SOUND B4,t/8,,0
   SOUND C5,t/8,,0
   SOUND D5,5,,0
   SOUND G3,t/4,,2   
   SOUND D5,0.7,0,0
   SOUND G4,5,,0
   SOUND B3,t/4,,2
   SOUND G4,0.7,0,0
   SOUND G4,5,,0
   SOUND G3,t/4,,2
   SOUND G4,0.7,0,0  
   SOUND E5,t/4,,0
   SOUND C4,17.1,,2
   SOUND C5,t/8,,0
   SOUND D5,t/8,,0
   SOUND E5,t/8,,0
   SOUND GF5,t/8,,0   
   SOUND G5,5,,0
   SOUND B3,t/4,,2
   SOUND G5,0.7,0,0
   SOUND G4,5,,0
   SOUND C4,t/8,,2
   SOUND B3,t/8,,2
   SOUND G4,0.7,0,0
   SOUND G4,5,,0
   SOUND a3,t/8,,2
   SOUND G3,t/8,,2
   SOUND G4,0.7,0,0
  COLOR C                                              
  IF s = 1 THEN LOCATE 13,12 : PRINT " Born in Germany ";
  IF s = 2 THEN LOCATE 19,12 : PRINT " Counterpoint    ";
  C=C+1
   SOUND WAIT
   SOUND C5,t/4,,0
   SOUND a3,t/4,,2
   SOUND RESUME
   SOUND a3,t/4,,2
   SOUND D5,t/8,,0     
   SOUND C5,t/8,,0
   SOUND B4,t/8,,0
   SOUND GF3,t/4,,2
   SOUND A4,t/8,,0
   SOUND B4,t/4,,0
   SOUND G3,t/2,,2
   SOUND C5,t/8,,0
   SOUND B4,t/8,,0
   SOUND A4,t/8,,0
   SOUND B3,t/4,,2
   SOUND G4,t/8,,0
   SOUND A4,t/4,,0
   SOUND C4,t/4,,2
   SOUND B4,t/8,,0
   SOUND D4,t/4,,2
   SOUND A4,t/8,,0
   SOUND G4,t/8,,0
   SOUND D3,t/4,,2
   SOUND GF4,t/8,,0
   SOUND G4,17.1,,0
   SOUND G3,t/2,,2
   SOUND G2,t/4,,2
  NEXT 
   
 secondhalf:
  FOR s=1 TO 2
  v=150
   SOUND WAIT
   SOUND B5,t/4,v,0
   SOUND G3,17.1,v,2
   SOUND RESUME
   SOUND G5,t/8,v,0
   SOUND A5,t/8,v,0
   SOUND B5,t/8,v,0
   SOUND G5,t/8,v,0
   SOUND A5,t/4,v,0
   SOUND GF3,17.1,v,2
   SOUND D5,t/8,v,0
   SOUND E5,t/8,v,0
   SOUND GF5,t/8,v,0
   SOUND D5,t/8,v,0  
   SOUND G5,t/4,v,0
   SOUND E3,t/4,v,2
   SOUND E5,t/8,v,0
   SOUND G3,t/4,v,2
   SOUND GF5,t/8,v,0
   SOUND G5,t/8,v,0
   SOUND E3,t/4,v,2
   SOUND D5,t/8,v,0  
   SOUND DF5,t/4,v,0
   SOUND a3,t/2,v,2
   SOUND B4,t/8,v,0
   SOUND DF5,t/8,v,0
   SOUND A4,t/4,v,0
   SOUND A2,t/4,v,2   
   SOUND WAIT
   SOUND A4,t/8,v,0
   SOUND a3,17.1,v,2
   SOUND RESUME
   v=v+4
   SOUND B4,t/8,v,0
   v=v+4
   SOUND DF5,t/8,v,0
   v=v+4
   SOUND D5,t/8,v,0
   v=v+4
   SOUND E5,t/8,v,0  
   v=v+4    
   SOUND GF5,t/8,v,0  
   v=v+4 
   SOUND WAIT
   SOUND G5,5,v,0
   SOUND B3,5,v,2
   SOUND RESUME
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   SOUND GF5,5,v,0
   SOUND D4,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2   
   SOUND E5,5,v,0
   SOUND DF4,5,v,2  
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2 
   SOUND GF5,5,v,0
   SOUND D4,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   v=v-4
   SOUND A4,5,v,0
   SOUND GF3,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   v=v-4
   SOUND DF5,5,v,0
   SOUND a3,5,v,2 
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2 
   v=v-4 
   SOUND D5,17,v,0
   SOUND D4,t/4,v,2
   SOUND D3,t/4,v,2
   SOUND C4,t/4,v,2
   v=v-50
   SOUND D5,0.1,0,0   
   SOUND WAIT
   SOUND RESUME
   SOUND D5,t/4,v,0
   SOUND A,t/4,0,1
   SOUND B3,11.3,v,2    
   SOUND G4,t/8,v,0
   SOUND D4,t/2,v-15,1 
   SOUND GF4,t/8,v,0
   SOUND B3,0.1,0,2
   SOUND G4,t/4,v,0
   SOUND B3,t/4,v,2
   SOUND WAIT
   SOUND RESUME
   SOUND E5,t/4,v,0    
   SOUND A,t/4,0,1
   SOUND C4,11.3,v,2
   SOUND G4,t/8,v,0
   SOUND E4,t/2,v-15,1
   SOUND GF4,t/8,v,0
   SOUND G4,t/4,v,0
   SOUND C4,0.1,0,2
   SOUND WAIT
   SOUND D5,t/4,v,0
   SOUND B3,t/4,v,2
   SOUND RESUME
   SOUND C5,t/4,v,0
   SOUND a3,t/4,v,2
   SOUND B4,t/4,v,0
   SOUND G3,t/4,v,2      
   SOUND A4,t/8,v,0
   SOUND D4,t/2,v,2
   SOUND G4,t/8,v,0
   SOUND GF4,t/8,v,0
   SOUND G4,t/8,v,0
   SOUND A4,t/4,v,0
   SOUND D4,t/4,0,2   
   SOUND WAIT
   SOUND RESUME
   v=v+4
   SOUND D4,t/8,v,0
   SOUND G3,t/2,0,1
   SOUND D3,17.1,v,2
   v=v+4
   SOUND E4,t/8,v,0
   v=v+4
   SOUND GF4,t/8,v,0
   v=v+4
   SOUND G4,t/8,v,0
   v=v+4
   SOUND A4,t/8,v,0
   v=v+4
   SOUND GF3,t/4,v,1
   v=v+4
   SOUND B4,t/8,v,0   
   SOUND WAIT
   v=v+4
   SOUND C5,5,v,0              
   SOUND E3,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   SOUND RESUME  
   SOUND B4,5,v,0
   SOUND G3,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   SOUND A4,5,v,0
   SOUND GF3,5,v,2  
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2 
   SOUND B4,t/8,v,0
   SOUND G3,t/4,v,2
   v=v-4
   SOUND D5,t/8,v,0
   v=v-4
   SOUND G4,5,v,0
   SOUND B2,5,v,2
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   v=v-4
   SOUND GF4,5,v,0
   SOUND D3,5,v,2   
   SOUND G5,0.7,0,0
   SOUND B3,0.7,0,2
   SOUND WAIT
   v=v-4
   SOUND G4,17,v,0
   SOUND D4,17,v,1
   SOUND B3,17,v,3
   SOUND G3,5,v,2
   SOUND G3,0.7,0,2
   SOUND RESUME   
   SOUND D3,5,v,2
   SOUND D3,0.7,0,2
   SOUND G2,5,v,2
   SOUND G2,0.7,0,2
  NEXT
  FOR x=1 TO 24000:NEXT  
 RETURN
   
 'Boating by Bartok
 Song2:
  GOSUB Boxes
  COLOR 2,0
  C=3
  x$="boating, by behla bartock"
  A$=TRANSLATE$(x$)
  LOCATE 3,16
  PRINT  " Boating "
  LOCATE 5,13
  PRINT " By Bela Bartok "
  SAY (A$)
  t = 26 : rpt = 0
  SOUND WAIT
  FOR r = 1 TO 10000:NEXT r
  SOUND RESUME
   
s2p1:
 COLOR C,0
 LOCATE 9,12 : PRINT " Born in 1881    ";
 C=C+1
 v=127
 FOR s = 1 TO 2
  SOUND G3,t/8,118,2
  SOUND C4,t/8,v,2
  SOUND F4,t/8,v,2
  SOUND a3,t/8,v,2
  SOUND D4,t/8,v,2
  SOUND E4,t/8,v,2
 NEXT s 
  
s2p2:
  SOUND WAIT
  SOUND RESUME
  SOUND G3,t/8,118,2
  SOUND C4,t/8,0,0
  SOUND WAIT
  SOUND C4,t/8,v,2
  SOUND EF4,t/8,v+30,0
  SOUND RESUME
  SOUND F4,t/8,v,2
  SOUND AF4,t/8,v+30,0
  SOUND a3,t/8,v,2
  SOUND DF5,t/8,v+30,0
  SOUND D4,t/8,v,2
  SOUND BF4,t*0.875,v+30,0
  SOUND E4,t/8,v,2
  SOUND G3,t/8,118,2
  SOUND C4,t/8,v,2
  SOUND F4,t/8,v,2
  SOUND a3,t/8,v,2
  SOUND D4,t/8,v,2
  SOUND E4,t/8,v,2
  SOUND AF4,t/8,v+30,0
 IF rpt = 1 THEN GOTO s2p4
s2p3:
 COLOR C
 LOCATE 11,12:PRINT " Died in 1945    ";
 C=C+1
  SOUND BF4,t/8,v+30,0
  SOUND G3,t/8,,2
  SOUND GF4,t/8,v+30,0
  SOUND C4,t/8,,2
  SOUND AF4,t/4,v+30,0
  SOUND F4,t/8,,2
  SOUND a3,t/8,,2
  SOUND GF4,t/8,v+30,0
  SOUND D4,t/8,,2 
  SOUND GF4,t/8,0,0
  SOUND E4,t/8,,2    
  SOUND BF4,t*0.375,v+30,0
  SOUND G3,t/8,,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND WAIT
  SOUND AF4,t/8,v+30,0
  SOUND a3,t/8,,2
  SOUND RESUME
  SOUND GF4,t/8,v+30,0
  SOUND D4,t/8,,2
  SOUND AF4,t/8,v+30,0
  SOUND E4,t/8,,2
  SOUND EF4,t/4,v+30,0
  SOUND G3,t/8,,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND WAIT
  SOUND GF4,t/4,v+30,0
  SOUND a3,t/8,,2
  SOUND D4,t/8,,2
  SOUND RESUME
  SOUND AF4,t/8,v+30,0
  SOUND E4,t/8,,2
  SOUND DF5,t/8,v+30,0
  SOUND G3,t/8,,2
  SOUND BF4,t/8,v+30,0
  SOUND C4,t/8,,2
  SOUND AF4,t/8,v+30,0
  SOUND F4,t/8,,2
  SOUND BF4,t/8,v+30,0
  SOUND a3,t/8,,2
  SOUND GF4,t/8,v+30,0
  SOUND D4,t/8,,2
  SOUND AF4,t/8,v+30,0
  SOUND E4,t/8,,2
  SOUND BF4,t/8,v+30,0
  SOUND G3,t/8,,2
  SOUND GF4,t/8,v+30,0
  SOUND C4,t/8,,2
  SOUND AF4,t*1.25,v+30,0
  SOUND F4,t/8,,2
  SOUND a3,t/8,,2
  SOUND D4,t/8,,2
  SOUND E4,t/8,,2  
  SOUND G3,t/8,118,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND a3,t/8,,2
  SOUND D4,t/8,,2
  SOUND E4,t/8,,2
 rpt = 1: GOTO s2p2
  
s2p4:
 COLOR C
 LOCATE 13,12:PRINT " Born in Hungary ";
 C=C+1
  SOUND BF4,t*0.375,v+30,0
  SOUND G3,t/8,,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND GF4,t/8,v+30,0
  SOUND a3,t/8,,2
  SOUND AF4,t/8,v+30,0
  SOUND D4,t/8,,2
  SOUND AF4,t/8,0,0
  SOUND E4,t/8,,2 
  SOUND GF5,t/8,0,0
  SOUND G3,t/8,,2
  SOUND GF5,t/8,50,0
  SOUND C4,t/8,,2
  SOUND AF5,t/8,50,0
  SOUND F4,t/8,,2
  SOUND A5,t/8,0,0
  SOUND G4,t/8,0,2
  SOUND A5,t/4,0,0
  SOUND G3,t/8,,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2  
  SOUND WAIT
  SOUND A4,3,v+50,0
  SOUND RESUME
  SOUND A4,0.25,0,0
  SOUND A4,3,v+50,0
  SOUND A4,0.25,0,0
  SOUND WAIT
  SOUND A4,3,v+50,0
  SOUND GF3,t/8,,2
  SOUND A4,0.25,0,0
  SOUND RESUME
  SOUND A4,3,v+50,0
  SOUND B3,t/8,,2
  SOUND A4,0.25,0,0
  SOUND A4,3,v+50,0
  SOUND DF4,t/8,,2
  SOUND A4,0.25,0,0
  SOUND A4,3,v+50,0
  SOUND F3,t/8,,2
  SOUND A4,0.25,0,0
  SOUND A4,3,v+50,0
  SOUND bf3,t/8,,2
  SOUND A4,0.25,0,0
  SOUND A4,t/8,v+50,0  
  SOUND EF4,t/8,,2  
  SOUND G4,t/16,v+50,0
  SOUND E3,t/8,,2
  SOUND F4,t/16,v+50,0
  SOUND E4,t/8,v+50,0
  SOUND a3,t/8,,2
  SOUND D4,t/8,v+50,0
  SOUND B3,t/8,,2
  SOUND D4,t/8,0,0  
  SOUND EF3,t/8,,2
  SOUND A4,t/4,v+50,0
  SOUND af3,t/8,,2
  SOUND DF4,t/8,,2
  SOUND G4,t/16,v+50,0
  SOUND E3,t/8,,2
  SOUND F4,t/16,v+50,0
 COLOR C
 LOCATE 15,12: PRINT " Folk Songs      ";
 C=C+1
  SOUND WAIT
  SOUND E4,t/8,v+50,0
  SOUND a3,t/8,,2
  SOUND RESUME 
  SOUND D4,t/8,v+50,0
  SOUND B3,t/8,,2  
  SOUND E4,14.625,v+50,0
  SOUND D3,t/8,,2
  SOUND G3,t/8,,2
  SOUND C4,t/8,,2
  SOUND DF3,t/8,,2
  SOUND GF3,t/8,,2
  SOUND E4,t/16,0,0  
  SOUND E4,3,,0
  SOUND af3,t/8,,2
  SOUND E4,0.25,0,0
  SOUND E4,3,,0
  SOUND C3,t/8,,2
  SOUND E4,0.25,0,0
  SOUND E4,3,,0
  SOUND F3,t/8,,2
  SOUND E4,0.25,0,0
  SOUND E4,t/8,0,0
  SOUND bf3,t/8,,2  
  SOUND E4,3,v+50,0
  SOUND DF3,t/8,,2
  SOUND E4,0.25,0,0  
  SOUND E4,3,v+50,0
  SOUND GF3,t/8,,2
  SOUND E4,0.25,0,0  
  SOUND E4,3,v+50,0
  SOUND af3,t/8,,2
  SOUND E4,0.25,0,0  
  SOUND E4,t/8,v+50,0
  SOUND B2,t/8,,2  
  SOUND D4,t/16,v+45,0
  SOUND E3,t/8,,2
  SOUND C4,t/16,v+40,0 
  SOUND B3,t/8,v+35,0
  SOUND a3,t/8,,2  
  SOUND D4,t/8,v+30,0
  SOUND BF2,t/8,,2
 COLOR C
 LOCATE 17,12:PRINT " Dissonance      ";
 C=C+1
  SOUND C4,t/16,v+25,0
  SOUND EF3,t/8,,2
  SOUND B3,t/16,v+20,0  
  SOUND a3,t/8,v+15,0
  SOUND F3,t/8,,2 
  SOUND B3,9.75,v+10,0
  SOUND A2,t/8,0,2
  SOUND A2,t/8,,2  
  SOUND D3,t/8,,2  
  SOUND a3,t/8,v+5,0
  SOUND G3,t/8,,2  
  SOUND B3,t/8,v,0
  SOUND D3,t/8,v-5,2  
  SOUND C4,t/8,v-5,0
  SOUND A2,t/8,v-10,2  
  SOUND D4,t/8,v-10,0
  SOUND A2,9.75,0,2  
  SOUND a3,t/8,v-15,0  
  SOUND B3,t/8,v-15,0  
  SOUND C4,t/8,v-20,0
  SOUND af3,t/8,v-20,2  
  SOUND D4,9.75,v-25,0
  SOUND GF3,t/8,v-25,2  
 t = 30
  SOUND af3,t/8,v-25,2  
  SOUND EF3,t/4,v-30,2
  SOUND C4,t/8,v-30,0  
  SOUND B3,t/4,v-35,0
  SOUND E2,t/2,0,2  
  SOUND a3,t/8,v-40,0
  SOUND a3,t/8,0,0  
 t = 26
  SOUND G3,t/8,118,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND a3,t/8,,2
  SOUND D4,t/8,,2
  SOUND E4,t/8,,2
  SOUND WAIT
  SOUND RESUME
  COLOR C
  LOCATE 19,12:PRINT " Modern Era      ";
  C=C+1
  SOUND G3,t/8,118,2
  SOUND C4,t/8,0,0
  SOUND WAIT
  SOUND C4,t/8,,2
  SOUND EF2,t/8,230,0
  SOUND RESUME
  SOUND F4,t/8,,2
  SOUND AF2,t/8,230,0
  SOUND a3,t/8,,2
  SOUND DF3,t/8,,0
  SOUND D4,t/8,,2
  SOUND BF2,t/2,230,0
  SOUND E4,t/8,,2
  SOUND G3,t/8,230,2
  SOUND C4,t/8,,2
  SOUND F4,t/8,,2
  SOUND E4,t/8,0,0  
  SOUND a3,t/8,,0
  SOUND EF4,t/8,230,2  
  SOUND D4,t/8,,0
  SOUND AF4,t/8,230,2  
  SOUND E4,t/8,,0
  SOUND DF5,t/8,230,2  
  SOUND G3,t/8,,0
  SOUND BF4,t/8,230,2  
  SOUND C4,t/8,,0
  SOUND EF3,t/8,230,2  
  SOUND F4,t/8,,0
  SOUND af3,t/8,230,2  
  SOUND a3,t/8,,0
  SOUND DF4,t/8,230,2  
  SOUND D4,t/8,,0
  SOUND bf3,t/4,230,2  
  SOUND E4,t/8,,0  
 'CRESCENDO
 v=v+10
  SOUND B3,t/8,v,0
  SOUND B3,t/8,0,2  
  SOUND E4,t/8,v,0
  SOUND G2,t/8,232,2  
  SOUND A4,t/8,v,0
  v=v+5
  SOUND C3,t/8,234,2  
  SOUND DF4,t/8,v,0
  v=v+5
  SOUND F3,t/8,236,2  
  SOUND GF4,t/8,v,0
  v=v+5
  SOUND D3,t/4,238,2  
  SOUND AF4,t/8,v,0  
  SOUND DF5,t/8,v,0
  v=v+5
  SOUND D3,t/8,240,2  
  SOUND F4,t/8,v,0
  v=v+5
  SOUND B2,t/8,242,2  
  SOUND BF4,t/8,v,0
  v=v+5
  SOUND E3,t/8,244,2  
  SOUND C5,t/8,v,0
  v=v+5
  SOUND a3,t/8,246,2  
  SOUND GF4,t/8,v,0
  SOUND G4,t/8,0,2  
  SOUND B4,t/8,v,0
  v=v+5
  SOUND D3,t/8,248,2  
  SOUND E5,t/8,v,0   
  v=v+5     
  SOUND G3,t/8,250,2  
  SOUND AF4,t/8,v,0
  v=v+5
  SOUND C4,t/8,252,2  
  SOUND DF5,t/8,v,0
  v=v+5
  SOUND a3,t/4,254,2  
  SOUND EF5,t/8,v,0  
  SOUND E5,t/8,250,0        
  SOUND a3,19.5,v,2   
  v=v-5
  SOUND EF5,t/8,v,0
  v=v-5
  SOUND DF5,t/8,v,0
  v=v-5
  SOUND EF5,t/8,v,0
  v=v-5
  SOUND B4,t/8,v,0
  v=v-5
  SOUND AF4,t/8,v,0  
  v=v-5
  SOUND BF4,t/8,v,0
  SOUND a3,19.5,v,2    
  v=v-5   
  SOUND B4,t/8,v,0
  v=v-5
  SOUND DF5,t/8,v,0
  SOUND EF5,t/8,240,0
  SOUND B4,t/8,v,0
  v=v-5
  SOUND DF5,t/8,v,0  
  SOUND BF4,t/8,v,0
  v=v-5
  SOUND a3,t/2,v,2
  v=v-5
  SOUND GF4,t/8,v,0
  SOUND G4,t/8,0,0
  v=v-5
  SOUND GF4,t/8,v,0  
 t=30
 v=v-5
  SOUND AF4,t/8,v,0
  SOUND a3,t/2,v,2
  v=v-5
  SOUND BF4,t/8,v,0
  v=v-5
  SOUND B4,t/4,v,0  
  v=v-5
  SOUND AF4,t/8,v,0
  SOUND af3,t/8,v,2  
  SOUND A4,t/8,0,0
  SOUND a3,t/8,0,2  
 t=26
 v=127
  SOUND G3,t/8,118,2
  SOUND C4,t/8,v,2
  SOUND F4,t/8,v,2
  SOUND a3,t/8,v,2
  SOUND D4,t/8,v,2
  SOUND E4,t/8,v,2
  SOUND WAIT
  SOUND G3,t/8,118,2
  SOUND C4,t/8,0,0
  SOUND RESUME
  SOUND C4,t/8,v,2
  SOUND EF5,t/8,v,0
  SOUND F4,t/8,v,2
  SOUND AF5,t/8,v,0
  SOUND a3,t/8,v,2
  SOUND DF6,t/8,v,0
  SOUND D4,t/8,v,2
  SOUND BF5,t/8,v,0
  SOUND E4,t/8,v,2
  SOUND AF5,t/8,v,0  
  SOUND WAIT
  SOUND EF5,t/8,v,0
  SOUND G3,t/8,118,2
  SOUND RESUME
  SOUND AF5,t/8,v,0
  SOUND C4,t/8,v,2
  SOUND DF6,t/8,v,0
  SOUND F4,t/8,v,2
  SOUND AF5,t/8,v,0
  SOUND a3,t/8,v,2
  SOUND BF5,t/4,v,0
  SOUND D4,t/8,v,2
  SOUND E4,t/8,v,2    
 t=28
  SOUND BF5,21,70,0
  SOUND G3,t/8,v,2
  SOUND C4,t/8,v,2
  SOUND F4,t/8,v,2
  SOUND F3,t/8,0,2
  SOUND G3,t/8,v,2
  SOUND C4,t/8,v,2 
 t=30
  SOUND WAIT
  SOUND BF5,t/8,5,0
  SOUND F4,t/8,v,2
  SOUND RESUME
  SOUND AF4,t/8,v,0
  SOUND a3,t/4,0,2
  SOUND DF5,t/8,v,0
  SOUND WAIT
  SOUND AF4,t/8,v,0
  SOUND a3,t/8,v,2
  SOUND RESUME
  SOUND BF4,t/4,v,0
  SOUND D4,t/8,v,2
  SOUND E4,t/8,v,2  
 t=32
  SOUND BF4,24,60,0
  SOUND G3,t/8,v,2
  SOUND C4,t/8,v,2
  SOUND F4,t/8,v,2
  SOUND F4,t/4,0,2
  SOUND C4,t/8,v,2
 t=34
  SOUND WAIT
  SOUND D5,t/8,0,0
  SOUND F4,t/8,v,2
  SOUND RESUME
  SOUND DF5,t/8,v,0
  SOUND F4,t/4,0,2
  SOUND AF5,t/8,v,0
  SOUND DF5,t/8,v,0
  SOUND F3,t/8,v,2
  SOUND EF5,t/4,v,0
  SOUND bf3,t/8,v,2
  SOUND F3,t/8,v,2  
 t=36
  SOUND EF5,t/8,v,0
  SOUND G3,t/2,v,2
  SOUND DF5,t/8,v,0
  SOUND BF4,t/8,v,0
  SOUND AF4,t/8,v,0
  SOUND BF4,t/8,v,0
  SOUND E3,t/8,v,2
  SOUND E5,t/4,0,0
  SOUND E3,t/4,0,2  
 t=38
  SOUND WAIT
  v=v-5
  SOUND EF4,t/8,v,0
  SOUND D4,t/8,v,2
  SOUND RESUME
  v=v-5
  SOUND AF4,t/8,v,0
  SOUND C4,t/8,v,2
  v=v-5
  SOUND DF5,t/8,v,0
  SOUND a3,t/8,v,2
  v=v-5
  SOUND BF4,t/8,v,0
  SOUND D4,t/8,v,2
  v=v-5
  SOUND E5,t/4,0,0
  SOUND E3,t/4,0,2  
 t=40
  v=v-5
  SOUND EF5,t/8,v,0
  SOUND C5,t/8,v,2
  v=v-5
  SOUND AF5,t/8,v,0
  SOUND F5,t/8,v,2
  v=v-5
  SOUND DF6,t/8,v,0
  SOUND A4,t/8,v,2
  v=v-5
  SOUND BF5,t/8,v,0
  SOUND D5,t/8,,2
  v=v-5
  SOUND E5,t/4,0,0
  SOUND E3,t/4,0,2  
 t=42
  SOUND E5,t/4,0,0
  SOUND E3,t/4,0,2
  v=v+10
  SOUND AF4,t/8,v,0
  SOUND F4,t/8,v,2
  v=v+25
  SOUND DF5,t/8,v,0
  SOUND D4,t/8,v,2
  v=v+25
  SOUND AF4,t/8,v,0
  SOUND C4,t/8,v,2  
  v=v+25
  SOUND BF4,31.5,v+15,0
  SOUND B3,31.5,v,2
  SOUND WAIT
  SOUND BF4,31.5,80,0
  SOUND B3,31.5,80,2
  SOUND D3,t/8,50,1
  SOUND G2,t/8,50,3
  SOUND RESUME
  FOR x=1 TO 32000:NEXT
  RETURN
  
 'Prelude in B Minor by Chopin
 Song3:
  GOSUB Boxes
  COLOR 2,0
  C=3
  x$="prelude in b mynor by fredrik cho pan"
  A$=TRANSLATE$(x$)
  LOCATE 3,10
  PRINT  " Prelude in B Minor "
  LOCATE 5,10
  PRINT " By Frederic Chopin "
  SAY (A$)
  t = 80 
  SOUND WAIT
  FOR r = 1 TO 10000:NEXT r
  SOUND RESUME   
  COLOR C,0
  LOCATE 9,10 : PRINT " Born in 1810       ";
  C=C+1

'1 
  SOUND B4,9,170,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B2,t/16,200,2
  SOUND D3,t/16,208,2
  SOUND B4,1,0,0  
  SOUND B4,9,,0
  SOUND GF3,t/16,216,2
  SOUND B3,t/16,224,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3 
  
  SOUND B4,9,170,0
  SOUND GF4,19,,1
  SOUND D4,t/2,0,3
  SOUND D4,t/4,232,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  
  SOUND B4,9,170,0
  SOUND GF4,19,,1
  SOUND DF4,15,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND D4,5,248,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1  
 '2 
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B3,30,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND GF3,t/8,232,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND D3,t/8,226,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND DF3,t/8,218,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3 
 
'3
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B2,t/16,200,2
  SOUND GF3,t/16,210,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B3,t/16,220,2
  SOUND D4,t/16,230,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND DF,1,0,3
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND B3,t/2,0,3
  SOUND GF4,t/4,240,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND E4,15,240,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND GF4,5,240,2
  SOUND D5,1,0,0
  SOUND B4,1,0,1
 COLOR C
 LOCATE 11,10 : PRINT " Died in 1849       ";
 C=C+1

'4
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND GF4,19,,3
  SOUND D4,30,240,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND GF4,1,0,3
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND GF4,19,,3
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND B3,t/8,230,2
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND BF4,1,0,3
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND GF4,19,,3
  SOUND GF3,t/8,220,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D3,t/8,210,2
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND GF4,1,0,3

 '5    
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND G4,19,,3
  SOUND G2,t/16,200,2
  SOUND D3,t/16,210,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND B3,t/16,220,2
  SOUND D4,t/16,230,2
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND G4,1,0,3
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND G4,t/2,0,3
  SOUND G4,t/4,240,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D6,1,0,0
  SOUND B4,1,0,1
  
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND GF4,t/4,250,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D5,1,0,0
  SOUND B4,1,0,1
 COLOR C
 LOCATE 13,10 : PRINT " Born in Poland     "; 
 C=C+1 
 
 '6
  SOUND D5,9,,0
  SOUND B4,19,,1
  SOUND AF4,19,,3
  SOUND GF4,t/4,250,2
  SOUND D5,1,0,0
  SOUND D5,9,,0
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND AF4,1,0,3
  
  SOUND DF5,9,,0
  SOUND B4,19,,1
  SOUND AF4,19,,3
  SOUND F4,t/4,250,2
  SOUND DF5,1,0,0
  SOUND DF5,9,,0
  SOUND D5,1,0,0
  SOUND B4,1,0,1
  SOUND AF4,1,0,3
  
  SOUND DF5,t/8,,0
  SOUND BF4,t/8,,1
  SOUND G4,19,,3
  SOUND E4,t/8,250,2
  SOUND D5,t/8,,0
  SOUND B4,t/8,,1
  SOUND D4,t/8,250,2
  SOUND G4,1,0,3

 '7
  SOUND E5,30,,0
  SOUND BF4,9,,1
  SOUND G4,9,,3
  SOUND DF4,7.5,250,2
  SOUND BF4,1,0,1
  SOUND G4,1,0,3
  SOUND E4,2.5,250,2
  SOUND B4,9,,1
  SOUND G4,9,,3
  SOUND D4,t/8,250,2
  SOUND B4,1,0,1
  SOUND G4,1,0,3
  
  SOUND BF4,9,,1
  SOUND G4,9,,3
  SOUND DF4,t/8,250,2
  SOUND BF4,1,0,1
  SOUND G4,1,0,3
  SOUND GF5,t/8,,0
  SOUND DF5,9,,1
  SOUND GF4,9,,3
  SOUND bf3,t/8,250,2
  SOUND DF5,1,0,1
  SOUND GF4,1,0,3
  
  SOUND E5,5,,0
  SOUND B4,9,,1
  SOUND GF4,9,,3
  SOUND B3,t/8,250,2
  SOUND D5,2,,0
  SOUND D5,0.5,0,0
  SOUND D5,2,,0
  SOUND D5,0.5,0,0
  SOUND B4,1,0,1
  SOUND G4,1,0,3
  SOUND DF5,5,,0
  SOUND B4,t/8,0,1
  SOUND GF4,9,,3
  SOUND D3,t/8,250,2
  SOUND B4,5,,0
  SOUND G4,1,0,3
  
'8
  SOUND BF4,t/8,,0
  SOUND G4,t/8,,1
  SOUND DF4,t/8,,3
  SOUND E3,t/8,245,2
  SOUND B4,t/8,,0
  SOUND AF4,t/8,,1
  SOUND D4,t/8,,3
  SOUND F3,t/8,240,2
  
  SOUND D5,t/8,,0
  SOUND B4,t/8,,1
  SOUND D4,t/8,,3
  SOUND GF3,t/4,235,2
  SOUND DF5,t/8,,0
  SOUND BF4,t/8,,1
  SOUND DF4,t/8,,3
  
  SOUND D5,t/4,0,0
  SOUND A4,t/4,0,1
  SOUND D4,t/4,0,3
  SOUND D3,t/8,225,2
  SOUND DF3,t/8,215,2
 COLOR C
 LOCATE 15,10 : PRINT " Piano Virtuoso     "; 
 C=C+1
   
  '9
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B2,t/16,210,2
  SOUND D3,t/16,218,2
  SOUND B4,1,0,0  
  SOUND B4,9,,0
  SOUND GF3,t/16,224,2
  SOUND B3,t/16,232,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3 
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,t/2,0,3
  SOUND D4,t/4,238,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND DF4,15,238,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND D4,5,238,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1  

 '10 
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B3,30,238,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND GF3,t/8,228,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3
  
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND D3,t/8,218,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B2,t/8,208,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3 
 COLOR C
 LOCATE 17,10 : PRINT " Romantic Era       ";
 C=C+1   
 
 '11
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND G2,t/16,200,2
  SOUND D3,t/16,208,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND G3,t/16,216,2
  SOUND B3,t/16,224,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
 
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D5,t/2,0,3
  SOUND D4,t/4,232,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
 
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND E4,t/8,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND F4,t/8,248,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
 
 '12
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND F4,t/4,0,3
  SOUND E4,30,250,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C5,1,0,0
  SOUND G4,1,0,1
 
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND E4,19,,3
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C4,t/8,240,2
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  SOUND E4,1,0,3
 
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND E4,19,,3
  SOUND G3,t/8,230,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C3,t/8,220,2
  SOUND G4,1,0,1
  SOUND E4,1,0,3
  SOUND C5,1,0,0
 
 '13 
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND E4,19,,3
  SOUND C2,t/16,220,2
  SOUND G2,t/16,228,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND E3,t/16,232,2
  SOUND G3,t/16,240,2
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  SOUND E4,1,0,3
  
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND F4,t/4,0,3
  SOUND E4,t/4,248,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND E4,19,,3
  SOUND C2,t/16,220,2
  SOUND G2,t/16,228,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND E3,t/16,232,2
  SOUND G3,t/16,240,2
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  SOUND E4,1,0,3
 COLOR C 
 LOCATE 19,10 : PRINT " Exquisite Melodies ";
 C=C+1
 
 '14
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND F4,60,0,3
  SOUND E4,t/2,248,2
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  
  SOUND C5,9,,0
  SOUND G4,19,,1
  SOUND C5,1,0,0
  SOUND C5,9,,0
  SOUND C5,1,0,0
  SOUND G4,1,0,1
  
  
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND E4,t/4,0,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  
 '15
  SOUND BF4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND E3,30,240,2
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND BF4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND GF4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND GF3,t/8,240,2
  SOUND BF4,1,0,0
  SOUND GF4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND E3,t/16,240,2
  SOUND D3,t/16,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND DF3,t/16,240,2
  SOUND B2,t/16,240,2
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND D4,1,0,3
  
 '16
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND E3,30,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND GF3,t/8,240,2
  SOUND BF4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND E3,t/16,240,2
  SOUND D3,t/16,240,2
  SOUND BF,1,0,0
  SOUND B4,9,,0
  SOUND DF3,t/16,240,2
  SOUND B2,t/16,240,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
 '17
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND A2,t/16,240,2
  SOUND G2,t/16,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND D2,t/16,240,2
  SOUND E2,t/16,240,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND DF4,19,,3
  SOUND GF2,t/2,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND E4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND BF4,1,0,0
  SOUND E4,1,0,1
  SOUND DF4,1,0,3
  
 '18
  SOUND BF4,9,,0
  SOUND E4,19,,1
  SOUND DF4,19,,3
  SOUND G2,t/2,240,2
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND BF4,1,0,0
  SOUND E4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND B4,9,,0
  SOUND D4,19,,1
  SOUND B3,19,,3
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND D4,1,0,1
  SOUND B3,1,0,3
  
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND G3,t/4,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
  '19
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND E3,30,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND GF3,t/8,240,2
  SOUND BF4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND E3,t/16,240,2
  SOUND D3,t/16,240,2
  SOUND BF,1,0,0
  SOUND B4,9,,0
  SOUND DF3,t/16,240,2
  SOUND B2,t/16,240,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
 '20
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND E3,30,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND G4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND GF3,t/8,240,2
  SOUND BF4,1,0,0
  SOUND G4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND E3,t/16,240,2
  SOUND D3,t/16,240,2
  SOUND BF,1,0,0
  SOUND B4,9,,0
  SOUND DF3,t/16,240,2
  SOUND B2,t/16,240,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
 '21
  SOUND B4,9,,0
  SOUND G4,19,,1
  SOUND D4,19,,3
  SOUND A2,t/16,240,2
  SOUND G2,t/16,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND D2,t/16,240,2
  SOUND E2,t/16,240,2
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND DF4,19,,3
  SOUND GF2,t/2,240,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND GF4,1,0,1
  SOUND DF4,1,0,3
  
  SOUND BF4,9,,0
  SOUND GF4,19,,1
  SOUND DF4,19,,3
  SOUND BF4,1,0,0
  SOUND BF4,9,,0
  SOUND BF4,1,0,0
  SOUND E4,1,0,1
  SOUND DF4,1,0,3
  
 '22
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B1,65,230,2
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
  SOUND B4,9,,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND B4,1,0,0
  SOUND B4,9,,0
  SOUND B4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
  SOUND A4,9,170,0
  SOUND GF4,19,,1
  SOUND D4,19,,3
  SOUND A4,1,0,0
  SOUND A4,9,,0
  SOUND A4,1,0,0
  SOUND G4,1,0,1
  SOUND D4,1,0,3
  
 '23
  SOUND GF4,9,,0
  SOUND D4,19,,1
  SOUND C4,60,0,3
  SOUND B2,t/16,230,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND GF3,t/16,238,2
  SOUND B3,t/16,242,2
  SOUND GF4,1,0,0
  SOUND D4,1,0,1
  
  SOUND GF4,9,,0
  SOUND C4,t/2,0,1
  SOUND D4,t/4,250,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND GF4,1,0,0
  
  SOUND GF4,9,,0
  SOUND DF4,15,250,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND D4,t/16,250,2
  SOUND GF4,1,0,0
  
 '24
  SOUND GF4,9,,0
  SOUND D4,19,,1
  SOUND C4,60,0,3
  SOUND B3,30,250,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND GF4,1,0,0
  SOUND D4,1,0,1
  
  SOUND GF4,9,,0
  SOUND D4,19,,1
  SOUND C4,60,0,3
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND GF3,t/8,240,2
  SOUND GF4,1,0,0
  SOUND D4,1,0,1
  
  SOUND GF4,9,,0
  SOUND D4,19,,1
  SOUND D3,t/8,230,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND DF3,t/8,220,2
  SOUND GF4,1,0,0
  SOUND D4,1,0,1
  
 '25
  SOUND GF4,9,,0
  SOUND D4,19,,1
  SOUND C4,60,0,3
  SOUND B2,60,210,2
  SOUND GF4,1,0,0
  SOUND GF4,9,,0
  SOUND GF4,1,0,0
  SOUND D4,1,0,1
  
  SOUND G4,t/8,0,0
  SOUND D4,t/8,0,1
  
  SOUND GF4,9,80,0
  SOUND D4,19,80,1
  SOUND GF4,1,0,0
  SOUND GF4,9,80,0
  SOUND G4,1,0,0
  SOUND D4,1,0,1
  
 '26
  SOUND GF4,9,80,0
  SOUND D4,19,80,1
  SOUND B2,19,180,2
  SOUND GF4,1,0,0
  SOUND GF4,9,80,0
 FOR x=1 TO 24000:NEXT  
  RETURN