I was bored. So I wrote this.
"YOUR WORDS
//Left blank so nonprogramers have a buffer and don't delete the code instead of the text
Ans→Str1
length(Ans
If 15<Ans or not(Ans
Then
Disp "TEXT MUST BE","FROM 1-15 CHARS.
Stop
End
1→A:1→B:1→C:1→D
While not(getKey
ClrHome
Output(A,B,Str1
A+C→A
B+D→B
C+2((A=1)-(A=8→C
D+2((B=1)-(B=17-length(Str1→D
rand(20
End
ClrHome
It's a costomisable screensaver. The irony, of course, comes from the fact that it does not save your screen (or batteries, because it disables auto-shutoff) at all.