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 / MANUAL / LOGIN.ZRX < prev    next >
Text File  |  1996-09-16  |  916b  |  32 lines
  1. /* REXX-Programm: LOGIN.ZRX */
  2.  
  3. CALL ZocCls                /* Bildschirm lîschen */
  4.  
  5. CALL ZocTimeout 60         /* Maximale Wartezeit */
  6.  
  7. CALL ZocWait "<ESC> DrÅcken"
  8. CALL ZocSend "^["          /* ^[ ist der Code fÅr ESC */
  9.  
  10. CALL ZocWait "Name?"
  11. CALL ZocSend "Joe User^M"  /* ^M darf nicht vergessen werden */
  12.  
  13. CALL ZocWait "[Ja/Nein]"
  14. CALL ZocSend "Ja^M"
  15.  
  16. CALL ZocWait "Pa·wort?"
  17. CALL ZocSend "geheim^M"
  18.  
  19. /* Der nÑchste Befehl bewirkt, da· ZOC automatisch
  20.    immer ein ^M (Return) sendet, wenn der Text
  21.    "Weiter mit RETURN" empfangen wird. Auf diese
  22.    Weise kînnen alle Empfangsseiten, unabhÑngig von
  23.    der Anzahl, automatisch Åbersprungen werden */
  24. CALL ZocReply "Return", "^M"
  25.  
  26. /* Auf das HauptmenÅ warten */
  27. CALL ZocWait "HauptmenÅ"
  28.  
  29. /* Der nÑchste Befehl lîscht das vorherige REPLY-Kommando.
  30.    ZOC reagiert ab jetzt nicht mehr auf den Text "Return" */
  31. CALL ZocReply "Return"
  32.