XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Texto: kurze Cuerdas con Leerzeichen füllen y en Longitud schneiden
Def @CutL$(2) @Left$($(1)+Espacio$(%(2)),%(2))
Def @CutR$(2) @Right$(Espacio$(%(2))+$(1),@%(2))
Syntax:
NeuText$ = @CutL$( Texto$, Len% )  linksbündig füllen
NeuText$ = @CutR$( Texto$, Len% )  rechtsbündig füllen
declarar texto$,neutext$
text$ = ¡Hola Computer!
cls 0
imprimir Originaltext:
imprimir texto$
imprimir
NeuText$ = @CutL$( Texto$, 25 )  linksbündig füllen
imprimir linksbündig gefüllter Texto:
imprimir NeuText$
NeuText$ = @CutR$( Texto$, 25 )  rechtsbündig füllen
imprimir
imprimir rechtsbündig gefüllter Texto:
imprimir NeuText$
waitinput