home *** CD-ROM | disk | FTP | other *** search
/ Fritz: Win Best Test 1 / 70001.ZIP / 70001 / WINWARE1 / PROFAN / ERSTES.PRF < prev    next >
Text File  |  1993-09-26  |  571b  |  27 lines
  1. ' Mein erstes PROFAN-PROGRAMM
  2. ' ---------------------------
  3.  
  4. Declare X%,Text$
  5. ' Die Variablen werden definiert
  6.  
  7. Window 100,100 - 400,300     
  8. ' Die Fenstergr÷▀e wird definiert
  9.  
  10. ' WindowTitle "Mein erstes Programm"                         
  11. ' Der Titel des Fensters (nur in Vollversion)
  12.  
  13. Cls
  14. Print "Bitte einen Text eingeben: ";
  15. Input Text$
  16.  
  17. Let X%=0
  18. While @LT(X%,10)      
  19.   Print X%;". ";Text$
  20.   Let X%=@Add(X%,1)      
  21. Wend
  22.  
  23. MessageBox "Das war's auch schon!",\
  24.            "Programmende",48
  25. 'Meldungsfenster: 48 = Ausrufezeichen + OK-Knopf
  26.  
  27. End