File DRUCKE.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

	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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search