XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text: kurze Strings mit Leerzeichen füllen und auf Länge schneiden
Def @CutL$(2) @Left$($(1)+Space$(%(2)),%(2))
Def @CutR$(2) @Right$(Space$(%(2))+$(1),@%(2))
Syntax:
NeuText$ = @CutL$( Text$, Len% )  linksbündig füllen
NeuText$ = @CutR$( Text$, Len% )  rechtsbündig füllen
declare text$,neutext$
text$ = Hallo Computer!
cls 0
print Originaltext:
print text$
print
NeuText$ = @CutL$( Text$, 25 )  linksbündig füllen
print linksbündig gefüllter Text:
print NeuText$
NeuText$ = @CutR$( Text$, 25 )  rechtsbündig füllen
print
print rechtsbündig gefüllter Text:
print NeuText$
waitinput