ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END
      
      REM J.S.Bach Toccata & Fugue in D minor
      REM Toccata transcribed by Ron Stickley, 7th May 1983
      REM Fugue transcribed by Gerald Pye, 2nd August 1981
      REM BBCSDL version by Richard Russell, 11th March 2017
      
      VDU 23,22,960;540;8,16,16,128
      COLOR 1,255,255,240
      COLOR 129
      CLS
      OSCLI "FONT """ + @lib$ + "DejaVuSansMono"",10"
      *TEMPO 129
      
      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
      dur% = 24
      ENVELOPE 1,1,0,0,0,0,0,0,56,0,-28,-8,112,0
      REPEAT
        T$ = ""
        REPEAT
          READ R$ : IF R$="" REPEAT WAIT 10 : UNTIL FALSE
          T$ += R$ : IF RIGHT$(T$) = "\" T$ = LEFT$(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% = VAL(T$) DIV 27 : WHILE ASCT$=&20 OR ASCT$>=&30 AND ASCT$<=&39 : T$ = MID$(T$,2) : ENDWHILE
            WHEN "P": part$ = LEFT$(T$,1) : T$ = MID$(T$,2)
            WHEN "T": acc%() = scale%() : clef% = 48
            WHEN "S": acc%() = scale%() : clef% = 0
            WHEN "V": voice% = ASC(T$) - &30 : T$=MID$(T$,2)
              IF voice%=4 voice%=0
            WHEN "W": wave% = VAL(T$) : T$ = MID$(T$,2)
              WHILE ADVAL(-5-voice%)<12 WAIT 0:ENDWHILE
              OSCLI "voice " + STR$voice% + "," + STR$(wave%)
              OSCLI "stereo " + STR$voice% + "," + STR$(42 * (wave% - 4))
            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%()
              SOUND 1,-15,0,4
            OTHERWISE
              Note% = INSTR("ABCDEFG$",C$)-1
              IF Note% < 0 ERROR 100, "Unrecognised command "+C$
              octave% = 0
              staccato = 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
                  WHEN ",": staccato = 1/2 : T$=MID$(T$,2) : ok% = TRUE
                  WHEN "'":  staccato = 1/8 : T$=MID$(T$,2) : ok% = TRUE
                  WHEN """": staccato = 1/4 : T$=MID$(T$,2) : ok% = TRUE
                ENDCASE
              UNTIL NOT ok%
              tim% = dur% DIV 3 * tempo%
              IF LEFT$(T$,1)="." tim% = dur% DIV 3 * tempo% * 3/2 : T$=MID$(T$,2)
              IF LEFT$(T$,1)=":" tim% = dur% DIV 3 * tempo% * 2/3 : T$=MID$(T$,2)
              gap% = INT(tim% * staccato) + 0.5
              pitch% = cmajor&(Note%) + acc%(Note%) + clef% + octave%
              IF Note% = 7 pitch% = 0
              WHILE pitch% < 0 pitch% += 48 : ENDWHILE
              WHILE pitch% > 255 : pitch% -= 48 : ENDWHILE
              IF tim% < 0 ERROR 100, "Duration out of range: "+STR$tim%
              IF voice% < 4 THEN
                IF gap% THEN tim% -= gap%
                REPEAT
                  IF tim% < 254 l% = tim% ELSE l% = 254
                  snd{(voice%,p%(voice%))}.a& = vol%(voice%)
                  snd{(voice%,p%(voice%))}.p& = pitch%
                  snd{(voice%,p%(voice%))}.d& = l%
                  p%(voice%) += 1
                  tim% -= l%
                UNTIL tim% = 0
                IF gap% THEN
                  snd{(voice%,p%(voice%))}.a& = vol%(voice%)
                  snd{(voice%,p%(voice%))}.p& = 0
                  snd{(voice%,p%(voice%))}.d& = gap%
                  p%(voice%) += 1
                ENDIF
              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 AND FUGUE IN D MINOR - J.S.Bach.
      DATA ;Toccata coded and scaled by R.J.Stickley  7-5-83.
      DATA ;Fugue coded by G.D.Pye  2-8-81.
      DATA [
      DATA [ Toccata:
      DATA K1&= 110
      DATA V1W1V2W1V3W1V4W1
      DATA ;Deliberate scaling and note lengthening for church resonance effect.
      DATA TV112A+G+ V2AG
      DATA TV1144A+ V2A
      DATA TV124$$$$12G+F+E+D+24C#+72D+ TV224$$$$12GFED24C#72D
      DATA 96$
      DATA V1W6V2W6V3W6V4W6 PB
      DATA TV112AG SV212AG
      DATA TV1144A SV2A
      DATA TV124$$$$EFC#72D SV224$$$$EFC#72D
      DATA 96$
      DATA V1W3V2W3V3W3V4W3 PC
      DATA SV112AG V212A-G-
      DATA SV1144A SV2A-
      DATA SV124$$$$12GFED24C#72D SV224$$$$12G-F-E-D-24C#--72D-
      DATA 96$
      DATA V1W6V2W6V3W6V4W7  PD
      DATA SV1255D-D- V296$204C#210B  V3162$204E144C#+ V4234$204G72E+
      DATA SV1110D- V2255DD V36A120G126E129F#F# TV4255DD
      DATA 96$
      DATA V1W2V2W5 PE
      DATA TV112C#DEC#DEC#DEC#18DE12FGEFGEFGE18FG SV212C#DEC#DEC#DEC#18DE12FGEFGEFGE18FG
      DATA TV112ABGABGABG48A$$$$ SV212ABGABGABG48A$$$$
      DATA V1W6V2W6V3W6V4W6 PF
      DATA TV112C#+D+E+C#+D+E+C#+D+E+C#+18D+E+12F+G+E+F+G+E+F+G+E+18F+G+\
      DATA TV212C#DEC#DEC#DEC#18DE12FGEFGEFGE18FG
      DATA TV112A+B+G+A+B+G+A+B+G+48A+$$$$ TV212ABGABGABG48A$$$$
      DATA V1W2V2W5 PG
      DATA TV112A+G+B+E+G+B+E+F+A+D+F+A+D+ TV2AGBEGBEFADFAD
      DATA TV1E+G+C+E+G+C+D+F+BD+F+B TV2EGCEGCDFB-DFB-
      DATA TV1C+E+AC+E+ABD+GBD+G TV2CEA-CEA-B-DG-B-DG-
      DATA TV1AC+FAC+FGBEGBEFADFADEGC#EGC#24$\
      DATA SV212AC+FAC+FGBEGBEFADFADEGC#EGC#
      DATA V1W6V2W6V3W6V4W7 PH
      DATA SV196D-
      DATA SV1255D-D- V2192C#192B128G+ V364$192E192C#+64B+. V4128$192G192E+
      DATA TV372B12AGFEDC#B%-C#A-CEG6FGFGFG48F.24E
      DATA SV1144D-D- V2144AA TV3144DD V4144FF
      DATA 96$
      DATA V1W2V2W5
      DATA =  55PI
      DATA "TV148AD+,E+,F+,D+,E+,F+,G+,E+, SV272$48A,A,A,A,A,A,A,24A"
      DATA "TV148F+,G+,A+,F+,G+,A+,B+,G+, SV224$48A,A,A,A,A,A,A,24A"
      DATA "TV148A+,F+,G+,E+,F+,D+,E+,C#+, SV224$48A,A,A,A,A,A,A,24A"
      DATA "TV148D+,A,B,G,A,F,G,E, SV224$48A,A,A,A,A,A,A,24A"
      DATA "TV148F,D,G,E,F,D,E,C#, SV224$48A,A,A,A,A,A,A,24A"
      DATA "SV148D+,A,B,G,A,F,G,E, SV224$48A,A,A,A,A,A,A,24A"
      DATA "SV148F,D,G,E,F,D,E,C#,144D SV224$48A,A,A,A,A,A,A,24A"
      DATA V1W6V2W6  PJ
      DATA TV124$FBF$EAE$DGD$$EA TV2D$$$C$$$B-$$$A-C#$$
      DATA V1W6V2W4V3W4V4W7 PK
      DATA TV148$B$A$G96A TV248$F$E$D96C# SV348D+$A$B$96E V4DCB-A-
      DATA V1W6V2W6  PL
      DATA TV124$FBF$EAE$DGD$$EA TV2D$$$C$$$B-$$$A-C#$$
      DATA V1W6V2W4V3W4V4W7 PM
      DATA TV148$B$A$G96A. TV248$F$E$D96C# SV348D+$A$B$96E V4DCB-A-
      DATA TV124AGFEDC#B%-C#A-B%-C#DEFGAGFEFDFAC#+D+AB%C#+D+E+F+G+A+96B&+
      DATA V1W6V2W6V3W6V4W6 PN
      DATA TV148$B+$A+$G+96A+ TV248$F+$E+$D+96C#+ SV348D+$A$B$96E V4DCB-A-
      DATA TV124$F+B+F+$E+A+E+$D+G+D+$$E+A+ TV2D+$$$C+$$$B$$$AC#+$$
      DATA V1W6V2W6V3W6V4W6 PP
      DATA TV148$B+$A+$G+96A+ TV248$F+$E+$D+96C#+ SV348D+$A$B$96E V4DCB-A-
      DATA TV1B%C#+.48B% V296FA V3D192E SV496G#-192G%-
      DATA TV148AC#+24E+G+192B&+
      DATA TV124A+G+F+E+F+E+D+C+D+C%+B&AGFED
      DATA TV1192E+E+ V2C#+C#+ V3BB SV4GG
      DATA TV124E+C#+BC#+BC#+E+C#+BC#+B V2GEC#EC#EGEC#EC#
      DATA TV1C#+E+C#+BC#+BC#+E+C#+BC#+B V2EGEC#EC#EGEC#EC#
      DATA TV1GBGEGEGBGEGE SV2BC#+BGBGBC#+BGBG
      DATA TV1GBGEGEGBGEGE SV2BC#+BGBGBC#+BGBG
      DATA TV1C#EC#B-C#B-C#EC#B-C#B- SV2EGEC#EC#EGEC#EC#
      DATA TV1C#EC#B-C#B-C#EC#B-C#B- SV2EGEC#EC#EGEC#EC#
      DATA TV1C#EC#EGEC#EC#EGE SV2EGEGBGEGEGBG
      DATA TV1C#EC#EGEC#EC#EGE SV2EGEGBGEGEGBG
      DATA TV1GBGBGBGBGBGB SV2EGEGEGBC#+BC#+BC#+
      DATA TV1C#+BC#+E+C#+E+C#+E+C#+E+C#+E+ V2EC#EC#EC#EC#EC#EC#
      DATA V1W6V2W6V3W4V4W7 PQ
      DATA TV1240A+A+G+$G+ V2E+F+D+$E+ SV3AAB120AG240C#+ V4GFB120AG240A
      DATA SV196EFDEC#DB%-C#A-B&-G#-A- V4EFDEC#DB%-C#A-B&-G#-A-
      DATA TV1C#+192D+FE$ V296E192FFEC# SV396A192AAA96AG V4G%192FD192A-A-
      DATA = 110PR
      DATA TV1254DD SV26A96G48FE150FF V3254DD V4D-D-
      DATA 96$
      DATA [
      DATA [ Fugue:
      DATA K1b=  65PA
      DATA V1W6V2W6V3W4V4W7
      DATA TV2192$24$AGAFAEA
      DATA TV224DAC#ADAEAFAA-AB%-ACA
      DATA TV1192$24$D+C+D+BD+AD+TV224DAC#ADAEA48FF#GC%
      DATA TV124GD+F#D+GD+AD+BD+DD+ED+FD+SV248BABC+D+F#GA
      DATA TV124GD+F#D+GD+AD+48BD+BD+SV2BABF#24GG+GG+D+G+D+G+
      DATA TV148Eb+GE+GC+AC+AV224CEbCECECECFCFCFCF ; LINE 2:
      DATA TV148D+FD+FBGBGSV224BD+BD+BD+BD+BE+BE+BE+BE+
      DATA TV148C#+EC+EAFAFSV224AC#+AC+AC+AC+FD+FD+FD+FD+
      DATA TV148GC#GCFDFDSV224EBEBEBEBDADADADA
      DATA TV148EB-EB-24$A+G+A+F+A+E+A+SV2EGEGEGEG48AAAAV3$$$$FEDG
      DATA TV124D+A+C#+A+D+A+E+A+F+A+AA+B%A+C+A+SV248AAAAAAAAV3FEFC#DCDE ; LINE 3:
      DATA TV124D+A+C#+A+D+A+E+A+F+A+E+A+D+A+C%+A+SV248AAAA96AD+V348FEFC#96DF
      DATA TV124BA+C+A+D+G+BG+E+G+D+G+C+G+BG+SV296D+$C+C+V3G$CE
      DATA TV124AG+BG+C+F+AF+D+F+C+F+BF+AF+SV296C+$BBV3F$B-D
      DATA TV124GF+AF+BE+GE+C#+E+BE+AE+GE+SV296B$AAV3E$A-C#
      DATA TV124FE+GE+AD+FD+EE+EE+FD+FD+SV296A48$D+C#+"C+D+"D+V396D48$FB"BA"A
      DATA TV124BC#+BC+AD+FD+EE+EE+FD+FD+SV296E+48$D+C#+"C+D+"D+V396G48$AB"BA"A
      DATA TV124$D+C#+D+B%D+C+B96C+$SV296E+$24$A+G+A+E+G+F+E+V396G#$A$
      DATA TV124$D+C#+D+F+D+C+B%96C+E+V2FD24A-AGAC#GFE
      DATA TV148E+96D+48C#+96C%+BV2FE48D96A48GSV324$D+C#+D+AAGAF#D+C+D+GF%+Eb+D+
      DATA TV196AAGGV2GF#F%EbSV324C#+E%+AC+DEb+D+C%+BD+GBCD+C+Bb ; PAGE 5
      DATA TV148F#96A48Eb+96D+48$G+V2EbDF#96C+24BA48BBSV324AC+F#ADC+BABA+G+F#+G+BAG
      DATA TV148G+F#+96G+48BD+D+D+V296A48D+C+BABF#SV396D+48$D+D+D+D+C+\
      DATA SV424$DCDB-DA-DG-DF#-DG-DA-D
      DATA TV148D+D+D+D+D+D+D+D+V2GF#GABABFSV3BD+D+C+BD+D+C+V424B-DD-DE-DF#-DG-D\
      DATA F-DG-DA-D
      DATA TV124D+G+F%+G+E+F+D+E+C+A+G+A+F+G+E+F+V2GBABGAF%GEC+BC+ABGASV396B$$$\
      DATA V4B-48$B%-96C48$C# ; LINE 2:
      DATA TV124D+B+A+B+G+A+F+G+E+C++B+C++A+B+G+A+V2FD+C+D+BC+ABGE+D+E+C+D+BC+\
      DATA SV496D48$D96E48$E
      DATA TV124F+Eb+D+C+D+C+BABD+BAGBGFV248AF24BAGFGBGFE%GEDSV448FA-B-D96G-48$B-
      DATA TV124EFGABD+C+BV224CDEF48GEV396$$SV448B-A-G-C
      DATA V2W3 PB
      DATA TV196AV3FSV224$C+BC+V496F-
      DATA V1W3 PC
      DATA TV148C+BSV224AC+GC+
      DATA TV148AGABC+EFGSV224FC+EC+FC+GC+AC+CC+DC+EC+
      DATA TV148AGAB24C+BAGFEbDCSV2FC+EC+FC+GC+96A$ ; LINE 3:
      DATA TV124D+C+BAGFE%DE+D+C+BAGFEV248B-$$$C$$$
      DATA TV124F+E+D+C+BAGFG+F+E+D+C+BAGV248D$$$E$$$
      DATA ;PD here on original G.D.PYE coding removed by RJS.
      DATA TV124A+F+E+F+C+F+E+F+A+F+E+F+C+F+E+F+V248F$24$C+48$F$24$C+48$
      DATA TV124G+E+D+E+C+E+D+E+G+E+D+E+C+E+D+E+V248E$24$C+48$E$24$C+48$
      DATA V1W4 V2W4 PE ;Was PE RD 1420 & 1430 new line.rem LINE 4:
      DATA TV124A+F+E+F+C+F+E+F+A+F+E+F+C+F+E+F+V248F$24$C+48$F$24$C+48$
      DATA TV124G+E+D+E+C+E+D+E+G+E+D+E+C+E+D+E+V248E$24$C+48$E$24$C+48$
      DATA V1W3 V2W4 PF
      DATA TV124F+G+F+E+D+C+B%ABGBD+F+A+F+D+V248D$96$192$
      DATA TV224B%GBD+F+A+F+D+
      DATA TV1BbGBC+E+G+E+C+
      DATA TV2BGBC+E+G+E+C+
      DATA TV1AFAC+D+F+D+B
      DATA TV2AFAC+D+F+D+B
      DATA TV1GEGBC#+E+C+B ; PAGE 6:
      DATA TV1192$24$A+G+A+F+A+E+A+V2GEGBC#+E+C+B48AC#+D+G
      DATA TV124D+A+C#+A+D+A+E+A+F+A+AA+B%A+C+A+V248FAB%C#+D+C+D+E+
      DATA TV124D+A+C#+A+48F+E+D+C%+BAV2F+E+D+C#+$AGF#V396$24$AGA$F#EF$DC%D
      DATA TV124BAGF%EDC#B%-A-V248G$96$24$SV324BC+BAGFEDC#
      DATA V3W3 V1W4 PF
      DATA SV324A-CEGBGE
      DATA SV124C#A-CEGBGE
      DATA SV3DA-DFAD+AF ; LINE 2:
      DATA SV1DA-DFAD+AF
      DATA PG
      DATA SV324C#
      DATA PH
      DATA SV324A-CEGBGE
      DATA SV124C#A-CEGBGE
      DATA SV3DA-DFAD+AF ; LINE 2:
      DATA SV1DA-DFAD+AF
      DATA PI
      DATA SV324EC#EGBC#+BG
      DATA V1EC#EGBC#+BG
      DATA V3FDFAD+F+D+A
      DATA V1FDFAD+F+D+A
      DATA PJ
      DATA SV324EC#EGBC#+BG
      DATA V1EC#EGBC#+BG
      DATA V3FDFAD+F+D+A
      DATA V1FDFAD+F+D+A
      DATA PK
      DATA SV324GEGBC#+E+C+B
      DATA V1GEGBC#+E+C+B
      DATA V3AFAC#+D+F+D+ABD+BGFAFDA-DA-F-D-DC#B%-C#BbAGFGFED
      DATA V1BbAGFGFE
      DATA V1W2 V2W2 PL ; LINE 4:
      DATA SV224D12EFGAB%C#+24D+F+E+D+A12B%C#+D+E+F+G+24A+G+F+E+TV1192$24A$$$$E+D+C#+
      DATA TV124D+12Eb+D+C%+BAG48F#96A48GC+B%V2F$24$EbDC48B-B%-CGSV4192$24$GF%GEbGDG
      DATA TV148Eb+D+E+B%C+BC+D+SV424CGB%-GCGDGEbGG-GA-GB-G\
      DATA TV312GAGAGAGAGAGAGAGAGAGAGAGAGAGAGAGA
      DATA TV148Eb+D+E+F+12G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+V3GAGAGAGAGAGAGAGA\
      DATA 24GGFGEbGDGSV424CGB%-GCGDG48EbDGB-
      DATA TV112G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+\
      DATA V324CGB%-GCGDGEbGG-GA-GB-GSV448CDEbFGB%-CD ; PAGE 7:
      DATA TV112G+A+G+A+G+A+G+A+G+A+G+A+G+A+G+A+24G+'G+F+G+Eb+F+D+E+\
      DATA V324CGB%-GCGDG48EbD24GAbFGSV448EbDEFGB%-CD
      DATA TV124C+F+Eb+F+D+E+C+D+BbE+D+E+C+D+BC+V348EbC24FGEF48DBb-24EFDE\
      DATA SV448EbA%-Bb-CDG-A-B-
      DATA TV124AD+C+D+BC+ABGBABC+BAGV348CF#24GAF%GEbGF#GAGFE%SV448CDGDEbB-A-C
      DATA TV148F#A24D+GC+FBGD+ABGAFSV2$D+C+D+BD+AD+GD+F#D+GD+AD+V4192DD
      DATA TV124GD+F#D+GD+AD+BGD+ABGC+ASV2BD+DD+ED+F#D+GD+FD+GD+AD+V4192DD ; LINE 2:
      DATA TV124D+C+BABABGABC+D+Eb+D+C+D+SV248BA192G96F#V4D48$G-CA-DD-
      DATA TV124BC+AB48GB%24C+Eb+F+G+Ab+G+F+G+SV248GA24BAGF%48EbEb+96D+\
      DATA V4G-48$G-144C48B%-
      DATA TV124Eb+F+D+E+48C+BbA96B48AV2CD24EbFDECEDFGFEFSV496C$192$
      DATA TV148A96G48F#F%96Eb24DBV224DB-EbDC#A-DC%B%-G-CBb-A-F-B-D
      DATA TV124ABAGF#Eb+D+C+BA+G+F#+72G+24F%+SV224C+D+C+BAC+BAGC+BABC+BA ; LINE 3:
      DATA TV124Eb+F+D+E+96C#+D+C%+V2$24$BAG96AF#SV3192$24$Eb+D+C%+D+C+BA\
      DATA V424GAFG96E%F#D
      DATA TV196B48AC#+D+E+96F+V224GF%EbD48C#E%FG24AGAFV3192$96$48$D+\
      DATA SV496G24ABAGF%GEA96D
      DATA TV1192E+144D+48F+V296D+C#+24ABGA48FAV324GAGABAGAFGEFDC%B-A-
      DATA TV148G+D+C#+D+E+D+C+D+V2GAGFGFEASV324BAGFEFEDC#A-DA-EA-FA-
      DATA TV148E+D+C#+D+E+G+F+D+V2BAGFAE+D+ASV324GA-FA-EA-DA-C#AA-ADAFD+ ; LINE 4:
      DATA TV148BE+D+D+96C#+48D+E+V2GGAF24EAGAFGEGSV3GD+EC#+FD+DD+192A
      DATA TV148F+E+F+C#+D+C+D+E+V224DAC#ADAEAFAA-AB%-AC#ASV3192AA
      DATA TV148F+E+F+G+24A+B+G+A+F+G+E+F+V2DAC#ADAEA48FEDGSV3192AA
      DATA TV124D+AC#+AD+AE+AF+AE+AF+AG+AV248FEFC#DCDB%-SV3192AA
      DATA TV124A+AE+AF+AG+A96A+$V248C#GFD96C$SV3192A24$AGAFAEAV4192$24$A-G-A-F-A-E-A-
      DATA ; PAGE 8:
      DATA SV324DAC#ADAEAFAA-AB%-ACAV4D-A-C#-A-D-A-E-A-F-A-A--A-B%--A-C-A-
      DATA TV1192$24$E+D+C#+48D+24$F+V2192$24$GFEFC#48DSV324DAC#ADAEA96F$\
      DATA V424D-A-C#-A-D-A-E-A-96F-48$F
      DATA TV124E+F+G+A+B+A+G+A+48F+E+24D+E+F+Eb+V296DC#24DAB%C#+48D+C%+SV448GEAA-\
      DATA 96D48$A-
      DATA TV124D+C+BAGABC+96A48$C+V2144F72Eb24CA-F-A-CEbCSV448B-G-CC-96F-48$A-
      DATA TV148C+B$G+24Eb+F+D+E+C+BAGSV2D+BGDGBD+G+C+D+BC+AGF#E%V496B-48$B-96C-\
      DATA 48$A-
      DATA V1W2 V2W4 PM ; LINE 2:
      DATA SV196A+$24F#DFGAD+AFV2F#DFGAD+AG192$V396D--$D--$V4D-$D-$
      DATA SV1192$24GDGABD+C+BV2GDGABD+BA192$V496D-$D-$
      DATA TV1192$24A-F#-A-B-CEbCB-V2A-F#-A-B-CEbCB-192$SV496D-$D-$
      DATA TV1192$24B-G-B-DGBGDV2A-B-DF#GBGD192$SV496D-$D-$ ; LINE 3:
      DATA TV1192$24CA-CEbF#AFEV2CA-CEbF#AFE192$SV496D-$D-$
      DATA V1W2 V2W2 V3W2 V4W2  PN
      DATA TV148D$D+C+96B48C+D+V296$48GF#96G48GB%SV3F#$GA96B48Eb+B%\
      DATA V424$DCDBb-DA-DG-GF%GEbGDG
      DATA TV196Eb+48F+G+96A+48F+Eb+V296C+48C+E%+96F+48BASV396G48C+Bb96A48BC+\
      DATA V424C'CBb-CA-CG-CF-FEbFDFCF
      DATA TV124D+Eb+D+C+BC+BAGC+BAGAGF#V248B$96$192$V324DGFEbDEDCB-EDCB-CB-A-\
      DATA SV448B-EbFF-G-CDD- ; LINE 4:
      DATA TV124GF%E%D48C#E24FGAB%C#+D+E+F+SV3BAGF48EG24AB%C#+D+E+F+G+A+\
      DATA V496G-24$A-G-A-48F-D-96A-
      DATA TV148G+24F+E+48D+C#+D+E+F+G+V248Bb24AGFAEADAC#ADAEASV4192D-D-
      DATA TV148A+C#+D+E+F+E+F+D+V224FAA-AB%-AC#ADACADAB-ASV4192D-144$48D
      DATA =  75PO
      DATA TV148E+D+'D+C#+V248$ABA'V3C#DGESV4A-F-G-A-
      DATA =  82PP
      DATA TV148D+F+V248AD+V3FASV4F-D-
      DATA =  95PQ
      DATA TV1108E+V248D+60C%+V348B60ASV448G-60A-
      DATA TV1192D+V2BV3FSV4B-
      DATA 96$
      DATA V1W3 PR
      DATA TV112$F+G+A+B+ABC+D+C+D+Eb+F+FGA ; PAGE 9:
      DATA TV112BABC+D+AGFEbGABC+GFEDFGABA-B-CDCDEbFF-G-A-
      DATA TV112B-A-B-CDCB-A-G-B-CDEbDCB-A-CDE%F#EbDCB-18F#GA$C+24D+GV2192$96$66$36B\
      DATA 48D+V3192$96$66$36$48G-
      DATA = 112V1W2 V2W2 V3W2 V4W4 PS
      DATA TV1144E+E+108D+V2144BB108AV3144GG108FSV4192C#144F60D
      DATA = 127PT
      DATA TV1192D+$V2B%$SV3F+24$G#B%FGDFB%-SV4192G#-24$G#-B%-F-G-D-F-B%-- ; LINE 2:
      DATA TV1108$48$D+192C+V2108$48$B%144A24G%FV324D-G#--60A--48$G#192ESV424D-G#--60A--\
      DATA 144E-E-
      DATA =  82PU
      DATA TV1192C+144$12$GFGE'EDECAGAF'FEFV2192E$144$V3192G-$144$SV4192E-$144$
      DATA TV112DB%ABG'GFGEC+BC+AD+C+D+B%E+D+E+C+F+E+F+D+G+F+G+C+BC+ ; LINE 3:
      DATA TV112AD+C+D+B%G#F#GEC+BC+AF%EFDB%ABCAG%AB%-G#F#GECB%-A-
      DATA TV112G#-DCB%-A-EDCB%-FEDCG%FEDAGFE18GA24B%144C+V2192$48$12$60$72$G\
      DATA SV4192$48$12$60$72$ETV3192$48$12$60$72$E
      DATA =  90PV
      DATA TV148C#+V2AV3ESV4G
      DATA TV112A-C#EA48C+'C+D+12A-DFA48D+'D+V248$$AA$$AV3$$EF$$FSV4$$GF$$F ; LINE 4:
      DATA TV148B%12G-B%-DG48B'BC+12G-CEG48C+'C+V248G$$GG$$GV3D$$DE$$ESV4F$$FE$$E
      DATA TV148A12F-A-CF48A'ABb12F-Bb-DF48B'BV248F$$FF$$FV3C$$CD$$DSV4E$$ED$$D
      DATA TV148B12E-G-B-C#48B'BA12D-A-DF#48A'AV248G$$GF#$$FV3E$$C#D$$DSV4C#$$CC%$$C
      DATA = 100PW
      DATA TV196AGV2192DV3192B-SV496G-B-
      DATA = 107PX
      DATA TV196GFV2EFV3C#DSV4E-F-
      DATA = 115PY
      DATA TV1192EV296DC%SV3192AV4192A-
      DATA = 127PZ
      DATA TV1240DV296C%144B-SV396F144GV496B-144G-
      DATA TV1255DDV2A-A-SV3FFV4D-D-
      DATA ""