%include "dkmain.imp-nolist"

{%begin
  %integer i
  %shortinteger uno

{main}

  buffer(i)= 0 %for i= 1,1,512
  uno = USERNO

  printstring("USERNO="); printsymbol( uno + '0' )
 newline

 str= UnixFS . "," . hdx(VirtDiskSize)
{  str= UnixFS 
 printstring(str); newline

  xno = fcomm( openw + uno, str )
 printstring("after openW, xno=");
 write(xno, 3); newline

{ can't simply do this:
{      fcommw( writeda + xno, hdx(VirtDiskSize).",",
{                               byteinteger( addr(buffer) ), 512 )
{ have to do this:
 %for i= 1, 1, VirtDiskSize %cycle
   fcommw( writesq + xno, "", byteinteger( addr(buffer) ), 512 )
{phex4(i); space
 %repeat
 write( i , 0); newline

  xno = fcomm( close + xno, "" )
 write(xno, 0); newline

%endofprogram
