fnew c:\myout;     #   (    )
z=0;
:n
fwrite z;          #       "Z"
z=z+1;
if z<256; n;       #       0  255
fclose;

#  

fopen c:\myout;    #  
a=128*2;
fseek a;           #   
:nn
write fread; writes  ; #     
if eof&0; nn;      # ,    
fclose;
.