XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Texteingabe und Textausgabe
Mein erstes PROFAN-PROGRAMM
---------------------------
Declare X%,Text$
Die Variablen werden definiert
Window 100,100 - 400,300
Die Fenstergröße wird definiert
WindowTitle Mein erstes Programm
Der Titel des Fensters
Cls
Print Bitte einen Text eingeben: ;
Input Text$
Let X%=0

While @LT(X%,10)

    Print X%;. ;Text$
    Let X%=@Add(X%,1)

Wend

WaitKey
MessageBox Das wars auch schon!,
Programmende,48
Meldungsfenster: 48 = Ausrufezeichen + OK-Knopf
End