nomainwin
    
    UpperLeftX = 1
    UpperLeftY = 1
    WindowWidth = 1025
    WindowHeight = 768
    BackgroundColor$ = "darkpink"
    ForegroundColor$ = "white"
    TextboxColor$ = "brown"
    ComboboxColor$ = "brown"
    a$(1) = "Kuys, Sharmila"
    d$(1) = date$(38698)
    da$(1) = date$(38698+13)

    array$(1)  = " N/D                09.00 17.20 60"
    array$(2)  = " F/D                09.00 17.20 60"
    array$(3)  = " P/H                09.00 17.20 60"
    array$(4)  = " A/L                09.00 17.20 60"
    array$(5)  = " S/L                09.00 17.20 60"
    array$(6)  = "LS/L                09.00 17.20 60"
    array$(7)  = " O/L                09.00 17.20 60"
    array$(9)  = " 1/2A               09.00 13.59 60"
    array$(10) = " 1/2S               09.00 13.59 60"

    combobox #main.cbox60, array$(, [fillForm], ycol(0), 183, 50, 100
    combobox #main.cbox61, array$(, [fillForm], ycol(1), 183, 50, 100
    combobox #main.cbox62, array$(, [fillForm], ycol(2), 183, 50, 100
    combobox #main.cbox63, array$(, [fillForm], ycol(3), 183, 50, 100
    combobox #main.cbox64, array$(, [fillForm], ycol(4), 183, 50, 100
    combobox #main.cbox65, array$(, [fillForm], ycol(5), 183, 50, 100
    combobox #main.cbox66, array$(, [fillForm], ycol(6), 183, 50, 100
    combobox #main.cbox68, array$(, [fillForm], ycol(7), 183, 50, 100
    combobox #main.cbox69, array$(, [fillForm], ycol(8), 183, 50, 100
    combobox #main.cbox70, array$(, [fillForm], ycol(9), 183, 50, 100
    combobox #main.cbox71, array$(, [fillForm], ycol(10), 183, 50, 100
    combobox #main.cbox72, array$(, [fillForm], ycol(11), 183, 50, 100
    combobox #main.cbox73, array$(, [fillForm], ycol(12), 183, 50, 100
    combobox #main.cbox77, array$(, [fillForm], ycol(13), 183, 50, 100
    combobox #main.cbox92, a$(, [main.inputLoop], 110, 30, 140, 28
    combobox #main.cbox93, d$(, [main.inputLoop], 110, 58, 140, 28
    combobox #main.cbox94, da$(, [main.inputLoop], 110, 84, 140, 28
    statictext #main.stxt43, "Start Time", 4, xrow(3)+4, 176, 15
    statictext #main.stxt46, "Finish Time", 4, xrow(4)+4, 176, 15
    statictext #main.stxt80, "Short Lunch Credit", 4, xrow(5)+4, 176, 20
    statictext #main.stxt74, "Elapsed Time", 4, xrow(6)+4, 176, 20
    statictext #main.stxt32, "Deduction 1 Start", 4, xrow(7)+4, 176, 20
    statictext #main.stxt33, "Deduction 1 Finish", 4, xrow(8)+4, 176, 20
    statictext #main.stxt33, "Total Deduction 1", 4, xrow(9)+4, 176, 20
    statictext #main.stxt35, "Deduction 2 Start", 4, xrow(10)+4, 176, 20
    statictext #main.stxt36, "Deduction 2 Finish", 4, xrow(11)+4, 176, 20
    statictext #main.stxt33, "Total Deduction 2", 4, xrow(12)+4, 176, 20
    statictext #main.stxt81, "Total Time Worked", 4, xrow(13)+4, 176, 20
    statictext #main.stxt83, "Daily Flextime", 4, xrow(14)+4, 176, 20
    statictext #main.stxt87, "Flextime Balance", 4, xrow(15)+4, 76, 25
    statictext #main.stxt89, "(BF: 0.55)", 100, xrow(15)+4, 76, 20
    statictext #main.stxt13, "Department of Primary Industries & Water", 400, 50, 395, 20
    statictext #main.stxt48, "Officer:", 1, 555, 64, 20
    statictext #main.stxt49, "Supervisor:", 149, 555, 80, 20
    statictext #main.stxt50, "I certify that the details of this form are correct.", 1, 590, 416, 20
    statictext #main.stxt51, "Signature:", 390, 631, 80, 20
    statictext #main.stxt52, ".    Attendance Satisfactory", 413, 555, 184, 20
    statictext #main.stxt53, ".    Calculations Correct", 413, 573, 200, 20
    statictext #main.stxt54, ".    Sick Leave Applications Attached", 413, 591, 296, 20
    statictext #main.stxt55, "Signature:", 1, 631, 80, 20
    statictext #main.stxt56, "Name:", 4, 30, 104, 20
    statictext #main.stxt57, "Week Beginning:", 4, 58, 104, 20
    statictext #main.stxt58, "Pay Period Ending:", 4, 84, 104, 20
    statictext #main.stxt78, "Thu", ycol(0), 160, 24, 20
    statictext #main.stxt79, "Fri", ycol(1), 160, 24, 20
    statictext #main.stxt80, "Sat", ycol(2), 160, 24, 20
    statictext #main.stxt81, "Sun", ycol(3), 160, 24, 20
    statictext #main.stxt82, "Mon", ycol(4), 160, 24, 20
    statictext #main.stxt83, "Tue", ycol(5), 160, 24, 20
    statictext #main.stxt84, "Wed", ycol(6), 160, 24, 20
    statictext #main.stxt85, "Thu", ycol(7), 160, 24, 20
    statictext #main.stxt86, "Fri", ycol(8), 160, 24, 20
    statictext #main.stxt87, "Sat", ycol(9), 160, 24, 20
    statictext #main.stxt88, "Sun", ycol(10), 160, 24, 20
    statictext #main.stxt89, "Mon", ycol(11), 160, 24, 20
    statictext #main.stxt90, "Tue", ycol(12), 160, 24, 20
    statictext #main.stxt90, "Wed", ycol(13), 160, 24, 20
    button #main.bmpbutton1, "PRINT", [printer], UL, 800, 645
    graphicbox #main.gbox, 0, 0, 1, 1   ' create a tiny graphicbox to capture the window's image
    button #main.bmpbutton2, "SAVE", [Save], UL, 860, 645
    button #main.bmpbutton3, "QUIT", [quit], UL, 910, 645
    button #main.bmpbutton4, "OPEN", [Open], UL, 910, 599
    button #main.button5, "CALCULATE NOW", [calc.ElaspedTime], UL, 900, 350, 100, 30

    dim xrow(16), ycol(14)
    xr = 140: yc = 180
    For i = 0 to 16
        xrow(i) = xr: xr = xr + 22
    Next i
    For i = 0 to 13
        ycol(i) = yc: yc = yc + 50
    Next i

    Textbox #main.tb3, ycol(0), xrow(3), 50, 22
    Textbox #main.tb4, ycol(0), xrow(4), 50, 22
    Textbox #main.tb5, ycol(0), xrow(5), 50, 22
    Textbox #main.tb6, ycol(0), xrow(6), 50, 22
    Textbox #main.tb7, ycol(0), xrow(7), 50, 22
    Textbox #main.tb8, ycol(0), xrow(8), 50, 22
    Textbox #main.tb9, ycol(0), xrow(9), 50, 22
    Textbox #main.tb10, ycol(0), xrow(10), 50, 22
    Textbox #main.tb11, ycol(0), xrow(11), 50, 22
    Textbox #main.tb12, ycol(0), xrow(12), 50, 22
    Textbox #main.tb13, ycol(0), xrow(13), 50, 22
    Textbox #main.tb14, ycol(0), xrow(14), 50, 22
    Textbox #main.tb15, ycol(0), xrow(15), 50, 22
    Textbox #main.tb18, ycol(1), xrow(3), 50, 22
    Textbox #main.tb19, ycol(1), xrow(4), 50, 22
    Textbox #main.tb20, ycol(1), xrow(5), 50, 22
    Textbox #main.tb21, ycol(1), xrow(6), 50, 22
    Textbox #main.tb22, ycol(1), xrow(7), 50, 22
    Textbox #main.tb23, ycol(1), xrow(8), 50, 22
    Textbox #main.tb24, ycol(1), xrow(9), 50, 22
    Textbox #main.tb25, ycol(1), xrow(10), 50, 22
    Textbox #main.tb26, ycol(1), xrow(11), 50, 22
    Textbox #main.tb27, ycol(1), xrow(12), 50, 22
    Textbox #main.tb28, ycol(1), xrow(13), 50, 22
    Textbox #main.tb29, ycol(1), xrow(14), 50, 22
    Textbox #main.tb30, ycol(1), xrow(15), 50, 22
    Textbox #main.tb33, ycol(2), xrow(3), 50, 22
    Textbox #main.tb34, ycol(2), xrow(4), 50, 22
    Textbox #main.tb35, ycol(2), xrow(5), 50, 22
    Textbox #main.tb36, ycol(2), xrow(6), 50, 22
    Textbox #main.tb37, ycol(2), xrow(7), 50, 22
    Textbox #main.tb38, ycol(2), xrow(8), 50, 22
    Textbox #main.tb39, ycol(2), xrow(9), 50, 22
    Textbox #main.tb40, ycol(2), xrow(10), 50, 22
    Textbox #main.tb41, ycol(2), xrow(11), 50, 22
    Textbox #main.tb42, ycol(2), xrow(12), 50, 22
    Textbox #main.tb43, ycol(2), xrow(13), 50, 22
    Textbox #main.tb44, ycol(2), xrow(14), 50, 22
    Textbox #main.tb45, ycol(2), xrow(15), 50, 22
    Textbox #main.tb48, ycol(3), xrow(3), 50, 22
    Textbox #main.tb49, ycol(3), xrow(4), 50, 22
    Textbox #main.tb50, ycol(3), xrow(5), 50, 22
    Textbox #main.tb51, ycol(3), xrow(6), 50, 22
    Textbox #main.tb52, ycol(3), xrow(7), 50, 22
    Textbox #main.tb53, ycol(3), xrow(8), 50, 22
    Textbox #main.tb54, ycol(3), xrow(9), 50, 22
    Textbox #main.tb55, ycol(3), xrow(10), 50, 22
    Textbox #main.tb56, ycol(3), xrow(11), 50, 22
    Textbox #main.tb57, ycol(3), xrow(12), 50, 22
    Textbox #main.tb58, ycol(3), xrow(13), 50, 22
    Textbox #main.tb59, ycol(3), xrow(14), 50, 22
    Textbox #main.tb60, ycol(3), xrow(15), 50, 22
    Textbox #main.tb63, ycol(4), xrow(3), 50, 22
    Textbox #main.tb64, ycol(4), xrow(4), 50, 22
    Textbox #main.tb65, ycol(4), xrow(5), 50, 22
    Textbox #main.tb66, ycol(4), xrow(6), 50, 22
    Textbox #main.tb67, ycol(4), xrow(7), 50, 22
    Textbox #main.tb68, ycol(4), xrow(8), 50, 22
    Textbox #main.tb69, ycol(4), xrow(9), 50, 22
    Textbox #main.tb70, ycol(4), xrow(10), 50, 22
    Textbox #main.tb71, ycol(4), xrow(11), 50, 22
    Textbox #main.tb72, ycol(4), xrow(12), 50, 22
    Textbox #main.tb73, ycol(4), xrow(13), 50, 22
    Textbox #main.tb74, ycol(4), xrow(14), 50, 22
    Textbox #main.tb75, ycol(4), xrow(15), 50, 22
    Textbox #main.tb78, ycol(5), xrow(3), 50, 22
    Textbox #main.tb79, ycol(5), xrow(4), 50, 22
    Textbox #main.tb80, ycol(5), xrow(5), 50, 22
    Textbox #main.tb81, ycol(5), xrow(6), 50, 22
    Textbox #main.tb82, ycol(5), xrow(7), 50, 22
    Textbox #main.tb83, ycol(5), xrow(8), 50, 22
    Textbox #main.tb84, ycol(5), xrow(9), 50, 22
    Textbox #main.tb85, ycol(5), xrow(10), 50, 22
    Textbox #main.tb86, ycol(5), xrow(11), 50, 22
    Textbox #main.tb87, ycol(5), xrow(12), 50, 22
    Textbox #main.tb88, ycol(5), xrow(13), 50, 22
    Textbox #main.tb89, ycol(5), xrow(14), 50, 22
    Textbox #main.tb90, ycol(5), xrow(15), 50, 22
    Textbox #main.tb93, ycol(6), xrow(3), 50, 22
    Textbox #main.tb94, ycol(6), xrow(4), 50, 22
    Textbox #main.tb95, ycol(6), xrow(5), 50, 22
    Textbox #main.tb96, ycol(6), xrow(6), 50, 22
    Textbox #main.tb97, ycol(6), xrow(7), 50, 22
    Textbox #main.tb98, ycol(6), xrow(8), 50, 22
    Textbox #main.tb99, ycol(6), xrow(9), 50, 22
    Textbox #main.tb100, ycol(6), xrow(10), 50, 22
    Textbox #main.tb101, ycol(6), xrow(11), 50, 22
    Textbox #main.tb102, ycol(6), xrow(12), 50, 22
    Textbox #main.tb103, ycol(6), xrow(13), 50, 22
    Textbox #main.tb104, ycol(6), xrow(14), 50, 22
    Textbox #main.tb105, ycol(6), xrow(15), 50, 22
    Textbox #main.tb108, ycol(7), xrow(3), 50, 22
    Textbox #main.tb109, ycol(7), xrow(4), 50, 22
    Textbox #main.tb110, ycol(7), xrow(5), 50, 22
    Textbox #main.tb111, ycol(7), xrow(6), 50, 22
    Textbox #main.tb112, ycol(7), xrow(7), 50, 22
    Textbox #main.tb113, ycol(7), xrow(8), 50, 22
    Textbox #main.tb114, ycol(7), xrow(9), 50, 22
    Textbox #main.tb115, ycol(7), xrow(10), 50, 22
    Textbox #main.tb116, ycol(7), xrow(11), 50, 22
    Textbox #main.tb117, ycol(7), xrow(12), 50, 22
    Textbox #main.tb118, ycol(7), xrow(13), 50, 22
    Textbox #main.tb119, ycol(7), xrow(14), 50, 22
    Textbox #main.tb120, ycol(7), xrow(15), 50, 22
    Textbox #main.tb123, ycol(8), xrow(3), 50, 22
    Textbox #main.tb124, ycol(8), xrow(4), 50, 22
    Textbox #main.tb125, ycol(8), xrow(5), 50, 22
    Textbox #main.tb126, ycol(8), xrow(6), 50, 22
    Textbox #main.tb127, ycol(8), xrow(7), 50, 22
    Textbox #main.tb128, ycol(8), xrow(8), 50, 22
    Textbox #main.tb129, ycol(8), xrow(9), 50, 22
    Textbox #main.tb130, ycol(8), xrow(10), 50, 22
    Textbox #main.tb131, ycol(8), xrow(11), 50, 22
    Textbox #main.tb132, ycol(8), xrow(12), 50, 22
    Textbox #main.tb133, ycol(8), xrow(13), 50, 22
    Textbox #main.tb134, ycol(8), xrow(14), 50, 22
    Textbox #main.tb135, ycol(8), xrow(15), 50, 22
    Textbox #main.tb138, ycol(9), xrow(3), 50, 22
    Textbox #main.tb139, ycol(9), xrow(4), 50, 22
    Textbox #main.tb140, ycol(9), xrow(5), 50, 22
    Textbox #main.tb141, ycol(9), xrow(6), 50, 22
    Textbox #main.tb142, ycol(9), xrow(7), 50, 22
    Textbox #main.tb143, ycol(9), xrow(8), 50, 22
    Textbox #main.tb144, ycol(9), xrow(9), 50, 22
    Textbox #main.tb145, ycol(9), xrow(10), 50, 22
    Textbox #main.tb146, ycol(9), xrow(11), 50, 22
    Textbox #main.tb147, ycol(9), xrow(12), 50, 22
    Textbox #main.tb148, ycol(9), xrow(13), 50, 22
    Textbox #main.tb149, ycol(9), xrow(14), 50, 22
    Textbox #main.tb150, ycol(9), xrow(15), 50, 22
    Textbox #main.tb153, ycol(10), xrow(3), 50, 22
    Textbox #main.tb154, ycol(10), xrow(4), 50, 22
    Textbox #main.tb155, ycol(10), xrow(5), 50, 22
    Textbox #main.tb156, ycol(10), xrow(6), 50, 22
    Textbox #main.tb157, ycol(10), xrow(7), 50, 22
    Textbox #main.tb158, ycol(10), xrow(8), 50, 22
    Textbox #main.tb159, ycol(10), xrow(9), 50, 22
    Textbox #main.tb160, ycol(10), xrow(10), 50, 22
    Textbox #main.tb161, ycol(10), xrow(11), 50, 22
    Textbox #main.tb162, ycol(10), xrow(12), 50, 22
    Textbox #main.tb163, ycol(10), xrow(13), 50, 22
    Textbox #main.tb164, ycol(10), xrow(14), 50, 22
    Textbox #main.tb165, ycol(10), xrow(15), 50, 22
    Textbox #main.tb168, ycol(11), xrow(3), 50, 22
    Textbox #main.tb169, ycol(11), xrow(4), 50, 22
    Textbox #main.tb180, ycol(11), xrow(5), 50, 22
    Textbox #main.tb181, ycol(11), xrow(6), 50, 22
    Textbox #main.tb182, ycol(11), xrow(7), 50, 22
    Textbox #main.tb183, ycol(11), xrow(8), 50, 22
    Textbox #main.tb184, ycol(11), xrow(9), 50, 22
    Textbox #main.tb185, ycol(11), xrow(10), 50, 22
    Textbox #main.tb186, ycol(11), xrow(11), 50, 22
    Textbox #main.tb187, ycol(11), xrow(12), 50, 22
    Textbox #main.tb188, ycol(11), xrow(13), 50, 22
    Textbox #main.tb199, ycol(11), xrow(14), 50, 22
    Textbox #main.tb200, ycol(11), xrow(15), 50, 22
    Textbox #main.tb203, ycol(12), xrow(3), 50, 22
    Textbox #main.tb204, ycol(12), xrow(4), 50, 22
    Textbox #main.tb205, ycol(12), xrow(5), 50, 22
    Textbox #main.tb206, ycol(12), xrow(6), 50, 22
    Textbox #main.tb207, ycol(12), xrow(7), 50, 22
    Textbox #main.tb208, ycol(12), xrow(8), 50, 22
    Textbox #main.tb209, ycol(12), xrow(9), 50, 22
    Textbox #main.tb210, ycol(12), xrow(10), 50, 22
    Textbox #main.tb211, ycol(12), xrow(11), 50, 22
    Textbox #main.tb212, ycol(12), xrow(12), 50, 22
    Textbox #main.tb213, ycol(12), xrow(13), 50, 22
    Textbox #main.tb214, ycol(12), xrow(14), 50, 22
    Textbox #main.tb215, ycol(12), xrow(15), 50, 22
    Textbox #main.tb218, ycol(13), xrow(3), 50, 22
    Textbox #main.tb219, ycol(13), xrow(4), 50, 22
    Textbox #main.tb220, ycol(13), xrow(5), 50, 22
    Textbox #main.tb221, ycol(13), xrow(6), 50, 22
    Textbox #main.tb222, ycol(13), xrow(7), 50, 22
    Textbox #main.tb223, ycol(13), xrow(8), 50, 22
    Textbox #main.tb224, ycol(13), xrow(9), 50, 22
    Textbox #main.tb225, ycol(13), xrow(10), 50, 22
    Textbox #main.tb226, ycol(13), xrow(11), 50, 22
    Textbox #main.tb227, ycol(13), xrow(12), 50, 22
    Textbox #main.tb228, ycol(13), xrow(13), 50, 22
    Textbox #main.tb229, ycol(13), xrow(14), 50, 22
    Textbox #main.tb230, ycol(13), xrow(15), 50, 22

    GraphicboxColor$ = "white"
    graphicbox #main.graph4, 50,555,80,20
    graphicbox #main.graph5, 235,555,150,20
    graphicbox #main.graph6, 470, 631, 100, 20
    graphicbox #main.graph7, 70,631,100,20
    graphicbox #main.graph1, 641, 555, 10, 10
    graphicbox #main.graph2, 641, 575, 10, 10
    graphicbox #main.graph3, 641, 595, 10, 10

    Open "Timesheet" for Window as #main
    Print #main, "Trapclose [quit]"
    print #main, "font ms_san_sherif 0 14 bold"
    print #main.gbox, "down"  ' put graphicbox pen down
    Wait

[Military]
    For i = 1 to 230
        handle$ = "#main.tb";i
        'Print #main.tb1, "!Setfocus"  ' unnecessary line
        Print #handle$, "!Contents? t$"
        If Instr(t$, ":") > 0 Then
            h$ = Word$(t$, 1, ":")  ' get hour part of time
            h = Val(h$)  ' get value of hour characters
            h$ = Right$("0";h, 2)  ' turn into valid time number to avoid character errors
            m$ = Str$(Val(Word$(t$, 2, ":")))
            m = Val(m$)
            m$ = Right$("0";m, 2)  ' turn into valid time number to avoid character errors
            If Instr(Upper$(t$), "AM") > 0 Then
                If h = 12 Then
                    h = 0
                    h$ = "00"
                End If
            End If
            If Instr(Upper$(t$), "PM") > 0 Then
                ap$ = "PM"
                h = h + 12
                h$ = Str$(h)
            End If
        Else
            m$ = Right$(t$, 2)
            m = Val(m$)
            h$ = Left$(t$, Len(t$) - Len(m$))
            h = Val(h$)
            h$ = Right$("0";h, 2)
            m$ = Right$("0";m, 2)  ' turn into valid time numbers to avoid character errors
        End If
        Print #handle$, h$;m$
    Next i
    Wait

[main.inputLoop]   'wait here for input event
    wait

    'Perform action for the bmpbutton named 'bmpbutton1'
[printer]
    confirm "Do you want to print?"; printAns$
    if printAns$ = "no" then wait
    'print #main, "!print xga"  ' <<-- this line is not correct

    ' capture window as a bmp
    print #main.gbox, "getbmp capturedBmp 0 0 ";WindowWidth-10;" ";WindowHeight-25

    ' redraw bmp in graphic window to enable it to be printed
    WindowWidth = 1025
    WindowHeight = 768
    'open a temporary graphic window for printing purposes
    open "" for graphics_nf_nsb as #gwin
    print #gwin, "trapclose [quitgwin]"
    print #gwin, "down"
    print #gwin, "drawbmp capturedBmp 0 0"
    print #gwin, "flush"
    print #gwin, "print xga"

    wait  ' <<-- disable this line after debugging sufficently

[quitgwin]
    unloadbmp "capturedBmp"
    close #gwin
    wait

    confirm "Do you want to quit?"; quit$
    if quit$ = "no" then wait
    close #main
    end
    wait

    'Perform action for the bmpbutton named 'bmpbutton2'
[Save]
    'will have buttons that say SAVE and CANCEL:
    filedialog "Save As...", "*.txt", fileName$
    print "File chosen is ";fileName$

    'Perform action for the bmpbutton named 'bmpbutton3'
[quit]
    confirm "Do you want to quit?"; quit$
    if quit$ = "no" then wait
    close #main
    end
    wait

    'Perform action for the bmpbutton named 'bmpbutton4'
[Open]
    'will have buttons that say OPEN and CANCEL:
    filedialog "Open text file", "*.txt", fileName$
    print "File chosen is ";fileName$
    if fileName$<>"" then
        open fileName$ for input as #f
        'do stuff
        close #f
    else
        notice "No file chosen!"
    end if
    wait

    'Perform action for the bmpbutton named 'bmpbutton5'
[calc.ElaspedTime]
    'read and display a file one character at a time

    '---block start
    '    PRINT #main.tb3, "!contents? start$"      'format h.mm
    '    startH=INT(VAL(start$))
    '    IF startH>12 THEN startH=startH-12 : flag=1
    '    startH=startH*60                          'convert hours to minutes
    '    startM=VAL(RIGHT$(start$,2))
    '    startM=startM+startH                      'combine hours and minutes
    '    PRINT #main.tb4, "!contents? finish$"     'format h.mm
    '    finishH=INT(VAL(finish$))
    '    IF flag=1 then finishH=finishH+12 : flag=0
    '    finishH=finishH*60                     'convert hours to minutes
    '    finishM=VAL(RIGHT$(finish$,2))
    '    finishM=finishM+finishH                   'combine hours and minutes
    '    PRINT #main.tb5, "!contents? break"       'format mm
    '    hoursWorked=finishM-startM                'subtract finish from start
    '    hoursWorked=hoursWorked-break             'subtract minutes on break
    '    hoursWorked=hoursWorked/60             'convert minutes to hours
    '    minWorked=(hoursWorked-INT(hoursWorked))*60
    '    minWorked=INT(minWorked)                  'drop any decimals
    '    minWorked$=STR$(minWorked)                'make string
    '    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad$
    '    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    '    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    '    PRINT #main.tb6, hoursWorked$             'hoursWorked hh:mm
    '---block end

    'the next lines call the sub containing the code between
    '"block start" and "block end" where the handles are exchangeable
    'use this, whenever you have repetitive code
    call CalcStartFinishBreak "#main.tb3", "#main.tb4", "#main.tb5", "#main.tb6"
    call CalcStartFinishBreak "#main.tb18", "#main.tb19", "#main.tb20", "#main.tb21"
    call CalcStartFinishBreak "#main.tb33", "#main.tb34", "#main.tb35", "#main.tb36"
    call CalcStartFinishBreak "#main.tb48", "#main.tb49", "#main.tb50", "#main.tb51"
    call CalcStartFinishBreak "#main.tb63", "#main.tb64", "#main.tb65", "#main.tb66"
    call CalcStartFinishBreak "#main.tb78", "#main.tb79", "#main.tb80", "#main.tb81"
    call CalcStartFinishBreak "#main.tb93", "#main.tb94", "#main.tb95", "#main.tb96"
    call CalcStartFinishBreak "#main.tb108", "#main.tb109", "#main.tb110", "#main.tb111"
    call CalcStartFinishBreak "#main.tb123", "#main.tb124", "#main.tb125", "#main.tb126"
    call CalcStartFinishBreak "#main.tb138", "#main.tb139", "#main.tb140", "#main.tb141"
    call CalcStartFinishBreak "#main.tb153", "#main.tb154", "#main.tb155", "#main.tb156"
    call CalcStartFinishBreak "#main.tb168", "#main.tb169", "#main.tb180", "#main.tb181"
    call CalcStartFinishBreak "#main.tb203", "#main.tb204", "#main.tb205", "#main.tb206"
    call CalcStartFinishBreak "#main.tb218", "#main.tb219", "#main.tb220", "#main.tb221"

    PRINT #main.tb7, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb8, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb9, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb9, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb10, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb11, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb12, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb12, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb22, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb23, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb24, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb24, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb25, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb26, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb27, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb27, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb37, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb38, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb39, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb39, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb40, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb41, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb42, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb42, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb52, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb53, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb54, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb54, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb55, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb56, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb57, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb57, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb67, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb68, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb69, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb69, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb70, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb71, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb72, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb72, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb82, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb83, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb84, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb84, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb85, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb86, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb87, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb87, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb97, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb98, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb99, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb99, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb100, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb101, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb102, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb102, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb112, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb113, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb114, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb114, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb115, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb116, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb117, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb117, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb127, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb128, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb129, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb129, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb130, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb131, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb132, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb132, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb142, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb143, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb144, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb144, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb145, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb146, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb147, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb147, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb157, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb158, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb159, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb159, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb160, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb161, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb162, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb162, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb182, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb183, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb184, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb184, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb185, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb186, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb187, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb187, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb207, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb208, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb209, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb209, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb210, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb211, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb212, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb212, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb222, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb223, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb224, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb224, hoursWorked$             'hoursWorked hh:mm
    PRINT #main.tb225, "!contents? start$"      'format h.mm
    startH=INT(VAL(start$))
    IF startH>24 THEN startH=startH-24 : flag=1
    startH=startH*60                          'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                      'combine hours and minutes
    PRINT #main.tb226, "!contents? finish$"     'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+24 : flag=0
    finishH=finishH*60                        'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                   'combine hours and minutes
    PRINT #main.tb227, hoursWorked$             'hoursWorked hh:mm
    hoursWorked=finishM-startM                'subtract finish from start
    hoursWorked=hoursWorked/60                'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                  'drop any decimals
    minWorked$=STR$(minWorked)                'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND  'pad $
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #main.tb227, hoursWorked$             'hoursWorked hh:mm

    wait

    'Perform action for the combobox named 'combobox60'
[fillForm]
    PRINT #main.cbox60, "selection? val$"
    PRINT #main.tb3, WORD$(val$,2)
    PRINT #main.tb4, WORD$(val$,3)
    PRINT #main.tb5, WORD$(val$,4)
    PRINT #main.cbox61, "selection? val$"
    PRINT #main.tb18, WORD$(val$,2)
    PRINT #main.tb19, WORD$(val$,3)
    PRINT #main.tb20, WORD$(val$,4)
    PRINT #main.cbox62, "selection? val$"
    PRINT #main.tb33, WORD$(val$,2)
    PRINT #main.tb34, WORD$(val$,3)
    PRINT #main.tb35, WORD$(val$,4)
    PRINT #main.cbox63, "selection? val$"
    PRINT #main.tb48, WORD$(val$,2)
    PRINT #main.tb49, WORD$(val$,3)
    PRINT #main.tb50, WORD$(val$,4)
    PRINT #main.cbox64, "selection? val$"
    PRINT #main.tb63, WORD$(val$,2)
    PRINT #main.tb64, WORD$(val$,3)
    PRINT #main.tb65, WORD$(val$,4)
    PRINT #main.cbox65, "selection? val$"
    PRINT #main.tb78, WORD$(val$,2)
    PRINT #main.tb79, WORD$(val$,3)
    PRINT #main.tb80, WORD$(val$,4)
    PRINT #main.cbox66, "selection? val$"
    PRINT #main.tb93, WORD$(val$,2)
    PRINT #main.tb94, WORD$(val$,3)
    PRINT #main.tb95, WORD$(val$,4)
    PRINT #main.cbox68, "selection? val$"
    PRINT #main.tb108, WORD$(val$,2)
    PRINT #main.tb109, WORD$(val$,3)
    PRINT #main.tb110, WORD$(val$,4)
    PRINT #main.cbox69, "selection? val$"
    PRINT #main.tb123, WORD$(val$,2)
    PRINT #main.tb124, WORD$(val$,3)
    PRINT #main.tb125, WORD$(val$,4)
    PRINT #main.cbox70, "selection? val$"
    PRINT #main.tb138, WORD$(val$,2)
    PRINT #main.tb139, WORD$(val$,3)
    PRINT #main.tb140, WORD$(val$,4)
    PRINT #main.cbox71, "selection? val$"
    PRINT #main.tb153, WORD$(val$,2)
    PRINT #main.tb154, WORD$(val$,3)
    PRINT #main.tb155, WORD$(val$,4)
    PRINT #main.cbox72, "selection? val$"
    PRINT #main.tb168, WORD$(val$,2)
    PRINT #main.tb169, WORD$(val$,3)
    PRINT #main.tb180, WORD$(val$,4)
    PRINT #main.cbox73, "selection? val$"
    PRINT #main.tb203, WORD$(val$,2)
    PRINT #main.tb204, WORD$(val$,3)
    PRINT #main.tb205, WORD$(val$,4)
    PRINT #main.cbox77, "selection? val$"
    PRINT #main.tb218, WORD$(val$,2)
    PRINT #main.tb219, WORD$(val$,3)
    PRINT #main.tb220, WORD$(val$,4)
    wait

sub CalcStartFinishBreak StartHandle$, FinishHandle$, BreakHandle$, ResultHandle$
    PRINT #StartHandle$, "!contents? start$"                          'format h.mm
    startH=INT(VAL(start$))
    IF startH>12 THEN startH=startH-12 : flag=1
    startH=startH*60                                                  'convert hours to minutes
    startM=VAL(RIGHT$(start$,2))
    startM=startM+startH                                              'combine hours and minutes
    PRINT #FinishHandle$, "!contents? finish$"                        'format h.mm
    finishH=INT(VAL(finish$))
    IF flag=1 then finishH=finishH+12 : flag=0
    finishH=finishH*60                                                'convert hours to minutes
    finishM=VAL(RIGHT$(finish$,2))
    finishM=finishM+finishH                                           'combine hours and minutes
    PRINT #BreakHandle$, "!contents? break"                           'format mm
    hoursWorked=finishM-startM                                        'subtract finish from start
    hoursWorked=hoursWorked-break                                     'subtract minutes on break
    hoursWorked=hoursWorked/60                                        'convert minutes to hours
    minWorked=(hoursWorked-INT(hoursWorked))*60
    minWorked=INT(minWorked)                                          'drop any decimals
    minWorked$=STR$(minWorked)                                        'make string
    WHILE LEN(minWorked$)<2 : minWorked$="0"+minWorked$ : WEND        'pad$
    hoursWorked$=STR$(INT(hoursWorked))+":"+minWorked$
    WHILE LEN(hoursWorked$)<5 : hoursWorked$="0"+hoursWorked$ : WEND  'pad$
    PRINT #ResultHandle$, hoursWorked$                                'hoursWorked hh:mm
end sub