REAL PROGN(50),TEXT(13),PRONAM
	INTEGER PAGE,ZEILE,ANZAHL
	LOGICAL B
	PAGE = 0
	CALL IOPEN('RKB0@@','PNAME@')
	ANZAHL=0
	DO 50 I=1,50
	READ(4,1)PROGN(I)
1	FORMAT(A6)
	PRONAM=PROGN(I)
	IF (PROGN.EQ.'$@@@@@') GOTO 201	@SCHLUSS
50	ANZAHL=ANZAHL+1
201	DO 555 I=1,ANZAHL
	PRONAM=PROGN(I)
	CALL IOPEN('RKB0@@',PRONAM)
105	PAGE=PAGE+1
	ZEILE=4
	WRITE(1,2)PRONAM,PAGE
2	FORMAT('PASCAL-COMPILER PROGRAMME',10X,A6,'.FT',10X,'SEITE',I3//)
	DO 222 J=1,65
	READ(1,3)(TEXT(K),K=1,13)
3	FORMAT(13A6)
	L=13
333	PROGN=TEXT(L)
	IF(PROGN.EQ.'      ')
	  L=L-1
	  GOTO 333
	ENDIF
	WRITE(1,3)(TEXT(K),K=1,L)
	ZEILE=ZEILE+1
	B=TEXT(1).EQ.'      '.AND.TEXT(2).EQ.'  END '
	IF (B) GOTO 300
222	CONTINUE
	WRITE(1,4)
4	FORMAT(///)
	GOTO 105
300	DO 111 J=ZEILE,70
	WRITE(1,5)
5	FORMAT(' ')
111	CONTINUE
555	CONTINUE
	END