I have the following code I need to use in VFP5.0 and I know nothing to help myself
F1= FREEFILE
OPEN POSITEMS.CWEBPIC FOR BINARY AS #F1
DO WHILE NOT EOF(F1)
GET #F1, , CH
THISFORM.COMMC1.OUTPUT=CH
ENDDO