;
;  This is an example.   It is not meant to be used as is, but is meant to
;  be a learning aid to people who wish to understand how to construct a
;  script.
;
writeln "Copyright (c) 1986: by P & M Software Co."
writeln
set 1200,n,8,1
when "More" then "N"
beep
writeln "Script to call the PC Interconnection."
name "PC Interconnection"
writeln "Dialing the phone number.  713 is area code."
dial "955-8120" redial
  writeln "Telling the host how fast we are."
  autobaud
  writeln "Waiting for login:"
  wait for "name:"
  writeln
  writeln "Enter you name on 1 line, example: Johnny Jones"
  write "What name should I give? "
  readln v1
  sendln %1
  sendln "y"
  wait for "word:"
  write "What password should I use? "
  readln v2
  sendln %2
  capture
    writeln "Wait for Main Menu"
    wait for "help:"
    sendln "?"
    online
  capture sample.dat
end
hang-up
flush
writeln "End of script for the PC Interconnection."
beep
writeln "Script to call the Programmer's Workshop."
name "the Programmer's Workshop"
writeln "Dialing the phone number.  713 is area code."
dial "772-2090" redial
  writeln "Telling the host how fast we are."
  autobaud
  writeln "Waiting for login:"
  wait for "name:"
  writeln "Signing in"
  sendln "Paul Meiners"
  sendln "y"
  wait for "word:"
  sendln "humpty-dumpty"
  writeln "Wait for Main Menu"
  wait for "help:"
  sendln "?"
  online
end
flush
writeln "End of script for the Programmer's Workshop"