**Ti-Basic, 56 Chars** 

    While 1:Output(8,int(7sin(X)+8),"!":Disp "":π/30+X→X:End

**The following caveat exists**:

1. Due to lack of a system timer, the delay is not implemented exactly correct.  However, run speed appears approximately correct (50-70).