Seitenanzahl einer Tiff-Datei

Info$=TIFF INFO$("~pdf/scan.tiff")
Ll=LIST LEN(Info$)
IF Ll>0 THEN
  Seiten=0
  FOR I=1 TO Ll
    Name$=LIST GET NAME$(Info$;I)
    IF Info$="Pages" THEN
      Seiten=IVAL(LIST GET$(Info$;I))
      BREAK
    END IF
  NEXT
  DISP "Ergebnis:\n" Info$ "\n"
  IF Seiten THEN DISP "Anzahl Seiten: " Seiten "\n"
  END IF
END IF
:Ergebnis:
: { Pages->18; Filesize->3868200; ResolutionX->300; ResolutionY->300; Width->2480; Length->3507;
 BitsPerSample->1; SamplesPerPixel->1; CompressionScheme->"CCITT Group 4";
PhotometicInterpretation->"min-is-white"; FillOrder->"msb-to-lsb" }
:Anzahl Seiten:  18