;Creates a Snapshot of the terminal screen   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                                                  *
;*                                                                           *
;* Calls:                                                                    *
;* Modifies Veriables:  pathname,filename2,command                           *
;*                                                                           *
;*****************************************************************************
proc main
  
   string Name = "screen.txt"                    ;Name of the File.
   string pathname                               ;Path to the Aspect directory.
   string filename2 = "\screen.txt"
   string command  = "notepad.exe /p "           ;Command to run notepad.
    
   fetch aspect path pathname                    ;find the current path to the
                                                 ;  Aspect directory.

   strcat pathname filename2                     ;Adds the path and text file 
                                                 ;  togther.

   snapshot FILE Name APPEND                     ;Captures the text from the 
                                                 ;  terminal to screen.txt

   strcat command pathname                       ;Adds all three strings togther 
                                                 ;  to form complete path.

   run command                                   ;Runs notepad--saves the file.

endproc

