_______________________________________
       |,---"-----------------------------"---,|
       ||___    16 bit....................    ||
       ||====\ :HHHHHHHHHHHHHHHHHHHHHHHHHHH   ||
       ||=====):H c> ATA-RIGHT???     #   H   ||
       ||====/ :H                         H   ||
       ||"""   :H                         H   ||
       ||      :H                         H   ||
       ||      :HHHHHHHHHHHHHHHHHHHHHHHHHHH   ||
       ||_____,_________________________,_____||
       |)_____)-----.| /I\ATARI |.------(_____(|
     //"""""""|_____|=----------=|______|"""""""\
    // _| _| _| _| _| _| _| _| _| _| _| _| _| _| \
   // ___| _| _| _| _| _| _| _| _| _| _| _|  |  | \
  |/ ___| _| _| _| _| _| _| _| _| _| _| _| ______| \
  / __| _| _| _| _| _| _| _| _| _| _| _| _| _| ___| \
 / _| _| _| _| ________________________| _| _| _| _| \
|------"--------------------------------------"-------|
`-----------------------------------------------------'
     []  ,----.___                      []  ,----.___
   __||_/___      '.                  __||_/___      '.
  / O||    /|       )                / O||    /|       )
 /   ""   / /   =._/                /   ""   / /   =._/
/________/ /                       /________/ /
|________|/                        |________|/
-- Thanks dew & PORTFO for the ASCII art <3


do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
setcps (120/60/4)
d1 $ g1 $ gMute -- THE ROAD
  $ midiOn "^74" (fast 2)
  $ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
  $ midiOff "^42" (struct "t*2")
  $ "[jazz,808bd:6]"
  # midiG' "^78" 0 1.4
  # orbit 0
d2 $ g1 $ gM -- THE FUEL
  $ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
  $ midiOn "^75" (ply 2)
  $ loopAt 4
  $ chop 32
  $ "drums_atari:21"
  # midiG' "^79" 0 1.2
  # lpf 2800
  # cut 2
  # orbit 1
d3 $ gM $ g1 -- THE GUIDELINES
  $ midiOn ("^44" - "^76")
    (sometimesBy (slow 8 $ range 0.3 0.95 saw)
    $ mask "t(3,8)")
  $ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN
  $ struct "t*[<8!3 <16 [[16|32]*4]>>!3 <16!3 [12|24]*4> 12!4]"
  $ "h2ogmhh"
  # midiG' "^80" 0 1.2
  # n "<0!4 1 2 3>"
  # orbit 2
d4 $ gMask -- THE THUNDER
  $ g2
  $ midiOn "^57" (off "0.75" id)
  $ midiOn "^89" (off "1" id . chop "8")
  $ fix (|* gain 0.8) (note "a4")
  $ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>"
  # "FMRhodes1"
  # cut 4
  # modIndex (range 0 128 "^53")
  # crushbus 41 (range 16 4 "^33")
  # roombus 42  (range 0.05 0.6 "^33")
  # sz 0.9
  # pan "<0.8!3 0.5>"
  # midiG' "^81" 0 1.8
  # room 0.4
  # orbit 3
d5 $ g2 $ gMask -- THE RAIN
  $ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id))
  $ midiOn "^90" (striate "<2!3 4>" . ply 2)
  $ struct "t(<3!7 [3 8]>,8,<0!3 3>)"
  $ note (
    arp "down"
    ("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12))
  # "FMRhodes2"
  # modIndex (range 0 128 "^54")
  # crushbus 41 (range 16 4 "^34")
  # roombus 42  (range 0 0.2 "^34")
  # sz 0.5
  # pan 0.8
  # orbit 4
  # midiG' "^82" 0 1.9
d8 $ g1 $ gM -- THE UNAVOIDABLE BREAKS
  $ mask "t(16,64)"
  $ midiOn "^60" (ply 2)
  $ midiOn "^92" (fast 2)
  $ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
  $ loopAt 2
  $ "fbreak120:3"
  # cut 8
  # midiG' "^84" 0 1.3
  # orbit 5