File AB2.FT (FORTRAN source file)

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

C	AUSGABETEIL UEBER ZULASSUNG - LK-BEREICH
	COMMON LANF,NOTE,FNAM,LK,L
	DIMENSION NOTE(13,148),FNAM(3),LK(6,148),L(149),IW(148)
	DIMENSION KLASSE(10),IFE(227)
	ISTC=1148
	CALL RTAPE(1,-ISTC,227,IFE)
	DO 5 K=1,10
5	KLASSE(K)=0
	DO 10 K1=LANF,148
	IF(LK(1,K1))10,10,15
15	IW(K1)=3*(LK(4,K1)+LK(5,K1))+2*LK(6,K1)
	LEIKU=(IW(K1)-2*LK(6,K1))/3
	NF1=IFE(NOTE(2,K1)+160)
	NF2=IFE(NOTE(3,K1)+160)
	WRITE(1,20)NOTE(1,K1),NF1,NF2,(NOTE(K,K1),K=8,13)
20	FORMAT(6(/),'SCHUELER ',I3//10X,A2,2X,A2/'12.1:',3X,2(2X,I2)/
	1'12.2:',3X,2(2X,I2)/'13.1:',3X,2(2X,I2))
	WRITE(1,25)LEIKU,LK(6,K1),IW(K1)
25	FORMAT(/'SUMME LK-BEREICH EINFACHE WERTUNG: '
	1,I3/'AUSGLEICHSPUNKTE EINFACHE WERTUNG: ',I3/'PUNKTSUMME ',
	2'LK-BEREICH: ',20X,I3,' PUNKTE')
	IF(L(K1)-2) 30,30,40
40	WRITE(1,50)
50	FORMAT('NICHT ZUZULASSEN, WEIL MEHR ALS ZWEI KURSE MIT WENI',
	1'GER ALS FUENF PUNKTEN EINFACHER WERTUNG ABGESCHLOSSEN WUR',
	2'DEN.')
30	IF(IW(K1)-100) 60,70,70
60	WRITE(1,80)
80	FORMAT('NICHT ZUZULASSEN, WEIL WENIGER ALS HUNDERT PUNKTE IM',
	1' LK-BEREICH')
	GOTO 10
70	IF(IW(K1)-276) 90,100,100
100	KLASSE(1)=KLASSE(1)+1
	GOTO 10
90	IGRENZ=271
	DO 120 K=2,8
	IGRENZ=IGRENZ-20
	IF(IW(K1)-IGRENZ) 120,130,130
130	KLASSE(K)=KLASSE(K)+1
	GOTO 10
120	CONTINUE
	IF(IW(K1)-116) 250,260,260
260	KLASSE(9)=KLASSE(9)+1
	GOTO 10
250	KLASSE(10)=KLASSE(10)+1
10	CONTINUE
	WRITE(1,270)
270	FORMAT(//'U E B E R S I C H T'/'UEBER DIE GRUPPIERUNG DER ',
	1'ZUGELASSENEN SCHUELER')
	WRITE(1,280)
280	FORMAT('IM LK-BEREICH FUER DIE MELDUNG NACH PAR. 18 ABPO'//
	115X,'PUNKT-ZAHL',5X,'ANZAHL SCHUELER'/)
	WRITE(1,290)KLASSE(1)
290	FORMAT(17X,'300-276',12X,I3)
	WRITE(1,300)KLASSE(2)
300	FORMAT(17X,'275-251',12X,I3)
	WRITE(1,310)KLASSE(3)
310	FORMAT(17X,'250-231',12X,I3)
	WRITE(1,320)KLASSE(4)
320	FORMAT(17X,'230-211',12X,I3)
	WRITE(1,330)KLASSE(5)
330	FORMAT(17X,'210-191',12X,I3)
	WRITE(1,340)KLASSE(6)
340	FORMAT(17X,'190-171',12X,I3)
	WRITE(1,350)KLASSE(7)
350	FORMAT(17X,'170-151',12X,I3)
	WRITE(1,360)KLASSE(8)
360	FORMAT(17X,'150-131',12X,I3)
	WRITE(1,370)KLASSE(9)
370	FORMAT(17X,'130-116',12X,I3)
	WRITE(1,380)KLASSE(10)
380	FORMAT(17X,'115-100',12X,I3///)
	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