home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / BARS3 / GLOBAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-03-18  |  505 b   |  20 lines
  1. Global PrintFlag$
  2. Global FontToUse$
  3. Global BarHeight$
  4. Global BetweenHeight$
  5. Global HorBetween$
  6. Global LabelsAcross$
  7. Global TOPMARGIN$
  8. Global LEFTMARGIN$
  9.  
  10.  
  11. Declare Function getprofilestring Lib "Kernel" (ByVal Sname$, ByVal Kname$, ByVal Def$, ByVal Ret$, ByVal Size%) As Integer
  12. Declare Function WRITEProfileString Lib "Kernel" (ByVal Sname$, ByVal Kname$, ByVal Istring$) As Integer
  13. Type SAVELABELS
  14. CODE As String * 20
  15. DESCRIPTION As String * 40
  16. End Type
  17. Global LABELS As SAVELABELS
  18.  
  19.  
  20.