Compuserve direct log on   `        b:kB        @ AAAAAAAAAA                                   2    ; CompuServe Direct Log on Script      Off      IfNString " Phone number " "" goto Number_Used   ErrorBeep   CRT You must enter your local CompuServe phone number in the    Directory of Services before you can dial CompuServe.   Exit  	   
 Number_Used:   IfNString    "2 User ID " "" goto   
 ID_Entered   ErrorBeep   CRT Do you have a CompuServe User ID?  If so, please enter    it in the Directory of Services.  If not, see the file    called "Joining CompuServe" for details about joining using    Key-Term.   Exit      ID_Entered:   IfNString " Password " "" goto Password_Entered   ErrorBeep   CRT Your password has not been entered into the Directory of    Services.  Please enter it and call again.   Exit      Password_Entered:   Send ^m      Start_Connect:    SetX 10  !   " Connect_Wait:  # WaitFor 10  $ WaitIf "Host Name:"goto Send_Host_Name  % WaitIf "Password:"goto Send_Password  & WaitIf "User ID:"goto Send_ID  ' WaitIf "^[I"goto Logon_Success  ( WaitIf "Disconnected" goto Disconnected  ) WaitEnd  *   + DecX  , IfXZero goto Logon_Fail  - goto Send_CR  .   / Disconnected:  0 CRT Check your User ID and Password.  1 Logon_Fail:  2 crt CompuServe logon failed  3 exit  4   5 Send_CR:  6 send ^m   goto Start_Connect    Send_Host_Name:  send CIS^m  crt Logging on to CompuServe  goto Connect_Wait    Send_ID:  send 2 User ID ^m 	 goto Connect_Wait 
   Send_Password:  send  Password ^m 
 goto Connect_Wait    Logon_Success:  crt Connected  on  return  