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.