home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / zoc201.zip / INSTALL.FIL / SCRIPT / CALLZOC next >
Text File  |  1994-10-05  |  386b  |  20 lines
  1. // This script tries to connect to the ZOC infobbs 
  2. // in Germany.
  3.  
  4. ask "What is your international dial prefix?" "011"
  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.