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

set $scale 8

set $0 0
set $1 1
set $2 2
set $3 3
set $4 4
set $5 5
set $6 6
set $7 7
set $8 8
set $9 9
set $10 10
set $11 11
set $12 12

lo $note1
set $note2 $note1

@loop

set $offset $note1
add $offset $scale
mod $offset $12


eq $offset $0 @min
eq $offset $1 @maj
eq $offset $2 @min
eq $offset $3 @maj
eq $offset $4 @min
eq $offset $5 @min
eq $offset $6 @maj
eq $offset $7 @min
eq $offset $8 @maj
eq $offset $9 @min
eq $offset $10 @maj
goto @min




@min
set $transp 3
goto @play

@maj
set $transp 4


@play

on $note1 $vel1
wait 1
off $note1

set $note3 $note1
add $note3 $transp
on $note3 $vel2
wait 1
off $note3

on $note1 $vel3
wait 1
off $note1


on $note2 $vel4 12
wait 1
off $note2 12

set $note2 $note1

down $note1
valid $note1 @loop
hi $note1

goto @loop 







