<< Home | About Forth | About TurboForth | Download | Language Reference | Resources | Tutorials | YouTube >>

;          _____                       _  __          __           _     
;         / ____|                     | | \ \        / /          | |    
;        | (___   ___  _   _ _ __   __| |  \ \  /\  / /__  _ __ __| |___ 
;         \___ \ / _ \| | | | '_ \ / _` |   \ \/  \/ / _ \| '__/ _` / __|
;         ____) | (_) | |_| | | | | (_| |    \  /\  / (_) | | | (_| \__ \
;        |_____/ \___/ \__,_|_| |_|\__,_|     \/  \/ \___/|_|  \__,_|___/
                                                                        

; SOUND ( pitch vol ch# -- )
soundh  data feofh,5
        text 'SOUND '
sound   data $+2
        bl @bank1
        data sound1     ; see 1-15-Sound.a99