Compuserve email receive   `        [ B        @ AAAAAAAAAA                                 2    8  @ AAAAAAAAAA     O AAAAAAAAAA    8; CompuServe email receive script      Off      ; Wait for the Main menu   WaitFor 45   WaitIf "!"goto Go_Mail   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 "no mail waiting" goto No_Messages_Pending   WaitIf "is busy" goto Is_Busy   WaitIf "!"  goto Messages_Pending   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 Log_Off      Say_No:   Send N^m    goto Menu_Loop  !   " No_Messages_Pending:  # CRT You have no mail waiting  $ goto Log_Off  %   & Messages_Pending:  ' CRT You have mail waiting  ( DL_Send_Loop:  ) DelFile "mail.txt"  * DelFile "details.txt"  + Send download /pro:B ALL^m  , Wait ALL^m  - LogTo details.txt  .   / WaitFor 30  0 WaitIf "No messages pending" goto No_Messages_Pending  1 WaitIf "* binary *" goto Seen_Binary  2 WaitIf "computer:"goto Send_Filename  3 WaitIf "!"goto DL_Again  4 WaitEnd  5 CRT Unable to receive your mail from CompuServe  6 goto Log_Off      DL_Again:  LogTo  goto DL_Send_Loop    Seen_Binary2:  GoSub KW_Mail_Check  Seen_Binary:  Wait ^m  LogTo 	 WaitFor 30 
 WaitIf "computer:" goto Binary_Filename  WaitEnd  CRT Unable to receive all mail from CompuServe 
 goto Log_Off    Binary_Filename:    CRT You have been sent a binary file, details as follows:  SpeakFile details.txt    Prompt_Again:  GetKey "Do you want this file converted to KeyWord format?" "To have the   file converted, press Y.  To leave it as a binary file, press N." goto   Binary_Abandon    IfCNot Y goto Skip_KW_Binary    ; We are going to treat this file as text mail  DosToKn "details.txt" "CS email   "  Send mail.txt^m  goto Wait_For_Download     Skip_KW_Binary: ! IfCNot N goto Bad_Entry "  # ; Keep it as a binary file, prompt for the filename $ SetString "" % GetString "Type the DOS filename for this binary file now:", "Type a DOS  & filename and press Enter" ' IfNString "" goto Send_Bin_Filename (  ) Binary_Abandon: * Send ^m + CRT Abandoning download of binary file. , goto Mail_Downloaded -  . Bad_Entry: / ErrorBeep 0 goto Prompt_Again 1  2 Send_Bin_Filename: 3 SendString 4 Send ^m 5 goto Wait_For_Download 6    Send_Filename:  ; Download text mail  LogTo  Send mail.txt^m    Wait_For_Download:  TransferSync  DelFile "details.txt"  Logto details.txt 	  
 WaitFor 3000  WaitIf "completed"  goto Mail_Downloaded  WaitIf "aborted" goto Download_Fail 
 WaitIf "* binary *" goto Seen_Binary2  WaitEnd  Download_Fail:  LogTo  CRT Unable to receive all mail from CompuServe at this time.  CRT Please try again later.  Send ^m  goto Log_Off    Mail_Downloaded:  LogTo  WaitFor 60  WaitIf "<CR>"goto Send_CR  WaitIf "!"goto Log_Off  WaitEnd    Send_CR:  Send ^m  goto Mail_Downloaded    ! Log_Off: " GoSub KW_Mail_Check # LogTo $ DelFile "details.txt" %  & No_Mail_Received: ' CRT Logging Off from CompuServe. (  ) LogOff_Loop: * Send bye^m +  , LogOff_Wait: - WaitFor 60 . WaitIf "delete these" goto Delete_Messages / WaitIf "thank you" exit 0 WaitEnd 1 exit 2  3 Delete_Messages: 4 Send Y^m 5 goto LogOff_Wait 6       KW_Mail_Check:  IfNExist "mail.txt" Return    DosToKn "mail.txt" "CS email   "  DelFile "mail.txt"  CRT CompuServe mail has been stored in "CS email   ".  Return