// This script tries to connect to the ZOC infobbs 
// in Germany.

ask "What is your international dial prefix?" "011"
compa "%lastline%" with "##CANCEL##"
ifequ goto end

seta nr  "%lastline% 49 911 9933662"
request "Agree to call %nr%?" "Yes" "No"
compa "%lastline%" with "Yes"
ifnequ goto end

timeout 90
dial "%nr%"
wait "Name"
send "ZOC^M"

:end
writeln "Done"