;WAIT.ASP
;
;After your logon script to CIS completes, and you do all your reading of
;messages, sending of messages, etc., you must logoff manually.
;
;Another approach is to use this script, WAIT, after logon and let it
;do the whole business for you.  You can put it in a Meta Key, Alt=8 (Type
;ASP, Contents WAIT).  After the logon script is complete, just press
;Alt-8.  Or you can add it as a PROC WAIT to your logon script and have
;the logon script PROC MAIN do a CALL WAIT just before its own ENDPROC.
;Or you can incorporate similar coding in your logon script following
;receipt of the first CIS "!" prompt and the LOG OPEN.
;
;WAIT, after setting the ENQuiry to CISB for your automatic file
;transfers, sits there while you do your business on CIS and waits for the
;results after you enter the command "LOG".  LOG is an alternative to "BYE"
;or "OFF" which gives a cleaner logoff, leaving CIS but returning you to
;the CompuServe network.  By using "LOG" you also get a complete message
;about your time on CIS into your open log file.  The script waits WHILE
;you are CONNECTED for the prompt "^M^JUser ID: " from the CompuServe
;network, hangs up, and returns to DOS - after setting the ENQ back to OFF,
;and closing your log file.  By having ENQuiry set to OFF for logon and
;logoff, the nuisance file transfer window popups from noise interpreted as
;Ctrl-E ENQ during logoff are also avoided.  And even if you have not
;properly done a GO DEFAULT on CIS to set "Micro inquiry sequence at logon"
;to NO, having ENQuiry set to OFF in your program during logon again avoids
;the popup file transfer window problem.
;
;Questions can be sent to me on the CIS Datastorm Forum (GO DSTORM).
;         -Paul Heim 74066,635
;
;
PROC MAIN                            ;label for proc
  SET ENQ CISB                       ;set enquiry for CISB transfers
; SET ASCII CHARPACE 0               ;uncomment these two lines are only if
; SET TXPACE 0                       ;you had slowed things down for logon
  USERMSG "ENQuiry set CISB.  Waiting for response to LOG command."
  WHILE CONNECTED                    ;open while
    WAITFOR "^M^JUser ID: "          ;wait for prompt after log command
    IF WAITFOR                       ;open if
      EXITWHILE                      ;exit while to next command
    ENDIF                            ;end the if
  ENDWHILE                           ;end the while
  SET ENQ OFF                        ;set enquiry off
  LOG CLOSE                          ;close log file
  HANGUP                             ;hangup
  QUIT                               ;exit script, quit program
ENDPROC                              ;end the proc wait
;
;