XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Texteingabe und Textausgabe mittels Input- bzw. Messagebox
DECLARE Name$, Alter%, Text$
Let Name$ = @Input$(Wie heißt Du?,Frage:,)
Let Alter% = @Input$(Wie alt bist Du?,Frage:,99)
Let Text$ = @Add$(Du heißt ,Name$)
Let Text$ = @Add$(Text$, und bist )
Let Text$ = @Add$(Text$,Alter%)
Let Text$ = @Add$(Text$, Jahre alt.)
@MessageBox(Text$,Ergebnis:,64)
END