🚀 go-pugleaf

	The title pretty much says it: I'm trying to implement a simple
 modem dial command procedure, and cannot get the modem to respond.
the description of the SET CHANNEL Command tells me that the following
code should work (at least, that is how it looks to me) COuld someone 
critique this ? All I  want to to is dial my creaky old 1200 baud modem,
although it would be nice to get the modem's responses to.I am using a
Hayes compatible modem.

` function: dial_modem
` synopsis: dial string passed in
$channel:=1` modem port
$channel:=$channel+20` xon/off->20 (dtr=30)
$setup:=94` speed = 1200->94 (2400->46;96->10)
$setup:=$setup+3072` 8 bits (7->1024)
$setup:=$setup+16384` 1 stop bit(1.5->-32768;2->-16384)
$setup:=$setup+0` no parity(od->4096,even->12288)
` or, example says 8 bits, no parity, 1 stop bit at 1200 = 27742
`$setup:=27742
SET CHANNEL($channel;$setup)
$number:=$1` put code to strip out junk from number here
SEND PACKET("ATDT"+$number)


  thanks for your comments & suggestions,

	Craig Schwartz
	craig@hyperion.loni.ucla.edu