home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / TUTORIAL / 3_LOOP.ZRX < prev    next >
Text File  |  1996-08-26  |  615b  |  35 lines
  1. /* REXX */
  2.  
  3. /* HIER WIRD GEZEIGT, WIE MIT REXX SCHLEIFEN PROGRAMMIERT WERDEN */
  4.  
  5. CALL ZocCls
  6.  
  7. /* Eine einfache Schleife (wird dreimal durchlaufen) */
  8. DO 3
  9.     SAY "ZOC!"
  10. END 
  11.  
  12.  
  13. /* Diese Schleife wird so oft durchlaufen, bis der Benutzer JA antwortet */
  14. DO UNTIL answer="JA"
  15.     answer= ZocRequest("GefÑllt Dir ZOC?", "JA", "NEIN")
  16. END 
  17.  
  18. SAY "Schîn, das zu hîren!"
  19.  
  20.  
  21. /* Eine ZÑhlschleife */
  22. DO i=1 TO 11 
  23.     IF i//2 \= 0 THEN   /* wenn nicht durch 2 teilbar */
  24.     DO 
  25.         SAY i": Er liebt mich"
  26.     END
  27.     ELSE
  28.     DO 
  29.         SAY i": Er liebt mich nicht"
  30.     END
  31. END
  32.  
  33. EXIT
  34.  
  35.