Translation to PBP.

SoundPin VAR PORTC.7

Post #1
Code:
ticksnd:
    sbuff = $FF
    WHILE sbuff != 0
        sbuff = sbuff + $1B
        SOUND SoundPin,[sbuff,1]
    WEND
RETURN
Post #2
Code:
blast:
    FOR sndcnt = $8F TO $20 STEP -3
        SOUND Sound2Pin,[sndcnt,1]
    NEXT sndcnt
RETURN
A little easier on the eyes.

Uht-Oh, I got an idea......