' Ermittelt die wichtigen Werte im Header eines Inlines
'
DO
  '
  FILESELECT #"INL ausw„hlen...","D:\BINDINGS\FORM_DO\SOURCEN\*.INL","",file$
  '
  EXIT IF file$=""
  '
  OPEN "I",#1,file$
  lof%=LOF(#1)
  a$=INPUT$(lof%,#1)
  CLOSE #1
  '
  a%=V:a$
  '
  ph_branch&=INT{a%}
  '
  ph_tlen%={a%+2}
  ph_dlen%={a%+6}
  ph_blen%={a%+10}
  '
  PRINT "----------------------------------"
  PRINT file$
  PRINT
  PRINT "L„nge des Programmes    :",lof%,"<--"
  PRINT
  PRINT "L„nge des Text-Segmentes:",ph_tlen%
  PRINT "L„nge des Data-Segmentes:",ph_dlen%
  PRINT "L„nge des Bss-Segmentes :",ph_blen%
  '
  a%=28+ph_tlen%+ph_dlen%+ph_blen%
  '
  PRINT
  PRINT "INLINE-Gr”že            :",a%,"<--"
  PRINT "----------------------------------"
  '
  ~INP(2)
  '
LOOP
EDIT