include  "inc:util.imp"
begin  {FIRST4: Show first 4 bytes of each .mob file in a directory}
string (63)directory,filename
  on  9 start ; stop ; finish 
  directory = cliparam.":"
  openinput(1,directory)
  cycle 
    selectinput(1); readline(filename)
    filename = directory.filename
    tolower(filename)
    continueunless  filename -> (".mob")
    begin 
    integer  n=4,ended=0,k
      on  3,9 start 
        ended = 1; ->put
      finish 
      openinput(2,filename); selectinput(2)
      cycle 
        readsymbol(k)
put:    if  ended=0 start 
          space; phex2(k)
        finishelse  printstring(" --")
        n = n-1
      repeatuntil  n<=0
      space; space; printline(filename)
      closeinput
    end 
  repeat 
end