Como escribir y leer de un archivo de texto datos en binario

vic
29 de Enero del 2003
Tengo una aplicacion que lee los datos enviados por un osciloscopio en una cadena del tipo #<x><yyy><datos> donde <x>es un numero que me dice el numero de ybytes(ejemplo yyy=500 entonces x=3) y los datos me los envia en binario,queria saber cual es la forma mas rapida de guardarlos a un archivo,ahora simplemente recojo la cadena en una variable tipo string(cadena) y mediante la instrucion
open nombrearchivo for output as #1
write #1,cadena
close 1
el problema es que a la hora de leerel archivo para pasar los datos de binario a "numeros" si he transmitido 2000datos,me lee solo 17206 y no se porque,para leer utilizo las instruciones
open nombre archivo for input as #1
input #1,cadena

,el problema ya comentado es que no soy capaz de recuperar todos los datos,si alguien conoce alguna otra forma par optimizar el proceso por favor reponda.