XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Uhrzeit ausgeben
Lauffähig ab Profan-Version 5.0
Erklärung:
-----------------
Dieses Beispiel zeigt, wie die aktuelle Zeit zurück gegeben werden kann
Time$(0) : Es werden die Minuten und die Stunden angezeigt
Time$(1) : Es werden die Sekunden und die hunderstel Sekunden angezeigt
-----------------
Cls   Standardfenster (640*480 Pixel) wird geöffnet
Print Stunden : Minuten | werden angezeigt   Text wird auf das Hauptfenster geschrieben
Print Time$(0)   Die aktuelle Zeit wird ausgegeben
Print   eine Leerzeile wird erzeugt
Print Sekunden . Millisekunden | werden angezeigt
Print Time$(1)   Die aktuelle Zeit wird ausgegeben
Print
Print Taste drücken, um Programm zu beenden
Waitinput   Es wird auf eine Eingabe