ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END
      
      REM Toccata from Organ Symphony Number 5 by C.M.Widor.
      REM Entered D.J.King 18.2.1981 & R.T.Russell 7.3.1981
      REM BBCSDL version by Richard Russell, 20-Oct-2017
      
      VDU 23,22,960;540;8,16,16,128
      COLOR 1,255,255,240
      COLOR 129
      CLS
      OSCLI "FONT """ + @lib$ + "DejaVuSansMono"",10"
      *TEMPO 131
      *STEREO 0,-127
      *STEREO 1,-42
      *STEREO 2,42
      *STEREO 3,127
      *VOICE 0,5
      *VOICE 1,5
      *VOICE 2,5
      *VOICE 3,5
      
      ENVELOPE 1,1,0,0,0,0,0,0,32,0,0,-32,126,0
      ENVELOPE 2,1,0,0,0,0,0,0,16,0,0,-16,86,0
      ENVELOPE 3,1,0,0,0,0,0,0,16,0,0,-16,70,0
      ENVELOPE 4,1,0,0,0,0,0,0,16,0,0,-16,62,0
      
      DIM snd{(3,50)a&,p&,d&}, p%(3), q%(3), vol%(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
      vol%() = 1, 1, 1, 1
      dur% = 24 : tempo% = 3
      REPEAT
        T$ = ""
        REPEAT
          READ R$ : IF R$="" REPEAT WAIT 10 : UNTIL FALSE
          T$ += R$ : IF RIGHT$(T$) = "\" RIGHT$(T$) = " "
        UNTIL RIGHT$(R$) <> "\"
        PRINT T$
        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 "[": T$=""
            WHEN " ":
            WHEN "=": tempo% = ASC(T$) - &30 : T$=MID$(T$,2)
            WHEN "T": acc%() = scale%() : clef% = 48
            WHEN "S": acc%() = scale%() : clef% = -48
            WHEN "V": voice% = ASC(T$) - &30 : T$=MID$(T$,2)
              IF voice%=4 voice%=0
            WHEN "W": wave% = VAL(T$) : T$ = MID$(T$,2)
            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
              REPEAT
                ok% = FALSE
                CASE LEFT$(T$,1) OF
                  WHEN "#": acc%(Note%) = 4 : T$=MID$(T$,2) : ok% = TRUE
                  WHEN "%": acc%(Note%) = 0 : T$=MID$(T$,2) : ok% = TRUE
                  WHEN "&","b": acc%(Note%) =-4 : T$=MID$(T$,2) : ok% = TRUE
                  WHEN "+": octave% += 48   : T$=MID$(T$,2) : ok% = TRUE
                  WHEN "-": octave% -= 48   : T$=MID$(T$,2) : ok% = TRUE
                ENDCASE
              UNTIL NOT ok%
              lngth% = dur% / tempo%
              IF LEFT$(T$,1)="." lngth% = dur% / tempo% * 3/2 : T$=MID$(T$,2)
              IF LEFT$(T$,1)=":" lngth% = dur% / tempo% * 2/3 : T$=MID$(T$,2)
              pitch% = cmajor&(Note%) + acc%(Note%) + clef% + octave%
              WHILE pitch% < 1 pitch% += 48 : ENDWHILE
              IF Note% = 7 pitch% = 0
              IF pitch% < 0 OR pitch% > 255 ERROR 100, "Pitch out of range: "+STR$pitch%
              IF lngth% < 0 OR lngth% > 254 ERROR 100, "Duration out of range: "+STR$lngth%
              IF voice% < 4 THEN
                IF clef% < 0 vol%(voice%) = 1 ELSE vol%(voice%) = wave%
                snd{(voice%,p%(voice%))}.a& = vol%(voice%)
                snd{(voice%,p%(voice%))}.p& = pitch%
                snd{(voice%,p%(voice%))}.d& = lngth%
                p%(voice%) += 1
              ENDIF
          ENDCASE
        ENDWHILE
        
        SOUND &300,0,0,0 : SOUND &301,0,0,0 : SOUND &302,0,0,0 : SOUND &303,0,0,0
        REPEAT
          stall% = TRUE
          FOR v% = 0 TO 3
            IF q%(v%) < p%(v%) IF ADVAL(-5-v%) THEN
              stall% = FALSE
              SOUND v%,snd{(v%,q%(v%))}.a&,snd{(v%,q%(v%))}.p&,snd{(v%,q%(v%))}.d&
              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)
      UNTIL FALSE
      END
      ;
      DATA "[ Toccata from Organ Symphony Number 5 - C.M.Widor."
      DATA "[ Transcribed by David J. King, 18th February 1981."
      REM DATA ; corrected D.J.King 5.3.81 & R.T.Russell 7.3.81
      DATA K1b W2
      DATA =3
      REM DATA PA
      DATA TV1 12F++E++F++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA 12D++C++D++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA TV2 24AA$12AA24AA$AAA$AAA$A V3 24C+C+$12C+C+24C+C+$C+C+C+$C+C+C+$C+\
      DATA TV4 24F+F+$$E+E+$E+D+D+$D+E+E+$E+
      DATA TV1 12F++E++F++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA 12D++C++D++C++A+F+A+C++ E++B+%E++B+G+F+G+B+\
      DATA TV2 24AA$12AA24AA$AAA$AGG$G V3 24C+C+$12C+C+24C+C+$C+C+C+$C+B%B$B\
      DATA TV4 24F+F+$$E+E+$E+D+D+$D+E+E+$E+
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA 12A+G+A+G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA TV2 24EE$12EE24EE$EEE$EEE$E V3 24GG$12GG24GG$GGG$GGG$G\
      DATA TV4 24C+C+$$B%B$BAA$ABB$B
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA 12A+G+A+G+E+C+E+G+ B+F+#B+F+D+C+D+F+\
      DATA TV2 24EE$12EE24EE$EEE$EDD$D V3 24GG$12GG24GG$GGG$GF#F$F\
      DATA TV4 24C+C+$$B%B$BAA$ABB$B
      DATA TV1 12G+F+#G+D+B%GBD+ A+G+#A+E+C+#AC+#E+\
      DATA 12A+F+%A+F+D+AD+F+ A+G+A+E+C+#AC+E+\
      DATA TV2 24B-%B-$12B-B-24C#C$CDD$DCC$C V3 24DD$12DD24EE$EFF$FEE$E\
      DATA TV4 24GG$$GG$GGG$GGG$G
      DATA TV1 12A+F+A+F+D+AD+F+ B+%A+#B+F+#D+#BD+F+\
      DATA 12B+G+B+G+E+BE+G+ B+A+B+F+D+BD+F+\
      DATA TV2 24DD$12DD24D#D$DEE$EDD$D V3 24FF$12FF24F#F$FGG$GFF$F\
      DATA TV4 24$$$$AA$AAA$AAA$A
      REM DATA ; PAGE 2   BAR 7
      REM DATA PB
      DATA TV1 12B+%G+B+G+E+BE+G+ C++B+C++G+E+C+E+G+\
      DATA 12C++F+C++F+D+C+D+F+ C++A+C++A+F+C+F+A+\
      DATA TV2 24EE$12EE24EE$EDD$DFF$F V3 24GG$12GG24GG$GFF$FAA$A\
      DATA TV4 24$$$$BB$BBB$BBB$B
      DATA TV1 12C++G+C++G+E+C+E+G+ C++#B+C++B+G+C+G+B+\
      DATA 12D++C++D++B+G+D+G+B+ E++D++#E++C++%B+G+B+E++\
      DATA TV2 24EE$EEbE$EGG$GGG$G V3 24AA$AAA$AAA$AAA$A\
      DATA TV4 24$$$$C+#C+$C+D+D+$D+E+E+$E+
      DATA TV1 12F++E++F++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA 12D++C++D++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA SV2 48F+.24F-48E+.24F-48D+.24F-48E+.24F-\
      DATA TV3 24 AA$12AA24AA$AAA$AAA$A TV4 24F+F+$12C+C+24E+E+$E+D+D+$D+E+E+$E+
      DATA TV1 12F++E++F++C++A+F+A+C++ E++D++E++C++A+F+A+C++\
      DATA 12D++C++D++C++A+F+A+C++ E++B+%E++B+G+F+G+B+\
      DATA SV2 48F+.24F-48E+.24F-48D+.24F-48E+.24G-\
      DATA TV3 24AA$12AA24AA$AAA$AB%B$B V4 24F+F+$12C+C+24E+E+$E+D+D+$D+E+E+$E+
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA 12A+G+A+G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA SV2 192C+96C+$\
      DATA TV3 24EE$12EE24EE$EEE$EEE$E V4 24C+C+$$B%B$BAA$ABB$B
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA 12A+G+A+G+E+C+E+G+ B+F+#B+F+D+C+D+F+\
      DATA SV2 48C+.24C-48B%.24C-48A.24C-48B.24D-\
      DATA TV3 24EE$12EE24EE$EEE$EF#F$F V4 24C+C+$$B%B$BAA$ABB$B
      DATA TV1 12G+F+#G+D+B%GBD+ G+F+G+E+C+GC+E+\
      DATA 12G+F+G+D+BGBD+ A+G+#A+E+C+#AC+E+\
      DATA SV2 192G96G$\
      DATA TV3 24B-%B-$12B-B-24CC$CB-B-$B-C#C$C V4 24GG$$GG$GGG$GGG$G
      REM DATA ; PAGE 3  BAR 14
      REM DATA PC
      DATA TV1 12A+G+#A+E+C+#AC+E+ A+G+A+E+C+AC+E+\
      DATA 12B+%F+B+F+D+BD+F+ C++A+C++A+G+C+G+A+\
      DATA SV2 48G.24G-48G.24G-48F.24F-48E.24E-\
      DATA TV3 24C#C$CCC$CDD$DEE$E V4AA$AAA$AAA$AAA$A
      DATA TV1 12D++C++#D++A+F+D+F+A+ D++C++D++A+F+D+F+A+\
      DATA 12B+%A+B+A+F+D+F+A+ C++%B+C++A+F+D+F+A+\
      DATA SV2 192D96D$\
      DATA TV3 24FF$12DD24FF$FFF$FFF$F V4 24AA$$AA$AB%B$BC+C+$C+
      DATA TV1 12B+%A+#B+F+#D+#BD+F+ B+A+B+F+D+BD+F+\
      DATA 12C++#G+C++G+E+C+E+G+ D++B+D++B+A+D+A+B+\
      DATA SV2 48A.24A-48A.24A-48G.24G-48F#.24F-\
      DATA TV3 24F#F$FFF$FGG$GAA$A V4 24B%B$BBB$BBB$BBB$B
      DATA TV1 12E++D++#E++B+%G+E+G+B+ E++D++E++B+G+E+G+B+\
      DATA 12C++B+C++B+G+E+G+B+ D++%B+D++B+G+E+G+B+\
      DATA SV2 192E96E$\
      DATA TV3 24GG$12EE24GG$GGG$GGG$G V4 24B%B$12GG24BB$BC+C+$C+D+D+$D+
      DATA TV1 12C++B+%C++G+E+C+E+G+ C++B+C++G+E+C+E+G+\
      DATA 12D++C++#D++A+F+D+F+A+ E++D++#E++C++%B+%G+B+E++\
      DATA SV2 48B.24B-48B.24B-48A.24A-48G.24G-\
      DATA TV3 24GG$GGG$GAA$ABB$B V4 24C+C+$$C+C+$$D+D+$$E+E+$E+
      DATA TV1 12F++E++F++D++A+F+A+D++ E++D++#E++C++#B+G+B+C++\
      DATA 12D++C++D++A+F+D+F+A+ C++%A+C++A+E+C+E+A+\
      DATA SV2 48F.24F-48G.24G-48F.24F-48E.24E-\
      DATA TV3 24AA$12AA24GG$GAA$AAA$A V4 24F+F+$12D+D+24E+E+$E+D+D+$D+C+C+$C+
      DATA TV1 12B+A+B+A+F+BF+A+ B+G+B+G+E+BE+G+\
      DATA 12A+G+A+G+E+AE+G+ A+F+A+F+D+AD+F+\
      DATA SV2 48D.24D-48E.24E-48C#.24C-48D.24D-\
      DATA TV3 24DD$DEE$EC#C$CDD$D V4 24BB$BBB$BAA$AAA$A
      REM DATA ; PAGE 4  BAR 21
      REM DATA PD
      DATA TV3 12AF#AFDB-DF BGBGDB-DG GF%GFDCDF GEGEDCDE\
      DATA SV2 192B-C\
      DATA TV1 24D+D+$12D+D+24D+D+$D+BB$BBB$B V4 24A+A+$12A+A+24D++D++$D++G+G+$\
      DATA G+G+G+$G+
      DATA TV1 12F+E+F+C+AFAC+ E+D+E+C+AFAC+ D+C+D+C+AFAC+ E+C+E+C+AFAC+\
      DATA SV2 96F-$$$\
      DATA TV3 24A-A-$12A-A-24A-A-$A-A-A-$A-A-A-$A- V4 24FF$12FF24EE$EDD$DEE$E
      DATA TV3 12FEFCA-F-A-C EDECA-F-A-C DCDCA-F-A-C DB%-DB-A-F-A-B-\
      DATA SV2 48$$$$$$F-$\
      DATA TV1 24AA$12AA24AA$AAA$AB%B$B V4 24F+F+$12F+F+24E+E+$E+D+D+$D+A+A+$B+%
      DATA TV1 12E+D+#E+B%G#EGB D+C+#D+BGEGB\
      DATA 12C+BC+BGEGB D+BD+BGEGB\
      DATA SV2 48E-$$$$$$$\
      DATA TV3 24G#G$GGG$GGG$GGG$G TV4 24EE$ED#D$DC#C$CDD$D
      DATA TV3 12E+D+#E+B%G#EGB D+C+#D+BGEGB\
      DATA 12C+#B%C+BG#EGB C+A#C+AGEGA\
      DATA SV2 48$$$$$$E-$\
      DATA TV1 24G#G$12GG24GG$GGG$GA#A$A V4 24E+E+$12E+E+24D+#D+$\
      DATA 24D+C+#C+$C+G+#G+$A+#
      DATA TV1 12E+bD+E+BGEGB D+BD+BGEGB C+#BC+BGEGB G+F+#G+C+BGBC+\
      DATA SV2 48E-b$96$$E\
      DATA TV3 24GG$12GG24GG$GGG$GBB$B TV4 24EbE$12B-B-24DD$DC#C$CGG$G
      DATA TV1 12G+F+#G+D+B%GBD+ F+D+F+D+BGBD+\
      DATA 12E+#D+E+D+B%GBD+ B+A+#B+E+D+BD+E+\
      DATA SV2 96G-$$G\
      DATA TV3 24B%B$12BB24BB$BBB$BDD$D\
      DATA TV4 24GG$12DD24F#F$FE#E$EB%B$B
      REM DATA ; PAGE 5  BAR 28
      REM DATA PE
      DATA TV1 12B+%A+#B+F+#D+#GD+F+ A+F+A+F+D+GD+F+\
      DATA 12A+%F+A+F+D+GD+F+ D++A+D++A+F+D+F+A+\
      DATA SV2 96B-%$$B\
      DATA TV3 24D#D$12DD24DD$DDD$DF#F$F V4 24B%B$12F#F24A#A$\
      DATA 24AA%A$AD+#D+$D+
      DATA TV1 12D++C++#D++B+F+D+F+B+ E++bA+E++A+G+bE+G+A+\
      DATA 12D++C++D++B+F+D+F+B+ E++A+E++A+G+E+G+A+\
      DATA SV2 96B24$$$B-96B24$$$B-\
      DATA TV3 24FF$12DD24GbG$GFF$12DD24GG$G\
      DATA TV4 24D+D+$12BB24E+bE+$AD+D+$12BB24E+E+$E+
      DATA TV1 12D++C++#D++B+F+D+F+B+ D++C++D++B+F+D+F+B+\
      DATA 12D++C++D++B+F+D+F+B+ D++C++D++B+F+D+F+B+\
      DATA SV2 96B$$$\
      DATA TV3 24FF$12DD24FF$DFF$DFF$D V4 24D+D+$12BB24D+D+$BD+D+$BD+D+$B
      DATA TV1 12D++C++#D++A+F+D+F+A+ D++C++D++A+F+D+F+A+\
      DATA 12D++C++D++A+F+D+F+A+ D++C++D++A+F+D+F+A+\
      DATA TV2 24FF$12DD24FF$DFF$DFF$D V3 24AA$12FF24AA$FAA$FAA$F\
      DATA TV4 24D+D+$12AA24D+D+$AD+D+$AD+D+$A
      DATA TV1 12D++C++#D++G+#F+D+F+G+ D++C++D++G+F+D+F+G+\
      DATA 12D++C++D++G+F+D+F+G+ D++C++D++G+F+D+F+G+\
      DATA TV2 24FF$FFF$FFF$FFF$F V3 24G#G$GGG$GGG$GGG$G\
      DATA TV4 24D+D+$$D+D+$$D+D+$$D+D+$$
      REM DATA ;BAR  33
      REM DATA PF
      DATA K2# W4
      DATA TV3 12D+C+D+AFDFA C+BC+AFDFA BABAFDFA C+AC+AFDFA\
      DATA TV1 24A+A+$12A+A+24F+F+$F+F+F+$F+F+F+$F+\
      DATA TV2 24D++D++$12D++D++24C++C++$C++B+B+$B+C++C++$C++
      DATA TV3 12D+C+D+AFDFA C+BC+AFDFA BABAFDFA C+G#C+GEDEG\
      DATA TV1 24A+A+$12A+A+24F+F+$F+F+F+$F+E+E+$E+\
      DATA TV2 24D++D++$12D++D++24C++C++$C++B+B+$B+C++C++$C++
      DATA TV1 12A+G+#A+E+C+AC+E G+F+G+E+C+AC+E+ F+E+F+E+C+AC+E+ G+E+G+E+\
      DATA 12C+AC+E+\
      DATA TV3 24CC$12CC24CC$CCC$CCC$C TV2 24AA$12EE24G#G$GFF$FGG$G
      REM DATA ;PAGE 6  BAR 36
      REM DATA PG
      DATA TV3 12AG#AECA-CE GFGECA-CE FEFECA-CE GD#GDB-A-B-D\
      DATA TV1 24C+C+$12C+C+24AA$AAA$AAA$A V2 24A+A+$12A+A+24G+#G+$G+F+F+$\
      DATA 24F+G+G+$G+
      DATA TV1 12E+D+#E+BG#EGB  24A#A$A 12F+D+%F+D+BFBD+ 24AA$A\
      DATA TV3 24B-B-$G- 12EC#ECA-#F-A-C 24B-B-$B- 12ECECA-E-A-C\
      DATA TV2 24EE$B-F+F+$F+DD$DF+F+$F+
      DATA TV1 12F+D+F+D+BFBD+ 24B#B$B 12G+#E+G+E+C+GC+E+ 24G+G+$G+\
      DATA TV3 24B-B-$B- 12FD#FDB-#E-B-D 24CC$C 12FDFDB-E-B-D\
      DATA TV2 24DD$DG+#G+$G+EE$EG+G+$G+
      DATA TV1 12G+#E+G+E+C+GC+E+ A+E+A+E+C+AC+E+\
      DATA 12A+D+A+D+BABD+ A+F+A+F+D+AD+F+\
      DATA TV2 24CC$CCC$CB-B-$B-DD$D V3 24EE$EEE$EDD$DFF$F\
      DATA TV4 24$$$$GG$GGG$GGG$G
      DATA TV1 12A+E+A+E+C+AC+E+ B+G+B+G+E+BE+G+\
      DATA 12B+#G+B+G+E+BE+G+ C++G+C++G+E+C+E+C+\
      DATA TV2 24CC$CB-B-$B-B-bB-$B-A-A-$A- V3 24EE$EEE$EEE$EEE$E\
      DATA TV4 24GG$GGG$GGG$GGG$G
      DATA TV1 12C+BC+BG#E#GB D+#BD+BGDGB E+%C+E+C+BEBC+ E+#C+E+C+BEBC+\
      DATA TV3 24G#G$GFF$FA#A$AGG$G TV2 24CC$CCC$CCC$CCC$C
      DATA TV1 12F+C+F+C+A#FAC+ E+#D+##E+C+AEAC+\
      DATA 12E+%D+#E+C+AEAC+ A+E+A+E+C+AC+E+\
      DATA TV2 192A#-96A-C\
      DATA TV3 24CC$12CC24CC$CCC$CEE$E V4 24FF$12FF24E#E$E%EE$EA#A$A
      DATA W3
      REM DATA ;PAGE 7  BAR 43
      REM DATA PH
      DATA TV1 12B+bF+%B+F+D+BD+F+ A+G+#A+F+D+AD+F+\
      DATA 12A+bG%A+F+D+AD+F+ D++A+D++A+F+D+F+A+\
      DATA TV2 192D96DF\
      DATA TV3 24F%F$12FF24FF$FFF$FAbA$A\
      DATA TV4 24BbB$12BB24AA$AAbA$AD+D+$D+
      DATA TV1 12D++A+%D++A+F+D+F+A+ C++B+#C++A+F+C+F+A+\
      DATA 12C++%B+%C++A+F+C+F+A+ F++C++F++C++A+F+A+C++\
      DATA TV2 192F#96FA\
      DATA TV3 24AA$12AA24AA$AAA$AC+C+$C+ V4 24D+D+$12D+D+24C+C+$C+C+%C+$\
      DATA C+F+F+$F+
      DATA TV1 12E++#D++E++C++B+C+B+C++ F++C++%F++C++A+F+A+C++\
      DATA 12E++D++E++C++#B+C+B+C++ F++C++%F++C++A+F+A+C++\
      DATA TV2 96G#AGA\
      DATA TV3 24C+C+$12BB24C+%C+$C+C+#C+$12BB24C+%C+$C+\
      DATA TV4 24E+#E+$12C+C+24F+F+$F+E+E+$12C+C+24F+F+$F+
      DATA TV1 12E++#D++E++C++B+C+B+C++ E++D+E++C++B+C+B+C++\
      DATA 12E++D++E++C++B+C+B+C++ E++D++E++C++B+C+B+C++\
      DATA SV2 24$$$C192E#+96$\
      DATA TV3 24G#G$GGG$12GG24GG$GGG$G\
      DATA TV4 24E+#E+$C+E+E+$12C+C+24E+E+$E+E+E+$E+
      REM DATA PI
      DATA K1b
      DATA TV1 12F++E++F++C++A+bF+A+C++ F++E++F++C++A+F+A+C++\
      DATA 12F++E++F++C++A+F+A+C++ F++E++F++C++A+F+A+C++\
      DATA SV2 24$$$C96F+F+$\
      DATA TV3 24AbA$AAA$12AA24AA$AAA$A\
      DATA TV4 24F+F+$C+F+F+$12C+C+24F+F+$C+F+F+$C+
      DATA TV1 12F++E++F++D++bC++bF+C++D++ F++E++F++D++C++F+C++D++\
      DATA 12F++E++F++D++C++F+C++D++ F++E++F++D++C++F+C++D++\
      DATA SV2 24$$$B%192F+96$\
      DATA TV3 24AbA$AAA$12AA24AA$AAA$A\
      DATA TV4 24F+F+$B%F+F+$12BB24F+F+$BF+F+$B
      DATA TV1 12F++E++F++D++bC++bF+C++D++ F++E++F++D++C++F+C++D++\
      DATA 12F++E++F++D++C++F+C++D++ F++E++F++D++C++F+C++D++\
      DATA SV2 48$$Db$B%$F+$\
      DATA TV3 24AbA$AAA$AAA$AAA$A\
      DATA TV4 24F+F+$B%F+F+$BF+F+$BF+F+$F+
      DATA W2
      DATA TV1 12F++E++F++C++A+F+A+C++E++D++E++C++A+E+A+C++\
      DATA 12D++C++D++C++A+D+A+C++ E++D++E++C++A+E+A+C++\
      DATA SV2 96FEDE\
      DATA TV3 24AA$12AA24AA$AAA$AAA$A V4 24F+F+$12F+F+24E+E+$E+D+D+$D+E+E+$E+
      REM DATA ;PAGE 8  BAR 51
      REM DATA PJ
      DATA TV1 12F++E++F++C++A+F+A+C++ E++D++E++C++A+E+A+C++\
      DATA 12D++C++D++C++A+D+A+C++ E++B+%E++B+G+F+G+B+\
      DATA SV2 96FEDE\
      DATA TV3 24AA$12AA24AA$AAA$AGG$G V4 24F+F+$12F+F+24E+E+$E+D+D+$D+E+E+$E+
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA 12A+G+A+G+E+C+E+G+ B+A+B+G+E+C+E+G+\
      DATA SV2 192CC\
      DATA TV3 24EE$12EE24EE$EEE$EEE$E V4 24C+C+$12C+C+24B%B$BAA$ABB$B
      DATA TV1 12C++B+%C++G+E+C+E+G+ B+A+B+G+E+BE+G+\
      DATA 12A+G+A+G+E+AE+G+ B+F+#B+F+D+C+D+F+\
      DATA SV2 96C+B%AB\
      DATA TV3 24EE$12EE24EE$EEE$EDD$D V4 24C+C+$12GG24B%B$BAA$ABB$B
      DATA TV1 12G+F+#G+D+B%GBD+ G+F+G+E+C+GC+E+\
      DATA 12G+F+G+D+BGBD+ A+G+#A+E+C+#AC+E+\
      DATA SV2 192G96G$\
      DATA TV3 24B%B$12BB24C+C+$C+BB$BC+#C+$C+ TV4 24GG$12DD24GG$GGG$GGG$G
      DATA TV1 12A+G+#A+E+C+#AC+E+ A+G+A+E+C+AC+E+\
      DATA 12B+%F+B+F+D+BD+F+# C++A+C++A+G+%C+G+A+\
      DATA SV2 96GGFE\
      DATA TV3 24C#C$CCC$CDD$DEE$E V4 24AA$AAA$AAA$AAA$A
      DATA TV1 12D++C++#D++A+F+D+F+A+ D++C++D++A+F+D+F+A+\
      DATA 12B+%A+B+A+F+D+F+A+ C++%B+C++A+F+D+F+A+\
      DATA SV2 192D96D$\
      DATA TV3 24FF$12DD24FF$DDD$DDD$D V4 24AA$12FF24AA$AB%B$BC+C+$C+
      DATA TV1 12B+%A+#B+F+#D+#BD+F+ B+A+B+F+D+BD+F+\
      DATA 12C++#G+C++G+E+C+E+G+ D++#B+D++B+A+%D+A+B+\
      DATA SV2 96AAGF#\
      DATA TV3 24D#D$DDD$DEE$EFF$F V4 24B%B$BBB$BBB$BBB$B
      REM DATA ;PAGE 9  BAR 58
      REM DATA PK
      DATA TV1 12E++D++#E++B+%G+E+G+B+ E++D++E++B+G+E+G+B+\
      DATA 12C++B+C++B+G+E+G+B+ D++%B+D++B+G+E+G+B+\
      DATA SV2 192E96E$\
      DATA TV3 24GG$12EE24GG$EEE$EEE$E V4 24B%B$12GG24BB$BC+C+$C+D+D+$D+
      DATA TV1 12C++B+%C++G+E+C+E+G+ C++B+C++G+E+C+E+G+\
      DATA 12D++C++#D++A+F+D+F+A+ E++D++#E++C++%B+&G+B+E++\
      DATA SV2 96BBAG\
      DATA TV3 24EE$EEE$EFF$FGG$G V4 24C+C+$GC+C+$GD+D+$C+E+E+$E+
      DATA TV1 12F++E++F++D++A+F+A+D++ E++D++#E++C++#B+G+B+C++\
      DATA 12D++#C++#D++A+F+D+%F+A+ C++%A+C++A+E+C+E+A+\
      DATA SV2 96FGFE\
      DATA TV3 24AA$12FF24GG$GFF$FEE$E V4 24F+F+$12D+D+24E+E+$E+D+D+$D+C+C+$C+
      DATA TV1 12B+A+B+A+F+BF+A+ B+G+B+G+E+BE+G+\
      DATA 12A+F+A+F+E+AE+G+ A+F+A+F+D+AD+F+\
      DATA SV2 96DEC#D\
      DATA TV3 24DD$DEE$EC#C$CDD$D V4 24BB$BBB$BAA$AAA$A
      DATA TV3 12AF#AFDB-BF BGBGDB-DG GF%GFDCDF GEGEDCDE\
      DATA SV2 192B-C\
      DATA TV1 24D+D+$12D+D+24D+D+$D+BB$BBB$B V4 24A+A+$12A+A+24D+D+$D+G+G+$\
      DATA 24G+G+G+$G+
      DATA TV1 12F++D++F++D++C++F+C++D++ F++D++F++D++B+F+B+D++\
      DATA 12F++C++F++C++B+F+B+C++ F++C++F++C++A+F+A+C++\
      DATA SV2 192F-F-\
      DATA TV3 24FF$12FF24FF$FFF$FFF$F V4 24F+F+$12D+D+24F+F+$D+F+F+$C+F+F+$C+
      DATA TV1 12D++C++D++C++F+D+F+C++ D++B+D++B+F+D+F+B+\
      DATA 12G+F+G+F+C+GC+F+ G+E+G+E+BGBE+\
      DATA SV2 192$48$$$24$$\
      DATA TV3 24FF$12FF24FF$FFF$FFF$F V4 24D+D+$12C+C+24D+D+$BC+C+$BC+C+$F
      DATA TV1 12B+A+B+A+F+BF+A+ B+G+B+G+E+BE+G+\
      DATA 12A+G+A+G+E+AE+G+ A+F+A+F+D+AD+F+\
      DATA TV3 24DD$12DD24DD$DCC$CCC$C TV2 24BB$12FF24BB$EAA$EAA$D
      DATA TV1 12 A+F+A+F+D+D+F+A+ D++B+D++B+G+D+G+B+\
      DATA 12G+F+G+F+C+GC+F+ G+E+G+E+BGBE+\
      DATA SV2 192$48$$$24$F\
      DATA TV3 24B-B-$12FF24GG$GCC$CCC$$ V4 24AA$12AA24D+D+$D+GG$FGG$C++
      REM DATA ;PAGE 10  BAR 67
      REM DATA PL
      DATA TV1 12F+D+F+D+C+FC+D+ F+D+F+D+BFBD+ F+C+F+C+BFBC+ F+C+F+C+AFAC+\
      DATA SV2 96F+$$24$$$F\
      DATA TV3 24C+C+$12C+C+24BB$BBB$BAA$A V4 24F+F+$12F+F+24F+F+$F+F+F+$F+F+F+$F+
      DATA TV1 12D+C+D+C+FDFC+ D+BD+BFDFB C+BC+BFCFB C+AC+AFCFA\
      DATA SV2 96F+$$24$$$F\
      DATA TV3 24FF$12FF24FF$FFF$FFF$Eb V4 24D+D+$12D+D+24D+D+$D+C+C+$C+C+C+$F
      DATA TV1 12BABAFDFA BGBGEDEG AGAGECEG AFAFDA-DF\
      DATA SV2 48F+$$24$F48F+$$24$F-\
      DATA TV3 24DD$12DD24EE$ECC$12CC24DD$D V4 24BB$12BB24BB$BAA$12AA24AA$A
      DATA TV1 12AFAFDDFA D+BD+BGDGB GFGFCG-CF GEGECG-CE\
      DATA SV2 96F$$48F$\
      DATA TV3 24B-B-$12FF24GG$GCC$CB-B-$B- V4 24AA$12AA24D+D+$D+GG$GGG$G
      DATA TV1 12FEFCA-F-A-C 24A-A-$$ 12FEFCA-F-A-C 24A-A-$$\
      DATA SV2 48F-$$$F$$$\
      DATA TV3 48A-$12AG#AFDA-DF48C$12AGAFDA-DF V4 48A$24FF$$48A$24FF$$
      DATA TV1 12FEFCA-F-A-CAG#AFDA-DF AGAFCA-CF D+C+#D+BFDFB\
      DATA SV2 48F$$$$$F$\
      DATA TV3 48C$24DD$12DD24CC$CFF$F V4 48A$24AA$12AA24AA$AD+D+$D+
      DATA TV1 12C+BC+BFCFB C+BC+BFCFB C+AC+AFCFA C+GC+GFCFG\
      DATA SV2 48F+$F+$$$F+$\
      DATA TV3 24FF$FFF$FFF$FFF$F V4 24C+C+$C+C+C+$C+C+C+$C+C+C+$C+
      DATA TV1 12C+AC+AFCFA C+B%C+AF$$$F+E+F+C+A$$$A+G+#A+F+C+$$$\
      DATA SV2 48F+$96$$$\
      DATA TV3 24FF48$12$$$$$CFA$$$$$FAC+$$$$$AC+F+ V4 24C+C+48$$$$$$$
      DATA TV1 12A+G+#A+F+C+$$$ F+E+F+C+A$$$ A+G+A+F+C+$$$ C++B+%C++A+F+$$$\
      DATA TV3 12$$$$$CFA $$$$$FAC+ $$$$$AC+F+ $$$$$C+F+A+
      DATA =1
      DATA TV1 128F++ SV2 64$F- TV3 $C+ TV4 $C++
      DATA TV1 128F++ SV2 64B-B- TV3 A16D32E. TV4 64C++16F+32G+.
      DATA TV1 10F++160F++ SV2 10F160F TV3 8C2$160C TV4 8A+2$160A+
      DATA ""