# Beispielprogramm zu allgemeinen Funktionen
AZUR (Zeitpunkt zp=@";11.11.88";, Real zahl=1)
IF (IsValid (zp))
Print ("Der Zeitpunkt : ", zp)
zeitstring := ZPStr (zp, "#A, der #x. #i #Y, #w.#M Uhr")
Print (zeitstring)
Print ()
Print ("Die Zahl : ", zahl)
zahlstring := RStr (zahl, ".10f")
Print (zahlstring)
ELSE
System ("azur info.azr")
ENDIF
Print ()
Print ("Und die Zufallszahl lautet : ", Random())
END
Der Zeitpunkt : 11.11.1988 07:30 Freitag, der 11. November 1988, 7.30 Uhr Die Zahl : 1 1.0000000000 Und die Zufallszahl lautet: 0.1036071777
toposoft GmbH 2. Dezember 2014