XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text in Großbuchstaben umwandeln
Lauffähig ab Profan-Version 5.0
Erklärung:
-----------------
Es wird gezeigt, wie man einen String so umwandelt, das alle Buchstaben
groß geschrieben werden
Upper$(String) : String wird in Großbuchstaben umgewandelt
-----------------
declare Zeichen$	 Speicher für Variablen reservieren
Cls	 Standartfenster mit 640 * 480 pixel
Print Bitte gib eine Zeichenkette ein	 Text ausgabe auf dem Hauptfenster
Input Zeichen$	 Variable wird Wert zugewiesen
Print	 Leerzeile wird erzeugt
Print Alle Buchstaben sind nun Großgeschrieben
Print Upper$(Zeichen$)	 Zeichenkette wird in Großbuchstaben umgewandelt
Waitinput	 Es wird auf eine Eintgabe gewartet
End	 Reservierter Speicher wird frei gegeben