Field             Positions         Type       Decimals
Fullname        1-20               Char
City              21-30              Char
Time             31-32              Num           0
Phone           33-42              Num           0

'Specify the positions and lengths of data in the input file.
CONST FullNamePos = 1
CONST FullNameLen = 20
CONST CityPos = 21
CONST CityLen = 10
CONST TimePos = 31
CONST TimeLen = 2
CONST PhonePos = 33
CONST PhoneLen = 10
 
'Declare Variables
DIM MasterSchedule AS STRING
DIM FullName AS STRING
DIM City AS STRING
DIM strTime AS STRING
DIM Time AS SINGLE
DIM OldTime AS SINGLE
DIM Phone AS STRING
DIM LineCount AS SINGLE
DIM LocalCity AS STRING
DIM ReportHead AS STRING
DIM ColumnHead AS STRING
 
'Set the local carpool city.  Always capitalize the first letter of the city name.
LocalCity = "Huntley"
 
'Define headers
ReportHead = "Hourly Local Student Schedule:"
ColumnHead = "Name                 Phone Number"
 
 
'Start a fresh LineCount
LineCount = 0
 
'start program
SCREEN 12
CALL Setup(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone, ReportHead, ColumnHead, LocalCity, LineCount)
  DO WHILE NOT EOF(1)
        CALL ListStudents(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone, LineCount, ReportHead, ColumnHead)
        CALL GetInput(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone)
        CALL WhatCity(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone, LocalCity)
  LOOP
COLOR 9
LOCATE 26, 1
PRINT "End of the data file.  All records processed."
'End Program.  Done!
END
 
SUB GetInput (MasterSchedule AS STRING, FullName AS STRING, City AS STRING, strTime AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING)
        LINE INPUT #1, MasterSchedule
        FullName = MID$(MasterSchedule, FullNamePos, FullNameLen)
        City = MID$(MasterSchedule, CityPos, CityLen)
        strTime = MID$(MasterSchedule, TimePos, TimeLen)
        Time = VAL(strTime)
        Phone = MID$(MasterSchedule, PhonePos, PhoneLen)
END SUB
 
SUB HourPageBreak (FullName AS STRING, City AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING, LineCount AS SINGLE, ReportHead AS STRING, ColumnHead AS STRING)
        'Update the comparison hour to match the newest one read
        OldTime = Time
        CALL PageBreak(FullName, City, Time, OldTime, Phone, LineCount, ReportHead, ColumnHead)
END SUB
 
SUB ListStudents (MasterSchedule AS STRING, FullName AS STRING, City AS STRING, strTime AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING, LineCount AS SINGLE, ReportHead AS STRING, ColumnHead AS STRING)
        IF Time = OldTime THEN
                IF LineCount = 20 THEN
                        CALL PageBreak(FullName, City, Time, OldTime, Phone, LineCount, ReportHead, ColumnHead)
                END IF
        ELSE
                CALL HourPageBreak(FullName, City, Time, OldTime, Phone, LineCount, ReportHead, ColumnHead)
        END IF
        PRINT FullName; " "; Phone
        LineCount = LineCount + 1
END SUB
 
SUB PageBreak (FullName AS STRING, City AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING, LineCount AS SINGLE, ReportHead AS STRING, ColumnHead AS STRING)
        PRINT "Press ENTER to list more."
        wait$ = INPUT$(1)
        CLS
        COLOR 11
        'print the title and column headings.  Include the class hour with the title! 
        PRINT ReportHead; " Displaying Students who Start at"; Time; "o'clock"
        COLOR 14
        'print the title and column headings.  Include the class hour with the title!
        PRINT ColumnHead
        COLOR 15
        LineCount = 0
END SUB
 
SUB Setup (MasterSchedule AS STRING, FullName AS STRING, City AS STRING, strTime AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING, ReportHead AS STRING, ColumnHead AS STRING, LocalCity AS STRING, LineCount AS SINGLE)
        OPEN "A:\Project2.dat" FOR INPUT AS #1
        CALL GetInput(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone)
        CALL WhatCity(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone, LocalCity)
        'Update the comparison hour to match the one just read
        OldTime = Time
        'print the title and column headings.  Include the class hour with the title! 
        COLOR 11
        PRINT ReportHead; " Displaying Students who Start at"; Time; "o'clock"
        COLOR 14
        PRINT ColumnHead
        COLOR 15
END SUB
 
SUB WhatCity (MasterSchedule AS STRING, FullName AS STRING, City AS STRING, strTime AS STRING, Time AS SINGLE, OldTime AS SINGLE, Phone AS STRING, LocalCity AS STRING)
        IF City = LocalCity THEN
        'Do nothing
        ELSE
                CALL GetInput(MasterSchedule, FullName, City, strTime, Time, OldTime, Phone)
        END IF
END SUB