;Revision 1.0 of FAXBROWZ.WAS, an ASPECT script to select a specific subdir

;*****************************************************************************
;*                                                                           *
;* FAXBROWZ.WAS                                                              *
;* Copyright (C) 1995 DATASTORM Technologies, Inc.                           *
;* All rights reserved.                                                      *
;*                                                                           *
;* Written by Steve Phifer                                                   *
;*                                                                           *
;* This ASPECT SCRIPT will cause the Send Fax dialog box to point to a       *
;* specific, user-editable, sub-directory when selecting a document file to  *
;* fax.  This script may be helpful to those who wish to have the Send Fax   *
;* browse function, consistantly look to a favorite sub-directory.           *
;*                                                                           *
;* Note: This script is really only needed the very first time you browse    *
;* for files to fax.  On subsequent browses one can simply select the        *
;* regular Send Fax icon, choose the browse button and the system will look  *
;* first to the previously selected sub-directory.                           *
;*                                                                           *
;* This ASPECT SCRIPT is intended only as a sample of ASPECT programming.    *
;* DATASTORM makes no warranty of any kind, express or implied, including    *
;* without limitation, any warranties or merchantability and/or fitness      *
;* for a particular purpose.  Use of this program is at your own risk.       *
;*                                                                           *
;*****************************************************************************



;*****************************************************************************
;*                                                                           *
;* INCLUDED FILES                                                            *
;*                                                                           *
;* VKEYS.INC                                                                 *
;*                                                                           *
;* This script requires the programs listed in this section to compile.      *
;*                                                                           *
;*****************************************************************************

#include "VKEYS.INC"



;*****************************************************************************
;*                                                                           *
;* MAIN                                                                      *
;*                                                                           *
;* The Main procedure, takes the user to the sub-directory where the data    *
;* files they wish to fax are stored.                                        *
;*                                                                           *
;*                                                                           *
;* Local string variable:  SubDirName                                        *
;*                                                                           *
;*                                                                           *
;* Called by:  None                                                          *
;* Calls:  None                                                              *
;*                                                                           *
;*****************************************************************************

proc Main                           ;Begin procedure Main
   string SubDirName                ;Local string variable

   Subdirname="C:\WINDOWS\SYSTEM"   ;Edit the path structure within the quotes
                                    ;to point to where you store your files.
   termkey ALT 'A'                  ;Send Alt A to Terminal window
   termkey 'S'                      ;Send a S to choose Menu item
   sendkey ALT 'B'                  ;Send Alt B to the Dialog box
   termkey ALT 'B'                  ;Send Alt B to the Dialog box
   sendkeystr SubDirName            ;Send the name of the sub-directory
   statmsg "Select the document you wish to fax."
                                    ;Display message to the Status Line
   sendkey VK_RETURN                ;Send a Carriage Return
endproc                             ;End procedure Main