XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Cordes avec Leerzeichen füllen et sur Longueur 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$ = allô ordinateur!
cls 0
imprimer Originaltext:
imprimer text$
imprimer
NeuText$ = @CutL$( Text$, 25 )  linksbündig füllen
imprimer linksbündig gefüllter Text:
imprimer NeuText$
NeuText$ = @CutR$( Text$, 25 )  rechtsbündig füllen
imprimer
imprimer rechtsbündig gefüllter Text:
imprimer NeuText$
waitinput