%Include "disqio.inc"

%Begin
   %Integer blockno
   %Bytearray buffer(0:511)

%routine bootread(%integer byte,buffer)
%integername n
  n == transfer(dread,512,0,integer(buffer))
  %cycle
  %repeatuntil n#0
%end

   prompt ("Blockno:")

   %cycle
      read (blockno)
      bootread (blockno,addr(buffer(0)))
   %Repeat
%End
