3540 IF pr<>pr2 THEN PRINT"Pruefsummenfehler in Zeile";zeile:STOP
3540 IF pr<>pr2 THEN PRINT"Pruefsummenfehler in Zeile";zeile*10+900:STOP