home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / OS2 / ZOC121.ZIP / ZOC / SCRIPT / CALLZOC next >
Text File  |  1993-12-12  |  380b  |  20 lines

  1. // This script tries to connect to the ZOC infobbs 
  2. // in Germany.
  3.  
  4. ask "What is your international dial prefix?"
  5. compa "%lastline%" with "##CANCEL##"
  6. ifequ goto end
  7.  
  8. seta nr  "%lastline% 49 911 9933662"
  9. request "Agree to call %nr%?" "Yes" "No"
  10. compa "%lastline%" with "Yes"
  11. ifnequ goto end
  12.  
  13. timeout 90
  14. dial "%nr%"
  15. wait "Name"
  16. send "ZOC^M"
  17.  
  18. :end
  19. writeln "Done"
  20.