home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 058.lha / Classics / MUSIC (.txt) < prev   
AmigaBASIC Source Code  |  1986-11-20  |  35KB  |  1,943 lines
  1.  
  2. REM ---   COMPOSER CLASSICS
  3. REM ---   by Becky Matthews
  4. REM ---   CIS - #73657,360 
  5. REM ---   DELPHI - ADOBEPAGODA
  6. REM ---   PLINK - ojs199
  7. REM ---   Public Domain
  8. REM ---   Freely Distribute For Free
  9.  
  10.     DEFINT A-Z
  11.     SCREEN 1,320,200,4,1
  12.     WINDOW 1," MUSIC ",,15,1
  13.     GOSUB InitSong  
  14.     GOSUB DefineMenu
  15.     ON MENU GOSUB MenuPick
  16.     MENU ON
  17.     GOSUB Titlepage
  18.     
  19.  WHILE 1 
  20.    C=5
  21.     
  22.      WHILE MOUSE(0)=0
  23.        p=INT(RND*15)
  24.        LINE (10,C+40)-(50,C),p
  25.        LINE (260,C)-(300,C+40),p
  26.        LINE (10,186-C-40)-(50,186-C),p
  27.        LINE (260,186-C)-(300,186-C-40),p
  28.        SOUND C*50+200,0.3,80
  29.        C=C+2:IF C>35 THEN C=5
  30.      WEND
  31.     
  32.    C=5
  33.  WEND
  34.     
  35. DefineMenu:
  36.     MENU 1,0,1,"CLASSICS"
  37.      MENU 1,1,1,"BACH   "
  38.      MENU 1,2,1,"BARTOK "
  39.      MENU 1,3,1,"CHOPIN "
  40.      MENU 1,4,1,"AMIGA  "
  41.      MENU 1,5,1,"QUIT   "
  42.     RETURN
  43.          
  44. MenuPick:
  45.     itemid=MENU(1)
  46.     ON itemid GOSUB Song1,Song2,Song3,Amiga,Finish
  47.     COLOR 2,0
  48.     CLS
  49.     FOR x=2 TO 10 STEP 2
  50.     COLOR x
  51.     LOCATE x+6,5
  52.     PRINT "Choose song from CLASSICS menu.";
  53.     NEXT
  54.     RETURN
  55.     
  56. Amiga:
  57.     COLOR 3,0
  58.     CLS
  59.     FOR x=2 TO 12 STEP 2
  60.     COLOR x
  61.     LOCATE x+4,6
  62.     PRINT "You're hearing my music now!";  
  63.     NEXT 
  64.     LOCATE 20,6
  65.     COLOR 3
  66.     PRINT "Fact: I'm a great computer!!";
  67.     FOR t=1 TO 200
  68.      r=INT(RND*400)
  69.      SOUND r,1,,0
  70.      SOUND r*4,1,,1
  71.      SOUND r*2,1,,2
  72.      SOUND r*3,1,,3
  73.     NEXT
  74.     CLS
  75.     RETURN
  76.     
  77. Finish:
  78.     MENU RESET
  79.     CLS
  80.     END    
  81.          
  82. Boxes:
  83.     COLOR 3,0:CLS
  84.     FOR x=1 TO 10000:NEXT
  85.     SOUND RESUME
  86.     r=1
  87.   FOR x = 10 TO 157 STEP 2
  88.     LINE(x,x)-(312-x,186-x),r,B
  89.     SOUND WAIT
  90.     SOUND RESUME
  91.     SOUND x+100,0.1
  92.     r=r+1:IF r>15THEN r=1
  93.   NEXT 
  94.     SOUND WAIT
  95.     SOUND RESUME
  96.     SOUND WAIT
  97.     FOR t = 1 TO 12000:NEXT       
  98.     RETURN
  99.     
  100. InitSong:
  101.    DIM n#(12)
  102.    L = LOG(5.32426e-315)/LOG(5.30499e-315)
  103.   FOR x = 1 TO 12
  104.    n#(x) = 2^(L + x/5.31794e-315)
  105.   NEXT x
  106.    
  107.    DIM C#(7)
  108.    C2 = n#(12) 
  109.    C3 = 2*C2 : C4 = 4*C2 : C5 = 8*C2 : C6 = 16*C2 : C7 = 32*C2 
  110.    C8 = 64*C2
  111.    
  112.    DIM DF#(8)
  113.    DF1 = n#(1) 
  114.    DF2 = 2*DF1 : DF3 = 4*DF1 : DF4 = 8*DF1 : DF5 = 16*DF1 : DF6 = 32*DF1 
  115.    DF7 = 64*DF1 : DF8 = 128*DF1
  116.    
  117.    DIM D#(8)
  118.    D1 = n#(2) 
  119.    D2 = 2*D1 : D3 = 4*D1 : D4 = 8*D1 : D5 = 16*D1 : D6 = 32*D1
  120.    D7 = 64*D1 : D8 = 128*D1
  121.    
  122.    DIM EF#(8)
  123.    EF1 = n#(3) : EF2 = 2*EF1 : EF3 = 4*EF1
  124.    EF4 = 8*EF1 : EF5 = 16*EF1 : EF6 = 32*EF1
  125.    EF7 = 64*EF1 : EF8 = 128*EF1
  126.    
  127.    DIM E#(8)
  128.    E1 = n#(4) : E2 = 2*E1 : E3 = 4*E1
  129.    E4 = 8*E1 : E5 = 16*E1 : E6 = 32*E1 
  130.    E7 = 64*E1 : E8 = 128*E1
  131.   
  132.    DIM F#(7)
  133.    F1 = n#(5) : F2 = 2*F1 : F3 = 4*F1
  134.    F4 = 8*F1 : F5 = 16*F1 : F6 = 32*F1 
  135.    F7 = 64*F1
  136.  
  137.    DIM GF#(7)
  138.    GF1 = n#(6) : GF2 = 2*GF1 : GF3 = 4*GF1
  139.    GF4 = 8*GF1 : GF5 = 16*GF1 : GF6 = 32*GF1
  140.    GF7 = 64*GF1
  141.    
  142.    DIM G#(7)
  143.    G1 = n#(7) : G2 = 2*G1 : G3 = 4*G1
  144.    G4 = 8*G1 : G5 = 16*G1 : G6 = 32*G1
  145.    G7 = 64*G1
  146.    
  147.    DIM AF#(7)
  148.    AF1 = n#(8) : AF2 = 2*AF1 : af3 = 4*AF1
  149.    AF4 = 8*AF1 : AF5 = 16*AF1 : AF6 = 32*AF1
  150.    AF7 = 64*AF1
  151.    
  152.    DIM A#(7)
  153.    A1 = n#(9) : A2 = 2*A1 : a3 = 4*A1
  154.    A4 = 8*A1 : A5 = 16*A1 : A6 = 32*A1
  155.    A7 = 64*A1
  156.    
  157.    DIM BF#(7)
  158.    BF1 = n#(10) : BF2 = 2*BF1 : bf3 = 4*BF1
  159.    BF4 =8*BF1 : BF5 = 16*BF1 : BF6 = 32*BF1
  160.    BF7 = 64*BF1
  161.  
  162.    DIM B#(7)
  163.    B1 = n#(11) : B2 = 2*B1 : B3 = 4*B1
  164.    B4 = 8*B1 : B5 = 16*B1 : B6 = 32*B1
  165.    B7 = 64*B1
  166.    RETURN
  167.    
  168. Titlepage:
  169.   PALETTE 0,0,0,0
  170.   PALETTE 2,1,1,0.13
  171.   PALETTE 4,0,0.3,0.8
  172.   PALETTE 5,0.8,0.5,0
  173.   PALETTE 6,1,0.13,0.93
  174.   PALETTE 7,0.33,0.87,0
  175.   PALETTE 8,1,1,0.3
  176.   PALETTE 9,0.4,0.8,1
  177.   PALETTE 10,1,0.87,0.75
  178.   PALETTE 11,1,0.5,0.9
  179.   PALETTE 12,0.5,0.8,0
  180.   PALETTE 13,0,0.8,0.9
  181.   PALETTE 14,1,0.2,0.5
  182.   PALETTE 15,1,0.7,0.2
  183.   COLOR 3
  184.  FOR r = 1 TO 90
  185.   PSET(114 + r,15),4
  186.   PSET(114 + r,47),4
  187.   PSET(114 + r,19)
  188.   PSET(114 + r,43)
  189.   PSET(114 + r,17),2
  190.   PSET(114 + r,45),2
  191.   SOUND r*5,0.1
  192.  NEXT 
  193.  FOR r = 19 TO 43
  194.   PSET (115,r)           
  195.   PSET (204,r)
  196.   PSET (113,r),2
  197.   PSET (206,r),2
  198.   PSET (111,r),4
  199.   PSET (208,r),4
  200.   SOUND r*10,0.1
  201.  NEXT 
  202.   LINE(117,21)-(202,41),1,BF
  203.   COLOR 3,1
  204.   LOCATE 4,17
  205.   PRINT "COMPOSER";
  206.   LOCATE 5,17
  207.   PRINT "CLASSICS";
  208.   A$ = TRANSLATE$("Composer Classics.  ")
  209.   SAY (A$)
  210.   COLOR 4,0
  211.   x$ = "I will play some lovely music for you."
  212.   A$ = TRANSLATE$(x$)
  213.   LOCATE 9,13
  214.   PRINT "I will play some";
  215.   LOCATE 10,11
  216.   PRINT "lovely music for you.";
  217.   SAY (A$)
  218.   COLOR 3
  219.   x$ = "I will show facts about each composer."
  220.   A$ = TRANSLATE$(x$)
  221.   LOCATE 13,13
  222.   PRINT "I will show facts";
  223.   LOCATE 14,11
  224.   PRINT "about each composer.";
  225.   SAY (A$)
  226.   COLOR 2
  227.   x$ = "Choose song from CLASSICS menu."
  228.   A$ = TRANSLATE$(x$)
  229.   LOCATE 17,13
  230.   PRINT "Choose song from";
  231.   LOCATE 18,14
  232.   PRINT "CLASSICS menu.";
  233.   SAY (A$)
  234.   COLOR 1,3
  235.   RETURN  
  236.    
  237.   ' BACH MINUET IN G    
  238. Song1:
  239.    GOSUB Boxes 
  240.    COLOR 2,0
  241.    C=3
  242.    B$="Minuet in G, by yoe hon sebastion bohk"
  243.    A$=TRANSLATE$(B$)
  244.    LOCATE 3,14
  245.    PRINT  " Minuet in G "    
  246.    LOCATE 5,8
  247.    PRINT " By Johann Sebastian Bach "
  248.    SAY (A$)
  249.    t = 22.8
  250.    
  251. FirstHalf:
  252.   SOUND WAIT
  253.   FOR r = 1 TO 10000:NEXT r
  254.   SOUND RESUME
  255.  FOR s = 1 TO 2
  256.   COLOR C,0
  257.   IF s = 1 THEN LOCATE 9,12 : PRINT " Born in 1685    ";
  258.   IF s = 2 THEN LOCATE 15,12 : PRINT " Organ virtuoso  ";
  259.   C=C+1
  260.    SOUND WAIT
  261.    SOUND D5,t/4,90,0
  262.    SOUND D4,t/2,50,1
  263.    SOUND G3,t/2,50,2
  264.    SOUND B3,t/2,50,3
  265.    SOUND RESUME
  266.    SOUND G4,t/8,,0
  267.    SOUND A4,t/8,,0
  268.    SOUND a3,t/4,,2
  269.    SOUND B4,t/8,,0
  270.    SOUND C5,t/8,,0
  271.    SOUND D5,5,,0
  272.    SOUND B3,17.1,,2
  273.    SOUND D5,0.7,0,0
  274.    SOUND G4,5,,0
  275.    SOUND G4,0.7,0,0
  276.    SOUND G4,5,,0
  277.    SOUND G4,0.7,0,0  
  278.    SOUND E5,t/4,,0
  279.    SOUND C4,17.1,,2
  280.    SOUND C5,t/8,,0
  281.    SOUND D5,t/8,,0
  282.    SOUND E5,t/8,,0
  283.    SOUND GF5,t/8,,0
  284.    SOUND G5,5,,0
  285.    SOUND B3,17.1,,2
  286.    SOUND G5,0.7,0,0
  287.    SOUND G4,5,,0
  288.    SOUND G4,0.7,0,0
  289.    SOUND G4,5,,0
  290.    SOUND G4,0.7,0,0
  291.    SOUND WAIT
  292.    SOUND C5,t/4,,0
  293.    SOUND a3,17.1,,2
  294.    SOUND RESUME
  295.    SOUND D5,t/8,,0     
  296.    SOUND C5,t/8,,0
  297.    SOUND B4,t/8,,0
  298.    SOUND A4,t/8,,0
  299.    SOUND B4,t/4,,0
  300.    SOUND G3,17.1,,2
  301.    SOUND C5,t/8,,0
  302.    SOUND B4,t/8,,0
  303.    SOUND A4,t/8,,0
  304.    SOUND G4,t/8,,0
  305.    SOUND GF4,t/4,,0
  306.    SOUND D4,t/4,,2
  307.    SOUND G4,t/8,,0
  308.    SOUND B3,t/4,,2
  309.    SOUND A4,t/8,,0
  310.    SOUND B4,t/8,,0
  311.    SOUND G3,t/4,,2
  312.    SOUND G4,t/8,,0
  313.    SOUND B4,t/16,,0
  314.    SOUND A4,15.675,,0
  315.    SOUND D4,t/4,,2
  316.    SOUND D3,t/8,,2
  317.    SOUND C4,t/8,,2
  318.    SOUND B3,t/8,,2
  319.    SOUND a3,t/8,,2
  320.   COLOR C
  321.   IF s = 1 THEN LOCATE 11,12 : PRINT " Died in 1750    ";
  322.   IF s = 2 THEN LOCATE 17,12 : PRINT " Baroque era     ";
  323.   C=C+1
  324.    SOUND WAIT
  325.    SOUND D5,t/4,,0
  326.    SOUND B3,t/4,,2
  327.    SOUND RESUME
  328.    SOUND G4,t/8,,0
  329.    SOUND B3,t/4,,2
  330.    SOUND A4,t/8,,0
  331.    SOUND a3,t/4,,2
  332.    SOUND B4,t/8,,0
  333.    SOUND C5,t/8,,0
  334.    SOUND D5,5,,0
  335.    SOUND G3,t/4,,2   
  336.    SOUND D5,0.7,0,0
  337.    SOUND G4,5,,0
  338.    SOUND B3,t/4,,2
  339.    SOUND G4,0.7,0,0
  340.    SOUND G4,5,,0
  341.    SOUND G3,t/4,,2
  342.    SOUND G4,0.7,0,0  
  343.    SOUND E5,t/4,,0
  344.    SOUND C4,17.1,,2
  345.    SOUND C5,t/8,,0
  346.    SOUND D5,t/8,,0
  347.    SOUND E5,t/8,,0
  348.    SOUND GF5,t/8,,0   
  349.    SOUND G5,5,,0
  350.    SOUND B3,t/4,,2
  351.    SOUND G5,0.7,0,0
  352.    SOUND G4,5,,0
  353.    SOUND C4,t/8,,2
  354.    SOUND B3,t/8,,2
  355.    SOUND G4,0.7,0,0
  356.    SOUND G4,5,,0
  357.    SOUND a3,t/8,,2
  358.    SOUND G3,t/8,,2
  359.    SOUND G4,0.7,0,0
  360.   COLOR C                                              
  361.   IF s = 1 THEN LOCATE 13,12 : PRINT " Born in Germany ";
  362.   IF s = 2 THEN LOCATE 19,12 : PRINT " Counterpoint    ";
  363.   C=C+1
  364.    SOUND WAIT
  365.    SOUND C5,t/4,,0
  366.    SOUND a3,t/4,,2
  367.    SOUND RESUME
  368.    SOUND a3,t/4,,2
  369.    SOUND D5,t/8,,0     
  370.    SOUND C5,t/8,,0
  371.    SOUND B4,t/8,,0
  372.    SOUND GF3,t/4,,2
  373.    SOUND A4,t/8,,0
  374.    SOUND B4,t/4,,0
  375.    SOUND G3,t/2,,2
  376.    SOUND C5,t/8,,0
  377.    SOUND B4,t/8,,0
  378.    SOUND A4,t/8,,0
  379.    SOUND B3,t/4,,2
  380.    SOUND G4,t/8,,0
  381.    SOUND A4,t/4,,0
  382.    SOUND C4,t/4,,2
  383.    SOUND B4,t/8,,0
  384.    SOUND D4,t/4,,2
  385.    SOUND A4,t/8,,0
  386.    SOUND G4,t/8,,0
  387.    SOUND D3,t/4,,2
  388.    SOUND GF4,t/8,,0
  389.    SOUND G4,17.1,,0
  390.    SOUND G3,t/2,,2
  391.    SOUND G2,t/4,,2
  392.   NEXT 
  393.    
  394.  secondhalf:
  395.   FOR s=1 TO 2
  396.   v=150
  397.    SOUND WAIT
  398.    SOUND B5,t/4,v,0
  399.    SOUND G3,17.1,v,2
  400.    SOUND RESUME
  401.    SOUND G5,t/8,v,0
  402.    SOUND A5,t/8,v,0
  403.    SOUND B5,t/8,v,0
  404.    SOUND G5,t/8,v,0
  405.    SOUND A5,t/4,v,0
  406.    SOUND GF3,17.1,v,2
  407.    SOUND D5,t/8,v,0
  408.    SOUND E5,t/8,v,0
  409.    SOUND GF5,t/8,v,0
  410.    SOUND D5,t/8,v,0  
  411.    SOUND G5,t/4,v,0
  412.    SOUND E3,t/4,v,2
  413.    SOUND E5,t/8,v,0
  414.    SOUND G3,t/4,v,2
  415.    SOUND GF5,t/8,v,0
  416.    SOUND G5,t/8,v,0
  417.    SOUND E3,t/4,v,2
  418.    SOUND D5,t/8,v,0  
  419.    SOUND DF5,t/4,v,0
  420.    SOUND a3,t/2,v,2
  421.    SOUND B4,t/8,v,0
  422.    SOUND DF5,t/8,v,0
  423.    SOUND A4,t/4,v,0
  424.    SOUND A2,t/4,v,2   
  425.    SOUND WAIT
  426.    SOUND A4,t/8,v,0
  427.    SOUND a3,17.1,v,2
  428.    SOUND RESUME
  429.    v=v+4
  430.    SOUND B4,t/8,v,0
  431.    v=v+4
  432.    SOUND DF5,t/8,v,0
  433.    v=v+4
  434.    SOUND D5,t/8,v,0
  435.    v=v+4
  436.    SOUND E5,t/8,v,0  
  437.    v=v+4    
  438.    SOUND GF5,t/8,v,0  
  439.    v=v+4 
  440.    SOUND WAIT
  441.    SOUND G5,5,v,0
  442.    SOUND B3,5,v,2
  443.    SOUND RESUME
  444.    SOUND G5,0.7,0,0
  445.    SOUND B3,0.7,0,2
  446.    SOUND GF5,5,v,0
  447.    SOUND D4,5,v,2
  448.    SOUND G5,0.7,0,0
  449.    SOUND B3,0.7,0,2   
  450.    SOUND E5,5,v,0
  451.    SOUND DF4,5,v,2  
  452.    SOUND G5,0.7,0,0
  453.    SOUND B3,0.7,0,2 
  454.    SOUND GF5,5,v,0
  455.    SOUND D4,5,v,2
  456.    SOUND G5,0.7,0,0
  457.    SOUND B3,0.7,0,2
  458.    v=v-4
  459.    SOUND A4,5,v,0
  460.    SOUND GF3,5,v,2
  461.    SOUND G5,0.7,0,0
  462.    SOUND B3,0.7,0,2
  463.    v=v-4
  464.    SOUND DF5,5,v,0
  465.    SOUND a3,5,v,2 
  466.    SOUND G5,0.7,0,0
  467.    SOUND B3,0.7,0,2 
  468.    v=v-4 
  469.    SOUND D5,17,v,0
  470.    SOUND D4,t/4,v,2
  471.    SOUND D3,t/4,v,2
  472.    SOUND C4,t/4,v,2
  473.    v=v-50
  474.    SOUND D5,0.1,0,0   
  475.    SOUND WAIT
  476.    SOUND RESUME
  477.    SOUND D5,t/4,v,0
  478.    SOUND A,t/4,0,1
  479.    SOUND B3,11.3,v,2    
  480.    SOUND G4,t/8,v,0
  481.    SOUND D4,t/2,v-15,1 
  482.    SOUND GF4,t/8,v,0
  483.    SOUND B3,0.1,0,2
  484.    SOUND G4,t/4,v,0
  485.    SOUND B3,t/4,v,2
  486.    SOUND WAIT
  487.    SOUND RESUME
  488.    SOUND E5,t/4,v,0    
  489.    SOUND A,t/4,0,1
  490.    SOUND C4,11.3,v,2
  491.    SOUND G4,t/8,v,0
  492.    SOUND E4,t/2,v-15,1
  493.    SOUND GF4,t/8,v,0
  494.    SOUND G4,t/4,v,0
  495.    SOUND C4,0.1,0,2
  496.    SOUND WAIT
  497.    SOUND D5,t/4,v,0
  498.    SOUND B3,t/4,v,2
  499.    SOUND RESUME
  500.    SOUND C5,t/4,v,0
  501.    SOUND a3,t/4,v,2
  502.    SOUND B4,t/4,v,0
  503.    SOUND G3,t/4,v,2      
  504.    SOUND A4,t/8,v,0
  505.    SOUND D4,t/2,v,2
  506.    SOUND G4,t/8,v,0
  507.    SOUND GF4,t/8,v,0
  508.    SOUND G4,t/8,v,0
  509.    SOUND A4,t/4,v,0
  510.    SOUND D4,t/4,0,2   
  511.    SOUND WAIT
  512.    SOUND RESUME
  513.    v=v+4
  514.    SOUND D4,t/8,v,0
  515.    SOUND G3,t/2,0,1
  516.    SOUND D3,17.1,v,2
  517.    v=v+4
  518.    SOUND E4,t/8,v,0
  519.    v=v+4
  520.    SOUND GF4,t/8,v,0
  521.    v=v+4
  522.    SOUND G4,t/8,v,0
  523.    v=v+4
  524.    SOUND A4,t/8,v,0
  525.    v=v+4
  526.    SOUND GF3,t/4,v,1
  527.    v=v+4
  528.    SOUND B4,t/8,v,0   
  529.    SOUND WAIT
  530.    v=v+4
  531.    SOUND C5,5,v,0              
  532.    SOUND E3,5,v,2
  533.    SOUND G5,0.7,0,0
  534.    SOUND B3,0.7,0,2
  535.    SOUND RESUME  
  536.    SOUND B4,5,v,0
  537.    SOUND G3,5,v,2
  538.    SOUND G5,0.7,0,0
  539.    SOUND B3,0.7,0,2
  540.    SOUND A4,5,v,0
  541.    SOUND GF3,5,v,2  
  542.    SOUND G5,0.7,0,0
  543.    SOUND B3,0.7,0,2 
  544.    SOUND B4,t/8,v,0
  545.    SOUND G3,t/4,v,2
  546.    v=v-4
  547.    SOUND D5,t/8,v,0
  548.    v=v-4
  549.    SOUND G4,5,v,0
  550.    SOUND B2,5,v,2
  551.    SOUND G5,0.7,0,0
  552.    SOUND B3,0.7,0,2
  553.    v=v-4
  554.    SOUND GF4,5,v,0
  555.    SOUND D3,5,v,2   
  556.    SOUND G5,0.7,0,0
  557.    SOUND B3,0.7,0,2
  558.    SOUND WAIT
  559.    v=v-4
  560.    SOUND G4,17,v,0
  561.    SOUND D4,17,v,1
  562.    SOUND B3,17,v,3
  563.    SOUND G3,5,v,2
  564.    SOUND G3,0.7,0,2
  565.    SOUND RESUME   
  566.    SOUND D3,5,v,2
  567.    SOUND D3,0.7,0,2
  568.    SOUND G2,5,v,2
  569.    SOUND G2,0.7,0,2
  570.   NEXT
  571.   FOR x=1 TO 24000:NEXT  
  572.  RETURN
  573.    
  574.  'Boating by Bartok
  575.  Song2:
  576.   GOSUB Boxes
  577.   COLOR 2,0
  578.   C=3
  579.   x$="boating, by behla bartock"
  580.   A$=TRANSLATE$(x$)
  581.   LOCATE 3,16
  582.   PRINT  " Boating "
  583.   LOCATE 5,13
  584.   PRINT " By Bela Bartok "
  585.   SAY (A$)
  586.   t = 26 : rpt = 0
  587.   SOUND WAIT
  588.   FOR r = 1 TO 10000:NEXT r
  589.   SOUND RESUME
  590.    
  591. s2p1:
  592.  COLOR C,0
  593.  LOCATE 9,12 : PRINT " Born in 1881    ";
  594.  C=C+1
  595.  v=127
  596.  FOR s = 1 TO 2
  597.   SOUND G3,t/8,118,2
  598.   SOUND C4,t/8,v,2
  599.   SOUND F4,t/8,v,2
  600.   SOUND a3,t/8,v,2
  601.   SOUND D4,t/8,v,2
  602.   SOUND E4,t/8,v,2
  603.  NEXT s 
  604.   
  605. s2p2:
  606.   SOUND WAIT
  607.   SOUND RESUME
  608.   SOUND G3,t/8,118,2
  609.   SOUND C4,t/8,0,0
  610.   SOUND WAIT
  611.   SOUND C4,t/8,v,2
  612.   SOUND EF4,t/8,v+30,0
  613.   SOUND RESUME
  614.   SOUND F4,t/8,v,2
  615.   SOUND AF4,t/8,v+30,0
  616.   SOUND a3,t/8,v,2
  617.   SOUND DF5,t/8,v+30,0
  618.   SOUND D4,t/8,v,2
  619.   SOUND BF4,t*0.875,v+30,0
  620.   SOUND E4,t/8,v,2
  621.   SOUND G3,t/8,118,2
  622.   SOUND C4,t/8,v,2
  623.   SOUND F4,t/8,v,2
  624.   SOUND a3,t/8,v,2
  625.   SOUND D4,t/8,v,2
  626.   SOUND E4,t/8,v,2
  627.   SOUND AF4,t/8,v+30,0
  628.  IF rpt = 1 THEN GOTO s2p4
  629. s2p3:
  630.  COLOR C
  631.  LOCATE 11,12:PRINT " Died in 1945    ";
  632.  C=C+1
  633.   SOUND BF4,t/8,v+30,0
  634.   SOUND G3,t/8,,2
  635.   SOUND GF4,t/8,v+30,0
  636.   SOUND C4,t/8,,2
  637.   SOUND AF4,t/4,v+30,0
  638.   SOUND F4,t/8,,2
  639.   SOUND a3,t/8,,2
  640.   SOUND GF4,t/8,v+30,0
  641.   SOUND D4,t/8,,2 
  642.   SOUND GF4,t/8,0,0
  643.   SOUND E4,t/8,,2    
  644.   SOUND BF4,t*0.375,v+30,0
  645.   SOUND G3,t/8,,2
  646.   SOUND C4,t/8,,2
  647.   SOUND F4,t/8,,2
  648.   SOUND WAIT
  649.   SOUND AF4,t/8,v+30,0
  650.   SOUND a3,t/8,,2
  651.   SOUND RESUME
  652.   SOUND GF4,t/8,v+30,0
  653.   SOUND D4,t/8,,2
  654.   SOUND AF4,t/8,v+30,0
  655.   SOUND E4,t/8,,2
  656.   SOUND EF4,t/4,v+30,0
  657.   SOUND G3,t/8,,2
  658.   SOUND C4,t/8,,2
  659.   SOUND F4,t/8,,2
  660.   SOUND WAIT
  661.   SOUND GF4,t/4,v+30,0
  662.   SOUND a3,t/8,,2
  663.   SOUND D4,t/8,,2
  664.   SOUND RESUME
  665.   SOUND AF4,t/8,v+30,0
  666.   SOUND E4,t/8,,2
  667.   SOUND DF5,t/8,v+30,0
  668.   SOUND G3,t/8,,2
  669.   SOUND BF4,t/8,v+30,0
  670.   SOUND C4,t/8,,2
  671.   SOUND AF4,t/8,v+30,0
  672.   SOUND F4,t/8,,2
  673.   SOUND BF4,t/8,v+30,0
  674.   SOUND a3,t/8,,2
  675.   SOUND GF4,t/8,v+30,0
  676.   SOUND D4,t/8,,2
  677.   SOUND AF4,t/8,v+30,0
  678.   SOUND E4,t/8,,2
  679.   SOUND BF4,t/8,v+30,0
  680.   SOUND G3,t/8,,2
  681.   SOUND GF4,t/8,v+30,0
  682.   SOUND C4,t/8,,2
  683.   SOUND AF4,t*1.25,v+30,0
  684.   SOUND F4,t/8,,2
  685.   SOUND a3,t/8,,2
  686.   SOUND D4,t/8,,2
  687.   SOUND E4,t/8,,2  
  688.   SOUND G3,t/8,118,2
  689.   SOUND C4,t/8,,2
  690.   SOUND F4,t/8,,2
  691.   SOUND a3,t/8,,2
  692.   SOUND D4,t/8,,2
  693.   SOUND E4,t/8,,2
  694.  rpt = 1: GOTO s2p2
  695.   
  696. s2p4:
  697.  COLOR C
  698.  LOCATE 13,12:PRINT " Born in Hungary ";
  699.  C=C+1
  700.   SOUND BF4,t*0.375,v+30,0
  701.   SOUND G3,t/8,,2
  702.   SOUND C4,t/8,,2
  703.   SOUND F4,t/8,,2
  704.   SOUND GF4,t/8,v+30,0
  705.   SOUND a3,t/8,,2
  706.   SOUND AF4,t/8,v+30,0
  707.   SOUND D4,t/8,,2
  708.   SOUND AF4,t/8,0,0
  709.   SOUND E4,t/8,,2 
  710.   SOUND GF5,t/8,0,0
  711.   SOUND G3,t/8,,2
  712.   SOUND GF5,t/8,50,0
  713.   SOUND C4,t/8,,2
  714.   SOUND AF5,t/8,50,0
  715.   SOUND F4,t/8,,2
  716.   SOUND A5,t/8,0,0
  717.   SOUND G4,t/8,0,2
  718.   SOUND A5,t/4,0,0
  719.   SOUND G3,t/8,,2
  720.   SOUND C4,t/8,,2
  721.   SOUND F4,t/8,,2  
  722.   SOUND WAIT
  723.   SOUND A4,3,v+50,0
  724.   SOUND RESUME
  725.   SOUND A4,0.25,0,0
  726.   SOUND A4,3,v+50,0
  727.   SOUND A4,0.25,0,0
  728.   SOUND WAIT
  729.   SOUND A4,3,v+50,0
  730.   SOUND GF3,t/8,,2
  731.   SOUND A4,0.25,0,0
  732.   SOUND RESUME
  733.   SOUND A4,3,v+50,0
  734.   SOUND B3,t/8,,2
  735.   SOUND A4,0.25,0,0
  736.   SOUND A4,3,v+50,0
  737.   SOUND DF4,t/8,,2
  738.   SOUND A4,0.25,0,0
  739.   SOUND A4,3,v+50,0
  740.   SOUND F3,t/8,,2
  741.   SOUND A4,0.25,0,0
  742.   SOUND A4,3,v+50,0
  743.   SOUND bf3,t/8,,2
  744.   SOUND A4,0.25,0,0
  745.   SOUND A4,t/8,v+50,0  
  746.   SOUND EF4,t/8,,2  
  747.   SOUND G4,t/16,v+50,0
  748.   SOUND E3,t/8,,2
  749.   SOUND F4,t/16,v+50,0
  750.   SOUND E4,t/8,v+50,0
  751.   SOUND a3,t/8,,2
  752.   SOUND D4,t/8,v+50,0
  753.   SOUND B3,t/8,,2
  754.   SOUND D4,t/8,0,0  
  755.   SOUND EF3,t/8,,2
  756.   SOUND A4,t/4,v+50,0
  757.   SOUND af3,t/8,,2
  758.   SOUND DF4,t/8,,2
  759.   SOUND G4,t/16,v+50,0
  760.   SOUND E3,t/8,,2
  761.   SOUND F4,t/16,v+50,0
  762.  COLOR C
  763.  LOCATE 15,12: PRINT " Folk Songs      ";
  764.  C=C+1
  765.   SOUND WAIT
  766.   SOUND E4,t/8,v+50,0
  767.   SOUND a3,t/8,,2
  768.   SOUND RESUME 
  769.   SOUND D4,t/8,v+50,0
  770.   SOUND B3,t/8,,2  
  771.   SOUND E4,14.625,v+50,0
  772.   SOUND D3,t/8,,2
  773.   SOUND G3,t/8,,2
  774.   SOUND C4,t/8,,2
  775.   SOUND DF3,t/8,,2
  776.   SOUND GF3,t/8,,2
  777.   SOUND E4,t/16,0,0  
  778.   SOUND E4,3,,0
  779.   SOUND af3,t/8,,2
  780.   SOUND E4,0.25,0,0
  781.   SOUND E4,3,,0
  782.   SOUND C3,t/8,,2
  783.   SOUND E4,0.25,0,0
  784.   SOUND E4,3,,0
  785.   SOUND F3,t/8,,2
  786.   SOUND E4,0.25,0,0
  787.   SOUND E4,t/8,0,0
  788.   SOUND bf3,t/8,,2  
  789.   SOUND E4,3,v+50,0
  790.   SOUND DF3,t/8,,2
  791.   SOUND E4,0.25,0,0  
  792.   SOUND E4,3,v+50,0
  793.   SOUND GF3,t/8,,2
  794.   SOUND E4,0.25,0,0  
  795.   SOUND E4,3,v+50,0
  796.   SOUND af3,t/8,,2
  797.   SOUND E4,0.25,0,0  
  798.   SOUND E4,t/8,v+50,0
  799.   SOUND B2,t/8,,2  
  800.   SOUND D4,t/16,v+45,0
  801.   SOUND E3,t/8,,2
  802.   SOUND C4,t/16,v+40,0 
  803.   SOUND B3,t/8,v+35,0
  804.   SOUND a3,t/8,,2  
  805.   SOUND D4,t/8,v+30,0
  806.   SOUND BF2,t/8,,2
  807.  COLOR C
  808.  LOCATE 17,12:PRINT " Dissonance      ";
  809.  C=C+1
  810.   SOUND C4,t/16,v+25,0
  811.   SOUND EF3,t/8,,2
  812.   SOUND B3,t/16,v+20,0  
  813.   SOUND a3,t/8,v+15,0
  814.   SOUND F3,t/8,,2 
  815.   SOUND B3,9.75,v+10,0
  816.   SOUND A2,t/8,0,2
  817.   SOUND A2,t/8,,2  
  818.   SOUND D3,t/8,,2  
  819.   SOUND a3,t/8,v+5,0
  820.   SOUND G3,t/8,,2  
  821.   SOUND B3,t/8,v,0
  822.   SOUND D3,t/8,v-5,2  
  823.   SOUND C4,t/8,v-5,0
  824.   SOUND A2,t/8,v-10,2  
  825.   SOUND D4,t/8,v-10,0
  826.   SOUND A2,9.75,0,2  
  827.   SOUND a3,t/8,v-15,0  
  828.   SOUND B3,t/8,v-15,0  
  829.   SOUND C4,t/8,v-20,0
  830.   SOUND af3,t/8,v-20,2  
  831.   SOUND D4,9.75,v-25,0
  832.   SOUND GF3,t/8,v-25,2  
  833.  t = 30
  834.   SOUND af3,t/8,v-25,2  
  835.   SOUND EF3,t/4,v-30,2
  836.   SOUND C4,t/8,v-30,0  
  837.   SOUND B3,t/4,v-35,0
  838.   SOUND E2,t/2,0,2  
  839.   SOUND a3,t/8,v-40,0
  840.   SOUND a3,t/8,0,0  
  841.  t = 26
  842.   SOUND G3,t/8,118,2
  843.   SOUND C4,t/8,,2
  844.   SOUND F4,t/8,,2
  845.   SOUND a3,t/8,,2
  846.   SOUND D4,t/8,,2
  847.   SOUND E4,t/8,,2
  848.   SOUND WAIT
  849.   SOUND RESUME
  850.   COLOR C
  851.   LOCATE 19,12:PRINT " Modern Era      ";
  852.   C=C+1
  853.   SOUND G3,t/8,118,2
  854.   SOUND C4,t/8,0,0
  855.   SOUND WAIT
  856.   SOUND C4,t/8,,2
  857.   SOUND EF2,t/8,230,0
  858.   SOUND RESUME
  859.   SOUND F4,t/8,,2
  860.   SOUND AF2,t/8,230,0
  861.   SOUND a3,t/8,,2
  862.   SOUND DF3,t/8,,0
  863.   SOUND D4,t/8,,2
  864.   SOUND BF2,t/2,230,0
  865.   SOUND E4,t/8,,2
  866.   SOUND G3,t/8,230,2
  867.   SOUND C4,t/8,,2
  868.   SOUND F4,t/8,,2
  869.   SOUND E4,t/8,0,0  
  870.   SOUND a3,t/8,,0
  871.   SOUND EF4,t/8,230,2  
  872.   SOUND D4,t/8,,0
  873.   SOUND AF4,t/8,230,2  
  874.   SOUND E4,t/8,,0
  875.   SOUND DF5,t/8,230,2  
  876.   SOUND G3,t/8,,0
  877.   SOUND BF4,t/8,230,2  
  878.   SOUND C4,t/8,,0
  879.   SOUND EF3,t/8,230,2  
  880.   SOUND F4,t/8,,0
  881.   SOUND af3,t/8,230,2  
  882.   SOUND a3,t/8,,0
  883.   SOUND DF4,t/8,230,2  
  884.   SOUND D4,t/8,,0
  885.   SOUND bf3,t/4,230,2  
  886.   SOUND E4,t/8,,0  
  887.  'CRESCENDO
  888.  v=v+10
  889.   SOUND B3,t/8,v,0
  890.   SOUND B3,t/8,0,2  
  891.   SOUND E4,t/8,v,0
  892.   SOUND G2,t/8,232,2  
  893.   SOUND A4,t/8,v,0
  894.   v=v+5
  895.   SOUND C3,t/8,234,2  
  896.   SOUND DF4,t/8,v,0
  897.   v=v+5
  898.   SOUND F3,t/8,236,2  
  899.   SOUND GF4,t/8,v,0
  900.   v=v+5
  901.   SOUND D3,t/4,238,2  
  902.   SOUND AF4,t/8,v,0  
  903.   SOUND DF5,t/8,v,0
  904.   v=v+5
  905.   SOUND D3,t/8,240,2  
  906.   SOUND F4,t/8,v,0
  907.   v=v+5
  908.   SOUND B2,t/8,242,2  
  909.   SOUND BF4,t/8,v,0
  910.   v=v+5
  911.   SOUND E3,t/8,244,2  
  912.   SOUND C5,t/8,v,0
  913.   v=v+5
  914.   SOUND a3,t/8,246,2  
  915.   SOUND GF4,t/8,v,0
  916.   SOUND G4,t/8,0,2  
  917.   SOUND B4,t/8,v,0
  918.   v=v+5
  919.   SOUND D3,t/8,248,2  
  920.   SOUND E5,t/8,v,0   
  921.   v=v+5     
  922.   SOUND G3,t/8,250,2  
  923.   SOUND AF4,t/8,v,0
  924.   v=v+5
  925.   SOUND C4,t/8,252,2  
  926.   SOUND DF5,t/8,v,0
  927.   v=v+5
  928.   SOUND a3,t/4,254,2  
  929.   SOUND EF5,t/8,v,0  
  930.   SOUND E5,t/8,250,0        
  931.   SOUND a3,19.5,v,2   
  932.   v=v-5
  933.   SOUND EF5,t/8,v,0
  934.   v=v-5
  935.   SOUND DF5,t/8,v,0
  936.   v=v-5
  937.   SOUND EF5,t/8,v,0
  938.   v=v-5
  939.   SOUND B4,t/8,v,0
  940.   v=v-5
  941.   SOUND AF4,t/8,v,0  
  942.   v=v-5
  943.   SOUND BF4,t/8,v,0
  944.   SOUND a3,19.5,v,2    
  945.   v=v-5   
  946.   SOUND B4,t/8,v,0
  947.   v=v-5
  948.   SOUND DF5,t/8,v,0
  949.   SOUND EF5,t/8,240,0
  950.   SOUND B4,t/8,v,0
  951.   v=v-5
  952.   SOUND DF5,t/8,v,0  
  953.   SOUND BF4,t/8,v,0
  954.   v=v-5
  955.   SOUND a3,t/2,v,2
  956.   v=v-5
  957.   SOUND GF4,t/8,v,0
  958.   SOUND G4,t/8,0,0
  959.   v=v-5
  960.   SOUND GF4,t/8,v,0  
  961.  t=30
  962.  v=v-5
  963.   SOUND AF4,t/8,v,0
  964.   SOUND a3,t/2,v,2
  965.   v=v-5
  966.   SOUND BF4,t/8,v,0
  967.   v=v-5
  968.   SOUND B4,t/4,v,0  
  969.   v=v-5
  970.   SOUND AF4,t/8,v,0
  971.   SOUND af3,t/8,v,2  
  972.   SOUND A4,t/8,0,0
  973.   SOUND a3,t/8,0,2  
  974.  t=26
  975.  v=127
  976.   SOUND G3,t/8,118,2
  977.   SOUND C4,t/8,v,2
  978.   SOUND F4,t/8,v,2
  979.   SOUND a3,t/8,v,2
  980.   SOUND D4,t/8,v,2
  981.   SOUND E4,t/8,v,2
  982.   SOUND WAIT
  983.   SOUND G3,t/8,118,2
  984.   SOUND C4,t/8,0,0
  985.   SOUND RESUME
  986.   SOUND C4,t/8,v,2
  987.   SOUND EF5,t/8,v,0
  988.   SOUND F4,t/8,v,2
  989.   SOUND AF5,t/8,v,0
  990.   SOUND a3,t/8,v,2
  991.   SOUND DF6,t/8,v,0
  992.   SOUND D4,t/8,v,2
  993.   SOUND BF5,t/8,v,0
  994.   SOUND E4,t/8,v,2
  995.   SOUND AF5,t/8,v,0  
  996.   SOUND WAIT
  997.   SOUND EF5,t/8,v,0
  998.   SOUND G3,t/8,118,2
  999.   SOUND RESUME
  1000.   SOUND AF5,t/8,v,0
  1001.   SOUND C4,t/8,v,2
  1002.   SOUND DF6,t/8,v,0
  1003.   SOUND F4,t/8,v,2
  1004.   SOUND AF5,t/8,v,0
  1005.   SOUND a3,t/8,v,2
  1006.   SOUND BF5,t/4,v,0
  1007.   SOUND D4,t/8,v,2
  1008.   SOUND E4,t/8,v,2    
  1009.  t=28
  1010.   SOUND BF5,21,70,0
  1011.   SOUND G3,t/8,v,2
  1012.   SOUND C4,t/8,v,2
  1013.   SOUND F4,t/8,v,2
  1014.   SOUND F3,t/8,0,2
  1015.   SOUND G3,t/8,v,2
  1016.   SOUND C4,t/8,v,2 
  1017.  t=30
  1018.   SOUND WAIT
  1019.   SOUND BF5,t/8,5,0
  1020.   SOUND F4,t/8,v,2
  1021.   SOUND RESUME
  1022.   SOUND AF4,t/8,v,0
  1023.   SOUND a3,t/4,0,2
  1024.   SOUND DF5,t/8,v,0
  1025.   SOUND WAIT
  1026.   SOUND AF4,t/8,v,0
  1027.   SOUND a3,t/8,v,2
  1028.   SOUND RESUME
  1029.   SOUND BF4,t/4,v,0
  1030.   SOUND D4,t/8,v,2
  1031.   SOUND E4,t/8,v,2  
  1032.  t=32
  1033.   SOUND BF4,24,60,0
  1034.   SOUND G3,t/8,v,2
  1035.   SOUND C4,t/8,v,2
  1036.   SOUND F4,t/8,v,2
  1037.   SOUND F4,t/4,0,2
  1038.   SOUND C4,t/8,v,2
  1039.  t=34
  1040.   SOUND WAIT
  1041.   SOUND D5,t/8,0,0
  1042.   SOUND F4,t/8,v,2
  1043.   SOUND RESUME
  1044.   SOUND DF5,t/8,v,0
  1045.   SOUND F4,t/4,0,2
  1046.   SOUND AF5,t/8,v,0
  1047.   SOUND DF5,t/8,v,0
  1048.   SOUND F3,t/8,v,2
  1049.   SOUND EF5,t/4,v,0
  1050.   SOUND bf3,t/8,v,2
  1051.   SOUND F3,t/8,v,2  
  1052.  t=36
  1053.   SOUND EF5,t/8,v,0
  1054.   SOUND G3,t/2,v,2
  1055.   SOUND DF5,t/8,v,0
  1056.   SOUND BF4,t/8,v,0
  1057.   SOUND AF4,t/8,v,0
  1058.   SOUND BF4,t/8,v,0
  1059.   SOUND E3,t/8,v,2
  1060.   SOUND E5,t/4,0,0
  1061.   SOUND E3,t/4,0,2  
  1062.  t=38
  1063.   SOUND WAIT
  1064.   v=v-5
  1065.   SOUND EF4,t/8,v,0
  1066.   SOUND D4,t/8,v,2
  1067.   SOUND RESUME
  1068.   v=v-5
  1069.   SOUND AF4,t/8,v,0
  1070.   SOUND C4,t/8,v,2
  1071.   v=v-5
  1072.   SOUND DF5,t/8,v,0
  1073.   SOUND a3,t/8,v,2
  1074.   v=v-5
  1075.   SOUND BF4,t/8,v,0
  1076.   SOUND D4,t/8,v,2
  1077.   v=v-5
  1078.   SOUND E5,t/4,0,0
  1079.   SOUND E3,t/4,0,2  
  1080.  t=40
  1081.   v=v-5
  1082.   SOUND EF5,t/8,v,0
  1083.   SOUND C5,t/8,v,2
  1084.   v=v-5
  1085.   SOUND AF5,t/8,v,0
  1086.   SOUND F5,t/8,v,2
  1087.   v=v-5
  1088.   SOUND DF6,t/8,v,0
  1089.   SOUND A4,t/8,v,2
  1090.   v=v-5
  1091.   SOUND BF5,t/8,v,0
  1092.   SOUND D5,t/8,,2
  1093.   v=v-5
  1094.   SOUND E5,t/4,0,0
  1095.   SOUND E3,t/4,0,2  
  1096.  t=42
  1097.   SOUND E5,t/4,0,0
  1098.   SOUND E3,t/4,0,2
  1099.   v=v+10
  1100.   SOUND AF4,t/8,v,0
  1101.   SOUND F4,t/8,v,2
  1102.   v=v+25
  1103.   SOUND DF5,t/8,v,0
  1104.   SOUND D4,t/8,v,2
  1105.   v=v+25
  1106.   SOUND AF4,t/8,v,0
  1107.   SOUND C4,t/8,v,2  
  1108.   v=v+25
  1109.   SOUND BF4,31.5,v+15,0
  1110.   SOUND B3,31.5,v,2
  1111.   SOUND WAIT
  1112.   SOUND BF4,31.5,80,0
  1113.   SOUND B3,31.5,80,2
  1114.   SOUND D3,t/8,50,1
  1115.   SOUND G2,t/8,50,3
  1116.   SOUND RESUME
  1117.   FOR x=1 TO 32000:NEXT
  1118.   RETURN
  1119.   
  1120.  'Prelude in B Minor by Chopin
  1121.  Song3:
  1122.   GOSUB Boxes
  1123.   COLOR 2,0
  1124.   C=3
  1125.   x$="prelude in b mynor by fredrik cho pan"
  1126.   A$=TRANSLATE$(x$)
  1127.   LOCATE 3,10
  1128.   PRINT  " Prelude in B Minor "
  1129.   LOCATE 5,10
  1130.   PRINT " By Frederic Chopin "
  1131.   SAY (A$)
  1132.   t = 80 
  1133.   SOUND WAIT
  1134.   FOR r = 1 TO 10000:NEXT r
  1135.   SOUND RESUME   
  1136.   COLOR C,0
  1137.   LOCATE 9,10 : PRINT " Born in 1810       ";
  1138.   C=C+1
  1139.  
  1140. '1 
  1141.   SOUND B4,9,170,0
  1142.   SOUND GF4,19,,1
  1143.   SOUND D4,19,,3
  1144.   SOUND B2,t/16,200,2
  1145.   SOUND D3,t/16,208,2
  1146.   SOUND B4,1,0,0  
  1147.   SOUND B4,9,,0
  1148.   SOUND GF3,t/16,216,2
  1149.   SOUND B3,t/16,224,2
  1150.   SOUND B4,1,0,0
  1151.   SOUND GF4,1,0,1
  1152.   SOUND D4,1,0,3 
  1153.   
  1154.   SOUND B4,9,170,0
  1155.   SOUND GF4,19,,1
  1156.   SOUND D4,t/2,0,3
  1157.   SOUND D4,t/4,232,2
  1158.   SOUND B4,1,0,0
  1159.   SOUND B4,9,,0
  1160.   SOUND B4,1,0,0
  1161.   SOUND GF4,1,0,1
  1162.   
  1163.   SOUND B4,9,170,0
  1164.   SOUND GF4,19,,1
  1165.   SOUND DF4,15,240,2
  1166.   SOUND B4,1,0,0
  1167.   SOUND B4,9,,0
  1168.   SOUND D4,5,248,2
  1169.   SOUND B4,1,0,0
  1170.   SOUND GF4,1,0,1  
  1171.  '2 
  1172.   SOUND B4,9,,0
  1173.   SOUND GF4,19,,1
  1174.   SOUND D4,19,,3
  1175.   SOUND B3,30,240,2
  1176.   SOUND B4,1,0,0
  1177.   SOUND B4,9,,0
  1178.   SOUND B4,1,0,0
  1179.   SOUND GF4,1,0,1
  1180.   SOUND D4,1,0,3
  1181.   
  1182.   SOUND B4,9,,0
  1183.   SOUND GF4,19,,1
  1184.   SOUND D4,19,,3
  1185.   SOUND B4,1,0,0
  1186.   SOUND B4,9,,0
  1187.   SOUND GF3,t/8,232,2
  1188.   SOUND B4,1,0,0
  1189.   SOUND GF4,1,0,1
  1190.   SOUND D4,1,0,3
  1191.   
  1192.   SOUND B4,9,,0
  1193.   SOUND GF4,19,,1
  1194.   SOUND D4,19,,3
  1195.   SOUND D3,t/8,226,2
  1196.   SOUND B4,1,0,0
  1197.   SOUND B4,9,,0
  1198.   SOUND DF3,t/8,218,2
  1199.   SOUND B4,1,0,0
  1200.   SOUND GF4,1,0,1
  1201.   SOUND D4,1,0,3 
  1202.  
  1203. '3
  1204.   SOUND B4,9,,0
  1205.   SOUND GF4,19,,1
  1206.   SOUND D4,19,,3
  1207.   SOUND B2,t/16,200,2
  1208.   SOUND GF3,t/16,210,2
  1209.   SOUND B4,1,0,0
  1210.   SOUND B4,9,,0
  1211.   SOUND B3,t/16,220,2
  1212.   SOUND D4,t/16,230,2
  1213.   SOUND B4,1,0,0
  1214.   SOUND GF4,1,0,1
  1215.   SOUND DF,1,0,3
  1216.   
  1217.   SOUND D5,9,,0
  1218.   SOUND B4,19,,1
  1219.   SOUND B3,t/2,0,3
  1220.   SOUND GF4,t/4,240,2
  1221.   SOUND D5,1,0,0
  1222.   SOUND D5,9,,0
  1223.   SOUND D5,1,0,0
  1224.   SOUND B4,1,0,1
  1225.   
  1226.   SOUND D5,9,,0
  1227.   SOUND B4,19,,1
  1228.   SOUND E4,15,240,2
  1229.   SOUND D5,1,0,0
  1230.   SOUND D5,9,,0
  1231.   SOUND GF4,5,240,2
  1232.   SOUND D5,1,0,0
  1233.   SOUND B4,1,0,1
  1234.  COLOR C
  1235.  LOCATE 11,10 : PRINT " Died in 1849       ";
  1236.  C=C+1
  1237.  
  1238. '4
  1239.   SOUND D5,9,,0
  1240.   SOUND B4,19,,1
  1241.   SOUND GF4,19,,3
  1242.   SOUND D4,30,240,2
  1243.   SOUND D5,1,0,0
  1244.   SOUND D5,9,,0
  1245.   SOUND D5,1,0,0
  1246.   SOUND B4,1,0,1
  1247.   SOUND GF4,1,0,3
  1248.   
  1249.   SOUND D5,9,,0
  1250.   SOUND B4,19,,1
  1251.   SOUND GF4,19,,3
  1252.   SOUND D5,1,0,0
  1253.   SOUND D5,9,,0
  1254.   SOUND B3,t/8,230,2
  1255.   SOUND D5,1,0,0
  1256.   SOUND B4,1,0,1
  1257.   SOUND BF4,1,0,3
  1258.   
  1259.   SOUND D5,9,,0
  1260.   SOUND B4,19,,1
  1261.   SOUND GF4,19,,3
  1262.   SOUND GF3,t/8,220,2
  1263.   SOUND D5,1,0,0
  1264.   SOUND D5,9,,0
  1265.   SOUND D3,t/8,210,2
  1266.   SOUND D5,1,0,0
  1267.   SOUND B4,1,0,1
  1268.   SOUND GF4,1,0,3
  1269.  
  1270.  '5    
  1271.   SOUND D5,9,,0
  1272.   SOUND B4,19,,1
  1273.   SOUND G4,19,,3
  1274.   SOUND G2,t/16,200,2
  1275.   SOUND D3,t/16,210,2
  1276.   SOUND D5,1,0,0
  1277.   SOUND D5,9,,0
  1278.   SOUND B3,t/16,220,2
  1279.   SOUND D4,t/16,230,2
  1280.   SOUND D5,1,0,0
  1281.   SOUND B4,1,0,1
  1282.   SOUND G4,1,0,3
  1283.   
  1284.   SOUND D5,9,,0
  1285.   SOUND B4,19,,1
  1286.   SOUND G4,t/2,0,3
  1287.   SOUND G4,t/4,240,2
  1288.   SOUND D5,1,0,0
  1289.   SOUND D5,9,,0
  1290.   SOUND D6,1,0,0
  1291.   SOUND B4,1,0,1
  1292.   
  1293.   SOUND D5,9,,0
  1294.   SOUND B4,19,,1
  1295.   SOUND GF4,t/4,250,2
  1296.   SOUND D5,1,0,0
  1297.   SOUND D5,9,,0
  1298.   SOUND D5,1,0,0
  1299.   SOUND B4,1,0,1
  1300.  COLOR C
  1301.  LOCATE 13,10 : PRINT " Born in Poland     "; 
  1302.  C=C+1 
  1303.  
  1304.  '6
  1305.   SOUND D5,9,,0
  1306.   SOUND B4,19,,1
  1307.   SOUND AF4,19,,3
  1308.   SOUND GF4,t/4,250,2
  1309.   SOUND D5,1,0,0
  1310.   SOUND D5,9,,0
  1311.   SOUND D5,1,0,0
  1312.   SOUND B4,1,0,1
  1313.   SOUND AF4,1,0,3
  1314.   
  1315.   SOUND DF5,9,,0
  1316.   SOUND B4,19,,1
  1317.   SOUND AF4,19,,3
  1318.   SOUND F4,t/4,250,2
  1319.   SOUND DF5,1,0,0
  1320.   SOUND DF5,9,,0
  1321.   SOUND D5,1,0,0
  1322.   SOUND B4,1,0,1
  1323.   SOUND AF4,1,0,3
  1324.   
  1325.   SOUND DF5,t/8,,0
  1326.   SOUND BF4,t/8,,1
  1327.   SOUND G4,19,,3
  1328.   SOUND E4,t/8,250,2
  1329.   SOUND D5,t/8,,0
  1330.   SOUND B4,t/8,,1
  1331.   SOUND D4,t/8,250,2
  1332.   SOUND G4,1,0,3
  1333.  
  1334.  '7
  1335.   SOUND E5,30,,0
  1336.   SOUND BF4,9,,1
  1337.   SOUND G4,9,,3
  1338.   SOUND DF4,7.5,250,2
  1339.   SOUND BF4,1,0,1
  1340.   SOUND G4,1,0,3
  1341.   SOUND E4,2.5,250,2
  1342.   SOUND B4,9,,1
  1343.   SOUND G4,9,,3
  1344.   SOUND D4,t/8,250,2
  1345.   SOUND B4,1,0,1
  1346.   SOUND G4,1,0,3
  1347.   
  1348.   SOUND BF4,9,,1
  1349.   SOUND G4,9,,3
  1350.   SOUND DF4,t/8,250,2
  1351.   SOUND BF4,1,0,1
  1352.   SOUND G4,1,0,3
  1353.   SOUND GF5,t/8,,0
  1354.   SOUND DF5,9,,1
  1355.   SOUND GF4,9,,3
  1356.   SOUND bf3,t/8,250,2
  1357.   SOUND DF5,1,0,1
  1358.   SOUND GF4,1,0,3
  1359.   
  1360.   SOUND E5,5,,0
  1361.   SOUND B4,9,,1
  1362.   SOUND GF4,9,,3
  1363.   SOUND B3,t/8,250,2
  1364.   SOUND D5,2,,0
  1365.   SOUND D5,0.5,0,0
  1366.   SOUND D5,2,,0
  1367.   SOUND D5,0.5,0,0
  1368.   SOUND B4,1,0,1
  1369.   SOUND G4,1,0,3
  1370.   SOUND DF5,5,,0
  1371.   SOUND B4,t/8,0,1
  1372.   SOUND GF4,9,,3
  1373.   SOUND D3,t/8,250,2
  1374.   SOUND B4,5,,0
  1375.   SOUND G4,1,0,3
  1376.   
  1377. '8
  1378.   SOUND BF4,t/8,,0
  1379.   SOUND G4,t/8,,1
  1380.   SOUND DF4,t/8,,3
  1381.   SOUND E3,t/8,245,2
  1382.   SOUND B4,t/8,,0
  1383.   SOUND AF4,t/8,,1
  1384.   SOUND D4,t/8,,3
  1385.   SOUND F3,t/8,240,2
  1386.   
  1387.   SOUND D5,t/8,,0
  1388.   SOUND B4,t/8,,1
  1389.   SOUND D4,t/8,,3
  1390.   SOUND GF3,t/4,235,2
  1391.   SOUND DF5,t/8,,0
  1392.   SOUND BF4,t/8,,1
  1393.   SOUND DF4,t/8,,3
  1394.   
  1395.   SOUND D5,t/4,0,0
  1396.   SOUND A4,t/4,0,1
  1397.   SOUND D4,t/4,0,3
  1398.   SOUND D3,t/8,225,2
  1399.   SOUND DF3,t/8,215,2
  1400.  COLOR C
  1401.  LOCATE 15,10 : PRINT " Piano Virtuoso     "; 
  1402.  C=C+1
  1403.    
  1404.   '9
  1405.   SOUND B4,9,,0
  1406.   SOUND GF4,19,,1
  1407.   SOUND D4,19,,3
  1408.   SOUND B2,t/16,210,2
  1409.   SOUND D3,t/16,218,2
  1410.   SOUND B4,1,0,0  
  1411.   SOUND B4,9,,0
  1412.   SOUND GF3,t/16,224,2
  1413.   SOUND B3,t/16,232,2
  1414.   SOUND B4,1,0,0
  1415.   SOUND GF4,1,0,1
  1416.   SOUND D4,1,0,3 
  1417.   
  1418.   SOUND B4,9,,0
  1419.   SOUND GF4,19,,1
  1420.   SOUND D4,t/2,0,3
  1421.   SOUND D4,t/4,238,2
  1422.   SOUND B4,1,0,0
  1423.   SOUND B4,9,,0
  1424.   SOUND B4,1,0,0
  1425.   SOUND GF4,1,0,1
  1426.   
  1427.   SOUND B4,9,,0
  1428.   SOUND GF4,19,,1
  1429.   SOUND DF4,15,238,2
  1430.   SOUND B4,1,0,0
  1431.   SOUND B4,9,,0
  1432.   SOUND D4,5,238,2
  1433.   SOUND B4,1,0,0
  1434.   SOUND GF4,1,0,1  
  1435.  
  1436.  '10 
  1437.   SOUND B4,9,,0
  1438.   SOUND GF4,19,,1
  1439.   SOUND D4,19,,3
  1440.   SOUND B3,30,238,2
  1441.   SOUND B4,1,0,0
  1442.   SOUND B4,9,,0
  1443.   SOUND B4,1,0,0
  1444.   SOUND GF4,1,0,1
  1445.   SOUND D4,1,0,3
  1446.   
  1447.   SOUND B4,9,,0
  1448.   SOUND GF4,19,,1
  1449.   SOUND D4,19,,3
  1450.   SOUND B4,1,0,0
  1451.   SOUND B4,9,,0
  1452.   SOUND GF3,t/8,228,2
  1453.   SOUND B4,1,0,0
  1454.   SOUND GF4,1,0,1
  1455.   SOUND D4,1,0,3
  1456.   
  1457.   
  1458.   SOUND B4,9,,0
  1459.   SOUND GF4,19,,1
  1460.   SOUND D4,19,,3
  1461.   SOUND D3,t/8,218,2
  1462.   SOUND B4,1,0,0
  1463.   SOUND B4,9,,0
  1464.   SOUND B2,t/8,208,2
  1465.   SOUND B4,1,0,0
  1466.   SOUND GF4,1,0,1
  1467.   SOUND D4,1,0,3 
  1468.  COLOR C
  1469.  LOCATE 17,10 : PRINT " Romantic Era       ";
  1470.  C=C+1   
  1471.  
  1472.  '11
  1473.   SOUND B4,9,,0
  1474.   SOUND G4,19,,1
  1475.   SOUND D4,19,,3
  1476.   SOUND G2,t/16,200,2
  1477.   SOUND D3,t/16,208,2
  1478.   SOUND B4,1,0,0
  1479.   SOUND B4,9,,0
  1480.   SOUND G3,t/16,216,2
  1481.   SOUND B3,t/16,224,2
  1482.   SOUND B4,1,0,0
  1483.   SOUND G4,1,0,1
  1484.   SOUND D4,1,0,3
  1485.  
  1486.   SOUND B4,9,,0
  1487.   SOUND G4,19,,1
  1488.   SOUND D5,t/2,0,3
  1489.   SOUND D4,t/4,232,2
  1490.   SOUND B4,1,0,0
  1491.   SOUND B4,9,,0
  1492.   SOUND B4,1,0,0
  1493.   SOUND G4,1,0,1
  1494.  
  1495.   SOUND B4,9,,0
  1496.   SOUND G4,19,,1
  1497.   SOUND E4,t/8,240,2
  1498.   SOUND B4,1,0,0
  1499.   SOUND B4,9,,0
  1500.   SOUND F4,t/8,248,2
  1501.   SOUND B4,1,0,0
  1502.   SOUND G4,1,0,1
  1503.  
  1504.  '12
  1505.   SOUND C5,9,,0
  1506.   SOUND G4,19,,1
  1507.   SOUND F4,t/4,0,3
  1508.   SOUND E4,30,250,2
  1509.   SOUND C5,1,0,0
  1510.   SOUND C5,9,,0
  1511.   SOUND C5,1,0,0
  1512.   SOUND G4,1,0,1
  1513.  
  1514.   SOUND C5,9,,0
  1515.   SOUND G4,19,,1
  1516.   SOUND E4,19,,3
  1517.   SOUND C5,1,0,0
  1518.   SOUND C5,9,,0
  1519.   SOUND C4,t/8,240,2
  1520.   SOUND C5,1,0,0
  1521.   SOUND G4,1,0,1
  1522.   SOUND E4,1,0,3
  1523.  
  1524.   SOUND C5,9,,0
  1525.   SOUND G4,19,,1
  1526.   SOUND E4,19,,3
  1527.   SOUND G3,t/8,230,2
  1528.   SOUND C5,1,0,0
  1529.   SOUND C5,9,,0
  1530.   SOUND C3,t/8,220,2
  1531.   SOUND G4,1,0,1
  1532.   SOUND E4,1,0,3
  1533.   SOUND C5,1,0,0
  1534.  
  1535.  '13 
  1536.   SOUND C5,9,,0
  1537.   SOUND G4,19,,1
  1538.   SOUND E4,19,,3
  1539.   SOUND C2,t/16,220,2
  1540.   SOUND G2,t/16,228,2
  1541.   SOUND C5,1,0,0
  1542.   SOUND C5,9,,0
  1543.   SOUND E3,t/16,232,2
  1544.   SOUND G3,t/16,240,2
  1545.   SOUND C5,1,0,0
  1546.   SOUND G4,1,0,1
  1547.   SOUND E4,1,0,3
  1548.   
  1549.   SOUND C5,9,,0
  1550.   SOUND G4,19,,1
  1551.   SOUND F4,t/4,0,3
  1552.   SOUND E4,t/4,248,2
  1553.   SOUND C5,1,0,0
  1554.   SOUND C5,9,,0
  1555.   SOUND C5,1,0,0
  1556.   SOUND G4,1,0,1
  1557.   
  1558.   SOUND C5,9,,0
  1559.   SOUND G4,19,,1
  1560.   SOUND E4,19,,3
  1561.   SOUND C2,t/16,220,2
  1562.   SOUND G2,t/16,228,2
  1563.   SOUND C5,1,0,0
  1564.   SOUND C5,9,,0
  1565.   SOUND E3,t/16,232,2
  1566.   SOUND G3,t/16,240,2
  1567.   SOUND C5,1,0,0
  1568.   SOUND G4,1,0,1
  1569.   SOUND E4,1,0,3
  1570.  COLOR C 
  1571.  LOCATE 19,10 : PRINT " Exquisite Melodies ";
  1572.  C=C+1
  1573.  
  1574.  '14
  1575.   SOUND C5,9,,0
  1576.   SOUND G4,19,,1
  1577.   SOUND F4,60,0,3
  1578.   SOUND E4,t/2,248,2
  1579.   SOUND C5,1,0,0
  1580.   SOUND C5,9,,0
  1581.   SOUND C5,1,0,0
  1582.   SOUND G4,1,0,1
  1583.   
  1584.   SOUND C5,9,,0
  1585.   SOUND G4,19,,1
  1586.   SOUND C5,1,0,0
  1587.   SOUND C5,9,,0
  1588.   SOUND C5,1,0,0
  1589.   SOUND G4,1,0,1
  1590.   
  1591.   
  1592.   SOUND B4,9,,0
  1593.   SOUND G4,19,,1
  1594.   SOUND E4,t/4,0,2
  1595.   SOUND B4,1,0,0
  1596.   SOUND B4,9,,0
  1597.   SOUND B4,1,0,0
  1598.   SOUND G4,1,0,1
  1599.   
  1600.  '15
  1601.   SOUND BF4,9,,0
  1602.   SOUND G4,19,,1
  1603.   SOUND DF4,19,,3
  1604.   SOUND E3,30,240,2
  1605.   SOUND BF4,1,0,0
  1606.   SOUND BF4,9,,0
  1607.   SOUND BF4,1,0,0
  1608.   SOUND G4,1,0,1
  1609.   SOUND DF4,1,0,3
  1610.   
  1611.   SOUND BF4,9,,0
  1612.   SOUND GF4,19,,1
  1613.   SOUND DF4,19,,3
  1614.   SOUND BF4,1,0,0
  1615.   SOUND BF4,9,,0
  1616.   SOUND GF3,t/8,240,2
  1617.   SOUND BF4,1,0,0
  1618.   SOUND GF4,1,0,1
  1619.   SOUND DF4,1,0,3
  1620.   
  1621.   SOUND B4,9,,0
  1622.   SOUND GF4,19,,1
  1623.   SOUND D4,19,,3
  1624.   SOUND E3,t/16,240,2
  1625.   SOUND D3,t/16,240,2
  1626.   SOUND B4,1,0,0
  1627.   SOUND B4,9,,0
  1628.   SOUND DF3,t/16,240,2
  1629.   SOUND B2,t/16,240,2
  1630.   SOUND B4,1,0,0
  1631.   SOUND GF4,1,0,1
  1632.   SOUND D4,1,0,3
  1633.   
  1634.  '16
  1635.   SOUND B4,9,,0
  1636.   SOUND G4,19,,1
  1637.   SOUND DF4,19,,3
  1638.   SOUND E3,30,240,2
  1639.   SOUND B4,1,0,0
  1640.   SOUND B4,9,,0
  1641.   SOUND B4,1,0,0
  1642.   SOUND G4,1,0,1
  1643.   SOUND DF4,1,0,3
  1644.   
  1645.   SOUND BF4,9,,0
  1646.   SOUND G4,19,,1
  1647.   SOUND DF4,19,,3
  1648.   SOUND BF4,1,0,0
  1649.   SOUND BF4,9,,0
  1650.   SOUND GF3,t/8,240,2
  1651.   SOUND BF4,1,0,0
  1652.   SOUND G4,1,0,1
  1653.   SOUND DF4,1,0,3
  1654.   
  1655.   SOUND B4,9,,0
  1656.   SOUND G4,19,,1
  1657.   SOUND D4,19,,3
  1658.   SOUND E3,t/16,240,2
  1659.   SOUND D3,t/16,240,2
  1660.   SOUND BF,1,0,0
  1661.   SOUND B4,9,,0
  1662.   SOUND DF3,t/16,240,2
  1663.   SOUND B2,t/16,240,2
  1664.   SOUND B4,1,0,0
  1665.   SOUND G4,1,0,1
  1666.   SOUND D4,1,0,3
  1667.   
  1668.  '17
  1669.   SOUND B4,9,,0
  1670.   SOUND G4,19,,1
  1671.   SOUND D4,19,,3
  1672.   SOUND A2,t/16,240,2
  1673.   SOUND G2,t/16,240,2
  1674.   SOUND B4,1,0,0
  1675.   SOUND B4,9,,0
  1676.   SOUND D2,t/16,240,2
  1677.   SOUND E2,t/16,240,2
  1678.   SOUND B4,1,0,0
  1679.   SOUND G4,1,0,1
  1680.   SOUND D4,1,0,3
  1681.   
  1682.   SOUND B4,9,,0
  1683.   SOUND GF4,19,,1
  1684.   SOUND DF4,19,,3
  1685.   SOUND GF2,t/2,240,2
  1686.   SOUND B4,1,0,0
  1687.   SOUND B4,9,,0
  1688.   SOUND B4,1,0,0
  1689.   SOUND GF4,1,0,1
  1690.   SOUND DF4,1,0,3
  1691.   
  1692.   SOUND BF4,9,,0
  1693.   SOUND E4,19,,1
  1694.   SOUND DF4,19,,3
  1695.   SOUND BF4,1,0,0
  1696.   SOUND BF4,9,,0
  1697.   SOUND BF4,1,0,0
  1698.   SOUND E4,1,0,1
  1699.   SOUND DF4,1,0,3
  1700.   
  1701.  '18
  1702.   SOUND BF4,9,,0
  1703.   SOUND E4,19,,1
  1704.   SOUND DF4,19,,3
  1705.   SOUND G2,t/2,240,2
  1706.   SOUND BF4,1,0,0
  1707.   SOUND BF4,9,,0
  1708.   SOUND BF4,1,0,0
  1709.   SOUND E4,1,0,1
  1710.   SOUND DF4,1,0,3
  1711.   
  1712.   SOUND B4,9,,0
  1713.   SOUND D4,19,,1
  1714.   SOUND B3,19,,3
  1715.   SOUND B4,1,0,0
  1716.   SOUND B4,9,,0
  1717.   SOUND B4,1,0,0
  1718.   SOUND D4,1,0,1
  1719.   SOUND B3,1,0,3
  1720.   
  1721.   SOUND B4,9,,0
  1722.   SOUND G4,19,,1
  1723.   SOUND D4,19,,3
  1724.   SOUND G3,t/4,240,2
  1725.   SOUND B4,1,0,0
  1726.   SOUND B4,9,,0
  1727.   SOUND B4,1,0,0
  1728.   SOUND G4,1,0,1
  1729.   SOUND D4,1,0,3
  1730.   
  1731.   '19
  1732.   SOUND B4,9,,0
  1733.   SOUND G4,19,,1
  1734.   SOUND DF4,19,,3
  1735.   SOUND E3,30,240,2
  1736.   SOUND B4,1,0,0
  1737.   SOUND B4,9,,0
  1738.   SOUND B4,1,0,0
  1739.   SOUND G4,1,0,1
  1740.   SOUND DF4,1,0,3
  1741.   
  1742.   SOUND BF4,9,,0
  1743.   SOUND G4,19,,1
  1744.   SOUND DF4,19,,3
  1745.   SOUND BF4,1,0,0
  1746.   SOUND BF4,9,,0
  1747.   SOUND GF3,t/8,240,2
  1748.   SOUND BF4,1,0,0
  1749.   SOUND G4,1,0,1
  1750.   SOUND DF4,1,0,3
  1751.   
  1752.   SOUND B4,9,,0
  1753.   SOUND GF4,19,,1
  1754.   SOUND D4,19,,3
  1755.   SOUND E3,t/16,240,2
  1756.   SOUND D3,t/16,240,2
  1757.   SOUND BF,1,0,0
  1758.   SOUND B4,9,,0
  1759.   SOUND DF3,t/16,240,2
  1760.   SOUND B2,t/16,240,2
  1761.   SOUND B4,1,0,0
  1762.   SOUND G4,1,0,1
  1763.   SOUND D4,1,0,3
  1764.   
  1765.  '20
  1766.   SOUND B4,9,,0
  1767.   SOUND G4,19,,1
  1768.   SOUND DF4,19,,3
  1769.   SOUND E3,30,240,2
  1770.   SOUND B4,1,0,0
  1771.   SOUND B4,9,,0
  1772.   SOUND B4,1,0,0
  1773.   SOUND G4,1,0,1
  1774.   SOUND DF4,1,0,3
  1775.   
  1776.   SOUND BF4,9,,0
  1777.   SOUND G4,19,,1
  1778.   SOUND DF4,19,,3
  1779.   SOUND BF4,1,0,0
  1780.   SOUND BF4,9,,0
  1781.   SOUND GF3,t/8,240,2
  1782.   SOUND BF4,1,0,0
  1783.   SOUND G4,1,0,1
  1784.   SOUND DF4,1,0,3
  1785.   
  1786.   SOUND B4,9,,0
  1787.   SOUND G4,19,,1
  1788.   SOUND D4,19,,3
  1789.   SOUND E3,t/16,240,2
  1790.   SOUND D3,t/16,240,2
  1791.   SOUND BF,1,0,0
  1792.   SOUND B4,9,,0
  1793.   SOUND DF3,t/16,240,2
  1794.   SOUND B2,t/16,240,2
  1795.   SOUND B4,1,0,0
  1796.   SOUND G4,1,0,1
  1797.   SOUND D4,1,0,3
  1798.   
  1799.  '21
  1800.   SOUND B4,9,,0
  1801.   SOUND G4,19,,1
  1802.   SOUND D4,19,,3
  1803.   SOUND A2,t/16,240,2
  1804.   SOUND G2,t/16,240,2
  1805.   SOUND B4,1,0,0
  1806.   SOUND B4,9,,0
  1807.   SOUND D2,t/16,240,2
  1808.   SOUND E2,t/16,240,2
  1809.   SOUND B4,1,0,0
  1810.   SOUND G4,1,0,1
  1811.   SOUND D4,1,0,3
  1812.   
  1813.   SOUND B4,9,,0
  1814.   SOUND GF4,19,,1
  1815.   SOUND DF4,19,,3
  1816.   SOUND GF2,t/2,240,2
  1817.   SOUND B4,1,0,0
  1818.   SOUND B4,9,,0
  1819.   SOUND B4,1,0,0
  1820.   SOUND GF4,1,0,1
  1821.   SOUND DF4,1,0,3
  1822.   
  1823.   SOUND BF4,9,,0
  1824.   SOUND GF4,19,,1
  1825.   SOUND DF4,19,,3
  1826.   SOUND BF4,1,0,0
  1827.   SOUND BF4,9,,0
  1828.   SOUND BF4,1,0,0
  1829.   SOUND E4,1,0,1
  1830.   SOUND DF4,1,0,3
  1831.   
  1832.  '22
  1833.   SOUND B4,9,,0
  1834.   SOUND GF4,19,,1
  1835.   SOUND D4,19,,3
  1836.   SOUND B1,65,230,2
  1837.   SOUND B4,1,0,0
  1838.   SOUND B4,9,,0
  1839.   SOUND B4,1,0,0
  1840.   SOUND G4,1,0,1
  1841.   SOUND D4,1,0,3
  1842.   
  1843.   SOUND B4,9,,0
  1844.   SOUND GF4,19,,1
  1845.   SOUND D4,19,,3
  1846.   SOUND B4,1,0,0
  1847.   SOUND B4,9,,0
  1848.   SOUND B4,1,0,0
  1849.   SOUND G4,1,0,1
  1850.   SOUND D4,1,0,3
  1851.   
  1852.   SOUND A4,9,170,0
  1853.   SOUND GF4,19,,1
  1854.   SOUND D4,19,,3
  1855.   SOUND A4,1,0,0
  1856.   SOUND A4,9,,0
  1857.   SOUND A4,1,0,0
  1858.   SOUND G4,1,0,1
  1859.   SOUND D4,1,0,3
  1860.   
  1861.  '23
  1862.   SOUND GF4,9,,0
  1863.   SOUND D4,19,,1
  1864.   SOUND C4,60,0,3
  1865.   SOUND B2,t/16,230,2
  1866.   SOUND GF4,1,0,0
  1867.   SOUND GF4,9,,0
  1868.   SOUND GF3,t/16,238,2
  1869.   SOUND B3,t/16,242,2
  1870.   SOUND GF4,1,0,0
  1871.   SOUND D4,1,0,1
  1872.   
  1873.   SOUND GF4,9,,0
  1874.   SOUND C4,t/2,0,1
  1875.   SOUND D4,t/4,250,2
  1876.   SOUND GF4,1,0,0
  1877.   SOUND GF4,9,,0
  1878.   SOUND GF4,1,0,0
  1879.   
  1880.   SOUND GF4,9,,0
  1881.   SOUND DF4,15,250,2
  1882.   SOUND GF4,1,0,0
  1883.   SOUND GF4,9,,0
  1884.   SOUND D4,t/16,250,2
  1885.   SOUND GF4,1,0,0
  1886.   
  1887.  '24
  1888.   SOUND GF4,9,,0
  1889.   SOUND D4,19,,1
  1890.   SOUND C4,60,0,3
  1891.   SOUND B3,30,250,2
  1892.   SOUND GF4,1,0,0
  1893.   SOUND GF4,9,,0
  1894.   SOUND GF4,1,0,0
  1895.   SOUND D4,1,0,1
  1896.   
  1897.   SOUND GF4,9,,0
  1898.   SOUND D4,19,,1
  1899.   SOUND C4,60,0,3
  1900.   SOUND GF4,1,0,0
  1901.   SOUND GF4,9,,0
  1902.   SOUND GF3,t/8,240,2
  1903.   SOUND GF4,1,0,0
  1904.   SOUND D4,1,0,1
  1905.   
  1906.   SOUND GF4,9,,0
  1907.   SOUND D4,19,,1
  1908.   SOUND D3,t/8,230,2
  1909.   SOUND GF4,1,0,0
  1910.   SOUND GF4,9,,0
  1911.   SOUND DF3,t/8,220,2
  1912.   SOUND GF4,1,0,0
  1913.   SOUND D4,1,0,1
  1914.   
  1915.  '25
  1916.   SOUND GF4,9,,0
  1917.   SOUND D4,19,,1
  1918.   SOUND C4,60,0,3
  1919.   SOUND B2,60,210,2
  1920.   SOUND GF4,1,0,0
  1921.   SOUND GF4,9,,0
  1922.   SOUND GF4,1,0,0
  1923.   SOUND D4,1,0,1
  1924.   
  1925.   SOUND G4,t/8,0,0
  1926.   SOUND D4,t/8,0,1
  1927.   
  1928.   SOUND GF4,9,80,0
  1929.   SOUND D4,19,80,1
  1930.   SOUND GF4,1,0,0
  1931.   SOUND GF4,9,80,0
  1932.   SOUND G4,1,0,0
  1933.   SOUND D4,1,0,1
  1934.   
  1935.  '26
  1936.   SOUND GF4,9,80,0
  1937.   SOUND D4,19,80,1
  1938.   SOUND B2,19,180,2
  1939.   SOUND GF4,1,0,0
  1940.   SOUND GF4,9,80,0
  1941.  FOR x=1 TO 24000:NEXT  
  1942.   RETURN
  1943.