ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE PRINT 'REPORT$ : END
      
      REM Toccata pour Grand Orgue by Théodore Dubois
      REM Transcribed by Richard Russell, 03-Oct-2025
      
      VDU 23,22,960;540;8,16,16,128+8
      COLOR 1,255,255,240
      COLOR 129
      CLS
      OSCLI "FONT """ + @lib$ + "DejaVuSansMono"",10"
      *TEMPO 133
      *STEREO 0,-84
      *STEREO 1,-42
      *STEREO 2,42
      *STEREO 3,84
      *VOICE 0,5
      *VOICE 1,5
      *VOICE 2,5
      *VOICE 3,5
      SOUND 1,0,0,10
      
      ENVELOPE 1,1,0,0,0,0,0,0,64,0,0,-8,127,89
      ENVELOPE 3,1,0,0,0,0,0,0,64,0,0,-4,69,39
      ENVELOPE 4,1,0,0,0,0,0,0,64,0,0,-4,69,39
      ENVELOPE 5,1,0,0,0,0,0,0,64,0,0,-4,119,89
      ENVELOPE 6,1,0,0,0,0,0,0,64,0,0,-4,119,89
      ENVELOPE 7,1,0,0,0,0,0,0,64,0,0,-4,99,59
      
      DIM snd{(3,50)a&,e&,p&,d&}, p%(3), q%(3), cli$(3), envel%(3)
      DIM cmajor&(7), scale%(7), acc%(7), flat&(7), sharp&(7)
      cmajor&() = 88,96,52,60,68,72,80
      flat&() = 0, &02, &12, &13, &1B, &5B, &5F, &7F
      sharp&() = 0, &A0, &A4, &E4, &EC, &ED, &FD, &FF
      dur% = 24
      envel%() = 5
      tempo = 2
      REPEAT
        REPEAT
          READ R$ : IF R$="" REPEAT WAIT 4 : UNTIL FALSE
          T$ += R$ : IF RIGHT$(T$) = "\" T$ = LEFT$(T$)
        UNTIL RIGHT$(R$) <> "\"
        PRINT R$
        acc%() = scale%()
        clef% = 48 : voice% = 1
        p%() = 0 : q%() = 0
        WHILE T$<>""
          I% = 1 : WHILE INSTR("0123456789",MID$(T$,I%,1)) I% += 1 : ENDWHILE
          IF I% > 1 dur% = VALLEFT$(T$,I%-1) : T$ = MID$(T$,I%)
          C$ = LEFT$(T$,1) : T$=MID$(T$,2)
          CASE C$ OF
            WHEN " ":
            WHEN ";": T$ = ""
            WHEN "[": T$ = ""
            WHEN "P": T$ = MID$(T$,2)
            WHEN "=": beat% = 0
              WHILE ASC(T$)>=&30 AND ASC(T$)<=&39 beat% = beat% * 10 + ASC(T$)-&30
                T$ = MID$(T$,2) : ENDWHILE
              WHILE ADVAL(-5)<16 OR ADVAL(-6)<16 OR ADVAL(-7)<16 OR ADVAL(-8)<16
                WAIT 1 : ENDWHILE
              CASE TRUE OF
                WHEN beat% <= 60  tempo = 3 : *TEMPO 130
                WHEN beat% <= 70  tempo = 4 : *TEMPO 131
                WHEN beat% <= 100 tempo = 3 : *TEMPO 131
                WHEN beat% <= 120 tempo = 4 : *TEMPO 133
                WHEN beat% <= 130 tempo = 3 : *TEMPO 132
                WHEN beat% <= 150 tempo = 2 : *TEMPO 131
                WHEN beat% <= 170 tempo = 3 : *TEMPO 133
                WHEN beat% <= 200 tempo = 2 : *TEMPO 132
                WHEN beat% <= 255 tempo = 2 : *TEMPO 133
              ENDCASE
            WHEN "T": acc%() = scale%() : clef% = 48
            WHEN "S": acc%() = scale%() : clef% = 0
            WHEN "V": acc%() = scale%() : voice% = ASC(T$) - &30 : T$=MID$(T$,2)
              voice% AND= 3
            WHEN "W": wave% = VAL(T$) : T$ = MID$(T$,2)
              WHILE ADVAL(-5-voice%)<16 WAIT 1 : ENDWHILE
              cli$(voice%) = "voice " + STR$voice% + "," + STR$(wave%)
              envel%(voice%) = wave%
            WHEN "K": key% = ASC(T$) - &30 : T$=MID$(T$,2)
              scale%() = 0
              IF key% THEN
                key$ = LEFT$(T$,1) : T$=MID$(T$,2)
                CASE key$ OF
                  WHEN "#": key& = sharp&(key%)
                  WHEN "b","&": key& = flat&(key%)
                ENDCASE
                FOR I% = 0 TO 6
                  IF key& AND (2^I%) scale%(I%) = -4 : IF key& AND &80 scale%(I%) = +4
                NEXT
              ENDIF
              acc%() = scale%()
            OTHERWISE
              Note% = INSTR("ABCDEFG$",C$)-1
              IF Note% < 0 ERROR 100, "Unrecognised command "+C$
              octave% = 0
              staccato = 0
              ticks% = dur% / tempo
              REPEAT
                CASE LEFT$(T$,1) OF
                  WHEN "#": acc%(Note%) = 4
                    IF MID$(T$,2,1) = "#" acc%(Note%) = 8 : T$=MID$(T$,2)
                  WHEN "%": acc%(Note%) = 0
                  WHEN "&","b": acc%(Note%) =-4
                  WHEN "+": octave% += 48
                  WHEN "-": octave% -= 48
                  WHEN ".": ticks% = dur% / tempo * 3/2
                  WHEN ":": ticks% = dur% / tempo * 2/3
                  WHEN ",": staccato = 1/3
                  WHEN "'":  staccato = 1/3
                  WHEN """": staccato = 1/6
                  OTHERWISE: EXIT REPEAT
                ENDCASE
                T$=MID$(T$,2)
              UNTIL FALSE
              pitch% = cmajor&(Note%) + acc%(Note%) + clef% + octave%
              IF Note% = 7 pitch% = 0
              IF pitch% < 0 OR pitch% > 255 ERROR 100, "Pitch out of range: "+STR$pitch%
              IF ticks% < 0 OR ticks% > 254 ERROR 100, "Duration out of range: "+STR$ticks%
              gap% = INT(ticks% * staccato) + 0.5
              snd{(voice%,p%(voice%))}.e& = envel%(voice%)
              snd{(voice%,p%(voice%))}.p& = pitch%
              snd{(voice%,p%(voice%))}.d& = ticks% - gap%
              p%(voice%) += 1
              IF gap% THEN
                snd{(voice%,p%(voice%))}.p& = 0
                snd{(voice%,p%(voice%))}.d& = gap%
                p%(voice%) += 1
              ENDIF
          ENDCASE
        ENDWHILE
        WHILE ADVAL(-5)=0 OR ADVAL(-6)=0 OR ADVAL(-7)=0 OR ADVAL(-8)=0
          WAIT 1
        ENDWHILE
        IF p%(0)<>q%(0) OR p%(1)<>q%(1) OR p%(2)<>q%(2) OR p%(3)<>q%(3) THEN
          SOUND &300,0,0,0 : SOUND &301,0,0,0 : SOUND &302,0,0,0 : SOUND &303,0,0,0
          FOR v% = 0 TO 3
            IF cli$(v%)<>"" OSCLI(cli$(v%)) : cli$(v%) = ""
          NEXT
          REPEAT
            stall% = TRUE
            FOR v% = 0 TO 3
              IF q%(v%) < p%(v%) IF ADVAL(-5-v%) THEN
                stall% = FALSE
                IF snd{(v%,q%(v%))}.p& = 0 THEN
                  SOUND v%+&1000,snd{(v%,q%(v%))}.e&,0,snd{(v%,q%(v%))}.d&
                ELSE
                  SOUND v%,snd{(v%,q%(v%))}.e&,snd{(v%,q%(v%))}.p&,snd{(v%,q%(v%))}.d&
                ENDIF
                q%(v%) += 1
              ENDIF
            NEXT v%
            IF stall% WAIT 1
          UNTIL p%(0)=q%(0) AND p%(1)=q%(1) AND p%(2)=q%(2) AND p%(3)=q%(3)
        ENDIF
      UNTIL FALSE
      END
      ;
      DATA "[Toccata pour Grand Orgue by Théodore Dubois"
      DATA "[Transcribed by Richard Russell, 03-Oct-2025"
      DATA K1#
      DATA =250
      DATA V1W5V2W5V3W5V4W5
      
      DATA [Page 1
      
      DATA TV1 12 D+ SV3 D V4 D [Bar 1
      DATA TV1 6 G+GD+GE+GC+G SV3 12 G- V2 GBC+A V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 24 D 12 E SV3 GB-CC+ V4 $$$D
      DATA TV1 6 GDC#EDFEG SV2 12 BAAA V3 GGFC#
      DATA TV1 6 FDC#EDFEG SV2 12 AAAA V3 DGFC#
      
      DATA TV1 6 FADFEGC#E SV2 12 AABG V3 DFGA- [Bar 7
      DATA TV1 6 DFAD+F+E+D+D+ SV2 12 F$$D V3 D$$D
      DATA TV1 6 G+GD+GE+GC+G SV2 12 GBC+A V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 24 D 12 E SV3 GB-CC+ V4 D
      DATA TV1 6 GDB-DCEDF% SV2 12 BGGG V3 GF%EB-
      
      DATA [Page 2
      
      DATA TV1 6 EDC#EDFEG SV2 12 GAAA V3 CGF#C# [Bar 13
      DATA TV1 6 FED#FEGFA SV2 12 ABBB V3 DAGD#
      DATA TV1 6 GBE+G+B+G+E+D+ SV2 12 B'B$B V3 EG$E
      DATA TV1 6 C+#F+E+F+D+F+C+F+ SV2 12 A# TA-#B-E SV3 F T FFF
      DATA TV1 6 BF+E+F+D+F+C+#F+ V2 12 FFFF V3 DA-#B-E
      DATA TV1 6 BD+F+BB+A+G+F+ V2 12 F'F$B' V3 D'D$D
      
      DATA TV1 6 G+F+G+E+A+G+F+E+ V2 12 B'B$A' V3 ED$C# [Bar 19
      DATA TV1 6 F+E+F+D+G+F+E+D+ V2 12 A'A$G' V3 DC#$B-
      DATA TV1 6 E+D+E+C+#F+E+D+C+ V2 12 G'G$F' V3 C#B-$A#-
      DATA TV1 6 D+C+#D+BD+C+D+B V2 12 F'F$F V3 B-'B-$B- V4 A-
      DATA TV1 6 D+C+#D+BD+C+D+B V2 12 $F$E# V3 $B-$B- V4 $G#-$G%-
      DATA TV1 6 F+D+C#+BD+C+BA# SV2 12 F+$E+$ V3 D+$C#+$ V4 B$F$
      
      DATA TV1 12 B'B$D+ SV2 F+'F+$D V3 B'B$$ V4 B-'B-$D [Bar 25
      DATA TV1 6 G+GD+GE+GC+G SV2 12 GBC+A V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 12 D$E$ SV3 GB-CC+ V4 D
      DATA TV1 6 GDC#EDFEG SV2 12 BA'A'A V3 GGFC#
      DATA TV1 6 FDC#EDFEG SV2 12 A'A'A'A V3 DGFC#
      
      DATA [Page 3
      
      DATA TV1 6 FADFEGC#E SV2 12 AABG V3 DFGA- [Bar 31
      DATA TV1 6 DFAD+F+E+D+D+ SV2 12 F$$D V3 D$$D
      DATA TV1 6 G+GD+GE+GC+G SV2 12 GBC+A+ V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 12 D$E$ SV3 GB-CC+ V4 $$$D
      DATA TV1 6 GDB-DCEDF% SV2 12 BGGG V3 GF%EB-
      
      DATA TV1 6 EDC#EDFEG SV2 12 GAAA V3 CGF#C# [Bar 37
      DATA TV1 6 FED#FEGFA SV2 12 ABBB V3 DAGD#
      DATA TV1 6 GBE+G+B+G+E+D+ SV2 12 B'B$B V3 EG$E
      DATA TV1 6 C#+F+E+F+D+F+C+F+ SV2 12 A# T FFF SV3 F T A#-B-E
      DATA TV1 6 BF+E+F+D+F+C#+F+ V2 12 FFFF V3 DA#-B-E
      DATA TV1 6 BD+F+BB+A+G+F+ V2 12 F'F$B V3 D'D$D
      
      DATA TV1 6 G+F+G+E+A+G+F+E+ V2 12 B'B$A' V3 ED$C# [Bar 43
      DATA TV1 6 F+E+F+D+G+F+E+D+ V2 12 A'A$G' V3 DC#$B-
      DATA TV1 6 E+D+E+C#+F+E+D+C+ V2 12 G'G$F' V3 C#B-$A#-
      DATA TV1 6 D+C#+D+BD+C+D+B V2 12 F'F$F V3 B-B-$B- V4 $$$A-
      DATA TV1 6 D+C#+D+BD+C+D+B V2 12 $F$E# V3 $B-$B- V4 $G#-$G%-
      DATA TV1 6 F+D+C#+BD+C+BA# SV2 12 F+$E+$ V3 D+$C#+$ V4 B$F$
      
      DATA [Page 4
      
      DATA TV1 12 B'B$B SV2 D+'D+ V3 F'F V4 B-'B- [Bar 49
      DATA TV1 12 E+. 6 C+ABC+D+ SV2 12 E+E+E+ V3 C+C+C+ V4 A-A-A-
      DATA TV1 6 E+G+F+E+ 12 F+D+ V2 $C+$A SV3 $D+D+D+ V4 D-D-F-
      DATA TV1 12 BAGA V2 GFEF SV3 6 GD+C+D+BD+AD+ V4 24 G-
      DATA TV1 12 BAGA V2 GFEF SV3 6 GD+C+D+BD+AD+ V4 24 G-
      DATA TV1 12 B$ D+D+ V2 G$AA SV3 6 GD+BD+GD+BD+ V4 24 G- T 12 F%
      
      DATA TV1 24 D+G+ V2 AD+ V3 F%F% SV4 6 GD+BD+GD+BD+ [Bar 55
      DATA TV1 12 G+. 6 Eb+C+D+E+F%+ V2 12 GGG V3 EbEbEb SV4 CCC
      DATA TV1 6 G+Bb+A+G+ 12 A+F%+ V2 $F%F%F% V3 $CCC SV4 $F%-F%-A-
      DATA TV1 12 D+C+BbC+ V2 BbAGA V3 6 Bb-F%EbFDFCF SV4 12 Bb-
      DATA TV1 12 D+C+BbC+ V2 BbAGA V3 6 Bb-F%EbFDFCF SV4 12 Bb-
      DATA TV1 12 D+$F%+F%+ V2 Bb$CC V3 6 Bb-F%DFB-FDF SV4 12 Bb- T Ab
      
      DATA TV1 24 F%+%B+b V2 C+F%+ V3 AbA SV4 6 Bb-F%DFB-FEF [Bar 61
      DATA TV1 12 Bb+. 6 G+Eb+F%+G+Ab+ V2 12 Bb'B$B' V3 G'G$G' V4 Eb'E$E'
      DATA TV1 12 Bb+. 6 G+Eb+F%+G+Ab+ V2 12 G'G$G' V3 Eb'E$E' V4 Db'D$D'
      DATA TV1 6 Bb+G+Eb+G+B+G+E+B+ V2 12 G'G$G' V3 Eb'E$E' V4 C'C$C'
      DATA TV1 6 Ab+F%+Eb+F+A+F+E+F+ V2 12 Ab'A$A' V3 F%'F$F'
      DATA TV1 6 Ab+F%+D+F+A+F+D+A+ V2 12 F%'F$F' V3 D'D$D' V4 Bb-'B-$B-'
      
      DATA [Page 5
      
      DATA TV1 6 G+Eb+D+E+G+E+D+E+ V2 12 G'G$G' V3 Eb'E$E' [Bar 67
      DATA TV1 6 G+Eb+C+E+G+E+C+G+ V2 12 Eb'E$E' V3 C'C$C' V4 A-'A-$A-'
      DATA TV1 6 F+D+C#+D+F+D+G+D+ V2 12 F#$D'E%' V3 D
      DATA TV1 6 A+D+Bb+D+C++D+A+D+ V2 12 F#'G'A'F' V3 48 D
      DATA TV1 6 Bb+D+G+D+B+D+G+D+  V2 12 G'Bb'F%B' V3 48 D
      DATA TV1 6 Bb+C#+G+C#+B+A+B+G+ V2 12 E%'Bb'G'C#+' V3 48 D
      
      DATA TV1 6 F+D+C#+D+F+D+G+D+ V2 24 D 12 D'E' [Bar 73
      DATA TV1 6 A+D+Bb+D+C++D+A+D+ V2 12 F'G'A'F' V3 48 D
      DATA TV1 6 Bb+D+G+D+B+D+G+D+ V2 G'Bb'F%'B' V3 48 D
      DATA TV1 6 Bb+C#+G+C+B+A+B+G+ V2 12 E'Bb'G'C#+' V3 48 D
      DATA TV1 6 D++D+E++D++C++B%+A+G+ V2 12 A V3 F# V4 D
      DATA TV1 6 F+D+A+G+F+E+D+C#+ V2 12 C+ V3 A V4 D
      
      DATA TV1 6 C+AA+G+F+E+D+C#+ V2 12 F V3 D [Bar 79
      DATA TV1 6 C+BC+AF+E+F+D+ SV2 12 $$$D V3 12 $$$D
      DATA TV1 6 G+GD+GE+GC+G SV2 12 G'B'C+'A' V3 G-' V4 G-'
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 12 D$ 6 E SV3 12 GB-CC+ V4 $$$D
      DATA TV1 6 GDC#EDFEG SV2 12 BAAA V3 GGFC#
      
      DATA [Page 6
      
      DATA TV1 6 FDC#EDFEG SV2 12 AAAA V3 DGFC# [Bar 85
      DATA TV1 6 FADFEGC#E SV2 12 AABG V3 DFGA-
      DATA TV1 6 DFAD+F+E+D+D+ SV2 12 F$$D V3 D
      DATA TV1 6 G+GD+GEb+GC+G SV2 12 GBbC+A V3 G- V4 G-
      DATA TV1 6 D+GBbGC+BAC+ V2 12 $$GF SV3 BbGAD
      DATA TV1 6 BbAGBAbGF%A V2 12 D$ 6 Eb SV3 12 GBb-CBb V4 $$$D
      
      DATA TV1 12 G 6 F-A-G-Bb-A-C SV2 12 BbD'D'D' V3 EbCBb-F#- [Bar 91
      DATA TV1 6 Bb-B-A-CB-DCEb SV2 12 DF%'F'F' V3 G-EbDA-
      DATA TV1 6 DCBb-DCEbDF% SV2 12 F%G'G'G' V3 Bb-F%EbB%-
      DATA TV1 6 EbGC+Eb+G+E+C+Bb SV2 12 G'G$G' V3 CEb$C
      DATA TV1 6 AD+C+D+BbD+AD+ SV2 12 FD+'D+'D+' V3 DFGC+
      DATA TV1 6 GD+C+D+BbD+AD+ SV2 12 D+'D+'D+'D+' V3 BbFGC+
      
      DATA TV1 6 GBbD+GG+F%+Eb+D+ SV2 12 D+'D+$G+ V3 Bb'Bb$Bb [Bar 97
      DATA TV1 6 Eb+D+E+C+F%+E+D+C+ SV2 12 G+'G+$F%+ V3 C+Bb$A
      DATA TV1 6 D+C+D+BbEb+D+C+B SV2 12 F%+'F+$Eb+ V3 BbA$G
      DATA TV1 6 C+BbC+AD+C+BA SV2 12 Eb+'E+$D+ V3 AG$F
      DATA TV1 6 BbABGBABG SV2 12 D+'D+$D+ V3 G'G$G V4 $$$F%
      DATA TV1 6 BbABGBABG SV2 12 $D+$C#+ V3 $G$G V4 $E$Eb
      
      DATA [Page 7
      
      DATA TV1 6 D+BbAGBAGF SV2 12 Bb'B$Eb+' V3 D'D$C+' V4 24 D- 12 $G' [Bar 103
      DATA TV1 6 D+BbAGBAGF SV2 12 Bb'B$Eb+' V3 G'G$C+' V4 24 D- 12 $G'
      DATA TV1 6 D+BAGE+C+AG SV2 12 B'B$C+'  V3 G'G$A'  V4 24 D- 12 $G'
      DATA TV1 6 D+BAGF%+D+BG# SV2 12 B'B$TD' SV3 G'G$TB-' SV4 24 D- 12T G#-'
      DATA TV1 6 E+C+BAF%+D+BG# V2 12 C'C$D'  V3 A-'A-$B-' SV4 24 D- 12T A#-'
      DATA TV1 6 E+C+BAG+E+C#+A# V2 12C'C$E'  V3 A-'A-$C#' SV4 24 D- 12T A#-'
      
      DATA TV1 6 F+D+C#+BG+E+C+A# V2 12 D'D$E' V3 B-'B-$C#' SV4 24 D- 12T A#-' [Bar 109
      DATA TV1 6 F+D+C#+BA+E+D+C%+ V2 12 D'D$A' V3 B-'B-$E' SV4 24 D- T12 C%'
      DATA TV1 6 C++G+F+E+B+F+E+D+ V2 12 G'G$B' V3 E'E$F'   SV4 24 D- T12 D'
      DATA TV1 6 A+E+D+C+G+D+C+B V2 12 A'A$G' V3 E'E$D' V4 C'C$B-'
      DATA TV1 6 F+C+BAE+C+BA V2 12 F'F$SC+' TV3 C'C$SA' TV4 A-'A-$SG'
      DATA TV1 6 D+C+BAE+C+BA SV2 12 C+'C+$C+' V3 A'A$A' V4 F'F$G'
      
      DATA TV1 6 D+C+BAE+C+BA SV2 12 C+'C+$C+' V3 A'A'$A' V4 F'F$G' [Bar 115
      DATA TV1 6 D+C+BA 24 G+ SV2 12 C+'C+ 24 C+ V3 12 A'A 24 G V4 12 F'F 24 E
      DATA TV1 24 G+C+ SV2 C+TG SV3 GTG SV4 EA-
      DATA TV1 48 D+D+D+D+ V2 AABB V3 GFGG SV4 DDG-G-
      DATA TV1 24$
      
      DATA K5#
      DATA =250
      DATA V1W3V2W3V3W3V4W3
      
      DATA [Page 8
      
      DATA TV1 24 D+E+F+B V2 72 B' 24 B SV3 72 F+ V4 24 BC+D+G+ [ Bar 122
      DATA TV1 24 C+ 12 D+E+ 24 D+F+ V2 BABC+ SV3 G+ 72 F+ V4 24 E+ C+ BA
      DATA TV1 24 B+F+D+A+ V2 D+C+ 48 B SV3 96 F+ V4 24 GABG
      DATA TV1 42 G+ 6 F+' 48 F+ V2 B 24 A 12 BC+ SV3 24 F+ E#+ 48 F+ V4 48 C+ 24 F 12 GA
      
      DATA TV1 24 D+E+F+B V2 72 B 24 G SV3 72 F+ 24 E+ V4 BC+D+ [Bar 130
      DATA TV1 24 C+ 12 D+E+ 24 D+B V2 GF## GD SV3 E+C+ 48 B V4 24 ADGF
      DATA TV1 24 GBD 12 FE V2 24 DC## 48 B- SV3 48 B 24 FG V4 EE#$C
      DATA TV1 42 C 6 B- 48 B- V2 24 B- 12 A-. 6 B- 48 F- SV3 48 ED V4 F-B-
      
      DATA TV1 24 C+D+E+G+ V2 ABC+D+ V3 12 $ 24 GFE 12 E# V4 $EDC 12 B- [Bar 138
      DATA TV1 24 F+. 12 E+' 24 E+D+ V2 C+ 12 BC+' 24 C+B V3 12 EFFF $ 24 G% 12 F V4 B-A-G-A- 48 B-
      DATA TV1 24 F+G+A%+C++ V2 D+E+F+G%+ V3 12 $ 24 C+ B A% 12 A# V4 $ 24 A%GF 12 E
      DATA TV1 24 B+. 12 A%+' 24 A%+G+ V2 F+ 12 E+F+'F+E+ V3 12 ABBB$ 24 C%+ 12 B V4 EDCD 48 E
      
      DATA [Page 9
      
      DATA TV1 24 B+F+'F+E+ V2 96 B V3 12 $ 24 F 12 F## 48 G V4 48 DC [Bar 146
      DATA TV1 24 B+E+'E+D+ V2 48 BA% SV3 12 $ 24 E+ 12 B 48 B# V4 48 GF
      DATA TV1 24 G+B%AB V2 48 GF SV3 12 $ 24 C+D+C+ 12 B V4 72 E 24 D
      DATA TV1 24 D+. 12 C+ 48 F+ V2 E SV3 12 BG 24 A V4 24 C
      
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 6 B+BF+BG%+BE+B V2 12 B-'D'E'C' SV4 B-.' [Bar 154
      DATA TV1 6 B+BF+BG%+BE+B V2 12 B-'D'E'C' SV4 B-.'
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 12 B+ V2 24 DE 48 F V3 24 B-C 48 D V4 96 B-
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 6 B+BF+BG%+BE+B V2 12 B-'D%'E'C' SV4 B-
      DATA TV1 6 B+BF+BG%+BE+B V2 12 B-'D%'E'C' SV4 B-
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 12 B+ V2 24 D%E 48 F V3 24 B-C 48 D% V4 96 B-
      
      DATA K2#
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 6 D++D+A+D+B+D+G+D+ V2 12 $F'G'E' V3 48 A- SV4 12 A- [Bar 162
      DATA TV1 6 A+D+F+D+G+F+E+F+ V2 12 $$D+C+ V3 F'D'E'A- V4 24 A-. 12 A-
      DATA TV1 12 F+'$ V2 A'$ SV3 D+'$
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 24 D+E+ 12 F+G+ V2 24 ABA SV3 D+D+C+ V4 FGA
      DATA TV1 12 F+ V2 A SV3 D+ V4 D
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 6 ADBDGD SV2 12 F'G'E'
      DATA TV1 6 ADFDGFEF V2 12 $$DC SV3 FDEA-
      
      DATA [Page 10
      
      DATA TV1 12 F$ V2 A-$ SV3 D'$ [Bar 168
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 24 AD+AFC+ 42 B 6 A V2 24 EFE 96 D SV3 144 A 24 G# V4 CB-CDB- 48 E
      DATA TV1 12 A V2 C SV3 A V4 A-
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 6 E+AF%+AD+A SV2 12 C+'D+'C+'
      DATA TV1 6 A+AE+AF%+AD+A SV2 12 A'C%+'D+'B' V4 12 A-
      
      DATA K0
      DATA TV1 6 C++C+G+C+A+C+F+C+ V2 12 $E'F'D' V3 48 G- SV4 12 G- [Bar 174
      DATA TV1 6 G+C+E+C+F+E+D+F+ V2 12 $$C+B V3 E'C'D'G-' V4 24 G-.' 12 G-'
      DATA TV1 12 E+'D+'C+'D+' V2 C+'B'A'B' V3 6 CGFGEGDG SV4 12 C
      DATA TV1 12 E+'D+'C+'D+' V2 C+'B'A'B' V3 6 CGFGEGDG SV4 12 C
      DATA TV1 12 E+'$ 24 G+ V2 12 C+'$ 24 D+ V3 6 CGEGCGEG V4 24 $ Bb
      DATA TV1 24 G+C++ V2 D+Bb+ V3 BbG+ V4 6 CGEGCGEG
      
      DATA TV1 48 C++ V2 12 A+'G+'F+'G+' V3 F+'E+'D+'E+' V4 6 FC+BbC+AC+GC+ [Bar 180
      DATA TV1 48 C++ V2 12 A+'G+'F+'G+' V3 F+'E+'D+'E+' V4 6 FC+BbC+AC+GC+
      DATA TV1 12 C++$ 24 C++ V2 12 A+$ 24 G+ V3 12 F+$ 24 Eb+ V4 6 FC+AC+FC+AC+
      DATA TV1 24 C++Eb++ V2 G+C++ V3 Eb+F+ V4 6 FC+AC+FC+AC+
      DATA TV1 12 D++ V2 Bb+ V3 F+ 6 $D+Bb'C+'D+'Eb+' V4 12 BbF$ SBb
      DATA TV1 12 F+ 6 $D+Bb'C+'D+'Eb+' SV2 12 D+'D+$D+ V3 Bb'B'$B V4 A'A$A
      
      DATA [Page 11
      
      DATA TV1 6 F+D+BbD+F+D+BF+ SV2 12 D+'D+$D+ V3 Bb'B$B' V4 G'G$G [Bar 186
      DATA TV1 6 E+D+B%D+E+D+BD+ SV2 12 D+'D+$D+ V3 B'B$B V4 G#'G$G
      DATA TV1 12 E+. 6 C+A'B'C+'D+' SV2 12 E+'E+$E+ V3 C+'C+$C+ V4 A'A$A
      DATA TV1 12 E+. 6 C+ABC+A      SV2 12 E+'E+$E' V3 C+'C+$C+ V4 A'A$A
      DATA TV1 12 B+. 6 G+'E+'F#+'G+'A+' SV2 12 E+'E+$E+ V3 B'B$B' V4 G'G$G
      DATA TV1 12 B+. 6 G+E+F#+G+E+  SV2 12 E+'E+$E+ V3 B'B$B V4 G'G$G
      
      DATA K2#
      DATA TV1 12 E++. 6 D++C++B+A#+B+ SV2 12 C+'C+ V3 A#'A V4 F'F [Bar 192
      DATA TV1 6 C++A#+G+F+G+F+E+D+
      DATA TV1 6 C+BA#GFECB-
      DATA TV1 6 A#- SV2 $ GFE# 12 F V4 24 $ 12 $. F-.
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 24 D#+E+F+B V2 72 B' 24 B V3 72 F 24 G# V4 24 B-CD#G#
      
      DATA TV1 24 C+ 12 D#+E+ V2 24 BA# V3 G#F V4 EC [Bar 198
      DATA TV1 48 D#+' V2 B' V3 F' V4 B-'
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 12 D#'C'B-'C' V2 B-'A#-'G#-'A-' SV3 6 B-FEFD#FCF V4 12 B-
      DATA TV1 12 D#'C'B-'C' V2 B-'A#-'G#-'A-' SV3 6 B-FEFD#FCF
      DATA TV1 12 D# V2 B- SV3 B- V4 24 $ 72 B-
      
      DATA [Page 12
      
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 24 D+E+F+B V2 72 B 24 B V3 72 F 24 G V4 B-CDG [Bar 204
      DATA TV1 24 C+ 12 D+E+ 48 D+ V2 24 BA# 48 B V3 24 GF 48 F V4 24 EC 48 B-
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 12 D'C'B-'C' V2 B-'A#-'G#-'A-' SV3 6 B-FEFDFCF V4 12 B-
      DATA TV1 12 D'C'B-'C' V2 B-'A#-'G#-'A-' SV3 6 B-FEFDFCF
      
      DATA TV1 12 D$ V2 B-$ SV3 F-$ [Bar 210
      DATA V1W3V2W3V3W3V4W3
      DATA TV1 24 C+F+E+ V2 A#BC+ V3 FFF V4 EDA#-
      DATA TV1 12 D+'C+'B'C+' V2 B'A#'G#'A' V3 6 B-FEFDFCF SV4 12 B
      DATA TV1 12 D+'C+'B'C+' V2 B'A#'G#'A' V3 6 B-FEFDFCF
      DATA TV1 12 D+$ V2 B$ V3 B-$
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 24 C+# V2 A# V3 F V4 E
      DATA TV1 12 F+$ 24 C+# V2 12 B$ 24 A# V3 12 F$ 24 F V4 12 D$ 24 E
      DATA TV1 12 F+ C+F+C+ V2 BC+F+C+ V3 F'F'F'F V4 DEDE
      
      DATA TV1 12 F+C+F+ V2 BA#B V3 F'F'F V4 DED [Bar 217
      DATA V1W5V2W5V3W5V4W5
      DATA TV1 12 D+ V3 B SV4 D
      DATA K1#
      DATA TV1 6 G+GD+GE+GC+G SV2 12 G'B'C+'A' V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 24 D 12 E SV3 GB-CC+ V4 $$$D
      DATA TV1 6 GDC#EDFEG SV2 12 B'A'A'A SV3 G'GFC#
      DATA TV1 6 FDC#EDFEG SV2 12 A'A'A'A SV3 D'GFC#
      
      DATA [Page 13
      
      DATA TV1 6 FADFEGC#E SV2 12 A'ABG V3 DFGA- [Bar 223
      DATA TV1 6 DFAD+F+E+D+D+ SV2 12 F V3 D$$D V4 $$$D
      DATA TV1 6 G+GD+GE+GC+G SV2 12 G'B'C+'A' V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 24 D 12 E SV3 GB-CC+ V4 $$$D
      DATA TV1 6 GDB-DCEDF% SV2 12 BG'G'G V3 GF%EB-
      
      DATA TV1 6 EDC#EDFEG SV2 12 GA'A'A' V3 CGF#C# [Bar 229
      DATA TV1 6 FED#FEGFA SV2 12 AB'B'B' V3 DAGD#
      DATA TV1 6 GBE+G+B+G+E+D+ SV2 12 B'B$B V3 EG$E
      DATA TV1 6 C#+F+E+F+D+F+C+F+ SV2 12 A# T F'F'F SV3 F T A#-B-E
      DATA TV1 6 BF+E+F+D+F+C#+F+ V2 12 F'F'F'F' V3 DA#-B-E
      DATA TV1 6 BD+F+BB+A+G+F+ V2 12 F'F$B' V3 D'D$D
      
      DATA TV1 6 G+F+G+E+A+G+F+E+ V2 12 B'B$A' V3 ED$C# [Bar 235
      DATA TV1 6 F+E+F+D+G+F+E+D+ V2 12 A'A$G' V3 DC#$B-
      DATA TV1 6 E+D+E+C#+F+E+D+C+ V2 12 G'G$F' V3 C#B-$A#-
      DATA TV1 6 D+C#+D+BD+C+D+B V2 12 F'F$F V3 B-'B-$B- V4 $$$A-
      DATA TV1 6 D+C#+D+BD+C+D+B V2 12 $F$E# V3 $B-$B- V4 $G#-$G%-
      DATA TV1 6 F+D+C#+BD+C+BA# SV2 12 D+$E+$ V3 B$C#+$ V4 F$F$
      
      DATA [Page 14
      
      DATA TV1 12 B'B$B' SV2 D+'D+ V3 F'F V4 B-'B- [Bar 241
      DATA TV1 12 E+. 6 C+ABC+D+ SV2 24 C+ V3 A V4 A-
      DATA TV1 6 E+G+F+E+ 12 F+'D+' SV2 12 $ 24 D+ 12 D+ V3 12 $ 24 D 12 F V4 12 $ 24 D- 12 F-
      DATA TV1 12 B'A'G'A' V2 G'F'E'F' SV3 6 GD+C+D+BD+AD+ V4 24 G-
      DATA TV1 12 B'A'G'A' V2 G'F'E'F' SV3 6 GD+C+D+BD+AD+ V4 24 G-
      DATA TV1 12 B$ 24 D+ V2 12 G$ 24 F% SV3 6 GD+BD+GD+BD+ V4 24 G-
      
      DATA TV1 24 D+G+ V2 AD+ V3 F%G SV4 6 GD+BD+GD+BD+ [Bar 247
      DATA TV1 12 G+. 6 E+C+D+E+F%+ V2 36 G V3 C SV4 C
      DATA TV1 6 G+Bb+A+G+ 12 A+F%+ V2 $ 24 Eb+ 12 C+ V3 $ 24 C 12 C SV4 $ 24 F%- 12 A-
      DATA TV1 12 D+C+BbC+ V2 BbAGA V3 6 Bb-F%EbFDFCF SV4 24 Bb-
      DATA TV1 12 D+C+BbC+ V2 BbAGA V3 6 Bb-F%EbFDFCF SV4 24 Bb-
      DATA TV1 12 D+$ 24 F%+ V2 12 Bb$ 24 C+ V3 6 Bb-F%DFB-FDF SV4 24 Bb- T Ab
      
      DATA TV1 24 F%+'F+ V2 C+Bb V3 Ab'Ab V4 6 Bb-F%DFB-FDF [Bar 253
      DATA TV1 12 Bb+. 6 G+Eb+F%+G+Ab+ V2 12 Bb'B'$B V3 G'G$G' V4 Eb'Eb$Eb
      DATA TV1 12 Bb+. 6 G+Eb+F%+G+Ab+ V2 12 Bb'B'$B V3 G'G$G' V4 Db'D$D
      DATA TV1 6 Bb+G+Eb+G+B+G+E+B+ V2 12 G'G$G V3 Eb'E$E V4 C'C$C
      DATA TV1 6 Ab+F%+Eb+F+A+F+E+F+ V2 12 Ab'A$A V3 F%'F$F
      DATA TV1 6 Ab+F%+D+F+A+F+D+A+ V2 12 F%'F$F V3 D'D$D V4 Bb-'B-$B-
      
      DATA [Page 15
      
      DATA TV1 6 G+Eb+D+E+G+E+D+E+ V2 12 G'G$G V3 Eb'E$E [Bar 259
      DATA TV1 6 G+Eb+C+E+G+E+C+G+ V2 12 Eb'E$E V3 C%'C$C V4 A-'A-$A-
      DATA TV1 6 F+D+C#+D+F+D+G+D+ V2 12 F#$DE% V3 D$D
      DATA TV1 6 A+D+Bb+D+C++D+A+D+ V2 12 F#'G'A'F' V3 48 D
      DATA TV1 6 Bb+D+G+D+B+D+G+D+ V2 12 G'Bb'F%'B' V3 48 D
      DATA TV1 6 Bb+C#+G+C+B+A+B+G+ V2 12 E%BbGC#+ V3 48 D
      
      DATA TV1 6 F#+D+C#+D+F+D+G+D+ V2 24 D 12 DE V3 24 D 12 DE [Bar 265
      DATA TV1 6 A+D+Bb+D+C++D+A+D+ V2 12 F#'G'A'F' V3 48 D
      DATA TV1 6 Bb+D+G+D+B+D+G+D+ V2 12 G'Bb'F%'B' V3 48 D
      DATA TV1 6 Bb+C#+G+C+B+A+B+G+ V2 12 E'Bb'G'C#+' V3 48 D
      DATA TV1 6 D++D+E%++D++C++B%+A+G+ V2 12 A V3 F# V4 D
      DATA TV1 6 F+D+A+G+F+E+D+C#+ V2 12 C+ V3 A V4 D
      
      DATA TV1 6 C%+AA+G+F+E+D+C#+ V2 12 F V3 D [Bar 271
      DATA TV1 6 C%+BC+AF+E+F+D+ SV2 12 $$$D V4 $$$ D
      DATA TV1 6 G+GD+GE+GC+G SV2 12 G'B'C+'A' V3 G- V4 G-
      DATA TV1 6 D+GBGC+BAC+ V2 12 $$GF SV3 BGAD
      DATA TV1 6 BAGBAGFA V2 24 D 12 E SV3 GB-CC+ V4 $$$D
      DATA TV1 6 GDC#EDFEG SV2 12 BA'A'A V3 G'G'F'C#
      
      DATA [Page 16
      
      DATA TV1 6 FDC#EDFEG SV2 12 A'A'A'A V3 DGFC# [Bar 277
      DATA TV1 6 FADFEGC#E SV2 12 A'ABG V3 DFGA-
      DATA TV1 6 DFAD+F+E+D+D+ SV2 12 F$$D V3 D V4 $$$D'
      DATA TV1 6 G+GD+GEb+GC+G SV2 12 G'Bb'C+'A' V3 G- V4 G-
      DATA TV1 6 D+GBbGC+BAC+ V2 12 $$GF SV3 BbGAD
      DATA TV1 6 BbAGBAbGF%A V2 24 D 12 Eb SV3 GBb-CBb V4 $$$D
      
      DATA TV1 12 G 6 F#-A%-G-Bb-A-C SV2 12 BbD'D'D% V3 EbCBb-F#- [Bar 283
      DATA TV1 6 Bb-B-A-CB-DCEb SV2 12 DF%'F'F V3 G-EbDA-
      DATA TV1 6 DCBb-DCEbDF% SV2 12 F%G'G'G' V3 Bb-F%EbB%-
      DATA TV1 6 EbGC+Eb+G+E+C+Bb SV2 12 G'G$G V3 CEb$C
      DATA TV1 6 AD+C+D+BbD+AD+ SV2 12 FD+'D+'D+ V3 DFGC+
      DATA TV1 6 GD+C+D+BbD+AD+ SV2 12 D+'D+'D+'D+ V3 BbFGC+
      
      DATA TV1 6 GBbD+GG+F%+Eb+D+ SV2 12 D+'D+$G+ V3 Bb'B'$B [Bar 289
      DATA TV1 6 Eb+D+E+C+F%+E+D+C+ SV2 12 G+'G+$F%+ V3 C+Bb$A
      DATA TV1 6 D+C+D+BbEb+D+C+B SV2 12 F%+'F+$Eb+ V3 BbA$G
      DATA TV1 6 C+BbC+AD+C+BA SV2 12 Eb+'E+$D+ V3 AG$F
      DATA TV1 6 BbABGBABG SV2 12 D+'D+$D+ V3 G'G$G V4 $$$F%
      DATA TV1 6 BbABGBABG SV2 12 $D+$C#+ V3 $G$G V4 $E$Eb
      
      DATA [Page 17
      
      DATA TV1 6 D+BbAGBAGF SV2 12 Bb+'B+$C+ V3 G'G$G' V4 D- [Bar 295
      DATA TV1 6 D+BbAGBAGF SV2 12 Bb'Bb$C+ V3 G'G$G' V4 D-
      DATA TV1 6 D+B%AGE%+C+AG SV2 12 B%'B$C+ V3 G'G$A V4 D-$$G
      DATA TV1 6 D+BAGF%+D+BG# SV2 12 B'B T$D SV3 G'G T$B- SV4 D-T$$G-
      DATA TV1 6 E+C+BAF%+D+BG# V2 12 C'C$D V3 A-'A-$B- SV4 D-$$TG#-
      DATA TV1 6 E+C+BAG+E+C#+A# V2 12 C'C$E V3 A-'A-$C# SV4 D-$$TA#-
      
      DATA TV1 6 F+D+C#+BG+E+C+A#  V2 12 D'D$E V3 B-'B-$C# SV4 D-$$TA#- [Bar 301
      DATA TV1 6 F+D+C#+BA+E+D+C%+ V2 12 D'D$A V3 B-'B-$E SV4 D-$$TC%
      DATA TV1 6 C++G+F+E+B+F+E+D+ V2 12 G'G$B V3 E'E$F SV4 D-$$TD
      DATA TV1 6 A+E+D+C+G+D+C+B   V2 12 A'A$G V3 E'E$D V4 C'C$B-
      DATA TV1 6 F+C+BAE+C+BA V2 12 F'F$SC+ TV3 C'C$SA TV4 A-'A-$SG
      DATA TV1 6 D+C+BAE+C+BA SV2 12 C+'C+$C+ V3 A'A$A V4 F'F$G
      
      DATA TV1 6 D+C+BAE+C+BA SV2 12 C+'C+$C+ V3 A'A$A V4 F'F$G [Bar 307
      DATA TV1 6 D+C+BA 24 G+ SV2 12 C'C 24 G V3 12 A'A 24 C+ V4 12 F'F 24 E
      DATA TV1 24 G+C++ SV2 GG+ V3 C+TC+ SV4 ETE
      DATA TV1 48 D++ D++ V2 G+ A+ V3 G A SV4 D D-
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 12 B+'A+'G+'A+' V2 G+'F+'E+'F+' V3 6 GD+C+D+BD+AD+
      
      DATA [Page 18
      
      DATA TV1 12 B+'A+'G+'A+'B+$ V2 G+'F+'E+'F+'G+$ V3 6 GD+C+D+BD+AD+ 12G$ [Bar 313
      DATA V1W5V2W5V3W5V4W5
      DATA TV1 24 C++ V2 G+ V3 E SV4 A-
      DATA TV1 48 A+ V2 D+ V3 24 G+F+ 48 SV4 D
      DATA V1W7V2W7V3W7V4W7
      DATA TV1 12 B+'A+'G+'A+' V2 G+'F+'E+'F+' V3 6 GD+C+D+BD+AD+
      DATA TV1 12 B+'A+'G+'A+'B+$ V2 G+'F+'E+'F+'G+$ V3 6 GD+C+D+BD+AD+12G$
      DATA V1W5V2W5V3W5V4W5
      DATA TV1 24 C++ V2 G+ V3 E SV4 A-
      DATA TV1 48 A+ V2 D+ V3 24 G+F+ 48 SV4 D
      
      DATA [Bar 320
      DATA V4W1
      DATA TV1 24 B+C++ V2 BC+ V3 48 G SV4 24 G-A-
      DATA TV1 48 D++ V2 D+ V3 G SV4 24 B- 12 CD
      DATA TV1 24 B+C++ V2 BC+ V3 48 G SV4 E
      DATA TV1 24 D++G+ V2 D+D+ V3 AB SV4 FG
      DATA TV1 72 A+ 12 B+C++ V2 96 E+ V3 72 A 12 BC+ SV4 24 CB-CA-
      
      DATA TV1 48 A+ V2 D+ V3 D SV4 D [Bar 326
      DATA TV1 42 A+ 6 G+ V2 42 D+ V3 D 6 G SV4 48 D-
      DATA TV1 48 G+ F%+ Eb+ V2 D 24 B-12CD 24 Eb 12 F%G V3 48 G- G- G- SV4 G- G- G-
      DATA TV1 24 F%+Eb+ V2 24 F%F# V3 48 G- SV4 48 G-
      DATA V3W1
      DATA TV1 120 G+ V2 B V3 D SV4 G-
      
      DATA ""