XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
DrawText: Text rechtsbündig formatieren
1. Parameter = String  / 2. Parameter = Stringlänge (Integer)
DEF @TextR$(2) @ADD$(@Space$(@%(2) - @Len(@Trim$(@$(1)))),@Trim$(@$(1)))  nur Font Fixedsys
cls
UseFont Fixedsys,14,7,0,0,0
DrawText 10,10,@TextR$(Hallo,20)
DrawText 10,30,@TextR$( Hallo Hallo,20)
decimals 2
DrawText 10,60,@TextR$(@STR$(1234.56),20)
DrawText 10,80,@TextR$(@STR$(  34.56),20)
DrawText 10,100,@TextR$(@STR$(1234),20)
waitinput