Global Const NUMBOXES = 5
Global Const SAVEFILE = 1, LOADFILE = 2
Global Const REPLACEFILE = 1, READFILE = 2, ADDTOFILE = 3
Global Const RANDOMFILE = 4, BINARYFILE = 5
Global Const TRUE = -1, FALSE = 0
Type RecordType
  RecordNum  As Long
  FirstName As String * 15
  LastName As String * 20
  Salary As Currency
  Age As Integer
  Gender As String * 1
End Type

Global RecordVar As RecordType
Global RecordNumber As Long
Global Position As Long
Global WorkingFileName As String
Global WorkingFileNum As Integer
Global BakName As String
Global LastRecord As Long
Global TempFileFlag As Integer
Global NewRecordFlag As Integer
Global OldContents(0 To 4) As String
Global FileInfoTitle As String
Global TheFileName As String