home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / winanw / demo_pf / erstes.prf < prev    next >
Encoding:
Text File  |  1994-01-05  |  549 b   |  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
  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