| Es parte de la publicación: | 8-Bit Bach |
| Tamaño del archivo: | 28700 |
| md5: | 9ae1744a6d1b1b2c10a2c3ac3ce1dd08 |
5 LOAD ""CODE 63500: POKE 23606,12: POKE 23607,247: POKE 23739,244: BORDER 6: PAPER 8: BRIGHT 8: GO SUB 9900: GO TO 7000
10 REM 8-Bit Bach Arrangements> NeilParsons
20 PRINT AT 14,21;"Sinfonia";AT 15,21;"from the";AT 16,21;"Cantata";AT 17,21;"n. 29 in";AT 18,21;"D major";AT 19,21;"BWV 29"
30 PRINT AT 21,20; INK 2;"Press a key"
40 LET a$=INKEY$: IF a$="" THEN GO TO 40
50 PRINT AT 21,20;" "
55 REM 1.Sinfonia from Cantata n. 29 (BWV 29)
60 LET a$="T116O4V11N3DV14O6N1D#C3Da#fa1ded#cO5N3Da#faV13N1daea#faga#faeadD#CbaD#Cbag#feV11daea#faga#faeadD#CbaD#Cbag#feV12de#fgab#CDE#FGE#FAV13O6N1de#fgab#CDb#CDaga#faga#faeadD#CV12N1badbdadgd#faea#faga#faeadD#Cbadbdadgd"
70 LET b$="V12O3N3D&d&&&&1D#C3Da#fad&&&&&&&&&A&D&&&&&&&&&a&d&&&&&d&&&&&d&&&&&&1DE3#FG#FED&&&&&&1de3#fg#fe"
80 LET c$="O4V13N3A&#F&&&&1D#C3Da#fad&&&&&&dDagad&&&&&&d#fd#faD&a&D&#F&D&E&#FaABAG#F&&&&&&aABAG#F&&&&&"
100[U]a$,b$,c$
110[U]"T116O6V13N1#fd&d&d&d&d&d(&d&d&d&d&d&d)&d#fded#fdgded","O6V13N1&&d&#c&d&e&#c&d&#f&e&#f&g&e&#f&d&#c&d&e&#c&d","O3V13N3d&&&&&O6N3&1d&#c&d&e&#c&V12O3N3dO5N1#f&e&#f&g&e&#f&V13O4N1D&#C&D&E&#C"
120[U]"T116N1#FD#CDaD#CD#FD#CDA#FE#FD#FE#FA#FE#FO6N1DO5N1AGA#FAEADACA(bGDG)bGDGV14(1aGDG)aGDGV13(1a#FD#F)a#FD#FV12(g#FD#F)g#FD#FV11(gE#CE)gE#CE(#fEaE)#fEaEV12(#fDaD)#fDaDV13(eDgD)eDgDV14(e#Cg#C)e#Cg#C","O4V13N3d&D&a&#F&#F&D&A&&&&&G&&&&&G&&&&&#F&&&&&#F&&&&&E&&&&&E&&&&&D&&&&&D&&&&&#C&&&&&","O3N3&V12dddddO4N3aO3dddddV11O4DO3dddddO4bO3dddddV10O4aO3dddddO4aO3dddddV11O4gO3dddddV10O4gO3dddddO4#fO3dddddV11O4#fO3dddddV12O4eO3dddddV13O4eO3ddddd"
130[U]"T116O5N1dede#fade#fade#fg#fgaD#fgaD#fgababC#FabC#FabCA#FDCa#fdcO4bCa","O4V12N3aDDDDD&#f#f#f#f#f&aaaaa&CCCCC","O3N((3D&d&&&))"
140[U]"T116O4N1b#Cb#C#D#Fb#C#D#Fb#CO5#de#de#fb#de#fb#de#fg#fga#D#fga#D#fga#F#DbBGA#FE#Fba","O4V12N8#F#Db#D","O3V13N3#dbbbbb&O4((#f))#f&((#d))#dV14O3&((b))b"
150[U]"T116O5N1gbgeE#CDb#a#C#feO4D#FDbD#FB#FO5Db#Fb#a#C#a#f#FF#FF#F#CDb#a#C#a#fE#DE#DE#CDb","O4V12N5B#A&#FB&3&#F#AO5#C#F&&#f#a#CE&","O3V13N5e3&E#F#a5b3&DbD8_8#F"
160[U]"T116V14O5N1#a#C#a#fg#fg#fgO4#CDb#aEbE#CEbE#aE#CE#fEV13O5#CO4EO5#Fe#Ce#ae#CeDebeDebeDebe","O4N3&V12N3#ab#abg8#f3#c&#C&&#C5bb3&b","O3V13N8#f#fO4N3#aV12O3((#f))#fO4#FO3((#f))#f"
170[U]"T116V14O5N1#fe#Ce#ae#Ce#ae#ae#fdbdDdbdDdbdfdbdDdbdDdbdV12O4#fDBO5dDdbdDdbdV11O4#f#FV12O5b#f#C#fb#f#C#fb#fV13O4#f#FO5#a#f#CV14N1#f#a#f#C#f#a#f","V13O4N5#C#C3&#C5bb3&bV12bbbV11bbb&bbbbbV12&((#C))#CV13&((#C))#C","V13O4N5#a#a3&#f5#f#f3&#fV12((#g))#g#g&V11((#g))#g&V12((b))b&V13((#a))O3#f"
180[U]"T116V14O5N1bBAG#FB#FED#FD#Cbb#fed#fd#cO4bDba(O4#gEBEO5DebeDebe)#CA#G#FEAED#CE#CbaAED#CE#Cba#Cag","O4V13N3#F&a&#f&D&b&#f&&e#gb5D3&e#gbDbA&E&a&e&#c&e&","O3V13N3bbD#F5B3&bD#FBb3EO4bE#G5BO3N3eO4bE#GB#GAO3a#CE5A3&a#CEAa"
190[U]"T116V14O5N1#fCDC#FCAC#FCDC#fCDC#fCeC#fCeCbDG#FGDCDbDaDgG#FEDgEgDgCgbDaDbDCDbDaDgG#FEDgEgDgCg","3&V13O4aD#F5A3&d#faCabdDEDCb&&&&&b#FGEDCb&&&&&","O3V13N3dO4d#fa5DO3N3dO4N3bD#FA#FO3N3gO4dG&&&&1ga3bCbag&&&&&O3N3&1ga3bCba"
200[U]"T116O5V13N1bg&g&g&g&g&g(&g&g&g&g&g&g)&gbgagbgCgag","O5N1&&V13N1g&#f&g&a&#f&g&b&a&b&C&a&b&g&#f&g&a&#f&g&g&#f&g&a&#f&","O3V13N3g&&&&&O5N1g&g&#f&g&a&#f&V12O3N3gO4N1b&a&b&C&a&b&&"
210[U]"T116O5V13N1bg#fgdg#fgbg#fgDbabgbabDbabGDCDbDaDgDfD(eCgC)eCgC(dCgC)dCgCV12(dbgb)dbgbV11(cbgb)cbgbV10(ca#fa)ca#fa","O4V12N3D&b&D&g&b&g&D&&&&&C&&&&&C&&&&&V10b&&&&&V9b&&&&&V8a&&&&&","3&V13NO3gggggV11O5bV13O3gggggV10O5bV13O3gggggV10O5gV12O3gggggV9O5dV12O3gggggV9O5gV11O3gggggV8O5eV11O3gggggV8O5#fV11O3ggggg"
220[U]"T116V10O4(1bADA)bADAV11(bGDG)bGDGV12(aGCG)aGCGV13(a#FC#F)a#FC#F","O4V9N3a&&&&&V10g&&&&&V11g&&&&&V12#f&&&&&","O4V9N3DV11O3gggggV9O4DV12O3gggggV10O4CV12O3gggggV11O4CV13O3ggggg"
230[U]"T116V13O4N1gagabDgabDgabCbCDGbCDGbCDEDEFBDEFBDEO5fDbCDb#gab#gedO4CbabCEabCEabCDCDEACDEACDO5e#fe#fg#Ce#fg#Ce#fgE#CDE#C#ab#Ca#fe","O4V12N3dggggg&bbbbb&DDDDD&DDDDD&CCCCC&EEEEE&EEEEE&EEEEE","O3V13N3GO4bO3gO4dddO3GO4DO3gO4DDDO3gO4fO3GO4fffO3#gO4eO3#GO4eeeO3aO4eeeeeO3AO4aaaaaO3aO4gggggO3#aO4((#f))#f"
240[U]"T116V13O5N1#dA#FGA#F#DE#F#DbagBGABGE#FGECbaO6CabCa#fga#f#d#fO5b#Cb#C#D#Fb#C#D#Fb#C#DE#DE#FA#DE#FA#DEO6#fg#fgaC#fgaC#fgaCa#f#dbgecbg#f","3&O4V12((#d))#d&O3GGGGG&V11((A))AV10N8#FA#F7A5#D","O3V13N3bO4((b))O3beO4((e))eO3a((C))C&BBBBB&((#F))#F&((#D))#DO4#dO3(bb)b"
250[U]"T116V13O5N1E#FGEaG#FEb#FE#DCDEC#fEDC#gDCbabCa#dCbaebag#fgag#faga#faea#de#fga#dC#db#da#d","O4V12N3g&G&#F&E&E&D&C&C&b&a&a&a&a&#f&b&","O2V13N5EO4N3a&b&C&#f&#g&a&#d&e&#f&#f&e&O3b&#D&b&"
260[U]"T116O4V13 1EGEbgbEbGbEb #D#F#Db#D#FB#FO5#Db#Fa gbgegbEbGEBE #D#F#DbB#AB#AB#FGE #D#F#DbA#GA#GA#FGE #D#F#DbCbCbC#fge","O4V12N5ge&ab&bE&3&b#D#FB&&b#D#FA&&#DE#DEC","O2V13N5EO3N3GO2geg5b3&#Db#D5E3&GEG8_8Bb"
270[U]"T116O5V13 1#d#fbAA#FGE#D#FbagbEBBGA#FEGCbaCfe#dfO4bagbE#FO5geaebeCeO4bO5e#f#deg#fgegdg#cgO4bGO5#cgdgeg#fag#feg#fg#fedD#CDbDaD#gDaDbD#CED#CbD","O4V11 5_5_5#F5G5_5EF#F3&EE#DEagb7_5b7_5#C5_5Db7_5E","O3V13N3bV14#FV13#DEV14#FV13#DEGE#FGEV15AV13ab#DEDV15CV14#fgaV13bb5eE3&E5Aa3&aV14N5DV13O4D3&bV14N5EV13eO3N3&E"
280[U]"T116O5V13 1#CD#Cbab#CDE#FGEAaga#faeadacaO4bDE#FGABO5CDE#FDGg#fgegdg#cgO4bGa#CDE#FGABO5#CDE#C#F#fe#fd#fc#fO4b#Fa#Fg#FBABO5DG#FGEbDO4aEO5#Cb#CEG#FGE#CEO4a#FAGAO5D#FE#FDbD","O4V12 3EEEEEE5D&&3&DDDDD5D&&3&((#C))#C5D&&g7G5a3A&E&5a3#F&D&","O3V13N3A1ab3#CEAGO4N5#fDO3N3&#FG1ga3bDG#FO4N5e#C3&e#fO3N1#fg3a#C#FEDEDCba5g3&bEG5g3&#CEA5a3&D#FA"
290[U]"T116O5V13 O4N1aO5#gbabD#G#F#GDbD #CA#G#FEAED#CE#Cb aAG#FEGED#CECb aG#FED#FD#CbDba g#FED#CE#Cba#Cag","O4V12 5a3#G&E&A1ED3#CEa#CE1ED3#Caeg#f1ag3#fad#fe1g#f3ge#ce","O3V13((3a))aa5a&&a&&a&&a3E&a#C"
300[U]"T116O5V13 O5N1aDba3#CDV12EV11#F5_5G1GV12#FGEV13#FD#FAO6Da#fdO5aEO6D#CDa#fO5DCDbDCDaDbDGDbDaDbDgDaD#FDaDgDaDaDgT112DEDT106#Ca#CT99DEaT92E#F","O5V12 3d&1gbg#feged#cegba#cegO4N3aaa1d#f3abagD#FV11O5N5_5_3A1G#F5_5_3G1#FE5_3#F1&a5&O5V12N3e&g&","O3V13 5a&&3&1AG3AE#CaDb#fgaaO2N8_8_7_3dO3#fe1g#f3ge#ce"
310[U]"T99O5V13N5_3G3A5_1#F1G#FG10E#FE10#FE#FE#F3E","O5V12 5#C3&#FO4N3#fO5a5b3#CO4N1aa3ga","O3V13N7a5DGAa"
320[U]"T105O6V13N1dD#CbaDgD#fDeDO5DD#CbaDgD#fDeDd#fa#CT90O6d#fT80a#CT70 5_5D","O4V12N3a&d&#f&a&#F&A&O5N5_5_5_5D","O3V12N5dO4V11N3a&d&#f&D&#F&5_5_5_5A"
500 REM 2. Air on a G String BWV 1068
510 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Air 'on a";AT 15,20;"G String'";AT 16,20;"from Suite";AT 17,20;"N. 3";AT 18,20;"BWV 1068"
520 PRINT AT 20,20; INK 2;"Press a key"
530 IF INKEY$="" THEN GO TO 530
540 PRINT AT 20,20;" "
550[U]"T66V9O5 7_7_7_7#F5#F3BG1#FE3D#CD7#C1b1_6a","O5V8 7_7D7_7bbb7_7e","O3V9 5DD#C#Cbbaagg#g#gaagg"
560[U]"T66V9O5 7_7_3A#FCbE#DAG7_7_3GEbaD#CG#F7_5#F3#GA5D1DE3#F#F5E3D#Cb1b#C3_5D3#Cb9a","O5V8 5a3Cb5C3ACb&7&5&b3EDE#FGEa&7&5&9_5a3#ga5b#ga7a5#g7_7e","O3V9 5#f#feE#D#DbbEEDD#C#CaaDD#C#Cbb#geaDEe3ab#CDEG#FE"
570[U]"T66V9O5 7_7_7_7#F5#F3BG1#FE3D#CD7#C1b1_6a","O5V8 7_7D7_7bbb7_7e","O3V9 5DD#C#Cbbaagg#g#gaagg"
580[U]"T66V9O5 7_7_3A#FCbE#DAG7_7_3GEbaD#CG#F7_5#F3#GA5D1DE3#F#F5E3D#Cb1b#C3_5D3#CbV8N9a","O5V8 5a3Cb5C3ACb&7&5&b3EDE#FGEa&7&5&9_5a3#ga5b#ga7a5#gV7N9e","O3V9 5#f#feE#D#DbbEEDD#C#CaaDD#C#Cbb#geaDEeV7N9a"
590[U]"T66V9O5 7_3#C1D#Cb#C3a7_3_3A5Cb5_3BAG#F7_1G#FED3#Cb#ab5_3#CD5_3E#F5_5G#F3ED#Cb#C1DE5D9b","O5V8 7_7a3abCe#fbag#fga#f5#d#D9E3#CDE#FG#FGE#FD#Cb#ab5#Cb3be5b3#ae9#f","O3V9 5aagg#f#fee#D#D#fbEEDD#C#Cbb#ab#C#abge#fbbaa"
600[U]"T66V9O5 7_3D#FED7_5B3A#G1#FE3A5a5_3b1#CD5_3#Cb7a8D3#FE8E3G#F8#F3AG9G7_3a#CEGGE5_5_3#F1GA7_3D#FAO6CO5N7_5BD3#CE7G5ba3E1#FG3G5#F3E1D#C5b3#C5D3#CD9D","O5V8 5eb3a#g5aO4bO5N3e#f#ga5_5b7a5#g5_3ad#cde#c5a3bCb#C7D3#Cb#C#D7E3#D#C#DE5_3#F#DEbebge5&3ea5#C7a3#CD7_5de7#f9gO4N3EbEGBAG#FEO5D#Cb5ab7a3g#f5g9#f","O3V9 5#g#g#f#feeEE#C#CDEaagg#f#fgg#g#gaa#a#abbeEDD#C#Ca#CDDCCbbaagg#f#feeDD#CaDgagaa9D"
610[U]"T66V9O5 7_3#C1D#Cb#C3a7_3_3A5Cb5_3BAG#F7_1G#FED3#Cb#ab5_3#CD5_3E#F5_5G#F3ED#Cb#C1DE5D9b","O5V8 7_7a3abCe#fbag#fga#f5#d#D9E3#CDE#FG#FGE#FD#Cb#ab5#Cb3be5b3#ae9#f","O3V9 5aagg#f#fee#D#D#fbEEDD#C#Cbb#ab#C#abge#fbbaa"
620[U]"T66V9O5 7_3D#FED7_5B3A#G1#FE3A5a5_3b1#CD5_3#Cb7a8D3#FE8E3G#F8#F3AG9G7_3a#CEGGE5_5_3#F1GA7_3D#FAO6CO5N7_5BD3#CE7G5ba3E1#FG3GT62N5#F3E1D#C5b3#C5DT60V8N10#CD#C3DV7N9D","O5V8 5eb3a#g5aO4bO5N3e#f#ga5_5b7a5#g5_3ad#cde#c5a3bCb#C7D3#Cb#C#D7E3#D#C#DE5_3#F#DEbebge5&3ea5#C7a3#CD7_5de7#f9gO4N3EbEGBAG#FEO5D#Cb5ab7a3g#fV7N5gV6N9#f","O3V9 5#g#g#f#feeEE#C#CDEaagg#f#fgg#g#gaa#a#abbeEDD#C#Ca#CDDCCbbaagg#f#feeDD#CaDgagaV8aV7N9D"
1000 REM 3. 2-Pt Invention n. 8 in F-dur BWV 779
1010 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Two-Part";AT 15,20;"Invention";AT 16,20;"N. 8 in F";AT 17,20;"major dur";AT 18,20;"BWV 779"
1020 PRINT AT 20,20; INK 2;"Press a key"
1030 IF INKEY$="" THEN GO TO 1030
1040 PRINT AT 20,20;" "
1050[U]"T132O5 3&V12fafCa 3F1EDCDC$ba$bag3faCaFCV11O6(1aC$bC)aC$bCV10(faga)fagaV11(dfef)dfefV12O5N3bgDbFD 1GAGFEFEDCDC$b3a1DCbCbagagf efed3c1Cb3Ce fCeCdb5C&&","O8 8&&&V12(1aC#bC)aC$bCV11(faga)fagaV12(dfef)dfef","O4 8&3&V13fafCfF1EDCDCbabag3faCaFCV12(1aCbC)aCbCV11(faga)fagaV12(dfef)dfef O3N3bgDbFD1FGFEDEDCbCba3g1CbabagfgfededcgedeO2N3GgO3V13N3&cecgc"
1060[U]"T132O5 3&V12CECGCO6C1bagagfefedO5C$bCACA$bACAaA3$bg$bgDgG1F$ED$EDC$bC$ba3g$bD#bGD($B#C)$B#C","O3V12 3C1bagagfefed 3cegeCg ($B#F)$B#F G1F$EDEDC$bC$ba 3gG$BO4gD$b G1F$ED$EDC$bC$ba gfg$Eg$Ef$Eg$Ed$E"
1070[U]"T132O5V12 3DaFDAF 1GFG$B#C$BD$BE$B#C$BFEFAbA#CADAbAEDEGaGbG#CGaGV11 3FD$bFgFECaCf$E","O4V12 1fefDfDeDfDdD 3$bgegce afdfO3bD GE#CEa#C 1dDCDgDaD$bDgD cC$bCfCgCaCfC"
1080[U]"T132O5V12 (1DF$EF)DF$EF($bDCD)$bDCD(g$ba$b)g$ba$b3ecge$bg 1CDC$ba$bagfgf$e 3d1gfefedcdcO4$b a$bag3f1FE3FgaFaFg10EDE5F&&","O3V12 3$bDFD$BF O4(1DF$EF)DF$EF($bDCD)$bDCD(g$ba$b)g$ba$b 3ecfcaf 1$bC$bagagfefed 3c1fededcO3$bC$bagagfC$ba$b3Cc5f&&"
1500 REM 2-Part Invention n. 14 in B flat major BWV 785
1510 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Two-Part";AT 15,20;"Invention";AT 16,20;"N. 14 in B";AT 17,20;"flat major";AT 18,20;"BWV 785"
1520 PRINT AT 20,20; INK 2;"Press a key"
1530 IF INKEY$="" THEN GO TO 1530
1540 PRINT AT 20,20;" "
1550[U]"T110UX4000W0O5 3&1$bCDC3$bFD$BFD1F$ED$E3F$bDf$a g1$efgf3$e$bg$E$bg1$b$ag$a3$b#dgc#dO4a1CD$ED3CO5afCa$E1fgag3fCaFC D&&&&1GF$EF3GC&&&&1F$ED$E3F$b&&&&1$EDCD3$Ea1C$ba$b3Cf5&","O3V11N5$B$bDF7$B&5&$b$EG7$B&5&$bC$E7A&3&UO4N1$bCDC3$b$E&&&&1a$bC$b3aD&&&&1ga$ba3gCV11N1cd$ed3c5fO2fO4N3&Caf"
1560[U]"T110UX4000W0O5N5FfaC7F&5&f$bD7F&5&g$bC7E&3&1fgag3fCaFCA1$EDCD3$EaC#fa5$bD$bg$aF$af","UO7N7&&F&&&F&&&E&&&&&5$bD$bg$aF$af", "O4 3&V11N1fgag3fCaFCa1C$ba$b3CFAC$E!!D1$bCDC3$bfd$bfd1f$ed$e3fO3$bDg$b e1ga$ba3gECGE$B1CDED3CGEO4Cg5aCaf#fa#fd O3N3G1ga$ba3gD$bGD$B1$AGFG3$ADF$bD"
1570[U]"T110UX4000W0O5N3g1CD$ED3Cg$eCgD1$agfg3$adfO4bGO5$e&&&&V11N1cd$ed3c6C3$ba1fgag3f6F3$ED1$bCDC3$b6$B3$AG1$B$AG$A3$B$E1GF$EF3GC1$EDCD3$Ea1CD$ED3CF1$agfg3$a","UO7N3g","O3V11N5$EG$ECbDbgV10N3C1cd$ed3c6C3$ba1fgag3f6F3$ED1$bCDC3$b6$B3$AG1$EFGF3$EO4N6$E3D C1$EDCD3$Ea1C$ba$b3Cf1a$bC$b3aD1f$ed$e3f"
1580[U]"T110O5V11N3g1$bCDC3$b$E1gf$ef3gf1a$bC$b3aD1f$ed$e3f$e1ga$ba3gC1$edcd3$e5d&3&UX4000W0N1$bCDC3$b","V11O4N3$e1ga$ba3gC1$edcd3$ed1fgag3f$bO3N1DC$bC3DC1$EFGF3$EA1C$ba$b3C$bO4N1$bCDC3$bFD$BD"
1590[U]"T110UX4000W0O5 3FD$BFD1F$ED$E3F$b$E$b$Eg1$efgf3$e$bg$E$bg1$b$ag$a3$b5$e5_3$E1$EDCD3$E5f5_3$E1CD$ED3CFT102N1DCT98$bT91CT87N3DfT82$bCT75aT66X9000N8$b","7&&&&&&&&&3&UO7N1CD$ED3CF1DC$bC3Df$bCa8$b","V12O4N3D1F$ED$E3F$bDf$ag1$efgf3$e$bg$E$bg1$b$ag$a3$b$egO3$bDC1fgag3fCg$ECa1C$ba$b3Cfac$ed1$bCDC3$b5FfUN8$b"
1800 REM 2-Part Invention n. 4 in D minor BWV 775
1810 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Two-Part";AT 15,20;"Invention";AT 16,20;"N. 4 in D";AT 17,20;"minor moll";AT 18,20;"BWV 775"
1820 PRINT AT 20,20; INK 2;"Press a key"
1830 IF INKEY$="" THEN GO TO 1830
1840 PRINT AT 20,20;" "
1850[U]"T209O5V13N 3defga$b#c$bagfe5faDg#CE3DEFGA$B#C$BAGFEFDEFGA$bAGFEDECDEFGaGFEDCDEFDEF5g&&3CDECDE5f&7$b1a$ba$b5g3C$bagfefg(1ga)gag3f5fCC","8&&O4V12N3defga$b#c$bagfe5faD eg#C dDf ga$b cCe fga 3$bga$bCD eDC$bag afga$bC dC$bagf ecdefg O3aO4gfedcO3D$b5Cc3fga$bCD","8&&&&&&O3V12N5dD&8&5cC&8&&&&O7UX2900W0N5&&7$b5ag3C$bagfefg6g3f5fCC"
1860[U]"T209O5V11(1CDCD)(CDCD)(CDCD)V12(CDCD)V13CDCD3C$bagfe Cde#fga $bagfed $bcdefg abCDEF #gFEDCb CbDCbaV12 #ga#g#fedcde#f#gaV11 dCba#g#fe#f#gV12 abC#fEDCba","O3V12N3eDC$baga$bCDEFgFEDC$ba$bCa$bC5#f&&3ga$bga$b5e&&fFDb#ge3a#gabCDO4V11(((1fe)))V10(((1fe)))V9((1fe))V10((fe))V11((fe))fefe"
1870[U]"T209O5V12 3#gabCDEaFEDCbA#G#FE5_3AD1bCbCbC3a6a3a$bC5d#fa3$bga$bCDeDC$bag5a3FE5FgE&","O4V12N5eEDCbaDEFDEeO3N3Aa$bCD$E#f$EDC$ba6g3ga$b5cgCO4N3fgab#CDeD#Cbag","8&&&&&&&&UX1600W0O6N5a3FE5FgF&"
1880[U]"T209O5V12 3DEFGA$B#C$BAGFE(1FG)5D5_3gD#CEaCDb(1#CD)#CD3DDCT200$baT195gfT186$b#cT179deT170fgaDT162N5f10efe3dT150N8d","UX2700W0O7N3DEFGA$B#C$BAGFE5FD5_3gD#CEaCDb6#C3DDC#bagf$b#cdefgaD5f3ed8d","O4V13N5faDeg#C3defga$b#c$bagfefg5aO3a6$b3C$bag$BAGFEFG5AaO2N8d"
2200 REM Jesu, Joy of Man's Desiring
2210 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"~Jesu, Joy";AT 15,20;"of Man's";AT 16,20;"Desiring~";AT 17,20;"Chorale from";AT 18,20;"Cantata";AT 19,20;"BWV 147";AT 20,20; INK 2;"Press a key"
2220 IF INKEY$="" THEN GO TO 2220
2230 PRINT AT 20,20;" "
2240[U]"T100O5 3&V11NgabDCCEDDG#FGDbgabCDEDCbabg#fgad#faCbabgabDCCEDDG#FGDbgabeDCbagdg#fgbDGDbgbD","O3V11 6gDEbEEabCD#FDGECbEDC#CD7G3&G5D3b","O5 6&V10N5g3#f5g(3a5b)3g5e3d5e3#f5g3d5eO4 3b5aO5 3d5a3g5a3#f5d(3#f5g)(3a5b)3g5e3g5a3#f5g3eO4N5a3C7b3&D5b3g"
2250[U]"T100O5 V11N8b6C8D6D8C6b5a3&O4N8#f#f6#fO5N8b6C8D6b5a1bC6ba","O5V11 8g6gag#fgdd3dde#fagaCbCa#fd#faCbabgabDCCEDDG#FGDbgabeDCbagdg#f","O3V11N6G#FE#FEDE#FGD8DD6DG#FEbBECDD"
2260[U]"T100O5V11 3bgabDCCEDDG#FGDbgabCDEDCbabg#fgad#faCbabgabDCCEDDG#FGDbgabeDCbagdg#f","O3V11 6gDEbEEabCD#FDGECbEDC#CD","O5V10 6g5g3#f5g(3a5b)3g5e3d5e3#f5g3d5eO4 3b5aO5 3d5a3g5a3#f5d(3#f5g)(3a5b)3g5e3g5a3#f5g3eO4N5a3C"
2270[U]"T100O5 V11N8b6C8D6D8C6b5a3&O4N8#f#f6#fO5N8b6C8D6b5a1bC6ba","O5V11 8g6gag#fgdd3dde#fagaCbCa#fd#faCbabgabDCCEDDG#FGDbgabeDCbagdg#f","O3V11N6G#FE#FEDE#FGD8DD6DG#FEbBECDD"
2280[U]"T100O5V11 3bgabDCCEDDG#FGDbgabCDEDCbabg#fgad#faCbabgabDCCEDDG#FGDbgabeDCbagdg#fgbDGDbgb#C","O3V11 6gDEbEEabCD#FDGECbEDC#CD7G3&G5#F3E","O5V10 6g5g3#f5g(3a5b)3g5e3d5e3#f5g3d5eO4 3b5aO5 3d5a3g5a3#f5d(3#f5g)(3a5b)3g5e3g5a3#f5g3eO4N5a3C5bO5N3g5b3D5g3g"
2290[U]"T100O5V10 3Dde#fa#g#gbaaCbCaecdefDCDb#ge#f#gaCbCEDDFEEA#GAECabCFEDCbaea#gaCEA&&V10N6d","O5V11 8a6b8C6C7b3CD6baa&V10N5C3b5C3a5f3a5a3#g5a3#fO4N5b3DV11O5N8C6D","O3V11 6DCba4AGFE6DbEaFDCFED#DEaAB"
2300[U]"T100O6N3&V10cdegfg$baaCbCafdefegfgecO5ga$baCbCafdefecdeg#fgba","O4V11 6Caefdgcecfdg7c3&O3C5b3D","O5V10 8E6E7D3EF6DCC&V9O4fag7g3&D5D3D"
2310[U]"T100O5V10 3ggabDCCEDDG#FGDbgabCDEDCbabg#fde#fagaCbCa#fd#faCbaggabDCCEDDG#FGDbgabeDCbagdg#f","O5V10 8b6C8D6DC8b6a&O4V9 5#f3g5a3cO3N5aO4N3#f5d3#fO5V10N8b6C8D6b5a3aC6a","O3V11 6gGEbEEabC7D3&D5D3D7d3&D5D3D6G#FEBbECDD"
2320[U]"T100O5V11 3gbDGDbgbDFDbgbDECa#faCDbgegbCa#fd#faCbabgabDCCEDDG#FGDbgabCDEDCbabg","O4V10 5bO5 3g5b3d5g3D5b3g5d3b6_5C3a6_5b3g6_5a3#f5d3#f5g3d5g3#f5g(3a5b)3g5e3d5e3#f5g3d5eO4N3b","O3V11 8_8_8_8_8_8_6gGEBEEabC"
2330[U]"T100O5V11 3#fgad#faCbabgabDCCEDDG#FGDbgabT94eDT88CbT83agV10T77dgT71#fV9T65 9g","O4V10 5a3D5A3G5A3#F5D(3#F5G)(3A5B)3G5E3G5A3#F5G3EV9 5a3CV8 9b","O3V11 6D#FDGECbEDCV10#CV9D9g"
2500 REM Prelude & Fugue n. 7 in E-flat major BWV 852
2510 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Prelude and";AT 15,20;"Fugue n. 7";AT 16,20;"in E-flat M";AT 17,20;"BWV 852";AT VAL "20",VAL "20"; INK VAL "2";"Press a key"
2520 IF INKEY$="" THEN GO TO 2520
2530 PRINT AT 20,20;" "
2540[U]"T140O5 3&V10g$a$b$agf$e9_3$DV11C$D$E$DC$b$a9_3FV12D$EF$EDC$b9_3$AV13FG$AGF$ED9_3G$EFGF$EDCO6N9_3Ca$bC$bagf$bagf$edcO5$b","O4 9&3&V10g$a$b$agf$e9_3$aV11$a$bC$b$agf9_3DV12D$EF$EDC$b9_3$E$EFGF$EDC $bCD$EDC$b$ag$efgf$edc O3FCD$EDC$baD$bCDC$bag","O3V9 9_9$eV10N9_9$eV11N9_9_3$e&5&&&O5N9_3$E&5&&&9_3C"
2550[U]"T140O5V12 9_3$E$EFGF$EDCV10 1DCD$EDC$ba$ba$bC$b$agfgfg$agf($ed)$ef$edcO4$b O5T134N1&cd$efga$bT128CafT124ga$bT120CDV10N5_1$EFT116N3$ET110D5$ET102NV8N3DT92N7D","3&O4V12$efgf$edc9aV11N9_9$bV10N9aV9NO5CV8N7f","O2V10 9_9CV9N9_9_9$bV8N9_7$b"
2560[U]"T80O4V8 7$E5D7C5$bCD$E$DCF7GO5N5C7$bC7_6$b3$a5gCb3C$b5$a3g1$a$b7_5$agf3g$a7g7_5f1$eDC$b5a$b","5&7&&O5V8N5$e7$a5$b7$E5D7$E$AG3F$E5D7$E5DE7F5$ED7GF$ED3C$b5a7$b$E5D","5&O4V8N5f7$b5a7g5f7$ea5g7C5D$E7a9_5$b$ag7C5$bCD6g3$aO3N5$B$b8$E5D7GF"
2570[U]"T80O5V8 5$b7$agf3$e$d8cO4 7$b5a7$b","O5V8 7C$b$a8g3f$e7$d8$e3dc","O3V8 7F5_1GF$ED5CD5_1$E$DC$b7$a$bC$b"
2580[U]"T80O4V8 1$bO5$bCDC$bag3f1ga$bagfO4$EDC$b(3$E)5$ED3$E&7f5$e7C5_1$bD$EF$EDC$b3$EC5_1FFG$AGF$ED5G7F","O5V8 3d&5&7&&1&$a$bC$b$agfg$EFGF$EDC3$b1CD$EDC$b$agf$e(3$a)5$a7g5a3$bC7_1DDC$b3a1$bC5D","O3V8 5$b7D5C7GF6$E3FGF$ED1C$EFGF$EDC$EDC$b3$ED5C1CCD$EDC$ba3$b$B7$E1&FGA$BAFG"
2590[U]"T80O5V8 7g1&a$bC$bagfV9N7_1$b$bCDC$bag7_3aV8dgV7f7$e5dcO4$b7$EV8N5DGV9N5_1FFG$AV10GFEF","O5V8 5_1DCD$E5F&1&FG$AGF$ED7_1$E$EFGF$EDC7_5D5_3C$b5agV9&f7$b5$a7$D","O3V8 1$EDC$b3$E$E5$ED7_1GGA$BAGF$E7F1&#FGAGF$ED7CD1gG$A$B$AGF$E&V9D$EF$EDC$b5E7F5$b"
2600[U]"T80O5V9 7e1&O4$E$DC5_1$b$bC$DC$b$ag5$a&1&FG$AGF$EDCG$A$B$AGF$E7F5DV8N5_3$E$AGF5$E7$A5GO5CO4$BV9N1$EDC$b5&7E7_1$B$BO5C$DC$b$ag","O5V9 1$D$bC$DC$b$ag7_5fef7C5b7_1$E$EFGF$EDCbFG$AGF$EDCbCD4D1C5C&1&V8$bC$DC$b$ag3f1g$a$b$agfV9N5g3$E$E5$ED7_5GF","O4V8N7c5$d1$a$agf7cO3N1&fg$agf$ed7gC7_5F$E3$AF5GO4N1CO3C$DEDC$ba7$E$A5_1GFG$A O4$b$a$bC$b$agf1e$bC$DC$b$ag7$a"
2610[U]"T80O5V10 5b3CDV11$EEFGV12N7_1$AO6$a$bC$b$agfO5N7$E7_5_1$b$a$bC7f$e1dfg$agf$ed7_1$afg$agf$ed","O5V9N5f3g$bV10N5C3$a$bV11N1F$EFGF$EDC7_1D$bC$DC$b$ag3f1g$a$b$agfO4$EDC$b3$E$E5$ED7C5$b&3C1D$EF$EDC$b$agf3$b$b","O3V9 1$AFG$AGF$EDC$bC$DC$b$ag5f7$b5f7C3D$b$E$D6C3$b5a5_1$ba$bC$bagf5$b7$E5D6G3F"
2620[U]"T80O5V12 5_1ccd$e5_1f$efg7_3$ag$a$b5_1C$EDC3b1CD$EDC$b$agf$edD$EF3b1CDC$b$ag7_3CD5$E1FC$D$E$DC$b$a5DCO6N1&$a$bC$b$agfO5$AGF$E5_5$AG3$A$E5$A","O4V11 1$bga$b5_1aabC5_3bbCD7_1$EO5$efg5f7g&5d7g5f7_3$b$a1&O4$a$bC$b$agf3g&O5N7F5_1$E$EF$GF$E$DC5$b1&$bCDC$b$ag","O3V11 5E3F$E7_1DD$EF$EDCbCbCDC$b$ag7$a1&gab5_1CCD$E3FF5F$E7$A1&EFGFEDC7_5F1$EC$D$E$DC$b$a3DD5DC$D$E$AF"
2630[U]"T80O5V12 5$AGO6N7CO5N5_1$B$B$AG3F1G$AGF$ED3$E1FG3$A$A1$AG$A$B$AGF$E3F1G$A$B$AGF$EDC$b3$E$E","O5V11 3f1g$a$b$agf3$e1fg3$a4$a1g$a$b7C5$b7$E5D$EC1&O4fg$a5$bO5N1&g$a$b","O4V11 1$a$D$EF5$E1&CD$EDC$b$a7$ED1&C$D$E$DC$b$a7$b5$a1dfg$a5g1&$bC$D"
2640[U]"T80O5V12 5$E1&D$EF7_5$b7$a5g7C5$b7$E5D7$GV11N5F7$E5DV10N7$E5D$DV9T77N1$D$bT72C$DT68C$bT64C$a6_1DT96N3DT60N9$E&","O5V11 1$agf$e5_1ffg$agf$e$dO4G$EFGF$EDC$bO5$a$bC$b$agf7_5$a5g1&cd$ef$agf$ef$edc$edc5D5_6$b3$aV10N1g$bC$DC$b$agV9N3f1g$a$b$agf5$eV8N5_1$a$a$b$C$b$ag$af9g&","O4V11 1C$b$ag$agf$e3d1$ef$edcO3$b5_1$agf$ed&3&5$E1$EC$D$E$DC$b$a$EDC$b$AGF$E7_7$B1$BF$ED$EFG$A7$bV10N5$E7$A5GO4V9N7CV8N7_1$C9$b&"
2650 REM fugue
2660[U]"T103O5UX3000W0 1$bgfg$e$ag$a3C$b&1af3$ED10CDC10DCD1$bFD$b$aFD$a3g$AGF1$ECD$E5_1F$EFG$AF$a$A3G1$EGO6N5_3CO5N1DF5_3$B1C$E3$AG","9&&V13O4N1$EDCD$b$ED$E3GF&1D$b3$AG5F1$E$BGF$EO5CO4AFDAF$E$D$BG$ECGFCDO5$b$eC"
2670[U]"T103O5UX3000W0 5F3GD6$E3F6G3A7_1$B$BG$E$D$BG$D3C$E5_1$A$AFDC$AFC3$bD5_5_1GCD$E6F3_1$EDCD$b$ED$E3GF&1D$b","O5V12 3D$DC$b1$ag$a$b5_1C$bCD$ECf$E3DFD$b$E&5&3&$EC$aD&5&3&D$bgC$b5_1$aC$b$a5gf5_3$b1$ag3$af","O4V12 1$bgfg$e$ag$a3C$b&1af3$ED5C1$bFD$b$aFD$a3g$E&$e1$a$EC$ag$EDg3fD&d1gD$bgf$D$bfeCgefC$afd$bfd$e$bg$eO3N3$b$AO4gf1$ecd$e5f"
2680[U]"T103O5UX3000W0 3$AG5_1F$BG$E$D$BG$D3C$A&$a1D$AFDC$AFC3bG&$a1CGEC$bGE$baGCa$aFD$agFDbg$ECg#f$ECafDbfeDbg$eCg$e","O5V12 3d5$E3D$E&5_1$eO4$EC$ag$ECg3f$a5_1DDbgfDbf3eg7C3bCD&5&9&","O4V12 1f$efg$afO3$bO4$a3g$bg$e$a&5&3&$afdg&5&3&g$ecO3F$EDCbgC$baABGO4Cg$a$e"
2690[U]"T103O5UX3000W0 1dC$afdbab3CF$ED1CabC5_1DCD$EFDgF$EG$EDCO6C$afO5DFDC$b$BG$EC$EC$b$a$AFD5b5_3Cb1CbCD3$EDE#F","7&O4V12N1C$b$a$bgCbC3$ED&1bg3F$E10D$ED10$ED$E1CbC$E5_3$A1$bD5_3G1$aC5_1FG5$A3G1F$EFG5_1AO5ga$bCadC","O4V12N3f1$efO3N3GgC&5&9&&7&1G$EDECF$EF3$AG&1#FDO4N3C$b5a"
2700[U]"T103O5UX3000W0 1GDCD$bEDE3GF5&1FC$bC$aDCD3F$E5&1&$b$EC5$D1&CFD5$E1&DG$E5F1&$EG$B$AF$bG3F$AGF1$ECD$E5_1F$EFG$AF$b$AG$BG$E5$D","O5V12N5$b5_1$b$DC$b$agfg5$a5_1$aC$b$afg$ef5g1&$bg$eO4N3$a&O5N1&CafO4N3$b&1&O5Dbg3c&5&3&F$E$a$b1$ag$aD$bf3d5$e3d$e&1&$bg$e","O4V12 1g$ba$bgafgeC$afcfcO3$afO4$ag$afg$efd$bg$eO3$b$E$bgV13N3$e$EV12FG$AV13FV12GAV13$BGV12ABO4CV13cdV12$e1$edcdO3$b$ED$EV13N3GF&V12N1D$b3$AG5F3$Eefg"
2710[U]"T103O6UX3000W0 1cC$af5$e1dO5FD$b5_1$agfg$e$ag$a3C$b&1af3$ED10CDC10DCD3$bFD$bX13000N7_3$BX3000$EC$aX13000N7_3$AX3000D$bg","O4V12N3$a&1&O5C$agO4N3$b&1&FD$b3$e$DC$b1$ag$a$b5_1C$bCD$ECf$E3D&5&1&O5$b$EG$D$b$DG3C&5&1&$aDFC$aCF3$b&5&","O3V12N3$afga$b$bCD7_5_1$ED$EF4G1F3$EF1$bFD$b$aFD$aV13N3gG&$eV12N1$a$EC$ag$ECgV13N3fF&$eV12N1gD$bgfD$bf"
2720[U]"T103O5UX6000W0 5_1GX3000CD$EF$EDC$b$a$bC5f3&f$ED5&V12N3F5$E3D1$EG$EC5_1$aT97FDV11T90$a3gT83$E5gfV10T74N7_8$e","3&O5V11$b7$a3g3_1$edcdO4$b$ED$EV12N3$GF1&V11FD$b3$AG10FGF10GFG5$E3&F6$b3_1FD$E3$b1CD$agV10N4$DC1$CV9N8$b","O3V12N1eCgefC$agd$bfd$e$bg$e3$bFD$bA$A1&$AFD3$b$E$BBO4N5_1CC$af3dO3$b1&$EC$a7$bO4V11N1$a$D$b3g1$a3fV10N8g"
3000 REM Prelude & Fugue n. 2 in C minor BWV 847
3010 GO SUB 9000: GO SUB 9900: PRINT AT 14,21;"Prelude &";AT 15,21;"Fugue n. 2";AT 16,21;"in C minor";AT 17,21;"BWV 847"; INK 2;AT 19,20;"Press a key"
3020 IF INKEY$="" THEN GO TO 3020
3030 PRINT AT 19,20;" "
3040[U]"T144O5(V13N1CV12$ed$ec$ed$e)(V13$aV12fefcfec)(bf$efdf$ef)(Cgfg$egfg)V11$E$ag$a$e$ag$aV10$E$ag$a$e$ag$aV9(D#fe#fd#fe#f)V11Dg#fgdg#fgV10Dg#fgdg#fgV9(Cedecede)V11(Cfefcfef)($af$efdf$ef)","O4(V12N1cV11gfg$egfg)(V12cV11$ag$af$ag$a)(c$ag$af$ag$a)(c$ed$eg$ed$e)V10cC$bC$aC$bCV9cC$bC$aC$bCV8(caga#faga)O3V10$b$BA$BG$BA$BV9$b$BA$BG$BA$BV8($bGFGEGFG)V10($a$AG$AF$AG$A)($aDCDFDCD)"
3050[U]"T144O5V11N1$bgfg$egfgV10$bgfg$egfg($agfg$egfg)V9($adcdO4$bO5dcd)O4(G$ba$b$E$ba$b)V10FC$bC$aC$bCV11FC$bC$aC$bCV12((FDCDbDCD))","O3V10N1g$ED$EG$EDEV9g$ED$EG$ED$EO4(c$ede$a$ed$e)V8(df$ef$af$ef)($egfg$agfg)V9eagafagaV10eagafagaV11(df$ef$af$ef)(cfef$afef)"
3060[U]"T144O4V13(1$ECbCgC$bC)V14($e$ED$EF$ED$E)(#fCbC$EC$bC)($ECbCgC$bC)(#FCbCaCbC)(GCbCDCbC)V13($ACbCDCbC)","O4V12(1c$ed$ef$ed$e)O3V13($aCbCDCbC)(a$ED$EC$ED$E)(g$ED$EF$ED$E)(g$ED$EC$ED$E)(g$ED$EF$ED$E)V12(g$ED$EF$ED$E)"
3070[U]"T144O3V14N1gbDF$AFEFO4bfDb$af$efO3gC$EGO4Cg#fg$ECG$EC$ag$aO3ga#FO4C$ECbC#FCA#F$EC$bC"
3080[U]"T156O5N1&V14DCD$ECbCaCbCDbabgbabCaga#fagabg#fgdGFG$AF$EFDF$EFG$ED$EC$ED$EFDCDbDCD$ECbCgCbC$aF$EFg$ED$EfDCDT149$eCbCT142$af$efT135g$ed$eT127fdcd","O3V14N9_1gO4DCD$ECbCaCbCDbabgbabC$ag$afagabgfg$eGFG$AF$EFDF$EFG$ED$EC$ED$EFDCD$ECbCDbabC$EDEfDCD$eCbCdbab"
3090[U]"T142O4V11N3cg$bC7EO5T162N1ecdefg$a$bC$b$agT156N3f1ge","O4N3&V10cg$b7C","O4N3&&V10cg7$b"
3100[U]"T142O4V11N3cf$aC7FT162N1FGFEFG$AGF$ED$EFD$EF","O4N3&V10cf$a7C","O4N3&&V10cf7$a"
3110[U]"T132O4V11N4b1df$agfbfDfb$agfe$D$bgCT123$af$agT118$bg$e$aT111fdfT104egecfdO3bD&&&DEGT97$BGO4$aT92CFDFT83$AO5CbT74Cgfd8e9&","O3N1&V9c3b8b9C7cc8c8C9&","O3N1&V10N4c8c9C7&1&g3C5_8C8G9&"
3115 REM fugue
3120[U]"T90O5N3&UX2400W0N1Cb3Cg$a1Cb3CDg1Cb3CD1fg5$a1gf$eCbagf$ed3c$EDC$ba$bC#fga#f5g1&cd$efg3_1$ad$ef ga3_1$b$efg$agf$e3d1Cb","9&&3&V12O5N1G#F3GC$E1G#F3GAD1G#F3GA1CD5$E1DC3$b1$ED3$Eg$a1F$E3Fa$b1GF3GbC1D$E5F"
3130[U]"T90O5UX2400W0 5C&3&F$ED&$agfg1f$e3fd5g3&bC1Cb3Cg5$a3&a$b1$ba3$bf5g3&g$a$agf&$a$bC&1$ag3$af","V12O5N3F1$EDC$b$ag3f$AGF$ED$EFbCDbC1G#F3GD5$E3&EF1FE3FC5D3&D$E1$ED3$E$bC1$ED3$EF$b1$ED3$EF1$a$b5C1$b$a","3&V13O4N1Cb3Cg$a1Cb3CDg1Cb3CD1fg5$a1gf$eCbagf$edcd$edcO3$b$agf$B$AGF$EDC$bCDC$b$agf$e$AGF$E$DC$b3$aO4C$b$agfg$ad$efd"
3140[U]"T90O5UX2600W0N1g$efg$a$bCD$EDCD$EFGA$Bfg$a$bCDEF$ED$EFGABO6N3C1baO5GF$ED3C$EDC$ba$bC#fga#fg1DC3D&&1ED3E&&1#FE3#F&&1gf3g&&1ag3a&&1ba3b&","O4V12N3$bC$b$a$bgf$ef$DC$bC$agfg1G#F3GC$E1G#F3GAD1G#F3GA1CD5$E1DC3$b&1&DE#FGA3_1$B$EFGA$BO5N3_1C#fga3$b1$edO4N3$Eg$a1F$E3Fa$b1GF3Gb","O4V13N3$e$agfg$edcd$b$ag$af$ed$e&&&&O3C$ba&$EDCD1C$b3CDg1$BA3$BDO4$e1C$b3Cef1DC3D#f5g1&O3gabCD3_1$Ea$bCD$E3_1FbCD"
3150[U]"T90N3&O5UX2600W0N1Cb3Cg$a1Cb3CDg1Cb3CD1fg5$a1gf3$e1Cb3Cg5$a3&a$b1$ba3$bf6g3gg1$a$bCbC$a7f","O4V12N1CF$EDC$b$ag3f$AGF$ED$EFbCDb5C3&EF1FE3FC5D3&D$E1$ED3$E$b7_3C1D$EF$EFD","O4V13N3$e&&efO3f$ed&$agfg1f$e3fg1CD$EDC$b$agf$B$AGF$EDC$bCDC$b$agf$e$AGF$EDC$b$a$bC$b$agf$edGF$EDCba"
3160[U]"T90O5UX2600W0N3f1DC3Df$e1$ED3$Egf1F$E3F$a1gF$EDCbag3CF$ED&$agfg1f$e3fd$ag&a","O4V11N3b&&bC&&$ED&&FF&&FE$AGF$ED$EFbCD5b3C&C","O3V12N5g&1&gabCDEFGF$AGF$EDC3b1Cb3Cg$a1Cb3CDg1Cb3CD1gf5$a1gf5f3&$E"
3170[U]"T88O5UX2700W0N3bC1f$edc3cV12N1CT80b3CgT75$a1Cb3CDT70g1Cb3CT66D1fV11T60g5$a1gfV10N8e5&","O4V11N1FD$E1_3Cb5C3&EV10N5F3&3_3F1$ED3$EFV9D&b&V8N8g5&","O3V12N3DCGgV10N7_9_7CV9N8C5&"
3500 REM Menuet BWV Anh. 114
3510 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Menuet";AT 15,20;"in G major";AT 16,20;"BWV Anh. 114";AT 18,20; INK 2;"Press a key"
3520 IF INKEY$="" THEN GO TO 3520
3530 PRINT AT 18,20;" "
3540[U]"T127O5UX5000W0(5D3gabC5DggE10CbC3DE#F5Ggg10CbC3CDCba5b3Cbag5#f3gabg5b7a5D3gabC5DggE10CbC3DE#F5Ggg5C3DCba5b3Cbag5a3bag#f8g)","V11(O4N5D&5a8bCbag5DbgD3dCba5b&agbg8C5b3Cbag5a&#fg&bCDd7gO3N3g&)","O4V12(7g5&8&&&&&&&&&&&&&&&)"
3550[U]"T127O5UX5000W0N5B3GABG5A3DE#FD5G3E#FGD5#C3b#Ca&ab#CDE#F5G#FE#Fa#C7D5&D3g#f5gE3g#f5gDCb3ag#fg5a3de#fgab5C11bCb5a3bD5g#f7g5&5B3GABG5A3DE#FD5G3E#FGD5#C3b#Ca&ab#CDE#F5G#FE#Fa#C7D5&D3g#f5gE3g#f5gDCb3ag#fg5a3de#fgab5C11bCbT120N5aT114N3bDT106N5gT96#fT89N8g","V12(O4N8g#f5ege7aO3N5a8AO4N5bD#CD#faDdC7b5b7C5Cbag7D5&7d5&eg#fgO3NbDGDg)","O4N8&&&&&&&&5&V12N7D5&7E8&&7&5f8&&& &&&&&&&&5&7D5&7E8&&7&5f8&&V11b"
4000 REM Badeneire from Suite n. 2 in B minor BWV 1067
4010 GO SUB 9000: GO SUB 9900: PRINT AT 14,20;"Badinerie";AT 15,20;"from the";AT 16,20;"Suite n. 2";AT 17,20;"in B minor";AT 18,20;"BWV 1067";AT 20,20; INK 2;"Press a key"
4015 IF INKEY$="" THEN GO TO 4015
4020 PRINT AT 20,20;" "
4040[U]"T133O6V13N3b1Db3#f1b#f3d1#fdO5N5b1#fbDb#Cb#Cb#a#CE#C3DbO6N3b1Db3#f1b#f3d1#fdO5N5b(1D#C3D)BD10DED3#CO6(1#f#e3#f)D#f10#fg#f3#e1#c#fa#f","O5V12N3#f&d&O4b&5#f3bD#C#C#aEDD#F&D&b&5#f3#f#fbb#ge#CaaD#gbb#g#e#g#fa","O3V13N3bbDb#FDB#FDbE#C#Ff1b#CD#C3bbDb#FDB#FBO4N1Db3#g1b#g3e1#ge3a1#Ca3D1#FD3b1Db3#g1b#g#CD#Cb3a#f"
4050[U]"T133O6V13(1#g#f)#e#gb#g(a#g)#fa#f#e#fb#f#e#f#C#f#e#fD#f#e#fD#Cb#Ca#g#f3a10#ga#g5#f","O5V12N3DD#Cb #fa#C#C #fbba b#gbD #FD#Cb 5a","O3V13N3B#GO4#CO3#C#F#f#FADB#CO4#CO3bO4Db#gab#C#c5#f"
4060[U]"T133O6V13N3b1Db3#f1b#f3d1#fdO5N5b1#fbDb#Cb#Cb#a#CE#C3DbO6N3b1Db3#f1b#f3d1#fdO5N5b(1D#C3D)BD10DED3#CO6(1#f#e3#f)D#f10#fg#f3#e1#c#fa#f","O5V12N3#f&d&O4b&5#f3bD#C#C#aEDD#F&D&b&5#f3#f#fbb#ge#CaaD#gbb#g#e#g#fa","O3V13N3bbDb#FDB#FDbE#C#Ff1b#CD#C3bbDb#FDB#FBO4N1Db3#g1b#g3e1#ge3a1#Ca3D1#FD3b1Db3#g1b#g#CD#Cb3a#f"
4070[U]"T133O6V13(1#g#f)#e#gb#g(a#g)#fa#f#e#fb#f#e#f#C#f#e#fD#f#e#fD#Cb#Ca#g#f3a10#ga#g5#f","O5V12N3DD#Cb #fa#C#C #fbba b#gbD #FD#Cb 5a","O3V13N3B#GO4#CO3#C#F#f#FADB#CO4#CO3bO4Db#gab#C#c5#f"
4080[U]"T133O5V13N3#F1A#F3#C1#F#C3a1#Ca5#f3CbE1#D#F3A1G#F3GEG1BG3E1GE3#C1E#C5a","O5V12N3#C&a&#f&#c&a&g&#f&e&E&#C&a&5e","O3V13N3#f#fa#f#Ca#F1A#F3#D1#F#D3bbbb3E1BG3E1GE3#CaE#CGE"
4090[U]"T133O5V13N1aD#F(DE)D#CEGE(#FE)D#FD#CDGD#CDAD#CDBD#CDBAGA#FED3#F10E#FE5D(1#FE3#F)O6D#f10#fg#f3e(1ed3e)#Ce10e#fe3d","O5V12N3d#fbgag#f#faagge#fdebEDba#C5D3aDaa#faD#C#f#a#C#a#a#f#Cb","O3V13N3#FBGEAaDdC#FbGaAgBGE#FGAaD1a#f3dO4N1Da3#f1a#f3d1#fd3A1e#cO3N3#aO4N1E#C3#a1#C#a3#f1a#f3b#f"
4100[U]"T133O6V13N3b1DbO5N3A5G10BAG5_3E10G#FE1CEGECbCb3#a#fg#f3b1#a#C3E1D#C3D10bDE3#F1D#F3B#F1ED#CD5b","5&3&O5V12N1bE3e&&1bg3e&&e1gbCb3b#a#C#f#f&#C&b1#fb3D1bD3#Fb#c#f5d","O3V13N3Db(EEEe)EEEeO4N3e1E#C3#a1#C#a(3#f#f)b1Db3#f1b#fO3N3D1bD3#F#f5b"
4110[U]"T133O5V13N3#F1A#F3#C1#F#C3a1#Ca5#f3CbE1#D#F3A1G#F3GEG1BG3E1GE3#C1E#C5a","O5V12N3#C&a&#f&#c&a&g&#f&e&E&#C&a&5e","O3V13N3#f#fa#f#Ca#F1A#F3#D1#F#D3bbbb3E1BG3E1GE3#CaE#CGE"
4120[U]"T133O5V13N1aD#F(DE)D#CEGE(#FE)D#FD#CDGD#CDAD#CDBD#CDBAGA#FED3#F10E#FE5D(1#FE3#F)O6D#f10#fg#f3e(1ed3e)#Ce10e#fe3d","O5V12N3d#fbgag#f#faagge#fdebEDba#C5D3aDaa#faD#C#f#a#C#a#a#f#Cb","O3V13N3#FBGEAaDdC#FbGaAgBGE#FGAaD1a#f3dO4N1Da3#f1a#f3d1#fd3A1e#cO3N3#aO4N1E#C3#a1#C#a3#f1a#f3b#f"
4130[U]"T133O6V13N3b1DbO5N3A5G10BAG5_3E10G#FE1CEGECbCb3#a#fg#f3b1#a#C3E1D#C3D10bDET129N3#F1D#FT118N3B#FT109N1ET103DT96#CT89D9b","5&3&O5V12N1bE3e&&1bg3e&&e1gbCb3b#a#C#f#f&#C&b1#fb3D1bD3#Fb#c#f9d","O3V13N3Db(EEEe)EEEeO4N3e1E#C3#a1#C#a(3#f#f)b1Db3#f1b#fO3N3D1bD3#F#f9b"
4140 GO SUB 9000: GO SUB 9900
4150 REM end of repertoire
7000 REM menu
7010 PRINT AT 14,22;"MENU:";AT 16,20;"1. PLAY ALL";AT 17,20;"2. EXIT"
7020 LET a$=INKEY$: IF a$<"1" OR a$>"2" THEN GO TO 7020
7030 IF a$="1" THEN GO SUB 9900: GO TO 20
7040 IF a$="2" THEN GO SUB 9900: GO TO 9600
7050 GO TO 7020
9000 FOR x=1 TO 250: NEXT x: RETURN
9600 REM return to BASIC
9610 PRINT INK 2;AT 14,20;"CREDITS:";AT 15,20;"Arr. and";AT 16,20;"code by:";AT 17,20;"Neil Parsons": PAUSE 1: FOR t=10 TO 0 STEP -1: PRINT INK 1;AT 19,20;"Reset";AT 20,20;"Countdown ";t;(" " AND t<10): PAUSE 47: NEXT t: RANDOMIZE USR 0
9900 FOR x=13 TO 21: PRINT PAPER 8; BRIGHT 8;AT x,20;" ": NEXT x: PRINT #0; PAPER 8; INK 0; BRIGHT 8;AT 0,20;" ";AT 1,20;" ": RETURN
9996 REM saving program
9997 SAVE "main" LINE 5
9998 REM if passing this program to +2A/+3 disk, don't forget to move loader and screen$ into it,modifying as the loader as the files' names
9999 REM Tape & Disk physical copies will be available someday
