File TERM.FT (FORTRAN source file)

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

C  EIN EINGEGEBENER ALGEBRAISCHER TERM SOLL AUF KORREKTHEIT DER
C  KLAMMERSETZUNG UEBERPRUEFT WERDEN
	DIMENSION KTERM(60)
	READ(1,5)(KTERM(I),I=1,60)
5	FORMAT(60A1)
	LA=60
6	IF(KTERM(LA)+2016)10,7,10
7	LA =LA-1
	GOTO 6
10	INDEX=0
	DO 150 IZ=1,LA
	IF(KTERM(IZ)+1504)110,100,110
100	INDEX=INDEX+1
	GOTO 150
110	IF(KTERM(IZ)+1440) 150,115,150
115	IF(INDEX) 120,120,130
120	WRITE(1,121)
121	FORMAT('"KLAMMER AUF" FEHLT')
	STOP
130	INDEX=INDEX-1
150	CONTINUE
	IF(INDEX)200,210,220
200	WRITE(1,201)
201	FORMAT('ZU OFT ")"')
	GOTO 250
220	WRITE(1,221)
221	FORMAT('ZU OFT "("')
	GOTO 250
210	WRITE(1,211)
211	FORMAT('DIE KLAMMERN SIND  KORREKT GESETZT')
250	STOP
	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