EQ TRUE) COSWIN.IBS: 5144 Return COSWIN.IBS: 5120 RETURN COSWIN.IBS: 5930 Return COSWIN.IBS: 6011 Return REN.IBS: 1581 cosCtlText$ = ONONSTK$ REN.IBS: 1582 cosSubItem = cosSubItem + 1 REN.IBS: 1583 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: 1585 cosCtlText$ = INBR$ REN.IBS: 1586 cosSubItem = cosSubItem + 1 REN.IBS: 1587 Gosub COS.ListView.SetItemText