XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlen formatieren
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Wie zeige ich eine Zahl untereinander und sauber an?
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    05.02.2001
-----------------------------------------------
Erklärung:
----------
Mittels Print kann man ja schön Zahlen auf dem
Bildschirm anzeigen. Tja, aber nicht richtig wie
es sich gehört - untereinander!
-----------------------------------------------------------------------------------------
Declare Zahl1%,Zahl2%			Variablen für Zahlen
Window 50,50 - 300,300			einfaches Fenster erstellen
Windowtitle Formatierte Anzeige	Titel des Fensters
let Zahl1%=151315			Zahl Nummer 1
let Zahl2%=1233				Zahl Nummer 2
Zuerst einmal unformatiert anzeigen!
print zahl1%
print zahl2%
Und nun richtig formatiert (sieht doch besser aus oder?)
print @Format$(00000000,zahl1%)	Formatiertes Ergebnis auf den Bildschirm bringen
00000000 bedeutet: Wenn der Stelle eine Zahl ist,
wird diese eingesetzt, jedoch wenn keine Zahl, wird
eine O eingesetzt. (Weitere Platzhalter in der Profanhilfe)
print @Format$(00000000,zahl2%)	dasselbe Thema nur für die 2te Zahl
Nochne einfache Anzeige und dann Schluß:
print 				einfach eine Leerzeile anzeigen (als Abstandshalter)
print ***** Bitte Taste drücken ***** und einen Text!
waitinput				Wartet auf Eingabe oder Mausklick
End					Program exits!