ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END
      
      REM Brandenburg Concerto Number 3 by J.S.Bach
      REM Transcription by Phil Wheeler 30-Jan-1982
      REM BBCSDL version by R.T.Russell 06-Nov-2018
      
      SYS "SDL_SetWindowTitle", @hwnd%, "Brandenburg Concerto No. 3 by J. S. Bach", @memhdc%
      
      GL_BLEND = &0BE2
      GL_SRC_ALPHA = &0302
      GL_ONE_MINUS_SRC_ALPHA = &0303
      
      INSTALL @lib$+"ogllib" : REM @lib$ + "webgllib"
      
      DIM Object%(5), nVert%(5), vFormat%(5), vSize%(5), Material%(5), Texture%(5)
      DIM Light%(0), Pan(5), Tilt(5), Roll(5), Xpos(5), Ypos(5), Zpos(5)
      DIM Q1&(3), Q2&(3), Q3&(3), Q4&(3)
      
      DIM Light{Type%, Diffuse{r%,g%,b%,a%}, Specular{r%,g%,b%,a%}, \
      \ Ambient{r%,g%,b%,a%}, Position{x%,y%,z%}, Direction{x%,y%,z%}, \
      \ Range%, Falloff%, Attenuation0%, Attenuation1%, Attenuation2%, \
      \ Theta%, Phi%}
      
      DIM Material{Diffuse{r%,g%,b%,a%}, Ambient{r%,g%,b%,a%}, \
      \     Specular{r%,g%,b%,a%}, Emissive{r%,g%,b%,a%}, Power%}
      
      PRINT "Please wait..."
      *REFRESH
      PROCcreatefvf
      PROCinitrender
      
      ON CLOSE PROCcleanup : QUIT
      ON ERROR PROCcleanup : IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END
      ON MOVE IF @msg% <> 5 RETURN ELSE PROCcleanup : PROCinitrender : RETURN
      
      *TEMPO 132
      *STEREO 1,127
      *STEREO 2,42
      *STEREO 3,-42
      *STEREO 0,-127
      *VOICE 0,6
      *VOICE 1,6
      *VOICE 2,6
      *VOICE 3,6
      SOUND 1,0,0,10
      
      DIM snd{(3,50)a&,p&,d&}, p%(3), q%(3), cli$(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
      flag% = TRUE
      tempo = 3
      ENVELOPE 1,1,0,0,0,0,0,0,64,0,0,-64,119,89
      REPEAT
        REPEAT
          READ R$ : IF R$="" REPEAT PROCanimate(flag%) : UNTIL FALSE
          T$ += R$ : IF RIGHT$(T$) = "\" T$ = LEFT$(T$)
        UNTIL RIGHT$(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 ";": flag% = FALSE : T$ = ""
            WHEN "[","P","R": T$ = ""
            WHEN "=": WHILE ASC(T$)>=&30 AND ASC(T$)<=&39 T$ = MID$(T$,2) : ENDWHILE
              WHILE ADVAL(-5)<16 OR ADVAL(-6)<16 PROCanimate(flag%) : ENDWHILE
              tempo = 2 : *TEMPO 131
            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%)<12 PROCanimate(flag%) : ENDWHILE
              cli$(voice%) = "voice " + STR$voice% + "," + STR$(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
              REPEAT
                CASE LEFT$(T$,1) OF
                  WHEN "#": acc%(Note%) = 4
                  WHEN "%": acc%(Note%) = 0
                  WHEN "&","b": acc%(Note%) =-4
                  WHEN "+": octave% += 48
                  WHEN "-": octave% -= 48
                  OTHERWISE: EXIT REPEAT
                ENDCASE
                T$=MID$(T$,2)
              UNTIL FALSE
              ticks% = dur% / tempo
              IF LEFT$(T$,1)="." ticks% = dur% / tempo * 3/2 : T$=MID$(T$,2)
              IF LEFT$(T$,1)=":" ticks% = dur% / tempo * 2/3 : T$=MID$(T$,2)
              pitch% = cmajor&(Note%) + acc%(Note%) + clef% + octave%
              IF pitch% < 0 pitch% += 48
              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%
              snd{(voice%,p%(voice%))}.p& = pitch%
              snd{(voice%,p%(voice%))}.d& = ticks%
              p%(voice%) += 1
          ENDCASE
        ENDWHILE
        WHILE ADVAL(-5)=0 OR ADVAL(-6)=0 OR ADVAL(-7)=0 OR ADVAL(-8)=0
          PROCanimate(flag%)
        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,1,0,snd{(v%,q%(v%))}.d&
                ELSE
                  SOUND v%,1,snd{(v%,q%(v%))}.p&,snd{(v%,q%(v%))}.d&
                ENDIF
                q%(v%) += 1
              ENDIF
            NEXT v%
            IF stall% PROCanimate(flag%)
          UNTIL p%(0)=q%(0) AND p%(1)=q%(1) AND p%(2)=q%(2) AND p%(3)=q%(3)
        ENDIF
      UNTIL FALSE
      END
      
      DEF PROCanimate(F%)
      LOCAL nlights%, bgcolour%, nobjects%, viewangle, aspectratio, mindist, maxdist, cameraroll
      LOCAL camera(), lookat() : DIM camera(2), lookat(2)
      lookat() = 0, 0, 0
      nlights% = 1
      bgcolour% = &FF626685
      nobjects% = 6
      viewangle = PI/4
      aspectratio = @vdu%!208/@vdu%!212
      mindist = 0.1
      maxdist = 10.0
      cameraroll = 0
      IF F% Tilt(1) = TIME/60
      IF F% Tilt(2) = TIME/60
      camera() = -SIN(TIME/1000), 0.5, SIN(TIME/2000)/3-1
      Light.Position.x% = FN_f4(camera(0))
      Light.Position.y% = FN_f4(camera(1))
      Light.Position.z% = FN_f4(camera(2))
      PROC_render(Device%, bgcolour%, nlights%, Light%(), nobjects%, Material%(), Texture%(), \
      \ Object%(), nVert%(), vFormat%(), vSize%(), Pan(), Tilt(), Roll(), Xpos(), Ypos(), Zpos(), \
      \ camera(), lookat(), viewangle, aspectratio, mindist, maxdist, cameraroll)
      ENDPROC
      
      DEF PROCcreatefvf
      LOCAL F%, V%, p, q, r, u, v, x, y, z
      
      RESTORE
      REM Create the objects as Flexible Vertex Format files:
      F% = OPENOUT(@tmp$+"organ.fvf")
      BPUT #F%,60  : BPUT#F%,0  : BPUT #F%,0 : BPUT#F%,0 : REM Vertex count
      BPUT #F%,&52 : BPUT #F%,1 : BPUT#F%,36 : BPUT#F%,0 : REM Vertex format and size
      FOR V% = 0 TO 59
        READ x, y, z, p, q, r, u, v
        PROC4(F%,x)  : PROC4(F%,y)  : PROC4(F%,z)               : REM xyz coordinates
        PROC4(F%,p)  : PROC4(F%,q)  : PROC4(F%,r)               : REM surface normal
        BPUT #F%,&FF : BPUT #F%,&FF : BPUT#F%,&FF : BPUT#F%,&FF : REM argb diffuse colour
        PROC4(F%,u)  : PROC4(F%,v)                              : REM texture uv
      NEXT
      CLOSE #F%
      
      F% = OPENOUT(@tmp$+"mask.fvf")
      BPUT #F%,6   : BPUT#F%,0  : BPUT #F%,0 : BPUT#F%,0 : REM Vertex count
      BPUT #F%,&52 : BPUT #F%,1 : BPUT#F%,36 : BPUT#F%,0 : REM Vertex format and size
      FOR V% = 0 TO 5
        READ x, y, z, p, q, r, u, v
        PROC4(F%,x)  : PROC4(F%,y)  : PROC4(F%,z)               : REM xyz coordinates
        PROC4(F%,p)  : PROC4(F%,q)  : PROC4(F%,r)               : REM surface normal
        BPUT #F%,&FF : BPUT #F%,&FF : BPUT#F%,&FF : BPUT#F%,&FF : REM argb diffuse colour
        PROC4(F%,u)  : PROC4(F%,v)                              : REM texture uv
      NEXT
      CLOSE #F%
      ENDPROC
      
      DEF PROCinitrender
      IF POS REM SDL thread sync
      VDU 26
      
      Device% = FN_initgl(@hwnd%, 1, 1)
      IF Device% = 0 ERROR 100, "Can't initialise 3D library"
      SYS FN_gpa("glEnable"), GL_BLEND, @memhdc%
      SYS FN_gpa("glBlendFunc"), GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA, @memhdc%
      
      REM Load the 3D objects:
      Object%() = FN_load3d(Device%, @tmp$+"organ.fvf", nVert%(0), vFormat%(0), vSize%(0))
      IF Object%(0) = 0 ERROR 100, "Can't load organ.fvf"
      
      Object%(5) = FN_load3d(Device%, @tmp$+"mask.fvf", nVert%(5), vFormat%(5), vSize%(5))
      IF Object%(5) = 0 ERROR 100, "Can't load mask.fvf"
      
      Object%(1) = FN_load3d(Device%, @dir$+"crank.fvf", nVert%(1), vFormat%(1), vSize%(1))
      IF Object%(1) = 0 ERROR 100, "Can't load crank.fvf"
      Xpos(1) = -0.215
      Ypos(1) = 0.15
      Pan(1) = PI
      
      Object%(2) = FN_load3d(Device%, @dir$+"nut.fvf", nVert%(2), vFormat%(2), vSize%(2))
      IF Object%(2) = 0 ERROR 100, "Can't load nut.fvf"
      Xpos(2) = -0.215
      Ypos(2) = 0.15
      Pan(2) = PI
      
      Object%(3) = FN_load3d(Device%, @dir$+"handle.fvf", nVert%(3), vFormat%(3), vSize%(3))
      IF Object%(3) = 0 ERROR 100, "Can't load handle.fvf"
      Xpos(3) = -0.25
      Ypos(3) = -0.16
      Zpos(3) = -0.04
      Roll(3) = PI/2
      Tilt(3) = PI/2
      
      Object%(4) = FN_load3d(Device%, @dir$+"handle.fvf", nVert%(4), vFormat%(4), vSize%(4))
      IF Object%(4) = 0 ERROR 100, "Can't load handle.fvf"
      Xpos(4) = +0.25
      Ypos(4) = -0.16
      Zpos(4) = +0.02
      Pan(4) = PI
      Roll(4) = PI/2
      Tilt(4) = PI/2
      
      REM Load the textures:
      Texture%(0) = FN_loadtexture(Device%, @dir$ + "organ.jpg")
      IF Texture%(0) = 0 ERROR 100, "Can't load organ.jpg"
      
      Texture%(5) = FN_loadtexture(Device%, @dir$ + "mask.png")
      IF Texture%(5) = 0 ERROR 100, "Can't load mask.png"
      
      REM. Point-source Light:
      Light.Type% = 1              : REM. point source
      Light.Diffuse.r% = FN_f4(1)  : REM. diffuse colour RGB
      Light.Diffuse.g% = FN_f4(1)
      Light.Diffuse.b% = FN_f4(1)
      Light.Diffuse.a% = FN_f4(1)
      Light.Specular.r% = FN_f4(1) : REM. specular colour RGB
      Light.Specular.g% = FN_f4(1)
      Light.Specular.b% = FN_f4(1)
      Light.Position.x% = FN_f4(0) : REM. position XYZ
      Light.Position.y% = FN_f4(0)
      Light.Position.z% = FN_f4(-10)
      Light.Range% = FN_f4(20)     : REM. range
      Light.Attenuation0% = FN_f4(1) : REM. attenuation (constant)
      Light%(0) = Light{} - PAGE + !340
      
      REM. Brass-coloured Material:
      Material.Diffuse.r% = FN_f4(0.60)  : REM. diffuse colour RGB
      Material.Diffuse.g% = FN_f4(0.50)
      Material.Diffuse.b% = FN_f4(0.20)
      Material.Diffuse.a% = FN_f4(1.0)
      Material.Specular.r% = FN_f4(0.8) : REM. specular colour RGB
      Material.Specular.g% = FN_f4(0.8)
      Material.Specular.b% = FN_f4(0.8)
      Material.Specular.a% = FN_f4(1.0)
      Material.Power% = FN_f4(20): REM. specular 'power'
      Material%(1) = Material{} - PAGE + !340
      Material%(2) = Material{} - PAGE + !340
      Material%(3) = Material{} - PAGE + !340
      Material%(4) = Material{} - PAGE + !340
      ENDPROC
      
      DEF PROCcleanup
      LOCAL I%
      FOR I% = 0 TO 5
        Texture%(I%) += 0 : IF Texture%(I%) PROC_release(Texture%(I%)) : Texture%(I%) = 0
        Object%(I%) += 0 : IF Object%(I%) PROC_release(Object%(I%)) : Object%(I%) = 0
      NEXT
      Device% += 0    : IF Device%    PROC_release(Device%)    : Device% = 0
      *REFRESH ON
      ENDPROC
      
      DEF PROC4(F%,a) : LOCAL A% : A%=FN_f4(a)
      BPUT #F%,A% : BPUT #F%,A%>>8 : BPUT#F%,A%>>16 : BPUT#F%,A%>>24
      ENDPROC
      
      REM Front (internal):
      DATA +0.25, +0.25, -0.13, 0, 0, -1, 0.94, 0.89 : REM Top right
      DATA -0.25, +0.25, -0.13, 0, 0, -1, 0.40, 0.79 : REM Top left
      DATA -0.25, -0.25, -0.13, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA -0.25, -0.25, -0.13, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA +0.25, -0.25, -0.13, 0, 0, -1, 0.92, 0.22 : REM Bottom right
      DATA +0.25, +0.25, -0.13, 0, 0, -1, 0.94, 0.89 : REM Top right
      
      REM Front plinth:
      DATA +0.26, -0.15, -0.16, 0, 0, -1, 0.94, 0.35 : REM Top right
      DATA -0.26, -0.15, -0.16, 0, 0, -1, 0.40, 0.18 : REM Top left
      DATA -0.26, -0.25, -0.16, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA -0.26, -0.25, -0.16, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA +0.26, -0.25, -0.16, 0, 0, -1, 0.94, 0.22 : REM Bottom right
      DATA +0.26, -0.15, -0.16, 0, 0, -1, 0.94, 0.35 : REM Top right
      
      REM Back:
      DATA -0.25, +0.25, +0.15, 0, 0, +1, 0.16, 0.89 : REM Top right
      DATA +0.25, +0.25, +0.15, 0, 0, +1, 0.40, 0.79 : REM Top left
      DATA +0.25, -0.25, +0.15, 0, 0, +1, 0.40, 0.03 : REM Bottom left
      DATA +0.25, -0.25, +0.15, 0, 0, +1, 0.40, 0.03 : REM Bottom left
      DATA -0.25, -0.25, +0.15, 0, 0, +1, 0.16, 0.24 : REM Bottom right
      DATA -0.25, +0.25, +0.15, 0, 0, +1, 0.16, 0.89 : REM Top right
      
      REM Back plinth:
      DATA -0.26, -0.15, +0.16, 0, 0, +1, 0.15, 0.37 : REM Top right
      DATA +0.26, -0.15, +0.16, 0, 0, +1, 0.40, 0.18 : REM Top left
      DATA +0.26, -0.25, +0.16, 0, 0, +1, 0.40, 0.03 : REM Bottom left
      DATA +0.26, -0.25, +0.16, 0, 0, +1, 0.40, 0.03 : REM Bottom left
      DATA -0.26, -0.25, +0.16, 0, 0, +1, 0.15, 0.24 : REM Bottom right
      DATA -0.26, -0.15, +0.16, 0, 0, +1, 0.15, 0.37 : REM Top right
      
      REM Left:
      DATA -0.25, +0.25, -0.15, -1, 0, 0, 0.40, 0.79 : REM Top right
      DATA -0.25, +0.25, +0.15, -1, 0, 0, 0.155, 0.89 : REM Top left
      DATA -0.25, -0.25, +0.15, -1, 0, 0, 0.163, 0.24 : REM Bottom left
      DATA -0.25, -0.25, +0.15, -1, 0, 0, 0.163, 0.24 : REM Bottom left
      DATA -0.25, -0.25, -0.15, -1, 0, 0, 0.40, 0.03 : REM Bottom right
      DATA -0.25, +0.25, -0.15, -1, 0, 0, 0.40, 0.79 : REM Top right
      
      REM Left plinth:
      DATA -0.26, -0.15, -0.16, -1, 0, 0, 0.40, 0.18 : REM Top right
      DATA -0.26, -0.15, +0.16, -1, 0, 0, 0.15, 0.37 : REM Top left
      DATA -0.26, -0.25, +0.16, -1, 0, 0, 0.15, 0.24 : REM Bottom left
      DATA -0.26, -0.25, +0.16, -1, 0, 0, 0.15, 0.24 : REM Bottom left
      DATA -0.26, -0.25, -0.16, -1, 0, 0, 0.40, 0.03 : REM Bottom right
      DATA -0.26, -0.15, -0.16, -1, 0, 0, 0.40, 0.18 : REM Top right
      
      REM Right:
      DATA +0.25, +0.25, +0.15, +1, 0, 0, 0.155, 0.89 : REM Top right
      DATA +0.25, +0.25, -0.15, +1, 0, 0, 0.40, 0.79 : REM Top left
      DATA +0.25, -0.25, -0.15, +1, 0, 0, 0.40, 0.03 : REM Bottom left
      DATA +0.25, -0.25, -0.15, +1, 0, 0, 0.40, 0.03 : REM Bottom left
      DATA +0.25, -0.25, +0.15, +1, 0, 0, 0.163, 0.24 : REM Bottom right
      DATA +0.25, +0.25, +0.15, +1, 0, 0, 0.155, 0.89 : REM Top right
      
      REM Right plinth:
      DATA +0.26, -0.15, +0.16, +1, 0, 0, 0.40, 0.18 : REM Top right
      DATA +0.26, -0.15, -0.16, +1, 0, 0, 0.15, 0.37 : REM Top left
      DATA +0.26, -0.25, -0.16, +1, 0, 0, 0.15, 0.24 : REM Bottom left
      DATA +0.26, -0.25, -0.16, +1, 0, 0, 0.15, 0.24 : REM Bottom left
      DATA +0.26, -0.25, +0.16, +1, 0, 0, 0.40, 0.03 : REM Bottom right
      DATA +0.26, -0.15, +0.16, +1, 0, 0, 0.40, 0.18 : REM Top right
      
      REM Top:
      DATA +0.255, +0.25, +0.155, 0, +1, 0, 0.65, 0.98 : REM Top right
      DATA -0.255, +0.25, +0.155, 0, +1, 0, 0.15, 0.90 : REM Top left
      DATA -0.255, +0.25, -0.155, 0, +1, 0, 0.40, 0.80 : REM Bottom left
      DATA -0.255, +0.25, -0.155, 0, +1, 0, 0.40, 0.80 : REM Bottom left
      DATA +0.255, +0.25, -0.155, 0, +1, 0, 0.95, 0.90 : REM Bottom right
      DATA +0.255, +0.25, +0.155, 0, +1, 0, 0.65, 0.98 : REM Top right
      
      REM Bottom:
      DATA +0.26, -0.25, +0.16, 0, -1, 0, 0.65, 0.98 : REM Top right
      DATA -0.26, -0.25, +0.16, 0, -1, 0, 0.15, 0.90 : REM Top left
      DATA -0.26, -0.25, -0.16, 0, -1, 0, 0.40, 0.80 : REM Bottom left
      DATA -0.26, -0.25, -0.16, 0, -1, 0, 0.40, 0.80 : REM Bottom left
      DATA +0.26, -0.25, -0.16, 0, -1, 0, 0.95, 0.90 : REM Bottom right
      DATA +0.26, -0.25, +0.16, 0, -1, 0, 0.65, 0.98 : REM Top right
      
      REM Front (external, mask):
      DATA +0.25, +0.25, -0.15, 0, 0, -1, 0.94, 0.89 : REM Top right
      DATA -0.25, +0.25, -0.15, 0, 0, -1, 0.40, 0.79 : REM Top left
      DATA -0.25, -0.25, -0.15, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA -0.25, -0.25, -0.15, 0, 0, -1, 0.40, 0.03 : REM Bottom left
      DATA +0.25, -0.25, -0.15, 0, 0, -1, 0.92, 0.22 : REM Bottom right
      DATA +0.25, +0.25, -0.15, 0, 0, -1, 0.94, 0.89 : REM Top right
      
      REM DATA "[ Brandenburg Concerto Number 3 - J.S.Bach.  1st Movement."
      REM DATA "[ Z80 music transcription by PHIL WHEELER 30th January 1982."
      REM DATA "[ This coding is dedicated to Walter Carlos, who played it"
      REM DATA "[ much better back in 1966, albeit with more hardware !"
      REM DATA V1W5V2W8V3W4V4W1
      DATA K1#
      REM DATA PA ;PAGE 59
      DATA TV1 12GF V2 24G- V3S24G- V4 G-
      DATA TV1 24G12D12C24D12G12F24G12B-12A-24B-12G12F \
      DATA TV2 24B-DB-G-B-DB-G- SV3 24G-GGG-G-GGG- V4 24G-GGG-G-GGG-
      DATA TV1 24G12G-A-24B-C#12DCDEDFDG V2 24B-D12GBAG24FD$B \
      DATA SV3 24G-12GF24EAD12D+C+#24D+D SV4 24G-12GF24EAD12D+C+#24D+D
      DATA TV1 12DC#DEDADBDCDEDC+%DD+ TV2 24FD$GFD$A \
      DATA SV3 24D12D+C+#24D+DD12D+C+12D+F SV4 24D12D+C+#24D+DD12D+C+24D+F
      DATA TV1 24B12AG24A12GF24G12FEDGDG TV2 24D12CB-24C12B-A-24G-GGG- \
      DATA SV3 24GECDE12DC24B12AG SV4 24GECDE12DC24B12AG
      REM DATA PB
      DATA TV1 24E12DCB-GB-G24C12B-A-G-GA-G TV2 24G-GGG-G-GGG- \
      DATA SV3 24C12B-A-24G-12GF24E12DC24B-C# SV4 24C12B-A-24G-12GF24E12DC24B-C#
      DATA TV1 12B-GC#GDFDGDADBDC+%DD+ TV2 24G-GFGABCD \
      DATA SV3 24DD-D-12DE24FGAF SV4 24DD-D-12DE24FGAF
      DATA TV1 24B12AG24DFG12FEDCB-A- TV2 24B12AG24DFG12FEDCB-A-\
      DATA SV3 24GC+D+DG12FEDCB-A- SV4 24GC+D+G12FEDCB-A-
      DATA TV1 24B-12A-G-24DD48G-24$12G+F+ TV2 24B-12A-G-24DD-G-D48G \
      DATA SV3 24B-12A-G-24DD-48G-24$D SV4 24B-12A-G-24DD-48G-$
      DATA TV1 24G+12D+C+24D+$96$ TV2 48$24$12BA24B12GF24G$ \
      DATA SV3 48G-$$24$12D+C+ SV4 48G-$96$
      REM DATA PC ;PAGE 60
      DATA TV1 24$D+12G+B+A+G+F+A+D+E+F+G+A+G+ TV2 24$12B-C24DEA-12D+C+#24D+$ \
      DATA SV3 12BC+BA24GC#47D24$G SV4 24$12G-A-24B-C#48D24$A
      DATA TV1 12F+A+D+E+F+G+A+G+F+A+D+E+F+G+A+G+ TV2 24$12D+C+#24D+$$12D+C+24D+A \
      DATA SV3 48D+24$A48D24$A- SV4 48D+24$A48D24$A-
      DATA TV1 24F+12E+D+24E+12D+C+#24D+12C+BAD+AD+ TV2 24A12GF24G12FE24DD+D+D \
      DATA SV3 24D-B-G-A-B-12A-G-24F-12E-D- SV4 24D-B-G-A-B-12A-G-24F-12E-D-
      DATA TV1 24B12AGFD+FD+24G12FEDD+DD+ TV2 24DD+D+DDD+D+D \
      DATA SV3 24G-12F-D-24D-12D+C+#24B12AG24FG# SV4 24G-12F-D-24D-12D+C+#24B12AG24FG#
      REM DATA PD
      DATA TV1 12FD+G#D+AC+#AD+AE+AF+AG+%AA+ TV2 24DD+C+#BADC#E \
      DATA SV3 24AA-A-12AB24C+#D+E+C+ SV4 24AA-A-12AB24C+#D+E+C+
      REM DATA ;SCORE POSTION A
      DATA TV1 24F+12E+D+24AC+#48D+24$12G+F+ TV2 24D12EF24EA48F$ \
      DATA SV3 24D+GAA-D12D+C+BC+BA SV4 24D+GAA-D-12DCB-CB-A-
      DATA TV1 24G+12D+C+%24D+$96$ TV2 48$24$12BA24B12GF24G$ \
      DATA SV3 48G$$24$12GF SV4 48G-$96$
      DATA TV1 24$12BC+24D+E+A12D++C++#24D++$ TV2 24$D12GBAGFADEFGAG \
      DATA SV3 24G12G-A-24B-C#48D24$A SV4 24$12G-A-24B-C#48D24$A
      DATA TV1 24$12D++C++#24D++$$12D++C++#24D++$ TV2 12FADEFGAGFADEFGAG \
      DATA SV3 48D+24$A48D24$A- SV4 48D+24$A48D24$A-
      REM DATA PE ;PAGE 61
      DATA TV1 24$D+F+A+F+D+F+A+ TV2 24D+12AG24A12D+C+#24D+12FE24F12D+C+ \
      DATA SV3 24D-DDD-D-DDD- SV4 24D-DDD-D-DDD-
      DATA TV1 24F+A12D+F+E+D+C+#E+ABC+D+E+F+ TV2 24D+12DE24FG#A12AG24A$ \
      DATA SV3 24D-12DC#24B-E48A-24$A- SV424D-12DC#24B-E48A-24$A-
      DATA TV1 12GBEFGABC+#D+F+BC+#D+E+F+G+ TV2 24$12BA24B$$12BA24B$ \
      DATA SV3 48E24$E48B-24$B- SV4 48E24$E48B-24$B-
      DATA TV1 24A+A+A+12G+F+24G+G+G+12F+E+ TV2 12D+C+#24D+D+D+12C+B24C+12D+G \
      DATA SV3 24F12BA24B12ED24E12AG24A12DC# SV4 24F12BA24B12ED24E12AG24A12DC#
      DATA TV1 24F+12E+D+24AC+#12D+C+D+E+D+F+D+G+ TV2 24D12EF24GGFFFG \
      DATA SV3 24DGAA-D12D+C+#24D+$ SV4 24DGAA-D12D+C+#24D+$
      REM DATA PE
      DATA TV1 12D+C+#D+E+D+A+D+B+F+E+F+G+F+AG+B TV2 24AAAB12DC#DEDFDG \
      DATA SV3 24$12D+C+#24D+$$12DC#24D$ SV4 24$12D+C+#24D+$$12DC#24D$
      DATA TV1 12F+E+D+G+F+C%G+BAGABAG+AF+ TV2 12DC#DEDADBC+%BC+D+C+BC+A \
      DATA SV3 24$12DC#24D$$12D+C+%24D+D SV4 24$12DC#24D$$12D+C+%24D+D
      DATA TV1 12GFGAGBGC+GFGAGD+GE+ TV2 48$$$$ \
      DATA SV3 24G-12GF24G$$12GF24G$ SV4 24G-12GF24G$$12GF24G$
      DATA TV1 12BABC+BDC+EBABC+BF%C+E TV2 24$$$12G-F-24G-$$12G-F- \
      DATA SV3 24$12G-F-24G-$$12G-F-24G-$ SV4 24$12G-F-24G-$$12G-F-24G-$
      REM DATA PF ;PAGE 62
      DATA TV1 12DCDEDC+DBC+GAB24C+$ TV2 24G-G-G-B-12G-B-CDEDEF% \
      DATA SV3 24$12GF%24GF-48B-12$A-B-C SV4 24$12GF%24GF-48B-12$A-B-C
      DATA TV1 24$12C++B+24C++C++C++12B+A+24B+B+ TV2 24GGG12F%E24FFF12ED \
      DATA SV3 24E12AG24A12DC24D12GF%24G12CB- SV4 24E12AG24A12DC24D12GF%24G12CB-
      DATA TV1 24Bb+12A+G+A+G+F%+E+D+B%GABC+D+E+ TV2 24EEE12DCB-G-B-CDEF%G \
      DATA SV3 24C12F%E48F12FGFEDCB-A- SV4 24C12F%E48F12FGFEDCB-A-
      REM DATA ;SCORE POSITION B
      DATA TV1 12F+%6G+F+E+F+12G+24D+.12C+C+BC+D+C+E+D+F+% TV2 12ABCD24B.12C+48C+24$C \
      DATA SV3 24G-CGG-48C-24$12C+B SV4 24G-CGG-48C-24$12C+B
      REM DATA PG
      DATA TV1 12E+D+E+F+%E+G+F+A+G+F+G+A+G+A+G+F+ TV2 24EGECEGEC \
      DATA SV3 24C+12GF%24G12C+B24C+12ED24E12C+B SV4 24C+12GF%24G12C+B24C+12ED24E12C+B
      DATA TV1 12E+F+%E+D+C+E+D+C+24BG$G- TV2 24G12GG24G$12GF#GAGBAC+ \
      DATA SV3 24C+12CD24EF#12GG-$12GF SV4 24C+12CD24EF#12GG-$12GF
      DATA TV1 24B-DB-G-B-DB-G- TV2 12BABC+BD+C+E+D+C+D+E+D+E+D+C+ \
      DATA SV3 24G12DC24D12GF24G12B-A-24A-12GF SV4 24G12DC24D12GF24G12B-A-24A-12GF
      DATA TV1 24D12DD24D$$12D+C+#24D+$ TV2 12BC+BAGBAG48F24$E \
      DATA SV3 24G12G-A-24B-C#12DCDEDFDG SV4 24G12G-A-24B-C#DDDD
      REM DATA PH ;PAGE 63
      DATA TV1 24$12D+C+#24D+$$12C+%B24C+12BA SV2 24F$$GA$$F \
      DATA SV3 12DC#DEDADBDCDEDC+%DD+ SV4 24DDDDDDDD+
      DATA TV1 24D+12C+B24C+12BA24BG$D TV2 24DDADGD+BG \
      DATA SV3 24B12AG24A12GF24G12BA24B12D+C+ SV4 24B12AG24A12GF24GGGG
      DATA TV1 24B-G-48$24$12D+C+24D+12G+F+ TV2 24$12GF24G12BA24B$48$ \
      DATA SV3 24D+$48$$24$G SV4 24GGGGGGGG
      DATA TV1 24G+12D+C+24D+$48$24$12G+F+ TV2 48$24$12GF24G12B-A-24B-12GF \
      DATA SV3 24GG-G-GGG-G-12GF SV4 24GG-G-GGG-G-12GF
      DATA TV1 24G+12GA24BC+#12D+C+D+E+D+F+D+G+ TV2 24G+12GA24BC+#D12D+C+#24D+$ \
      DATA SV3 24G12G-A-24B-C#DD-D-12D+C+# SV4G12G-A-24B-C#DD-D-12D+C+#
      REM DATA PI
      DATA TV1 12D+C+#D+E+D+A+D+B+D+C+D+E+D+C++%D+D++ TV2 24$12DC#24D$$AFD \
      DATA SV3 24D+DD-12DC#24DD-D-D SV4 24D+DD-12DC#24DD-D-D
      DATA TV1 24B+12A+G+24A+12G+F+24G+12F+E+D+G+D+G+ TV2 24G12AB24C+12BA24GG-G-G \
      DATA SV3 24GECDE12DC24B-12A-G- SV4 24GECDE12DC24B-12A-G-
      DATA TV1 24E+12D+C+BG+BG+24C+12BAGG+AG+ TV2 24GG-G-GGG-G-E \
      DATA SV3 24C12B-A-24G-12GF24E12DC24B-C# SV4 24C12B-A-24G-12GF24E12DC24B-C#
      DATA TV1 12BG+C#G+D+F+D+G+D+A+D+B+D+C++%D+D++ TV2 24DEF12DE24FGAA \
      DATA SV3 24DD-D-12DE24FGAD SV4DD-D-12DE24FGAD
      REM DATA PJ ;PAGE 64
      DATA TV1 24B+12A+G+24D+F+G+12F+E+D+C+BA TV2 24GAAAG12FEDCB-A- \
      DATA SV3 24GCDD-48E-24$F- SV4 24GCDD-48E-24$F-
      REM DATA ;SCORE POSITION C
      DATA TV1 24B12AG24D+D48G12$GDE TV2 24B-12A-G-24DD-G12FEDCB-A- \
      DATA SV3 24G-C-D-DG12FEDCB-A- SV4 24G-C-D-DG12FEDCB-A-
      DATA TV1 12F%EFD+BFDG-FEFD+BFDG- TV2 24G-G-G-G-G-G-G-G- \
      DATA SV3 24G-G-G-G-G-G-G-G- SV4 48G-$G-$
      DATA TV1 12EDEC+GECG-EDEC+GECG- TV2 24G-G-G-G-G-G-G-G- \
      DATA SV3 24G-G-G-G-G-G-G-G- SV4 48G-$G-$
      DATA TV1 12F#EFC+AFCA-FEFC+AFCA- TV2 24G-G-G-G-G-G-G-G- \
      DATA SV3 24G-G-G-G-G-G-G-G- SV4 48G-$G-$
      REM DATA PK
      DATA TV1 12GFGABABC+#24D+D12$D+AB TV2 24G-G-G-A-12A-D+C+#BAGFE \
      DATA SV3 24GFEAD12C#B-A-G-F-E- SV4 24GFEAD12C#B-A-G-F-E-
      DATA TV1 12C+BC+A+F+D+#C+%ACBCA+F+D+C+A TV2 24D#DDDFFFF \
      DATA SV3 24D#DDDFFFF SV4 48D-$F-$
      DATA TV1 12BABA+F+D+#BFBABA+F+D+BF TV2 24AAAAAAAA \
      DATA SV3 24AAAAAAAA SV4 48A-$A$
      DATA TV1 12AGAF+D+#BAFAGAF+D+BAF TV2 24D#DDDB-B-B-B- \
      DATA SV3 24D#DDDB-B-B-B- SV4 48D#$B-$
      REM DATA PL ;PAGE 65
      DATA TV1 24E+12BA24B$96$ TV2 48B-24$12GF24G12ED#24E$ \
      DATA SV3 48E$$24$12GF SV424EEEEEEE12ED#
      DATA TV1 24$12EF24GAB12D+#C+#24D+12F+E+ TV2 24$12E-F-24G-A-48B-$ \
      DATA SV3 24G12E-F-24G-A-12B-A-#B-C#B-D#B-E SV4 24E12E-F-24G-A-B-B-B-B-
      DATA TV1 24F+$48$24$12D#C#24DB+ TV2 24$12AG24A12C+B24C+12D#C#24DB \
      DATA SV3 12B-A-#B-CB-FB-GB-A-B-CB-A%B-B SV4 24B-B-B-B-B-B-B-B
      DATA TV1 24G+12F+E+24F+12E+D+#24C+.12B+A+G+F+E+ TV2 24G12FE24F12ED#24C+.12BAGFE \
      DATA SV3 24G12FE24F12ED#24C+.12BAGFE SV4 24G12FE24F12ED#24C+.12BAGFE
      REM DATA PM ;SCORE POSITION D
      DATA TV1 24B+12A+G+24F+12E+D+#24E+12E+D+24E+$ TV2 24FBA12GFGBEFGABA \
      DATA SV3 24D#EA-B-48E-24$B- SV4 24D#EA-B-48E-24$B-
      DATA TV1 24$12E+D+#24E+$$12E+D+24E+$ TV2 12GBEFGABAGBEFGABA \
      DATA SV3 48E24$B48E+24$B SV4 48E24$B48E+24$B
      DATA TV1 24$12E+F+G+F+E+D+%C+#E+ABC+D+E+D+ TV2 24GEB-EA12AG#24A$ \
      DATA SV3 12EFGFEDC#B-48A-24$E- SV4 12EFGFEDC#B-48A-24$E-
      DATA TV1 12C+#E+ABC+D+E+D+C+E+ABC+D+E+D+ TV2 24$12AG#24A$$12AG24A$ \
      DATA SV3 48A-24$E48A24$E SV4 48A-24$E48A24$E
      REM DATA PN ;PAGE 66
      DATA TV1 12C+#D+E+D+C+E+A+G+24F+12D++C++#24D++$ TV2 24$12AB24C+#E+48A24$12D+C+# \
      DATA SV3 12A-B-C#B-A-G-F-E-D-ADEFGAG SV4 12A-B-C#B-A-G-F-E-48D-24$A-
      DATA TV1 24$12D++C++#24D++$$12D++C++24D++$ TV2 24D+$$12D+C+#24D+$$12D+C+ \
      DATA SV3 12DADEFGAGDADEFGAG SV4 48D24$A48D+24$A
      DATA TV1 48$24$D+12BD+GABC+D+C+ TV2 24D+$48$$24$A- \
      DATA SV3 12FGFEDCB-A-24G-12B-A-24G-D- SV4 48D24$D-48D24$D-
      DATA TV1 24B12G+F+24G+$48$24$12G+F+ TV2 12B-DG-A-B-CDC24B-12GF24G$ \
      DATA SV3 48G-24$F12GDG-A-B-CDC SV4 48G-24$F12GDG-A-B-CDC
      REM DATA PO
      DATA TV1 24G+12BA24B$96$ TV2 48$$$12$DEF \
      DATA TV3 48$24$12BA24B12GFGAGF SV4 12B-DG-A-B-CDCB-CDCB-A-G-F-
      DATA TV1 12E+D+24E+48$12E+D+24E+48$ TV2 12GFGE+C+#A#G%EGFGE+C+AGF \
      DATA TV3 24EEEEEEEE SV4 48E-$E-$
      DATA TV1 12A+#G+#24A+48$12A+G+24A+48$ TV2 12FEFE+C+#A#FC#FEFE+C+AFC \
      DATA TV3 24EEEEEEEE SV4 48E$E$
      DATA TV1 12C++#B+24C++48$12A+#G+#24A+$12B+A+ TV2 12EDEC+#A#FEC#EDEC+AFEC \
      DATA TV3 24A-#A-A-A-F-F-F-F- SV4 48A-#$F-$
      REM DATA PP ;PAGE 67
      DATA TV1 24B+12F+E+24F+12B+A+#24B+12D+C+#24D+12B+A+ TV2 24B-D+BFBD+BF \
      DATA SV3 24B-BBB-B-BBB- SV4 B-BBB-B-BBB-
      DATA TV1 24B+12BC+#24D+E+12F+E+F+G+F+E+D+C+ TV2 24B12D+C+#24B12AG24F12ED24C#A# \
      DATA SV3 24B-12BA24G12FE24D12C#B-24A-#F- SV4 24B-12BA24G12FE24D12C#D-24A-#F-
      DATA TV1 12D+E+D+E+24E+.6D+E+24F+12B+A+#24B+12F+E+ TV2 24BB-B-BBB-B-B \
      DATA SV3 24B-12BA24G12FEDC#DEDEDC TV4 24B-12BA24G12FEDC#DEDEDC
      DATA TV1 24D+12C+#B24C+12BA#24G+.12F+E+D+C+B TV2 24F12ED24E12DC#24G.12FEDCB- \
      DATA SV3 24B-GEFG.12FEDC#B- SV4 24B-GEFG.12FEDC#B-
      REM DATA PQ
      DATA TV1 24F+.12G+24C+#.12B48B TV2 24F12ED24C#C48D$ \
      DATA SV3 24DEFF-B-12BA#48B        SV4 24DEFF-96B-
      REM DATA V1W5V2W8V3W4V4W1
      REM DATA PQ
      REM DATA TV1 48B$ TV2 48D$ \
      REM DATA SV3 24B-12BA#24B12D+C+# SV4 24B-B-B-B-
      DATA TV1 96$24$12D+C+#24D+12F+E+ TV2 24$12FE24F12BA#24B$48$ \
      DATA SV3 24D+$48$$24$12B-C# SV4 24B-B-B-B-B-B-B-12B-C#
      DATA TV1 24F+F+F+12E+D+24E+E+E+12D+C+# TV2 24$12BA#24BBB12A#G24A12BE \
      DATA SV3 24D12GF24G12C#B-24C12FE24F12B-A-# SV4 24D12GF24G12C#B-24C12FE24F12B-A-#
      REM DATA ;SCORE POSITION E
      DATA TV1 24D+.12C+#24C+.12B48B$ TV2 24B-GC#F48D24$12GF \
      DATA SV3 24B-EFF-B-C%B-A- SV4 24B-EFF-B-C%B-A-
      DATA TV1 48GBD+24$D+ TV2 24G12DC24D12GF24G12B-A-24B-12GF \
      DATA TV3 24G-F-G-A-B-CB-A- SV4 48G-$96$
      REM DATA PR ;PAGE 68
      DATA TV1 24BD+12G+B+A+G+F+G+A+G+F+E+D+C+# TV2 24G12G-A-24B-C#48D$ \
      DATA TV3 24G-F-E-A-DD-F-A-
      DATA TV1 24D+12AG24A12D+C+#24D+12FE24F12D+C+ TV2 48DFA24$A \
      DATA TV3 48D$$$ SV4 24DC#DEFGFE
      DATA TV1 24D+12DE24FG#48A24$C+# TV2 24FA12D+F+E+D+C+#D+E+D+C+BAG \
      DATA SV4 24DC#B-E48A-24$A-
      DATA TV1 12D+C+#D+E+D+F+C+E+D+E+F+E+D+C+%BA TV2 12FEFGFAEG48F24$F \
      DATA SV4 24DD-F-A-48D24$D
      REM DATA PS
      DATA TV1 12BABC+BD+AC+BC+D+C+BAGF TV2 12GFGAGBFAGABAGFED# \
      DATA TV3 48$24$12GF24G$ SV4 24GG-B-D48G24$A-
      DATA TV1 12GFGAGBFAGABAGFED TV2 12ED#EFEGDFEFGFED%CB- \
      DATA TV3 48$24$12ED#24E$ SV4 24EE-G-B-48E24$G-
      DATA TV1 12EGFAGBAGFGABC+D+C+D+ TV2 12CB-A-CB-DCB-A-B-CDEFGA \
      DATA TV3 96$48$24$12GF SV4 24CDG-CDCB-A-
      DATA TV1 12BG+F+E+D+C+BAGEDCB-A-G-A- TV2 48G-B-D24$D \
      DATA TV3 24G12DC24D12GF24G12B-A-24B-12GF SV4 24G-GGG-G-GGG-
      REM DATA V1W7
      REM DATA PT ;PAGE 69
      DATA TV1 12B-CB-A-E+G+F+E+D+AD+AD+AD+A TV2 24B-D12GBAGAFAFAFAF \
      DATA TV3 24G12G-A-24B-C#12DAFAFAFA SV4 24G-12GF24EAD+C+BA
      DATA TV1 12F+%D+F+D+F+D+F+D+E+C+E+C+E+C+E+C+ TV2 12BGBGBGBGGEGEGEGE \
      DATA TV3 12DBDBDBDBEBbEBEBEB SV4 24GF%EDC+BbAG
      DATA TV1 12E+C+#E+C+E+C+E+C+D+#BD+BD+BD+B TV2 12A#FAFAFAFFD#FDFDFD \
      DATA TV3 12FA#FAFAFAFA%FAFAFA SV4 24F#EDC#BAGF
      DATA TV1 12D+%BD+BD+BD+BC+%AC+AC+AC+A TV2 12G#EGEGEGEECECECEC \
      DATA TV3 12EG#EGEGEGEAEAEAEA SV4 24EDC%B-A-G-F-%E-
      REM DATA V1W5
      REM DATA PU ;SCORE POSTION F
      DATA TV1 12BbABF+%D+BF%DBABF+D+BFD TV2 12DC24D48$12DC24D48$ \
      DATA TV3 24DDDDDDDD SV4 48D-
      DATA TV1 12C+B%C+F+#C+AF#D#C+BC+F+C+AFD TV2 12F#E24F48$12F#E24F48$ \
      DATA TV3 24D#DDDDDDD SV4 48D#-
      DATA TV1 12D+%C+D+G+#D+BG#ED+C+D+G+D+BGE TV2 12G#F24G48$12G#F24G \
      DATA TV3 24EEEEEEEE SV4 48E-
      DATA TV1 12C+BC+A+F+C+AD#C+BC+A+F+C+AD# TV2 12AG#24A48$12AG#24A48$ \
      DATA TV3 24D#DDDDDDD SV4 48E-
      REM DATA PV ;PAGE 70
      DATA TV1 12BABA+F+%D+BEBABA+F+%D+BE TV2 12D+C+24D+48$12D+C+24D+48$ \
      DATA TV3 24EEEEEEEE SV4 48E-
      DATA TV1 12BABG+#D+BG#EBABG+D+BEG+ TV2 12D+C+24D+48$12D+C+24D+48$ \
      DATA TV3 24EEEEEEEE SV4 48E-
      DATA TV1 24A+12F+%E+24F+12C+B24C+12AG#24AC++ \
      DATA TV2 24E12AG#24A12A-G-#24A-12F-%E-24F-C \
      DATA SV3 24A-$48$$24$A SV4 24A-AAA-A-AAA-
      DATA TV1 24B+12E+D24E+12BA24B12GF24GB TV2 24B12G%F24G12G-F-24G-12E-D-24E-B- \
      DATA SV3 24G-$48$$24$G SV4 24G-GGG-G-GGG-
      REM DATA PW
      DATA TV1 24C+12D+C+#24D+12AG#24A12F%E24FA TV2 24A12F%E24F12F-%E-24F-12D-C-#24D-A- \
      DATA TV3 24F-%$48$$24$F% SV4 24F-%F%FF-F-FFF-
      DATA TV1 24B12G#F#24G12DC24D12B-A-24B-G TV2 24B-12DE24D12G#A24G12BC+24BE \
      DATA SV3 24E12B-C24B-12DE24D12G#A24GB- SV4 24E-EEE-E-EEE-
      DATA TV1 24A.12B24B.12A48A24$A- TV2 24AF%B-B-12AG#ABAC+BD+ \
      DATA TV3 24A-A-EE12EB-CDCEDF% SV4 24CDEE-48A-24$12AG#
      DATA TV1 24CECA-CFCA- TV2 12C+BC+D+C+E+D+F+%E+D+E+F+E+F+E+D+ \
      DATA TV3 12EDEF%EAEBEAEG#EAEG SV4 24A12ED24E12AG#24A12CB-24C12AG
      REM DATA PX ;PAGE 71
      DATA TV1 24E12EE24E$12E+D+#E+F+E+G+F+A+ TV2 12C+D+C+BAC+BAGFGAGBAC \
      DATA TV3 12EF%ED24EB-EB-$E SV4 24A12A-B-24C#D#EE-$12ED
      DATA TV1 12G+F+G+A+G+B+A+C++B+A+B+C++B+C++B+A+ TV2 12BABCBEBFBEBD#BEBD \
      DATA TV3 24GBGEGBGE SV4 24E12B-A-24B-12ED#24E12G-F-24G-12ED
      DATA TV1 12G+A+G+F+E+G+F+E+24D+#B$12G+F+ TV2 12BC+BA24BFFD#$12G+F+ \
      DATA TV3 24B12BB24B$$12B-A-B-CB-A- SV4 24E12E-F-24G-A-12B-A-B-CB-CB-A-
      DATA TV1 24G+12D+%C+24D+12G+F+24G+12BA24B12G+F+ \
      DATA TV2 24G+12D+%C+24D+12G+F+24G+12BA24B12G+F+ \
      DATA TV3 12G-F-G-E-G-B-A-CB-A-B-CB-DCE SV4 48G-24$D12GFGAGBAC+
      REM DATA PY
      DATA TV1 24G+12GA24BC+#D+D12$D+AB TV2 25G+12GA24BC+#D+D48$ \
      DATA TV3 12DEDCB-GFEDD+C+#BABAG SV4 12BC+BAGBAGFBAGFGFE
      REM DATA ;SCORE POSTION G
      DATA TV2 12F+E+24F+48$12F+E+24F+48$ TV1 12C+BC+A+F+C+ADC+BC+A+F+C+AD \
      DATA TV3 24FDDDDDDD SV4 48D$D$
      DATA TV1 12F+%E+F+D++B+F+D+GF+E+F+D++B+F+D+G TV2 12D+C+24D+48$12D+C+24D+ \
      DATA TV3 24DG-G-G-G-G-G-G- SV4 48G-$G-$
      DATA TV2 12E+F+%24E+48$12E+F+24E+48$ TV1 12D+C+D+B+G+#D+BED+C+D+B+G+D+BE \
      DATA TV3 24B-G-#G-G-G-G-G-G- SV4 48G-#$G-#$
      REM DATA PZ ;PAGE 72
      DATA SV3 24E+E+E+E+E+E+E+E+ TV1 12G%FGE+C+#GEA-GFGE+C+GEA- \
      DATA TV2 12C+#B24C+48$12C+B24C+48$ SV4 48A-$A-$
      DATA SV3 24A+A+A+A+A+A+A+A+ TV1 12EbDEC+%AF#EbCEDEC+AFEC \
      DATA TV2 12C+%B24C+48$12C+B24C+48$ SV4 48F-$F-$
      DATA SV3 24A+bA+A+A+A+A+A+A+ TV1 12B-bA-B-AbF%DB-F-%B-A-B-AFD24F+# \
      DATA TV2 12D+C+24D+48$12D+C+24D+24$A SV4 48F-%$F-$
      REM DATA PA ;PAGE 73
      DATA TV1 24G+12E+bD+24E+12BbA24B12GF24GB+ TV2 24Bb12GF24G12G-F-24G-12E-bD-24E-B-b \
      DATA SV3 24G-$48$$24$G SV4 24G-GGG-G-GGG-
      DATA TV1 24A+12D+C+#24D+12AG24A12F%E24FA+ TV2 24A12F%E24F12F-E-24F-12D-C-24D-F \
      DATA SV3 24F-%$48$$24$F% SV4 24F-%F%FF-F-FFF-
      DATA TV1 24G+12C+%B24C+12GF24G12EbD24EG+ TV2 24G12EbD24E12E-bD-24E-12C-D-24C-G \
      DATA SV3 24E-b$48$$24$Eb SV4 24E-bEbEE-E-EEE-
      DATA TV1 24F+12A+G+24A+$$12C++B+b24C++$ TV2 12AFDEFGABbA-CF-G-A-B-bCD \
      DATA TV3 48A-24$D48C+24$A SV4 48D-24$D48D-24$D
      REM DATA PB
      DATA TV1 24$12E++bD++24E++$$12D++C++24D++$ TV2 12EbCA-BbCDE%F#48G24$12C+Bb \
      DATA SV3 48C-24$C12B-bDG-A-B-CDE SV4 48C-24$C12B-bDG-A-B-CDE
      DATA TV1 24$12C++B+b24C++$$12A+G+24F+D+ TV2 24C+$$12AG24F$$D+ \
      DATA SV3 12FADEFGABbC+AFGABC+D+ SV4 12FADEFGABbC+AFGABC+D+
      DATA TV1 24Eb+.12D+C+BbAG24D+12C+B24A12GF TV2 24Eb+.12D+C+BbAG24ADC12B-%A- \
      DATA SV3 24Eb+.12D+C+BbAG24FGD+D SV4Eb+.12D+C+BbAG24FGDD-
      DATA TV1 24G12DC24D12GF24G12B-A-24B-12GF TV2 24B-DB-G-B-GB-G- \
      DATA SV3 24G-GGG-G-GGG- SV4G-GGG-G-GGG-
      REM DATA PC ;PAGE 74
      DATA TV1 24G12G-A-24B-C#12DCDEDFDG TV2 24B-D12GBAG24FD$B \
      DATA SV3 24G-12GF24EAD12D+C+#24D+D SV4 24G-12GF24EAD12D+C+#24D+D
      DATA TV1 12DC#DEDADBDCDEDC+%DD+ TV2 24FD$GFD$A \
      DATA SV3 24D12D+C+#24D+DD12D+C+24D+F SV4 24D12D+C+#24D+DD12D+C+24D+F
      DATA TV1 24B12AG24A12GF24G12FEDGDG TV2 24D12CB-24C12B-A-24G-GGG- \
      DATA SV3 24GECDE12DC24B-12A-G- SV4 24GECDE12DC24B-12A-G-
      DATA TV1 24E12DCB-GB-G24C12B-A-G-GG-G TV2 24G-GGG-G-GGG- \
      DATA SV3 24C12B-A-24G-12GF24E12DC24B-C# SV4 24C12B-A-24G-12GF24E12DC24B-C#
      DATA TV1 12B-GC#GDFDGDADBDC+%DD+ TV2 24G-GFGABC+D+ \
      DATA SV3 24DD-D-12DE24FGAF SV4 24DD-D-12DE24FGAF
      REM DATA PD
      DATA TV1 24B12AG24DFG$48$ TV2 24B12AG24DFG$48$ \
      DATA SV3 24GC+D+DG12GF24G12BA SV4 24GC+D+DG-G-G-G-
      DATA TV1 96$24$12BA24B12D+C+ TV2 24$12DC24D12GF24G$48$ \
      DATA SV3 24B$48$96$ SV4 24G-G-G-G-G-G-G-G-
      DATA TV1 24D+12G+F+24G+12B+A+24B+12A+G+F+E+D+C+ TV2 48$24$DG12FEDCB-A- \
      DATA SV4 24G-G-G-G-G-G-G-G-
      DATA TV1 24G+12F+E+D+C+BA24G12FEDCB-A- TV2 24G-12A-B-CDEF24G12FEDCB-A- \
      DATA SV3 48$24$DG12FEDCB-A- SV4 24G-G-G-DG12FEDCB-A-
      DATA TV1 24B-12A-G-24DD96G- TV2 24B-12A-G-24DD-96G- \
      DATA SV3 24B-12A-G-24DD-96G- SV4 24B-12A-G-24DD-96G-
      DATA 200$
      
      REM DATA "[ Brandenburg Concerto Number 3 - J.S.Bach.  (3rd Movement)"
      REM DATA ; Phil Wheeler, 12th February 1982
      REM DATA ; This coding is dedicated to Walter Carlos, who played it
      REM DATA ; much better back in 1966, albeit with more hardware !
      REM DATA V1W2V2W7V3W8V4W1
      DATA K1# =2
      REM DATA PA ;PAGE 75
      DATA TV1 8GFGABC+D+E+D+C+BA16BD+G+8F+G+F+E+D+C+ TV2 96$8GFGABC+D+E+D+C+BA \
      DATA TV3 16GBD+FAD+GBD+FAD+
      DATA TV1 16BD+G+8F+G+F+E+D+C+16BGD+D+D+D+ \
      DATA TV2 8GGFABC+D+E+D+C+BA16BD+G+8F+G+F+D+C+ \
      DATA TV3 8GFGABC+D+E+D+C+BA16GBDAC+D SV4 96$8GFGABC+D+E+D+C+BA
      DATA TV1 8B+C++B+A+G+F+E+D+E+F+G+E+A+B+A+G+F+E+D+C#+D+E+F+D+ \
      DATA TV2 8D+E+D+C+BAE+F+E+D+C+BAD+C+BAGD+E+D+C+BA \
      DATA TV3 16BBBBBBAAAAAA SV4 8GFGABGC+D+C+BAGFEFGAFBC#+BAGF
      REM DATA PB
      DATA TV1 8G+A+G+F+E+D+C#+BC+D+E+C+16D+F+A+C+E+A+ TV2 8GC+BAGF16EAC#+D+F+A+C+E+A+ \
      DATA TV3 16GGGGGG8FEDEFGABAGFE SV4 8EDEFGEABAGFE32D16$32A-16$
      DATA TV1 16D+F+A+AE+A+8D+C#+D+E+F+G+A+B+A+G+F+E+ \
      DATA TV2 16FAD+8C#+D+C+BAG16FDAAAA \
      DATA TV3 8DC#DEFGABAGFE16FAD+8C#+D+C+BAG SV4 32D-16$32A-16$DFAA-EA
      DATA TV1 16D+F+AE+G+AF+F+F+F+F+F+ TV2 AAAAAAAD+A8BC#+BAG#F \
      DATA TV3 16FDA8C#DCB-A-G-16A-8AGFE16DGD SV4 8DC#DEFGABAGFEDCDEFDGAGFED
      REM DATA PC ;PAGE 76
      DATA TV1 16E+E+E+E+E+E+D+D+D+D+D+D+ \
      DATA TV2 16G#C#+D8ABAGFE16FBFG#BE TV3 8EAGFED16C#FC8DGFEDC16B-EG# \
      DATA SV4 8C#B-CDECFGFEDCB-A-B-CDB-EFEDCB-
      REM DATA ;SCORE POSITION H
      DATA TV1 8C#+E+AE+C+E+ D+F+AF+D+F+ E+G+AG+E+G+ F+A+AA+F+A+ \
      DATA TV2 16C#+E+A+D+F+A+8C+E+AE+C+E+D+F+AF+D+F+ \
      DATA TV3 16AEC#AFDG%ECFDA- SV4 16A-A-A-A-A-A-A-A-A-A-A-A-
      DATA TV1 8G+C#+G+C+G+C+F+D+F+D+F+D+E+AE+AE+AD+AD+AD+A \
      DATA TV2 8E+G+AG+F+G+ F+A+AA+F+A+ G+C#+G+C+G+C+ F+D+F+D+F+D+ \
      DATA TV3 16EC#A-FDA-8CEA-ECEDFAFDF SV4 16A-A-A-A-A-A-A-A-A-A-A-A-
      REM DATA PD
      DATA TV1 16C#+AAAAA8A+C%++D+C++A+C++A+C++D+C++A+C++ \
      DATA TV2 16C#+AAAAA8A+C%++D+C++A+C++A+C++D+C++A+C++ \
      DATA TV3 8EGA-GEGEGA-GEG16FDDDDD SV4 16A-C#ECEADFAFAD+
      DATA TV1 8B+C++D++C++B+A+ G+A+B+A+G+F+ E+F+G+F+E+D+ C#+D+E+D+C+B \
      DATA TV2 16GBD+BD+G+C#+E+A+E+A+C#++ TV3 DDDDDDAAAAAA SV4 32G-64$32G
      DATA TV1 8ABAGFGEFGABC#+D+BAGFE48D TV2 16D++8D+E+16F+AD+C#+48D+D \
      DATA TV3 16A8FG16AA-EG96F SV4 16FED32A16A-96D-
      REM DATA V1W1V2W5V4W6
      
      REM DATA PA ;PAGE 75
      DATA TV1 8GFGABC+D+E+D+C+BA16BD+G+8F+G+F+E+D+C+ TV2 96$8GFGABC+D+E+D+C+BA \
      DATA TV3 16GBD+FAD+GBD+FAD+
      DATA TV1 16BD+G+8F+G+F+E+D+C+16BGD+D+D+D+ \
      DATA TV2 8GGFABC+D+E+D+C+BA16BD+G+8F+G+F+D+C+ \
      DATA TV3 8GFGABC+D+E+D+C+BA16GBDAC+D SV4 96$8GFGABC+D+E+D+C+BA
      DATA TV1 8B+C++B+A+G+F+E+D+E+F+G+E+A+B+A+G+F+E+D+C#+D+E+F+D+ \
      DATA TV2 8D+E+D+C+BAE+F+E+D+C+BAD+C+BAGD+E+D+C+BA \
      DATA TV3 16BBBBBBAAAAAA SV4 8GFGABGC+D+C+BAGFEFGAFBC#+BAGF
      REM DATA PB
      DATA TV1 8G+A+G+F+E+D+C#+BC+D+E+C+16D+F+A+C+E+A+ TV2 8GC+BAGF16EAC#+D+F+A+C+E+A+ \
      DATA TV3 16GGGGGG8FEDEFGABAGFE SV4 8EDEFGEABAGFE32D16$32A-16$
      DATA TV1 16D+F+A+AE+A+8D+C#+D+E+F+G+A+B+A+G+F+E+ \
      DATA TV2 16FAD+8C#+D+C+BAG16FDAAAA \
      DATA TV3 8DC#DEFGABAGFE16FAD+8C#+D+C+BAG SV4 32D-16$32A-16$DFAA-EA
      DATA TV1 16D+F+AE+G+AF+F+F+F+F+F+ TV2 AAAAAAAD+A8BC#+BAG#F \
      DATA TV3 16FDA8C#DCB-A-G-16A-8AGFE16DGD SV4 8DC#DEFGABAGFEDCDEFDGAGFED
      REM DATA PC ;PAGE 76
      DATA TV1 16E+E+E+E+E+E+D+D+D+D+D+D+ \
      DATA TV2 16G#C#+D8ABAGFE16FBFG#BE TV3 8EAGFED16C#FC8DGFEDC16B-EG# \
      DATA SV4 8C#B-CDECFGFEDCB-A-B-CDB-EFEDCB-
      REM DATA ;SCORE POSITION H
      DATA TV1 8C#+E+AE+C+E+ D+F+AF+D+F+ E+G+AG+E+G+ F+A+AA+F+A+ \
      DATA TV2 16C#+E+A+D+F+A+8C+E+AE+C+E+D+F+AF+D+F+ \
      DATA TV3 16AEC#AFDG%ECFDA- SV4 16A-A-A-A-A-A-A-A-A-A-A-A-
      DATA TV1 8G+C#+G+C+G+C+F+D+F+D+F+D+E+AE+AE+AD+AD+AD+A \
      DATA TV2 8E+G+AG+F+G+ F+A+AA+F+A+ G+C#+G+C+G+C+ F+D+F+D+F+D+ \
      DATA TV3 16EC#A-FDA-8CEA-ECEDFAFDF SV4 16A-A-A-A-A-A-A-A-A-A-A-A-
      REM DATA PD
      DATA TV1 16C#+AAAAA8A+C%++D+C++A+C++A+C++D+C++A+C++ \
      DATA TV2 16C#+AAAAA8A+C%++D+C++A+C++A+C++D+C++A+C++ \
      DATA TV3 8EGA-GEGEGA-GEG16FDDDDD SV4 16A-C#ECEADFAFAD+
      DATA TV1 8B+C++D++C++B+A+ G+A+B+A+G+F+ E+F+G+F+E+D+ C#+D+E+D+C+B \
      DATA TV2 16GBD+BD+G+C#+E+A+E+A+C#++ TV3 DDDDDDAAAAAA SV4 32G-64$32G
      DATA TV1 8ABAGFGEFGABC#+D+BAGFE48D TV2 16D++8D+E+16F+AD+C#+48D+D \
      DATA TV3 16A8FG16AA-EG96F SV4 16FED32A16A-96D-
      
      REM DATA V1W2V2W7V3W8
      REM DATA PE ;PAGE 77
      DATA TV1 16DFAC#EADFAA-EA TV2 16DFAC#EADFAA-EA TV3 16AAAAAAAAAAAA \
      DATA SV4 8DC#DEFGABAGFEFAGFEDC#EDCB-A-
      DATA TV1 16BBBBBBBBBBBB TV2 8GFEFGABC%+BAGFGBAGFED#EDC#B-A- \
      DATA TV3 8GFEFGABC%+BAGFGBAGFED#EDC#B-A- SV4 16EGBD#FBEGBB-FB
      DATA TV1 8E+F+G+E+D#+E+ C+E+G+E+D+E+ B4E+F+8G+E+D+E+ AE+G+E+D+E+ \
      DATA TV2 16BE+G+C+E+G+BE+G+AE+G+ TV3 16G-EEEEEEEEEEE \
      DATA SV4 32G-16$32A-16$32B-16$32C16$
      REM DATA PF
      DATA TV1 8B4E+F+8G+E+D#+E+ C+E+G+E+D+E+ B4E+F+8G+E+BD+ E+C+BAGF \
      DATA TV2 16BE+G+C+E+G+BE+D#+32E+16$ TV3 16EEEEEEGBF32G16$ \
      DATA SV4 32G-16$32A-16$B-A-B-E-G-B-
      DATA TV1 8ED#EFGABC+BAGF16GBE+8D#+E+D+C#+BA TV2 96$8ED#EFGABC+BAGF \
      DATA TV3 16EGBD#FBEGBB-FB SV4 32E
      DATA TV1 16GBE+8D#+E+D+C#+BA16GEB+B+B+B+ \
      DATA TV2 8ED#EFGABC+BAGF16GBE+8D#+E+D+C#+BA \
      DATA TV3 8ED#EFGABC+BAGF16EGB-FAB- SV4 96$8ED#EFGABC+BAGF
      REM DATA PG ;PAGE 78
      DATA TV1 8G+A+G+F+E+D+C#+BC+D+E+C+F+G+F+E+D+C+BA#BC+D+B \
      DATA TV2 16BE+B8C#+D+C+BAG16AD+A8BC#+BAGF TV3 16GGGGGGGGGGGG \
      DATA SV4 8ED#EFGEABAGFED%C#DEFDGAGFED
      DATA TV1 8E+F+E+D+C#+B A#G#ABC+A16BD+F+AC+F+ TV2 16EC#+G+A#C+F+BD+F+AC+F+ \
      DATA TV3 16EEEEEE8DC#B-CDE FGFEDC SV4 8C#B-CDECFGFEDC32B-16$32F-16$
      DATA TV1 16BD+F+FC#+F+8BA#BC+D+E+F+G+F+E+D+C+ TV2 16DFB8A#BAG#FE16DB-FFFF \
      DATA TV3 8B-A#-B-C#DEFGFEDC16DFB8A#BAG#FE SV4 32B-16$32F16$B-DFA#-C#F
      REM DATA PH
      DATA TV1 16BD+FC#+E+FD+D+D+D+D+D+ TV2 16FFFFFF8D+E+D+C#+BA%GFGABG \
      DATA TV3 16DFB8A#BAG#FEFG%FEDC#16B-EB- SV4 8B-A#-B-C#DEFGFEDCB-A#-B-CDB-EFEDCB-
      DATA TV1 16C#+C+C+C+C+C+BBBBBB TV2 8C#+D+C+BAGFEFGAFBC#+BAGFEDEFGE \
      DATA TV3 8C#FEDCB-16A-DA-8B-EDCB-A-16G-GC \
      DATA SV4 8A%-G-A-B-C#A-DEDCB-A-G-F-G-A-B-G-CDCB-A#-G#-
      REM DATA ;SCORE POSTION I
      DATA TV1 8A#C#+FC+AC+ BD+FD+B+D+ C+E+FE+C+E+ D+F+FF+D+F+ \
      DATA TV2 16A#C#+F+BD+F+8A#C+FC+AC+ BD+FD+BD+ TV3 16FC#A#-FDB-ECA-DB-F- \
      DATA SV4 16FFFFFFFFFFFF
      REM DATA PI ;PAGE 79
      DATA TV1 8E+A#E+AE+A D+BD+BD+B C#+FC#+FC#+F BFBFBF \
      DATA TV2 8C#+E+FE+C+E+D+F+FF+D+F+ C+E+FE+C+E+D+F+FF+D+F+ \
      DATA TV3 16C#A#-F-DB-F-8A#C#+FC+AC+ BD+FD+BD+ SV4 16F-F-F-F-F-F-F-F-F-F-F-F-
      DATA TV1 16A#FFFFF8F+A%+BA+F+A+ F+A+BA+F+A+ \
      DATA TV2 16A#FFFFF8F+A%+BA+F+A+ F+A+BA+F+A+ \
      DATA TV3 8C#+E+FE+C+E+C+E+FE+C+E+16D#+B-B-B-B-B- SV4 16F-A#-C#A-CFB-D#FDFB
      DATA TV1 8G+A+B+A+G+F+E+F+G+F+E+D+C#+D+E+D+C+BA#BC+BAG# \
      DATA TV2 16EGBGBE+A#C#+F+C+F+A#+ TV3 16B-B-B-B-B-B-FFFFFF SV4 32E-64$32E64$
      REM DATA PJ
      DATA TV1 8FG%FEDEC#DEFG#A#BG%FEDCB-CDEFG TV2 16B+8BC#+16D+FBA#48BB- \
      DATA TV3 8FEDE16FF-8C#D16E48D8DCB-CDE SV4 16DC#B-32F16F-B-DFB8AGFE
      DATA TV1 16AAAAAA8AC+BAGFGFEFGA TV2 16B-B-B-D#DDDB-B-32B-16$ \
      DATA TV3 8FGAGFED#EFEDC#B-DEFGABAGABC%+ SV4 16D#FBB-FBEGBE+8D%+C+BA
      DATA TV1 8BC+D+C+BAG#ABAGFEGABC+D+E+D+C+BC+A  TV2 16BBBBBBBAG#32A16$ \
      DATA TV3 16D+D+D+D+D+D+D+8E+D+C+B16C+A$ SV4 16G#BE+EBE+A-CE8ABAG%F%E
      REM DATA PK ;PAGE 80
      DATA TV1 16F%+F+F+8F+GBD+BG16E+E+E+8E+F%AC+AF \
      DATA TV2 16F%+F+F+8F+GBD+BG16E+E+E+8E+F%AC+AF \
      DATA TV3 8$DF%AFD16BBB8BCEGEC16AAA SV4 16DAD+GDG-CGD+F%CF%-
      DATA TV1 16G+G+G+G+G+G+G+G+G+G+G+G+ \
      DATA TV2 8B-DG-DB-DCEG-ECEDF%G-FDFEGG-GEG \
      DATA TV3 16B-DGCEGG-DF%G-EG SV4 32F%16$32E16$32D16$32C16$
      DATA TV1 16G+G+G+G+G+G+G+G+G+G+G+G+ \
      DATA TV2 8F%B-FB-FB-ECECECDG-DG-DG-CG-CG-CG- \
      DATA TV3 8DF%G-FDFEGG-GEGDFG-FDFEGG-GEG SV4 16B-DGCEG8B-DG-DB-DCEG-ECE
      REM DATA PL
      DATA TV1 8C+Eb+AE+C+BC+E+AE+C+E+16GBD+BD+G+ TV2 16CEbAEAC+8BD+GD+BABD+GD+BD+ \
      DATA TV3 16F-A-CA-CFb8DGB-GDCDGB-GDF% SV4 16F-F-F-F-F-F-F%-F-F-F-F-F-
      REM DATA ;SCORE POSTION K
      DATA TV1 CCCCCCCCCCCC TV2 8C+D+E+C+BC+ AC+E+C+BC+ G4C+D+8E+C+BC+ \
      DATA F%C+E+C+B+C+ TV3 16GC+E+AC+E+GC+E+F%C+E+ SV4 32E-16$32F%-16$32G-16$32A-
      DATA TV1 16CCCCCCEGDECG- TV2 8G4B+D+8E+C+BC+ AC+E+C+BC+ G4C+D+8E+C+GB \
      DATA C+AGF%ED TV3 16GC+E+AC+E+GC+BC+G-G- SV4 32E-16$32F%-16$G-F-G-C-C-D-
      REM DATA PM ;PAGE 81
      DATA TV1 16CEGB-DGCEGG-DG TV2 8CB-CDEF% GAGFED CB-CDEF% GAGFED \
      DATA TV3 16G-G-G-G-G-G-G-G-G-G-G-G- SV4 16E-D-C-G-A-B-32C16$32G
      DATA TV1 8CB-CDEF% GAGFED 16CEG D+F%+G TV2 16ECGGGGGGGGGG \
      DATA TV3 16EGC+8BC+BAGF%16G-GC+8BC+BAGF% SV4 32C16$32G-16$8CB-CDEF%GAGFED
      DATA TV1 16E+E+E+E+E+E+D+D+D+D+D+D+ TV2 8GAGF%ED ABAGF#E \
      DATA DGFEDC GAGFED TV3 8EF%EDCB- A-G-A-B-CA- DEDCB-A- G-F#-G-A-B-G- \
      DATA SV4 8CB-CDEC F#GFEDC B-A-B-CDB- EFEDCB-
      REM DATA PN
      DATA TV1 16C+C+C+C+C+C+8BAGABC+ D+E+D+C+BA TV2 8CF%EDCB- 16FAD+ \
      DATA BDDDDD TV3 8CDCB-A-G- F-E-F-G-A-G- 16GBD+FAD+ \
      DATA SV4 8A-G-A-B-CA- DEDCB-A- 32G-16$32D-
      DATA TV1 16BD+G+8F+G+F+E+D+C+16BGD+D+D+D+ TV2 16DDDDDDDDD \
      DATA DDD TV3 16GBD+DAD+8G-F-G-A-B-C DEDCB-A- SV4 32G-16$32D16$GBD+DAD+
      DATA TV1 16D+D+D+D+D+D+8B+C++B+A+G+F+ E+D+E+F+G+F+ TV2 16DD+G+8F+G+F+E+D+C+ \
      DATA BE+D+C+BA E+F+E+D+C+B TV3 16G-B-DAC+DBBBBBB \
      DATA SV4 8G-F-G-A-B-C DEDC-B-A- G-F-G-A-B-G- CDCB-A-F-
      REM DATA PO ;PAGE 82
      DATA TV1 8A+B+A+G+F+E+ D+C+D+E+F+D+ G+A+G+F+E+D+ C+BC+D+E+B TV2 16AF+AFBF \
      DATA BE+BE-AE- TV3 16AAAAAAGGGGGG SV4 8F-E-F-G-A-F- \
      DATA B-CB-A-G-F- E-D-E-F-G-E- A-B-A-G-F-E-
      DATA TV1 16C+AFD+BGC+AFBGD TV2 8FADAFA GBDBGB AC+DC+AC+ BD+DD+BD+ \
      DATA TV3 16GAD+GBD+8FADAFA GBDBGB SV4 16D-D-D-D-D-D-D-D-D-D-D-D-
      DATA TV1 16AFD BGD 8F+A+D+A+F+A+ G+B+D+B+G+B+ TV2 8AC+DC+AC+ BD+DD+BD+ \
      DATA C+FC+FC+F BGBGBG TV3 8C+FC+FC+F BGBGBG AC+DC+AC+ BD+DD+BD+ \
      DATA SV4 16D-D-D-D-D-D-D-D-D-D-D-D-
      REM DATA PP
      DATA TV1 16F+DDDDD8D+F%+GF+D+F+ D+F+GF+D+F+ TV2 8AC+DC+AC+ AC+DC+AC+ \
      DATA 16BG-G-G-G-G- TV3 8DFAFDA-DA-DFAF GBD+BGD GDGBD+B \
      DATA SV4 16D-F-A- F-A-D G-B-D B-DG
      DATA TV1 8E+F%+G+F+E+D+ C+D+E+D+C+B ABC+BAG F#GAGFE TV2 16G-CEG-CE \
      DATA DFADFA TV3 16G-G-G-G-G-G-DDDDDD SV4 32C-64$32C
      DATA TV1 8DEDCB-C A-B-CDEF GBD+GBD+ G+D+BG16G- TV2 16D+8GA16BDGF \
      DATA GBD+48G+ TV3 16D8B-C16DD-A-C72B- SV4 16B-A-G-32D16D-72G-
      REM DATA V1W1V2W5V4W6
      REM DATA RE RF RG RH RI RJ RK RL RM RN RO RP
      
      REM DATA PE ;PAGE 77
      DATA TV1 16DFAC#EADFAA-EA TV2 16DFAC#EADFAA-EA TV3 16AAAAAAAAAAAA \
      DATA SV4 8DC#DEFGABAGFEFAGFEDC#EDCB-A-
      DATA TV1 16BBBBBBBBBBBB TV2 8GFEFGABC%+BAGFGBAGFED#EDC#B-A- \
      DATA TV3 8GFEFGABC%+BAGFGBAGFED#EDC#B-A- SV4 16EGBD#FBEGBB-FB
      DATA TV1 8E+F+G+E+D#+E+ C+E+G+E+D+E+ B4E+F+8G+E+D+E+ AE+G+E+D+E+ \
      DATA TV2 16BE+G+C+E+G+BE+G+AE+G+ TV3 16G-EEEEEEEEEEE \
      DATA SV4 32G-16$32A-16$32B-16$32C16$
      REM DATA PF
      DATA TV1 8B4E+F+8G+E+D#+E+ C+E+G+E+D+E+ B4E+F+8G+E+BD+ E+C+BAGF \
      DATA TV2 16BE+G+C+E+G+BE+D#+32E+16$ TV3 16EEEEEEGBF32G16$ \
      DATA SV4 32G-16$32A-16$B-A-B-E-G-B-
      DATA TV1 8ED#EFGABC+BAGF16GBE+8D#+E+D+C#+BA TV2 96$8ED#EFGABC+BAGF \
      DATA TV3 16EGBD#FBEGBB-FB SV4 32E
      DATA TV1 16GBE+8D#+E+D+C#+BA16GEB+B+B+B+ \
      DATA TV2 8ED#EFGABC+BAGF16GBE+8D#+E+D+C#+BA \
      DATA TV3 8ED#EFGABC+BAGF16EGB-FAB- SV4 96$8ED#EFGABC+BAGF
      REM DATA PG ;PAGE 78
      DATA TV1 8G+A+G+F+E+D+C#+BC+D+E+C+F+G+F+E+D+C+BA#BC+D+B \
      DATA TV2 16BE+B8C#+D+C+BAG16AD+A8BC#+BAGF TV3 16GGGGGGGGGGGG \
      DATA SV4 8ED#EFGEABAGFED%C#DEFDGAGFED
      DATA TV1 8E+F+E+D+C#+B A#G#ABC+A16BD+F+AC+F+ TV2 16EC#+G+A#C+F+BD+F+AC+F+ \
      DATA TV3 16EEEEEE8DC#B-CDE FGFEDC SV4 8C#B-CDECFGFEDC32B-16$32F-16$
      DATA TV1 16BD+F+FC#+F+8BA#BC+D+E+F+G+F+E+D+C+ TV2 16DFB8A#BAG#FE16DB-FFFF \
      DATA TV3 8B-A#-B-C#DEFGFEDC16DFB8A#BAG#FE SV4 32B-16$32F16$B-DFA#-C#F
      REM DATA PH
      DATA TV1 16BD+FC#+E+FD+D+D+D+D+D+ TV2 16FFFFFF8D+E+D+C#+BA%GFGABG \
      DATA TV3 16DFB8A#BAG#FEFG%FEDC#16B-EB- SV4 8B-A#-B-C#DEFGFEDCB-A#-B-CDB-EFEDCB-
      DATA TV1 16C#+C+C+C+C+C+BBBBBB TV2 8C#+D+C+BAGFEFGAFBC#+BAGFEDEFGE \
      DATA TV3 8C#FEDCB-16A-DA-8B-EDCB-A-16G-GC \
      DATA SV4 8A%-G-A-B-C#A-DEDCB-A-G-F-G-A-B-G-CDCB-A#-G#-
      REM DATA ;SCORE POSTION I
      DATA TV1 8A#C#+FC+AC+ BD+FD+B+D+ C+E+FE+C+E+ D+F+FF+D+F+ \
      DATA TV2 16A#C#+F+BD+F+8A#C+FC+AC+ BD+FD+BD+ TV3 16FC#A#-FDB-ECA-DB-F- \
      DATA SV4 16FFFFFFFFFFFF
      REM DATA PI ;PAGE 79
      DATA TV1 8E+A#E+AE+A D+BD+BD+B C#+FC#+FC#+F BFBFBF \
      DATA TV2 8C#+E+FE+C+E+D+F+FF+D+F+ C+E+FE+C+E+D+F+FF+D+F+ \
      DATA TV3 16C#A#-F-DB-F-8A#C#+FC+AC+ BD+FD+BD+ SV4 16F-F-F-F-F-F-F-F-F-F-F-F-
      DATA TV1 16A#FFFFF8F+A%+BA+F+A+ F+A+BA+F+A+ \
      DATA TV2 16A#FFFFF8F+A%+BA+F+A+ F+A+BA+F+A+ \
      DATA TV3 8C#+E+FE+C+E+C+E+FE+C+E+16D#+B-B-B-B-B- SV4 16F-A#-C#A-CFB-D#FDFB
      DATA TV1 8G+A+B+A+G+F+E+F+G+F+E+D+C#+D+E+D+C+BA#BC+BAG# \
      DATA TV2 16EGBGBE+A#C#+F+C+F+A#+ TV3 16B-B-B-B-B-B-FFFFFF SV4 32E-64$32E64$
      REM DATA PJ
      DATA TV1 8FG%FEDEC#DEFG#A#BG%FEDCB-CDEFG TV2 16B+8BC#+16D+FBA#48BB- \
      DATA TV3 8FEDE16FF-8C#D16E48D8DCB-CDE SV4 16DC#B-32F16F-B-DFB8AGFE
      DATA TV1 16AAAAAA8AC+BAGFGFEFGA TV2 16B-B-B-D#DDDB-B-32B-16$ \
      DATA TV3 8FGAGFED#EFEDC#B-DEFGABAGABC%+ SV4 16D#FBB-FBEGBE+8D%+C+BA
      DATA TV1 8BC+D+C+BAG#ABAGFEGABC+D+E+D+C+BC+A  TV2 16BBBBBBBAG#32A16$ \
      DATA TV3 16D+D+D+D+D+D+D+8E+D+C+B16C+A$ SV4 16G#BE+EBE+A-CE8ABAG%F%E
      REM DATA PK ;PAGE 80
      DATA TV1 16F%+F+F+8F+GBD+BG16E+E+E+8E+F%AC+AF \
      DATA TV2 16F%+F+F+8F+GBD+BG16E+E+E+8E+F%AC+AF \
      DATA TV3 8$DF%AFD16BBB8BCEGEC16AAA SV4 16DAD+GDG-CGD+F%CF%-
      DATA TV1 16G+G+G+G+G+G+G+G+G+G+G+G+ \
      DATA TV2 8B-DG-DB-DCEG-ECEDF%G-FDFEGG-GEG \
      DATA TV3 16B-DGCEGG-DF%G-EG SV4 32F%16$32E16$32D16$32C16$
      DATA TV1 16G+G+G+G+G+G+G+G+G+G+G+G+ \
      DATA TV2 8F%B-FB-FB-ECECECDG-DG-DG-CG-CG-CG- \
      DATA TV3 8DF%G-FDFEGG-GEGDFG-FDFEGG-GEG SV4 16B-DGCEG8B-DG-DB-DCEG-ECE
      REM DATA PL
      DATA TV1 8C+Eb+AE+C+BC+E+AE+C+E+16GBD+BD+G+ TV2 16CEbAEAC+8BD+GD+BABD+GD+BD+ \
      DATA TV3 16F-A-CA-CFb8DGB-GDCDGB-GDF% SV4 16F-F-F-F-F-F-F%-F-F-F-F-F-
      REM DATA ;SCORE POSTION K
      DATA TV1 CCCCCCCCCCCC TV2 8C+D+E+C+BC+ AC+E+C+BC+ G4C+D+8E+C+BC+ \
      DATA F%C+E+C+B+C+ TV3 16GC+E+AC+E+GC+E+F%C+E+ SV4 32E-16$32F%-16$32G-16$32A-
      DATA TV1 16CCCCCCEGDECG- TV2 8G4B+D+8E+C+BC+ AC+E+C+BC+ G4C+D+8E+C+GB \
      DATA C+AGF%ED TV3 16GC+E+AC+E+GC+BC+G-G- SV4 32E-16$32F%-16$G-F-G-C-C-D-
      REM DATA PM ;PAGE 81
      DATA TV1 16CEGB-DGCEGG-DG TV2 8CB-CDEF% GAGFED CB-CDEF% GAGFED \
      DATA TV3 16G-G-G-G-G-G-G-G-G-G-G-G- SV4 16E-D-C-G-A-B-32C16$32G
      DATA TV1 8CB-CDEF% GAGFED 16CEG D+F%+G TV2 16ECGGGGGGGGGG \
      DATA TV3 16EGC+8BC+BAGF%16G-GC+8BC+BAGF% SV4 32C16$32G-16$8CB-CDEF%GAGFED
      DATA TV1 16E+E+E+E+E+E+D+D+D+D+D+D+ TV2 8GAGF%ED ABAGF#E \
      DATA DGFEDC GAGFED TV3 8EF%EDCB- A-G-A-B-CA- DEDCB-A- G-F#-G-A-B-G- \
      DATA SV4 8CB-CDEC F#GFEDC B-A-B-CDB- EFEDCB-
      REM DATA PN
      DATA TV1 16C+C+C+C+C+C+8BAGABC+ D+E+D+C+BA TV2 8CF%EDCB- 16FAD+ \
      DATA BDDDDD TV3 8CDCB-A-G- F-E-F-G-A-G- 16GBD+FAD+ \
      DATA SV4 8A-G-A-B-CA- DEDCB-A- 32G-16$32D-
      DATA TV1 16BD+G+8F+G+F+E+D+C+16BGD+D+D+D+ TV2 16DDDDDDDDD \
      DATA DDD TV3 16GBD+DAD+8G-F-G-A-B-C DEDCB-A- SV4 32G-16$32D16$GBD+DAD+
      DATA TV1 16D+D+D+D+D+D+8B+C++B+A+G+F+ E+D+E+F+G+F+ TV2 16DD+G+8F+G+F+E+D+C+ \
      DATA BE+D+C+BA E+F+E+D+C+B TV3 16G-B-DAC+DBBBBBB \
      DATA SV4 8G-F-G-A-B-C DEDC-B-A- G-F-G-A-B-G- CDCB-A-F-
      REM DATA PO ;PAGE 82
      DATA TV1 8A+B+A+G+F+E+ D+C+D+E+F+D+ G+A+G+F+E+D+ C+BC+D+E+B TV2 16AF+AFBF \
      DATA BE+BE-AE- TV3 16AAAAAAGGGGGG SV4 8F-E-F-G-A-F- \
      DATA B-CB-A-G-F- E-D-E-F-G-E- A-B-A-G-F-E-
      DATA TV1 16C+AFD+BGC+AFBGD TV2 8FADAFA GBDBGB AC+DC+AC+ BD+DD+BD+ \
      DATA TV3 16GAD+GBD+8FADAFA GBDBGB SV4 16D-D-D-D-D-D-D-D-D-D-D-D-
      DATA TV1 16AFD BGD 8F+A+D+A+F+A+ G+B+D+B+G+B+ TV2 8AC+DC+AC+ BD+DD+BD+ \
      DATA C+FC+FC+F BGBGBG TV3 8C+FC+FC+F BGBGBG AC+DC+AC+ BD+DD+BD+ \
      DATA SV4 16D-D-D-D-D-D-D-D-D-D-D-D-
      REM DATA PP
      DATA TV1 16F+DDDDD8D+F%+GF+D+F+ D+F+GF+D+F+ TV2 8AC+DC+AC+ AC+DC+AC+ \
      DATA 16BG-G-G-G-G- TV3 8DFAFDA-DA-DFAF GBD+BGD GDGBD+B \
      DATA SV4 16D-F-A- F-A-D G-B-D B-DG
      DATA TV1 8E+F%+G+F+E+D+ C+D+E+D+C+B ABC+BAG F#GAGFE TV2 16G-CEG-CE \
      DATA DFADFA TV3 16G-G-G-G-G-G-DDDDDD SV4 32C-64$32C
      DATA TV1 8DEDCB-C A-B-CDEF GBD+GBD+ G+D+BG16G- TV2 16D+8GA16BDGF \
      DATA GBD+48G+ TV3 16D8B-C16DD-A-C72B- SV4 16B-A-G-32D16D-72G-
      DATA ";"
      DATA ""