XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Text: short Strings with space fill and on length cut
Def @CutL$(2) @Left$($(1)+Space$(%(2)),%(2))
Def @CutR$(2) @Right$(Space$(%(2))+$(1),@%(2))
Syntax:
NeuText$ = @CutL$( Text$, Len% )  linksbündig fill
NeuText$ = @CutR$( Text$, Len% )  rechtsbündig fill
declare Text$,neutext$
text$ = Hello computer!
cls 0
print Originaltext:
print Text$
print
NeuText$ = @CutL$( Text$, 25 )  linksbündig fill
print linksbündig gefüllter Text:
print NeuText$
NeuText$ = @CutR$( Text$, 25 )  rechtsbündig fill
print
print rechtsbündig gefüllter Text:
print NeuText$
waitinput