proc main

   transmit "^M" 
  
   waitfor "Network ID:"
   transmit $USERID
   transmit "^M"
  
   waitfor "Network password:"
   transmit $PASSWORD
   transmit "^M"
  
   transmit "slip"
   transmit  "^M"
   set ipaddr getip 2



endproc