Compuserve email send      `        nƺB        @ AAAAAAAAAA                                 r    8  @ AAAAAAAAAA     O AAAAAAAAAA    8; CompuServe email send script      Off      ; Wait for the Main menu   Main_Menu_Loop:   WaitFor 45   WaitIf "!" goto Go_Mail   WaitIf "mail waiting" goto Messages_Pending  	 WaitEnd   
 CRT Unable to reach CompuServe Menu   goto Log_Off     
 Go_Mail:   Send go mail^m      Menu_Loop:   ; Wait for Mail Menu   WaitFor 30   WaitIf "is busy" goto Is_Busy   WaitIf "!"  goto Mail_Loop   WaitIf "additional information" goto Say_No   WaitEnd   CRT Unable to reach Mail System   goto Log_Off      Is_Busy:   CRT Your mailbox is busy.  Try again later.   Send ^m   goto logoff      Say_No:    Send N^m  ! goto Menu_Loop  "   # Messages_Pending:  $ CRT You have mail waiting to be received.  % goto Main_Menu_Loop  &   ' Mail_Loop:  ( ifnstring " Service " "compuserve" goto Next_Message  ) kntodos "
2 Directory 
   *  File " "mail.txt" goto Next_Message  + Crt Sending message for 2 Name   , SetX 3  -   . Upload_Again:  / Send upload /typ:ASC /pro:b mail.txt^m  0   1 ; Allow upload to take place  2   3 TransferSync  4 WaitFor 60  5 WaitIf "completed!" goto Send_Menu  6 WaitIf "aborted" goto Abandon_Upload   WaitIf "workspace empty" goto Upload_Failed  WaitEnd    Upload_Failed:  DecX  IfXZero goto Abandon_Upload  CRT Upload failed. Trying again.  WaitFor 20  WaitIf "!" goto Upload_Again 	 WaitEnd 
 CRT Unable to send email at this time.   goto Log_Off   
 Abandon_Upload:  CRT Unable to send message to   2 Name .  Trying next message  goto Next_Message    ; The Send Menu is displayed  Send_Menu:  WaitFor 60  WaitIf "<CR>"goto Send_Menu_CR  WaitIf "!"goto Select_Send  WaitEnd    Send_Menu_CR:  Send ^m  goto Send_Menu    Select_Send:  send Send^m     Details_Loop: ! WaitFor 60 " WaitIf "User ID" goto Send_ID # WaitIf "correction" goto Send_ID $ WaitIf "subject" goto Send_Subject % WaitIf "address correct" goto Send_Y & WaitIf "your name" goto Send_Name ' WaitEnd ( CRT Unable to send message to  ) 2 Name . *  + Next_Message: , nextrecord goto The_End - goto Mail_Loop .  / Send_Name: 0 SetString "" 1 GetString "Please type your name and press Enter:" "CompuServe doesn't know  2 your name and needs to say who the mail is from.  Usually you will not have  3 to do this again" goto Send_Name 4 IfNString "" goto Name_Entered 5 ErrorBeep 6 CRT Your name is mandatory.   goto Send_Name    Name_Entered:  SendString  Send ^m    WaitFor 5  WaitIf "To:" goto Details_Loop  WaitIf "again" goto Send_Yes 	 WaitEnd 
 goto Details_Loop    Send_Yes: 
 Send Y^m  goto Details_Loop    Send_ID:  send 2 Address ^m  goto Details_Loop    Send_Subject:  send 2 Subject ^m  goto Details_Loop    Send_Y:  send y^m  Complete_Loop:  WaitFor 20  WaitIf "<CR>" goto Complete_CR  WaitIf "!" goto Send_Complete  WaitEnd  goto Details_Loop    ! Complete_CR: " Send ^m # goto Complete_Loop $  % Send_Complete: & Crt Message sent to 2 Name . ' delrecord goto The_End ( goto Mail_Loop )  * The_End: +  , Log_Off: - DelFile "mail.txt" . CRT Logging Off from CompuServe. / send bye^m 0 WaitFor 60 1 WaitIf "thank you" Exit 2 WaitEnd 3 Exit 4 