home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA14.TCP < prev    next >
Encoding:
Text File  |  1997-07-13  |  1012 b   |  30 lines
  1. // ukßzka Φ.14 - script vychßzejφcφ z techniky popsanΘ v ukßzce Φ.13, ovÜem
  2. // ------------- obsluha interaktivn∞ udßvß, zda se dan² proces mß provΘst
  3.  
  4. // Pou₧ity p°φkazy: IfDef, Call, Question, Wait, ShowCheckBox, SetCheck
  5.  
  6. // Nejprve zobrazφm vÜechny monitorujφcφ check boxy
  7. ShowCheckBox cb_Monitor1 "Provedena Φßst 1"
  8. ShowCheckBox cb_Monitor2 "Provedena Φßst 2"
  9. ShowCheckBox cb_Monitor3 "Provedena Φßst 3"
  10. ShowCheckBox cb_Monitor4 "Provedena Φßst 4"
  11.  
  12. // Nynφ se budu postupn∞ ptßt a provßd∞t vÜechny Φßsti programu
  13.  
  14. Question "Mßm provßd∞t Φßst 1 ?"
  15. IfDef CONSENT Call Part1.TCP
  16. // Pokud obsluha odpovφ Ano/Yes, provede se Φßst Φ.1
  17.  
  18. Question "Mßm provßd∞t Φßst 2 ?"
  19. IfDef CONSENT Call Part2.TCP
  20. // Pokud obsluha odpovφ Ano/Yes, provede se Φßst Φ.2
  21.  
  22. Question "Mßm provßd∞t Φßst 3 ?"
  23. IfDef CONSENT Call Part3.TCP
  24. // Pokud obsluha odpovφ Ano/Yes, provede se Φßst Φ.3
  25.  
  26. Question "Mßm provßd∞t Φßst 4 ?"
  27. IfDef CONSENT Call Part4.TCP
  28. // Pokud obsluha odpovφ Ano/Yes, provede se Φßst Φ.4
  29.  
  30.