%include "dkmain.imp-nolist"
%include "writedk.imp-nolist"

{%begin
  %integer i

{main}
  init

  buffer(i)=0 %for i=1,1,512
  
 %for i= 16_0002, 1, 16_0065 %cycle
    WriteDisk(i)
 %repeat
    phex4(i); space   
  newline

  bye
%endofprogram