home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA08.TCP < prev    next >
Text File  |  1997-07-13  |  1KB  |  35 lines
  1. // ukßzka Φ.8 - script umo₧≥ujφcφ p°φm² "rozhovor" dvou subjekt∙, jeden Φekß
  2. // ------------ po parametru -a, druh² se p°ipojuje parametrem -c a pomocφ
  3. //              parametru -dMASTER urΦuje svoje postavenφ (zasφlß prvnφ °ßdku)
  4.  
  5. // Pou₧ity p°φkazy: Send, SkipTo, IfNotDef, Label, GoTo, Input
  6. // Respektuje d°φve navßzanΘ spojenφ
  7.  
  8. IfNotDef MASTER GoTo CtiRadku
  9. // Pokud jsem pod°φzen² spojenφ (symbol MASTER nenφ definovßn), nezasφlßm
  10. // prvnφ °ßdku a ihned Φekßm na °ßdku partnera
  11.  
  12. Input "Zadejte ·vodnφ °ßdku pro partnera:"
  13. // Do systΘmovΘ prom∞nnΘ line ulo₧φ prvnφ °ßdku pro partnera
  14.  
  15. Send line nl
  16. // OdeÜle tuto °ßdku
  17.  
  18. Label CtiRadku
  19. // Cyklus pokraΦujφcφ v∞Φn∞, dokud jeden z partner∙ nep°eruÜφ script a
  20. // neuzav°e spojenφ ruΦn∞
  21.  
  22. SkipTo nl
  23. // NaΦte °ßdku od partnera a ulo₧φ ji do systΘmovΘ prom∞nnΘ line
  24.  
  25. Input "Odpov∞zte na: " line
  26. // Zobrazφ °ßdku od partnera a souΦasn∞ ulo₧φ do line °ßdku pro partnera
  27.  
  28. Send line nl
  29. // OdeÜle zadanou °ßdku
  30.  
  31. GoTo CtiRadku
  32. // Nßvrat na zaΦßtek cyklu (Φekßnφ na dalÜφ °ßdku)
  33.  
  34. // script nenφ ukonΦen jinak ne₧ p°eruÜenφm ze strany obsluhy
  35.