#1=0
BOF
while (1) {
  Search("|H0C",ADVANCE+ERRBREAK)
  #1+=1
}
M("Anzahl Seiten:")
Num_Type(#1)