Problema al escribir/leer en archivos binarios

Hola, mi problema es que al trabajar con archivos binarios no se escriben ni leen los datos en el archivo. El archivo nunca es modificado, solo cuando es creado.

Parte de mi código es el siguiente:

public type RegArt
 DIM cve AS String*7
 DIM desc AS String*50
 DIM fam AS String*15
 DIM pre AS single
end type
Dim art AS RegArt
/*para escribir*/
open "archivo.dat" for Binary  as #1
'se llena la registro art con la informacion
put #1, ,art
close #1
/*para leer*/
open "archivo.dat" for Binary as #1
put #1, ,art
close #1

En realidad no se el por que no esta escribiendo sobre el archivo,intente hacerlo con archivos directos (aleatorios) y de igual manera no puedo escribir ni leer en ellos.

Estoy usando como compilador freebasic y el sistema operativo es windows 7.