So I've been working on trying to be able to center text perfectly, and I just realized I should make a program for it.
PROGRAM:TXTCENTR
:AxesOff
:CoordOff
:ExprOff
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:ClrHome
:Input "Text:",Str1
:4length(Str1→A
:94-A→A
:Text(7,.5A,Str1
That's my algorithm and stuff. I want to make this as small and simple as possible so I can use it as a subprogram for my other programs, so if anyone can somehow squish this even small that would be really helpful.
Just wanted to share this.
The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"