ction$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1726        cosCtlText$ = ONONSTK$
     REN.IBS: 1727        cosSubItem = cosSubItem + 1
     REN.IBS: 1728        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1730        cosCtlText$ = INBR$
     REN.IBS: 1731        cosSubItem = cosSubItem + 1
     REN.IBS: 1732        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1734        cosCtlText$ = ODESC$
     REN.IBS: 1735        cosSubItem = cosSubItem + 1
     REN.IBS: 1736        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1738        cosCtlText$ = IUNIT$
     REN.IBS: 1739        cosSubItem = cosSubItem + 1
     REN.IBS: 1740        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1742        cosCtlText$ = STR(OPRICE)
     REN.IBS: 1743        cosSubItem = cosSubItem + 1
     REN.IBS: 1744        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1746        cosCtlText$ = STR(OQTYSHP)
     REN.IBS: 1747        cosSubItem = cosSubItem + 1
     REN.IBS: 1748        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1750        cosCtlText$ = OTXFLAG$
     REN.IBS: 1751        cosSubItem = cosSubItem + 1
     REN.IBS: 1752        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1754        cosCtlText$ = STR(OEXT)
     REN.IBS: 1755        cosSubItem = cosSubItem + 1
     REN.IBS: 1756        Gosub COS.ListView.SetItemText

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1758        LET O13FLAG$ = 'N'
     REN.IBS: 1759        LET O13KEY$ = ORNBR$ + OLINE$
     REN.IBS: 1760        INQUIRE (13,1513) KEY = O13KEY$, EXCP = DIL60
Excp = 32

     REN.IBS: 1774 DIL60:
     REN.IBS: 1774      IF EXCP EQ 32 GOTO DIL20

     REN.IBS: 1763 DIL20:
     REN.IBS: 1763        cosCtlText$ = OTXFLAG$
     REN.IBS: 1764        cosSubItem = cosSubItem + 1
     REN.IBS: 1765        Gosub COS.ListView.SetItemText     

  COSWIN.IBS: 6006 COS.LISTVIEW.SETITEMTEXT:
  COSWIN.IBS: 6006        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6007        LVItemStruct.SubItem$ = IntelD(cosSubItem)
  COSWIN.IBS: 6008        LVItemStruct.Text$ = cosCtlText$ + NullByte$
  COSWIN.IBS: 6009        cosFunction$ = cosOV.LVSETITEMTEXT$
  COSWIN.IBS: 6010        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6011 Return

     REN.IBS: 1767        ListItem = ListItem + 1
     REN.IBS: 1768        LET LCOUNT = LCOUNT + 1
     REN.IBS: 1770        LET OLINE = NUM(OLINE$,ERR)                            ! SAVE HIGHEST LINE NO
     REN.IBS: 1772        GOTO DIL10

     REN.IBS: 1706 DIL10:
     REN.IBS: 1706        LET O1KEY$ = KEY(11, EXCP = DIL80)
     REN.IBS: 1707        IF SUB(O1KEY$,1,9) NE ORNBR$ GOTO DIL90                ! END OF LINES
     REN.IBS: 1708        IF SUB(O1KEY$,10,6) EQ '@FF@TOTAL' GOTO DIL70          ! TOTALS RECORD     

     REN.IBS: 1777 DIL70:
     REN.IBS: 1777      INQUIRE (11,0000) KEY = O1KEY$                         ! OLD INVOICE TOTALS
     REN.IBS: 1778      GOTO DIL90

     REN.IBS: 1783 DIL90:
     REN.IBS: 1783      GOSUB DisplayInvoiceTotals 

     REN.IBS: 1829 DISPLAYINVOICETOTALS:
     REN.IBS: 1829      GOSUB TD.SetMainDialog

 COSTABS.INC:  232 TD.SETMAINDIALOG:
 COSTABS.INC:  232        cosDlghDlg$ = TD.hdlgMain$  ! Restore main dlg handle
 COSTABS.INC:  233 Return

     REN.IBS: 1831      GOSUB CalculateInvoiceTotals    

     REN.IBS: 1890 CALCULATEINVOICETOTALS:
     REN.IBS: 1890      LET ODISC = OGROSS * CDSCNT1 * .0100
     REN.IBS: 1891      LET ODISC = ODISC + (OGROSS - ODISC) * CDSCNT2 * .0100
     REN.IBS: 1892      LET TDISC = OTAXABL * (CDSCNT1 * .0100)
     REN.IBS: 1893      LET TDISC = TDISC + (OTAXABL - TDISC) * (CDSCNT2 * .0100)
     REN.IBS: 1894      LET OTAXABL = OTAXABL - TDISC
     REN.IBS: 1895      LET OTAX = OTAXABL * OSLSTX * .0100
     REN.IBS: 1896      LET ONET = OGROSS - ODISC + OTAX + OFRT + OFRTIN + OMSC
     REN.IBS: 1897      LET ONET = ONET - ODEPOSIT - OPYMNT 
     REN.IBS: 1898      RETURN                 

     REN.IBS: 1833        cosCtlText$ = 'Invoice: ' + ORNBR$ + '  ' + CNAME$      
     REN.IBS: 1834        cosCtlID = IDC.STATIC.01
     REN.IBS: 1835      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1837        LET MASKAMT = ONET
     REN.IBS: 1838        WRITE (#,MASKOUT)
     REN.IBS: 1839        INQUIRE (#,MASKIN)
     REN.IBS: 1840        cosCtlText$ = 'Total     ' + STRIP(MASKAMT$)     
     REN.IBS: 1841        cosCtlID = IDC.STATIC.02
     REN.IBS: 1842      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1844        TD.PageNum = 3
     REN.IBS: 1845        Gosub TD.SetPageDialog

 COSTABS.INC:  236 TD.SETPAGEDIALOG:
 COSTABS.INC:  236        If (TD.PageNum LE TD.PageCount)
 COSTABS.INC:  237               cosDlghDlg$ = TD.hwndPages$(TD.PageNum)
 COSTABS.INC:  238        Else
 COSTABS.INC:  241 Return

     REN.IBS: 1847        cosCtlText$ = STRIP(STR(OGROSS))   
     REN.IBS: 1848        cosCtlID = IDC.EDIT.30
     REN.IBS: 1849      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1851        cosCtlText$ = STRIP(STR(OTAXABL))  
     REN.IBS: 1852        cosCtlID = IDC.EDIT.31
     REN.IBS: 1853      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1855        cosCtlText$ = STRIP(STR(OTAX))     
     REN.IBS: 1856        cosCtlID = IDC.EDIT.32
     REN.IBS: 1857      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1859        cosCtlText$ = STRIP(STR(ODISC))    
     REN.IBS: 1860        cosCtlID = IDC.EDIT.33
     REN.IBS: 1861      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1863        cosCtlText$ = STRIP(STR(OFRT))     
     REN.IBS: 1864        cosCtlID = IDC.EDIT.34
     REN.IBS: 1865      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1867        cosCtlText$ = STRIP(STR(OFRTIN))   
     REN.IBS: 1868        cosCtlID = IDC.EDIT.35
     REN.IBS: 1869      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1871        cosCtlText$ = STRIP(STR(OMSC))     
     REN.IBS: 1872        cosCtlID = IDC.EDIT.36
     REN.IBS: 1873      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1875        cosCtlText$ = STRIP(STR(OPYMNT))   
     REN.IBS: 1876        cosCtlID = IDC.EDIT.37
     REN.IBS: 1877      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1879        cosCtlText$ = STRIP(STR(ONET))     
     REN.IBS: 1880        cosCtlID = IDC.EDIT.38
     REN.IBS: 1881      Gosub COS.SetDlgItemText

  COSWIN.IBS: 3115 COS.SETDLGITEMTEXT:
  COSWIN.IBS: 3115   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3116   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3117   cosOD.lParam$ = cosCtlText$
  COSWIN.IBS: 3118   If (RSub(cosOD.lParam$, 1, 1) NE NullByte$) Then _
  COSWIN.IBS: 3119          cosOD.lParam$ = Sub(cosCtlText$, 1, 253) + NullByte$
  COSWIN.IBS: 3120   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3121   cosOD.Cmd$ = cosOCD.SETTEXT$
  COSWIN.IBS: 3122   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3127   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3128 RETURN

     REN.IBS: 1883        PRINT ''                                               ! FLUSH BUFFER
     REN.IBS: 1885        LET O1KEY$ = ORNBR$ + '@FF@TOTAL'                      
     REN.IBS: 1886      WRITE (11,1519) KEY = O1KEY$                           ! UPDATE TOTALS
     REN.IBS: 1887        RETURN

     REN.IBS: 1785        TD.PageNum = 2
     REN.IBS: 1786        Gosub TD.SetPageDialog

 COSTABS.INC:  236 TD.SETPAGEDIALOG:
 COSTABS.INC:  236        If (TD.PageNum LE TD.PageCount)
 COSTABS.INC:  237               cosDlghDlg$ = TD.hwndPages$(TD.PageNum)
 COSTABS.INC:  238        Else
 COSTABS.INC:  241 Return

     REN.IBS: 1788        LET cosCtlID = IDC.BUTTON.20                           ! ADD LINE
     REN.IBS: 1789        LET cosState = cosEW.Enable
     REN.IBS: 1790        GOSUB COS.EnableDlgItem

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1792        LET cosCtlID = IDC.BUTTON.23                           ! GOTO TOTALS
     REN.IBS: 1793        LET cosState = cosEW.Enable
     REN.IBS: 1794        GOSUB COS.EnableDlgItem

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1796        IF LCOUNT GT 0                                         ! HAVE EXISTING LINE(S)      
     REN.IBS: 1797               LET cosCtlID = IDC.BUTTON.21                      ! EDIT LINE
     REN.IBS: 1798               LET cosState = cosEW.Enable
     REN.IBS: 1799               GOSUB COS.EnableDlgItem

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1801               LET cosCtlID = IDC.BUTTON.22                      ! DELETE LINE
     REN.IBS: 1802               LET cosState = cosEW.Enable
     REN.IBS: 1803               GOSUB COS.EnableDlgItem

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1804        ELSE   
     REN.IBS: 1815        cosItemId = SaveItem                                   ! Select highlight item
     REN.IBS: 1816        cosCtlId = IDC.LISTVIEW.01
     REN.IBS: 1817        cosState = LVIS.SELECTED + LVIS.FOCUSED
     REN.IBS: 1818        coslParam = LVIS.SELECTED + LVIS.FOCUSED
     REN.IBS: 1819        Gosub COS.ListView.SetItemState

  COSWIN.IBS: 6022 COS.LISTVIEW.SETITEMSTATE:
  COSWIN.IBS: 6022        Gosub COS.ListView.ItemInit

  COSWIN.IBS: 5966 COS.LISTVIEW.ITEMINIT:
  COSWIN.IBS: 5966        LVItemStruct.Mask$ = NullDWord$
  COSWIN.IBS: 5967        LVItemStruct.Item$ = NullDWord$
  COSWIN.IBS: 5968        LVItemStruct.SubItem$ = NullDWord$
  COSWIN.IBS: 5969        LVItemStruct.State$ = NullDWord$
  COSWIN.IBS: 5970        LVItemStruct.StateMask$ = NullDWord$
  COSWIN.IBS: 5971        LVItemStruct.Text$ = NullByte$
  COSWIN.IBS: 5972        LVItemStruct.TextMax$ = NullDWord$
  COSWIN.IBS: 5973        LVItemStruct.Image$ = NullDWord$
  COSWIN.IBS: 5974        LVItemStruct.lParam$ = NullDWord$
  COSWIN.IBS: 5975        LVItemStruct.Indent$ = NullDWord$
  COSWIN.IBS: 5976 Return

  COSWIN.IBS: 6023        LVItemStruct.Mask$ = IntelD(LVIF.STATE)
  COSWIN.IBS: 6024        LVItemStruct.State$ = IntelD(cosState)
  COSWIN.IBS: 6025        LVItemStruct.StateMask$ = IntelD(coslParam)
  COSWIN.IBS: 6026        cosFunction$ = cosOV.LVSETITEM$
  COSWIN.IBS: 6027        Gosub COS.ListView.ItemFunc

  COSWIN.IBS: 5917 COS.LISTVIEW.ITEMFUNC:
  COSWIN.IBS: 5917        GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 5918        LVItemStruct.Item$ = IntelD(cosItemID)
  COSWIN.IBS: 5919        Print (#, LVIStruct)
  COSWIN.IBS: 5920        Input (#) cosOD.lParam$
  COSWIN.IBS: 5921        cosOD.Function$ = cosFunction$
  COSWIN.IBS: 5922        cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 5923        cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 5928        GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 5930 Return

  COSWIN.IBS: 6028 Return

     REN.IBS: 1821        cosItemId = SaveItem                                   ! Ensure Visible
     REN.IBS: 1822        cosCtlId = IDC.LISTVIEW.01
     REN.IBS: 1823        Gosub COS.ListView.EnsureVisible

  COSWIN.IBS: 6112 COS.LISTVIEW.ENSUREVISIBLE:
  COSWIN.IBS: 6112   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 6113   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 6114   cosOD.wParam$ = INTELD(cosItemID)
  COSWIN.IBS: 6115   cosOD.lParam$ = INTELD(cosState)    ! 1 if partial is ok else 0
  COSWIN.IBS: 6116   cosOD.Msg$ = INTELD(LVM.ENSUREVISIBLE)
  COSWIN.IBS: 6117   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 6118   cosOD.Cmd$ = cosOCD.SENDDLGITEMMESSAGE$
  COSWIN.IBS: 6119   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 6124   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 6125 Return


     REN.IBS: 1825 DIL95:
     REN.IBS: 1825      PRINT '' 
     REN.IBS: 1826        Return            

     REN.IBS: 1679        RETURN

     REN.IBS: 1388               TD.PageNum = 1
     REN.IBS: 1389               Gosub TD.SetPageDialog

 COSTABS.INC:  236 TD.SETPAGEDIALOG:
 COSTABS.INC:  236        If (TD.PageNum LE TD.PageCount)
 COSTABS.INC:  237               cosDlghDlg$ = TD.hwndPages$(TD.PageNum)
 COSTABS.INC:  238        Else
 COSTABS.INC:  241 Return

     REN.IBS: 1391               LET cosCtlID = IDC.BUTTON.02                      ! EDIT INVOICE
     REN.IBS: 1392               LET cosState = cosEW.Enable
     REN.IBS: 1393               GOSUB COS.EnableDlgItem

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1395               LET cosCtlID = IDC.BUTTON.05                      ! CANCEL INVOICE
     REN.IBS: 1396               LET cosState = cosEW.Enable
     REN.IBS: 1397               GOSUB COS.EnableDlgItem     

  COSWIN.IBS: 3606 COS.ENABLEDLGITEM:
  COSWIN.IBS: 3606   GOSUB COS.OutInit

  COSWIN.IBS:  818 COS.OUTINIT:
  COSWIN.IBS:  818   cosOD.DataSize= 0
  COSWIN.IBS:  820   cosOD.hDlg$ = NullInt$
  COSWIN.IBS:  821   cosOD.Cmd$  = NullWord$
  COSWIN.IBS:  822   cosOD.Flags$       = NullWord$
  COSWIN.IBS:  823   cosOD.nID$  = NullInt$
  COSWIN.IBS:  824   cosOD.Msg$  = NullInt$
  COSWIN.IBS:  825   cosOD.wParam$      = NullInt$
  COSWIN.IBS:  826   cosOD.lParam$      = NullDWord$
  COSWIN.IBS:  827 RETURN

  COSWIN.IBS: 3607   cosOD.nID$ = INTELD(cosCtlId)
  COSWIN.IBS: 3608   cosOD.wParam$ = INTELD(cosState)
  COSWIN.IBS: 3609   cosOD.Cmd$ = cosOCD.ENABLEDLGITEM$
  COSWIN.IBS: 3610   cosOD.hDlg$ = cosDlghDlg$
  COSWIN.IBS: 3611   cosOD.Function$ = cosOV.CMDDIALOG$
  COSWIN.IBS: 3616   GOSUB COS.Send

  COSWIN.IBS: 5113 COS.SEND:
  COSWIN.IBS: 5113   GOSUB COS.DoSend

  COSWIN.IBS: 5129 COS.DOSEND:
  COSWIN.IBS: 5129        cosOD.DataSize = cosODStrucBaseSize + Len(cosOD.lParam$)
  COSWIN.IBS: 5131        cosFuncResult$ = Term$
  COSWIN.IBS: 5132        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5135               cosDOSRWFunc$ = cosWINSENDCACHECMD$
  COSWIN.IBS: 5138        DosRW(cosDOSRWFunc$, cosFuncResult$, cosOD.DataSize, cosOD)
  COSWIN.IBS: 5140        If (cosGetResult EQ TRUE)
  COSWIN.IBS: 5144 Return

  COSWIN.IBS: 5120 RETURN

  COSWIN.IBS: 3617 RETURN

     REN.IBS: 1399               PRINT ''                    
     REN.IBS: 1400        ELSE
     REN.IBS: 1429        Return

     REN.IBS:  891        TRACE OFF