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

{%begin
  %integer i

{main}
  init

phex(SUPERB)

  open input(1, "sb")
  select input(1)
  readsymbol( buffer(i) ) %for i=1,1,512
  close input
  WriteDisk( SUPERB )

  newline

  bye
%endofprogram