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 / 2_IFELSE.ZRX < prev    next >
Text File  |  1996-08-26  |  680b  |  30 lines
  1. /* REXX */
  2.  
  3. /* HIER WIRD GEZEIGT, WIE MIT REXX ENTSCHEIDUNGEN PROGRAMMIERT WERDEN */
  4.  
  5. CLS
  6.  
  7. /* Als erstes wird ein Requester angezeigt */
  8. answer= ZocRequest("GefÑllt Dir ZOC?", "JA", "NEIN")
  9.  
  10. /* Das ist eine Entscheidung mit nur einer Alternative */
  11. IF answer="##CANCEL##" THEN DO
  12.     SIGNAL endit    /* als Ende springen */
  13. END
  14.  
  15.  
  16. /* Das ist eine Entscheidung mit zwei Alternativen */
  17. IF answer="JA" THEN DO 
  18.     SAY "Schîn zu hîren!"
  19. END
  20. ELSE DO 
  21.     /* ANSWER=Nein */
  22.     SAY "Hups, bist Du Dir wirklich sicher?"
  23.     SAY "(oder hast Du es vielleicht mit Hyper Terminal verwechselt)"
  24. END
  25.  
  26.  
  27. endit:    /* Hier landet der SIGNAL-Befehl von oben */
  28. EXIT
  29.  
  30.