%%HP: T(3)A(D)F(.);
DIR
  up
    \<< UPDIR
    \>>
  BACHEMAJ
    \<< P1 P2 P3 P4 P5 P6 P7
    \>>
  LA
    \<< 220 SWAP BEEP
    \>>
  LAS
    \<< 233 SWAP BEEP
    \>>
  LB
    \<< 246.94 SWAP BEEP
    \>>
  LC
    \<< 261 SWAP BEEP
    \>>
  LCS
    \<< 277 SWAP BEEP
    \>>
  LD
    \<< 294 SWAP BEEP
    \>>
  LDS
    \<< 311 SWAP BEEP
    \>>
  LE
    \<< 329 SWAP BEEP
    \>>
  LF
    \<< 349 SWAP BEEP
    \>>
  LFS
    \<< 370 SWAP BEEP
    \>>
  LG
    \<< 392 SWAP BEEP
    \>>
  LGS
    \<< 415 SWAP BEEP
    \>>
  A
    \<< 440 SWAP BEEP
    \>>
  BF
    \<< 466 SWAP BEEP
    \>>
  B
    \<< 493 SWAP BEEP
    \>>
  C
    \<< 523 SWAP BEEP
    \>>
  CS
    \<< 554 SWAP BEEP
    \>>
  D
    \<< 587 SWAP BEEP
    \>>
  DS
    \<< 622 SWAP BEEP
    \>>
  E
    \<< 659 SWAP BEEP
    \>>
  F
    \<< 698 SWAP BEEP
    \>>
  FS
    \<< 740 SWAP BEEP
    \>>
  G
    \<< 784 SWAP BEEP
    \>>
  GS
    \<< 831 SWAP BEEP
    \>>
  HA
    \<< 880 SWAP BEEP
    \>>
  HAS
    \<< 932 SWAP BEEP
    \>>
  HB
    \<< 988 SWAP BEEP
    \>>
  HC
    \<< 1046 SWAP BEEP
    \>>
  HCS
    \<< 1109 SWAP BEEP
    \>>
  P7
    \<< .2 LFS .2 LFS .2 LGS .2 LGS .2 BF .2 BF .4 B .2 LFS .2 LFS .2 LGS .2
LGS .2 BF .2 BF .2 B .2 CS .2 DS .2 B .2 E .2 CS .4 FS .22 E .24 DS .26 CS
.28 B .3 DS .32 CS .34 B .36 BF 1.5 B
    \>>
  P6
    \<< .2 CS .2 BF .2 LFS .2 LE .2 LFS .2 BF .2 CS 1 8
      START .2 DS
      NEXT .2 E .2 FS .2 GS .2 E .2 DS .2 E .2 FS .2 DS .2 CS .2 DS .2 E .2 CS
.2 B .2 CS .2 DS .2 B .2 BF .2 B .2 CS .2 BF .2 LE .2 LFS .2 LGS .2 LE .2 LCS
.2 LDS .2 LE .2 LCS .2 LAS .2 LB .2 LCS .2 LDS .2 LE .2 LFS .2 LGS .2 BF .2 B
.2 CS .2 DS .08 E .08 FS .4 DS .2 CS .2 B .4 CS .2 B .2 BF .2 B .08 DS .08
E .2 FS .2 B .2 GS .2 B .2 HAS .2 B .2 HB .08 HAS .08 GS .2 FS .2 E .08 DS
.08 E .2 FS .08 CS .08 DS .2 E .08 DS .08 CS .2 B .2 FS .2 DS .2 HB .2 FS
.2 DS .2 B .2 LFS .08 B .08 BF .2 B .2 LFS .2 LDS .08 LFS .08 LE .2 LFS
.2 LDS .4 LB
    \>>
  P5
    \<< .2 FS .2 HB .2 FS .2 E .2 DS .2 FS .2 DS .2 CS .2 B .2 HA .2 FS .2 E .2
DS .2 FS .2 DS .2 CS .2 B .2 GS .2 E .2 DS .2 CS .2 E .2 CS .2 B .2 BF .2 CS
.2 E .2 GS .6 FS .2 E .28 DS .2 FS .2 HAS .2 HB .28 CS .2 E .2 HAS .2 HB .28
B .2 DS .2 HAS .2 HB .28 LF .2 CS .2 GS .2 HB .2 HAS .2 FS .2 CS .2 BF .2
LFS .3 CS .3 DS .3 E 1 8
      START .2 FS
      NEXT .28 FS .2 DS .2 C .2 LGS .2 LFS .2 LGS .2 B .2 DS 1 8
      START .2 E
      NEXT .28 E
    \>>
  P4
    \<< .8 LGS .8 B .4 WAIT 1 2
      START .2 LGS .2 A .4 B
      NEXT .4 E .4 B .2 B .2 A .4 LGS .2 LFS .2 LE .2 A .2 B .2 CS .2 A .2
LGS .2 A .2 B .2 LGS .2 LFS .2 A .2 B .2 DS .2 FS .2 DS .2 CS .2 B .2 A .2
B .2 DS .2 FS .2 HA .2 GS .2 FS .2 E .2 DS .2 E .2 FS .2 DS .2 B .2 DS .2 CS .2
B .2 HA .2 GS .2 FS .2 E .2 DS .2 E .2 FS .2 DS .2 B .2 DS .2 CS .2 B .2 HA .2
GS .2 FS .2 E .2 DS .2 E .2 FS .2 DS .4 B .2 DS .2 E .4 FS .2 DS .2 E .4 FS .4
HB .4 FS .2 FS .2 E .4 DS .2 DS .2 CS
    \>>
  P3
    \<< .8 LE .8 LGS .8 B .4 WAIT .4 B .2 CS .2 DS .2 E .2 CS .6 B .2 B .2 CS
.08 DS .08 E .2 DS .08 E .08 FS .2 B .2 DS .2 E .2 GS .2 HA .2 GS .2 FS .2
HA .2 GS .2 FS .2 E .2 GS .2 FS .2 E .2 DS .2 CS .2 B .2 A .2 LGS .2 LFS .8 LE
    \>>
  P2
    \<< .3 WAIT .2 FS .08 GS .08 HA 1 5
      START .04 GS .04 HA
      NEXT .05 GS .08 FS .08 E .2 GS .2 FS .2 E .2 DS .4 E .2 B .2 B .2 CS
.2 CS .2 DS .2 DS .2 E .2 E .2 B .2 B .2 CS .2 CS .2 DS .2 DS .2 E .2 FS .2
GS .2 E .2 HA .2 FS .4 HB 1 3
      START .04 GS .04 HA
      NEXT .05 GS .2 FS .2 E .2 GS .2 FS .2 E .2 DS .8 E .8 WAIT
    \>>
  P1
    \<< .8 LE .8 LGS .8 B .4 WAIT 1 2
      START .2 LGS .2 A .4 B
      NEXT .4 E .4 B .2 B .2 A .4 LGS .2 LFS .2 LE .2 A .2 B .2 CS .2 A .2
LGS .2 A .2 B .2 LGS .2 LFS .2 B .2 CS .2 DS .2 E .2 FS .2 GS .2 HA 1 8
      START .2 HB
      NEXT .28 HB .2 GS .2 E .2 CS .2 B .2 CS .2 E .2 GS 1 8
      START .2 HA
      NEXT .28 HA .2 FS .2 DS .2 B .2 A .2 B .2 DS .2 FS 1 8
      START .2 GS
      NEXT .2 HA .2 HB .2 HCS .2 HA .2 GS .2 HA .2 HB .2 GS .2 FS .2 GS .2
HA .2 FS .2 E .2 FS .2 GS .2 E .2 DS .2 E .2 FS .2 DS .2 A .2 B .2 CS .2 A .2
LFS .2 LGS .2 A .2 LFS .2 LDS .2 LE .2 LFS .2 LDS .8 LB
    \>>
  order
    \<< { up BACHEMAJ LA LAS LB LC LCS LD LDS LE LF LFS LG LGS A BF B C CS D
DS E F FS G GS HA HAS HB HC HCS } ORDER
    \>>
END
