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

{%begin
  %integer i

{main}
  init

  buffer(i)=0 %for i=1,1,512
  
 %cycle
  prompt("block no. ($) (FFFFFFFF => END): "); rhex(i); skipsymbol; 
  phex(i); newline
  %exitif i = 16_FFFFFFFF
  WriteDisk(i)
 %repeat

  bye
%endofprogram