nomainwin open "COM6: 9600, 8, N, 1, RS, DS0, CS0" for random as #c #c "c,0,0,0,0" open "flashdata.dat" for binary as #h line input #h, i$ for h =1 to 100 for hh =1 to len( i$) #c "O,0"; ","; asc( mid$( i$, hh, 1)); ",0" next hh next h close #h #c "O,0,0,0" close #c end