;Contenualy captures the terminal screen to a file.  v1.00

;*****************************************************************************
;* Written by:  Symantec ASPECT Assist                                       *
;*                                                                           *                                                                             
;* This script file will give the user the option of either capturing data   *
;* in half hour increments, or in 24 hour increments. The Capture file will  *
;* close after a predefined period of inactivity on the port.                *
;*                                                                           *
;* This ASPECT script is intended only as a sample of ASPECT programming.    *
;* Symantec makes no warranty of any kind, express or implied, including     *
;* without limitation, any warranties of merchantability and/or fitness      *
;* for a particular purpose.  Use of this program is at your own risk.       *
;*                                                                           *
;* Technical Support is not provided on this script.                         *                                                                          *
;*****************************************************************************

;*****************************************************************************

;*****************************************************************************
;*                                                                           *
;* MAIN                                                                      *
;* The Main procedure calls Proc1 to...                                      *
;*                                                                           *
;* Calls:                                                                    *
;* Modifies globals: Fname,pathname                                          *
;*                                                                           *
;*****************************************************************************
proc main

   string Fname = "file.cap"                             ;File that holds the screen shots.
   string pathname                                       ;Path to the Capture directory.

   dial DATA "Quarterdeck"                               ; Dial QUARTERDECK entry. 
     while $DIALING                                        ; Loop while dialing.
   endwhile
   set capture file Fname                                ; Set name of capture file.
   set capture overwrite ON
   fetch capture path pathname                           ;Command to find the current path to the Aspect directory.
   capture on                                            ; Open up the capture file.
     while $CARRIER                                   ; Loop while connected to remote.
      yield                                          ; Yield processing time
     endwhile
   capture off                                        ; Close the capture file.
endproc
