! Bad block adder, GDMR, 14/02/86
! Uses new administrative operation, code 8, param <block no.>

include  "INC:FS.IMP"

string (15)fn  hdx8(integer  i)
   ! eight hexit version
   string (15) s
   integer  j, k, n
      s = ""
      for  n = 1, 1, 8 cycle 
         j = i // 16
         k = i - 16 * j
         s = tostring(k + '0') . s
         i = j
      repeat 
      result  = s
end 

begin 
   string (15) parameters
   integer  block, x
      on  3, 9 start 
         if  event_event = 3 start 
            printstring("Error: ");  printstring(event_message)
            newline
         finish 
         stop 
      finish 
      prompt("Block: ")
      cycle 
         read(block)
         stop  if  block <= 0
         parameters = "8," . hdx8(block)
         ! printstring("Sending ");  printstring(parameters);  newline
         x = fcomm(']' << 8, parameters)
      repeat 
end  of  program