set $vel0 1
set $vel1 .8
set $vel2 .6
set $vel3 .4

set $0 0
set $1 1
set $2 2
set $3 3
set $oct 12

set $vcount 4
set $dcount 3

set $vcounter 0
set $dcounter 0

set $step 1
set $reset 0

set $spacing 4
set $basslimit 52
set $hilimit 53

lo $note
hi $prev

@loop
eq $vcounter $0 @vel0
eq $vcounter $1 @vel1
eq $vcounter $2 @vel2
eq $vcounter $3 @vel3

@vel0 
set $vel $vel0
goto @spacing

@vel1
set $vel $vel1
goto @spacing

@vel2
set $vel $vel2
goto @spacing

@vel3
set $vel $vel3

@spacing

set $notetemp $note
set $prevtemp $prev


set $playnote $note

@addloop
ge $playnote $hilimit @continue
add $playnote $oct
goto @addloop
@continue

lt $notetemp $prevtemp @otherwayaround

sub $notetemp $prevtemp
le $notetemp $spacing @addoctave
goto @play

@otherwayaround

sub $prevtemp $notetemp
le $prevtemp $spacing @addoctave
goto @play

@addoctave
add $playnote $oct

@play

gt $vcounter $reset @justplay

@subloop
le $playnote $basslimit @justplay
sub $playnote $oct
goto @subloop
@justplay

on $playnote $vel
wait 1
off $playnote

set $prev $playnote

add $vcounter $step
mod $vcounter $vcount

add $dcounter $step
lt $dcounter $dcount @up

/down

set $dcounter $reset
down $note
valid $note @skip1
hi $note
@skip1

goto @loop

@up

up $note
valid $note @skip2
lo $note
@skip2


goto @loop
