Begin

Dim ID As String
Dim LastName As String
Dim FirstName As String
Dim DOB As String
Dim DOH As String
Dim ManagerID As String
Dim Full As String
Dim pay As String

Dim dummy As String
Dim manager As Integer
Dim Part_time As Integer
Dim Full_time As Integer

manager = 0
Part_time = 0
Full_time = 0

Open "employee" For Input As #3

Input #3, ID
    If ID = "0236781" Then
        Input #3, LastName
        Input #3, FirstName
        Input #3, DOH
    Else
        Input #3, dummy
        Input #3, dummy
        Input #3, dummy
        Input #3, dummy
    End If

Input #3, ManagerID
    If ManagerID = "032485" Then
        manager = manager + 1
        Input #3, dummy
        Input #3, dummy
    End If

Input #3, Full
    If Full = True Then
        Full_time = Full_time + 1
        Input #3, dummy
    ElseIf Full = False Then
        Part_time = Part_time + 1
    End If

Dim total As Integer
total = Part_time + Full_time

Close fn

Print "Employee # 236781", "Last Name", LastName, "First Name", FirstName
Print "Manager ID # 32485", "Employees Under Manager is", manager
Print "Percentage of Part time workers to Full time workers", (Part_time / total) * 100, "%"

End