SETGUI1 - SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION 
           GRAPHICAL USER INTERFACE LIBRARY, VERSION 1.00

SETGUI1 IS A SET OF MICROSOFT(tm) FORTRAN CALLABLE SUBROUTINES AND FUNCTIONS
SPECIFICALLY DESIGNED TO ALLOW A GRAPHICAL USER INTERFACE TO BE CREATED FOR
ANY FORTRAN CODE RUNNING ON A IBM-PC(tm) COMPATIBLE PLATFORM.
                                      
                             COPYRIGHT (c) 1994 
               SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION
                             ALL RIGHTS RESERVED

THIS SOFTWARE MAY ONLY BE USED OR COPIED WITH THE EXPRESS WRITTEN PERMISSION 
OF SAGUARO ENGINEERING AND TECHNOLOGY CORPORATION. UNAUTHORIZED DUPLICATION 
OR DISTRIBUTION IS STRICTLY PROHIBITED BY LAW. PLEASE BE ADVISED THAT NO 
WARRANTY IS MADE BY SAGUARO ENGINEERING AND TECHNOLOGY AS TO THE ACCURACY, 
COMPLETENESS, RELIABILITY, USABILITY, OR SUITABILITY OF THESE LIBRARIES
OR THE ASSOCIATED DOCUMENTATION. NO RESPONSIBILITY IS ASSUMED BY SAGUARO 
ENGINEERING AND TECHNOLOGY CORPORATION FOR INCORRECT RESULTS OR DAMAGES 
RESULTING FROM THE USE OF THESE LIBRARIES.                    


THE FOLLOWING SUBROUTINES AND FUNCTIONS ARE INCLUDED IN SETGUI1.  PLEASE NOTE
THAT SOME ERRORS MAY OCCUR DURING LINKING THIS LIBRARY TO YOUR CODE IF THE
/FPi SWITCH IS NOT USED.  THESE ERRORS ARE NOT FATAL AND CAN BE IGNORED.
THIS LIBRARY HAS ONLY BEEN TESTED USING MICROSOFT(tm) FORTRAN 5.1 ON A
386 AND LATER PROCESSOR BASED MACHINE, BUT MAY WORK USING OTHER COMPILERS
AND/OR PLATFORMS. 



SUBROUTINE DRAWBARGRID(X0,Y0,XLEN,YLEN,NUMBARS,NUMYDIVS,YINC,KOLOR)
***********************************************************************      
*** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
***********************************************************************
 X0 = X POSITION OF LEFT SIDE OF GRID  (-99 = AUTOCENTER)
 Y0 = Y POSITION OF BOTTOM OF GRID   (-99 = AUTOCENTER)
 XLEN = LENGTH OF X AXIS IN PIXELS (DEFAULT = 100)
 YLEN = LENGTH OF Y AXIS IN PIXELS (DEFAULT = 100)
 NUMBARS = NUMBER OF BARS ON X-AXIS (DEFAULT = 10)
 NUMYDIVS = NUMBER OF DIVISIONS ON Y-AXIS (THIS VALUE OR YINC CAN BE ENTERED, 
    THIS VALUE IS DEFAULTED IF YINC<=0) (DEFAULT = 10)
 YINC = NUMBER OF PIXELS ON Y-AXIS PER DIVISION
 KOLOR = DOS VGA COLOR (DEFAULT = 15 [BRIGHT WHITE])
***********************************************************************


SUBROUTINE DRAWBAR(BARNUMBER,YMAXBAR,YMINBAR,YMIN,YMAX,X0,Y0,XLEN,YLEN,
   NUMBARS,BARPERCENT,KOLOR,HATCHPATTERN)
***********************************************************************      
*** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
***********************************************************************
 BARNUMBER = BAR NUMBER TO PLOT (DEFAULT = 1)
 YMAXBAR = Y-VALUE OF TOP OF BAR 
 YMINBAR = Y-VALUE OF BOTTOM OF BAR 
 YMIN = Y-VALUE OF BOTTOM OF PLOT (DEFAULT = 0.)
 YMAX = Y-VALUE OF TOP OF PLOT (DEFAULT = 100.)
 X0 = X POSITION OF LEFT SIDE OF GRID  (-99 = AUTOCENTER)
 Y0 = Y POSITION OF BOTTOM OF GRID   (-99 = AUTOCENTER)
 XLEN = LENGTH OF X AXIS IN PIXELS (DEFAULT = 100)
 YLEN = LENGTH OF Y AXIS IN PIXELS (DEFAULT = 100)
 NUMBARS = NUMBER OF BARS ON X-AXIS (DEFAULT = 10)
 BARPERCENT = PERCENT OF X INCREMENT TO USE FOR BAR WIDTH (DEFAULT = 90%)
 KOLOR = DOS VGA COLOR (DEFAULT = 15 [BRIGHT WHITE])
 HATCHPATTERN = PATTERN TO USE FOR BAR HATCHING
***********************************************************************


SUBROUTINE DRAWBARLEGEND(LEGENDKOLOR,LEGENDHATCH,LEGENDTEXT,XLEGEND,
   YLEGEND,BORDERKOLOR,TEXTKOLOR)
***********************************************************************      
*** THIS SUBROUTINE DRAWS THE BORDER AND GRID FOR A BAR CHART
***********************************************************************
 LEGENDKOLOR(10) = DOS VGA COLOR FOR EACH LEGEND ITEM (DEFAULT = 15 [BRIGHT WHITE])
 LEGENDHATCH(10) = PATTERN TO USE FOR HATCHING EACH LEGEND ITEM
 LEGENDTEXT(10) = TEXT FOR EACH LEGEND ITEM
 XLEGEND = X POSITION OF LEFT SIDE OF LEGEND (-99 = AUTOCENTER)
 YLEGEND = Y POSITION OF TOP OF LEGEND (-99 = AUTOCENTER)
 BORDERKOLOR = DOS VGA COLOR FOR LEGEND BORDER (DEFAULT = 15 [BRIGHT WHITE]) 
 TEXTKOLOR(10) = DOS VGA COLOR FOR EACH LEGEND ITEM TEXT (DEFAULT = 15 [BRIGHT WHITE])
***********************************************************************


INTEGER FUNCTION TEXTSIZE(TEXT)
***********************************************************************      
*** THIS SUBROUTINE DETERMINES THE STRING SIZE OF THE TEXT WITHIN A LARGER STRING
***********************************************************************



MICROSOFT(tm) IS A REGISTERED TRADEMARK OF THE MICROSOFT CORPORATION

IBM-PC(tm) IS A REGISTERED TRADEMARK OF INTERNATIONAL BUSINESS MACHINES 
 CORPORATION

