home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / genapps / fishlg15.arj / FL1_5.BAS < prev    next >
BASIC Source File  |  1992-04-15  |  766b  |  29 lines
  1.  
  2. Type Record
  3.     Location As String * 17
  4.     Date As String * 11
  5.     AirTemp As String * 5
  6.     GenWeather As String * 18
  7.     WindMPH As String * 5
  8.     WindDir As String * 5
  9.     LakeLevel As String * 6
  10.     WaterTemp As String * 6
  11.     WaterColor As String * 8
  12.     Visibility As String * 6
  13.     Ph As String * 4
  14.     Baits As String * 168   '6 lines worth
  15.     Depth As String * 5
  16.     Comments As String * 1005   '15 lines worth
  17. End Type
  18.  
  19. Global DataBase(50)  As Record
  20. Global TotalRecords As Integer
  21. Global Edit_Index As Integer   'this is same as TotalRecords in the save mode.
  22. Global FileName As String
  23. Global DefaultCaption As String 'this allows custom naming of the form caption
  24.  
  25. ' Booleans
  26. Global Const TRUE = -1
  27. Global Const FALSE = 0
  28.  
  29.