\\
\\ Galaforce 1 ( Electron ) from the original 6502 source code, adapted to assemble using beebasm
\\
\\ (c) Kevin Edwards 1986-2019
\\
\\ Twitter @KevEdwardsRetro
\\

\\ REM SAVE":2.MUSIC3"
\\ B%=P%
\\ [OPT pass

 \16-Zone Music
 
 .ZONE1
      EQUB 8+D2:EQUB 8+D2:EQUB 20+D1:EQUB 8+D2:EQUB 8+D1
      EQUB 8+D2:EQUB 8+D2:EQUB 20+D1:EQUB 8+D2:EQUB 8+D1
      EQUB 11+D2:EQUB 11+D2:EQUB 18+D1:EQUB 11+D2:EQUB 11+D1
      EQUB 11+D2:EQUB 11+D2:EQUB 18+D1:EQUB 11+D2:EQUB 11+D1
      EQUB 13+D2:EQUB 13+D2:EQUB 20+D1:EQUB 13+D2:EQUB 13+D1
      EQUB 13+D2:EQUB 13+D2:EQUB 20+D1:EQUB 13+D2:EQUB 13+D1
      EQUB 16+D2:EQUB 16+D2:EQUB 20+D1:EQUB 16+D2:EQUB 16+D1
      EQUB 16+D2:EQUB 16+D2:EQUB 20+D1:EQUB 16+D2:EQUB 16+D1
      EQUB 0
 .ZONE2
      EQUB 3+D1:EQUB 8+D1:EQUB 11+D1:EQUB 15+D1
      EQUB 20+D1:EQUB 15+D1:EQUB 11+D1:EQUB 8+D1
      EQUB 3+D1:EQUB 8+D1:EQUB 11+D1:EQUB 15+D1
      EQUB 20+D1:EQUB 15+D1:EQUB 11+D1:EQUB 8+D1
      EQUB 3+D1:EQUB 6+D1:EQUB 11+D1:EQUB 15+D1
      EQUB 18+D1:EQUB 15+D1:EQUB 11+D1:EQUB 6+D1
      EQUB 3+D1:EQUB 6+D1:EQUB 11+D1:EQUB 15+D1
      EQUB 18+D1:EQUB 15+D1:EQUB 11+D1:EQUB 6+D1
      EQUB 4+D1:EQUB 8+D1:EQUB 13+D1:EQUB 16+D1
      EQUB 20+D1:EQUB 16+D1:EQUB 13+D1:EQUB 8+D1
      EQUB 4+D1:EQUB 8+D1:EQUB 13+D1:EQUB 16+D1
      EQUB 20+D1:EQUB 16+D1:EQUB 13+D1:EQUB 8+D1
      EQUB 4+D1:EQUB 8+D1:EQUB 11+D1:EQUB 16+D1
      EQUB 20+D1:EQUB 16+D1:EQUB 11+D1:EQUB 8+D1
      EQUB 4+D1:EQUB 8+D1:EQUB 11+D1:EQUB 16+D1
      EQUB 20+D1:EQUB 16+D1:EQUB 11+D1:EQUB 8+D1:EQUB Rest+D1
      EQUB 0
 .ZONE3
      EQUB 32+D2:EQUB 32+D3:EQUB 32+D2:EQUB 30+D1
      EQUB 32+D2:EQUB 32+D3:EQUB 27+D1:EQUB 30+D1:EQUB 32+D1
      EQUB 35+D2:EQUB 35+D3:EQUB 35+D2:EQUB 30+D1
      EQUB 35+D2:EQUB 35+D3:EQUB 30+D1:EQUB 32+D1:EQUB 35+D1
      EQUB 37+D2:EQUB 37+D3:EQUB 37+D2:EQUB 37+D1
      EQUB 37+D2:EQUB 37+D3:EQUB 37+D2:EQUB 36+D1
      EQUB 35+D2:EQUB 35+D3:EQUB 35+D2:EQUB 34+D1
      EQUB 35+D2:EQUB 35+D1:EQUB 34+D1
      EQUB 35+D1:EQUB 37+D1:EQUB 35+D1:EQUB 34+D1
      EQUB 0
 
 \       Addr1    Speed   Env    Dur
 .LT  EQUW STRT1:EQUB 23:EQUB 05:EQUB 05
      EQUW BETW1:EQUB 07:EQUB 08:EQUB 08
      EQUW OVER1:EQUB 23:EQUB 11:EQUB 05
      EQUW DEMa1:EQUB 27:EQUB 14:EQUB 11
      EQUW LOST1:EQUB 03:EQUB 02:EQUB 02
      EQUW ZONE2:EQUB 03:EQUB 05:EQUB 05
      EQUW DEMa2:EQUB 27:EQUB 14:EQUB 11
      EQUW DEMa3:EQUB 27:EQUB 14:EQUB 11
      EQUW DEMd1:EQUB 27:EQUB 14:EQUB 14
 
\\ ]
\\ PRINT"Music 3    from &";~B%;" to &";~P%-1;" (";P%-B%;")"
\\ PAGE=PG%
\\ RETURN
