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

C						SEITE 1
C	KUSOR
C
	SUBROUTINE KUSOR(I3)
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        COMMON LANF,IANF,I,I2,IZFE,IZFA,N
        DIMENSION I(11,148),I2(148),I3(4,148)
	DO 720 L=1,148
	IF(I2(L)) 705,720,705
705	DO 700 L0=2,4
	IF(I3(L0,L)) 710,700,710
710	IF(I3(L0,L)-10) 725,725,700
725	I3(L0,L)=I3(L0,L)+1
700	CONTINUE
720	CONTINUE
C	SORTIEREN
	K0=148
	DO 10 K3=IANF,148
	K4=148-K3+IANF
	DO 30 K5=1,K0
	IF(I(1,K4)-I3(1,K5)) 30,210,30
210	DO 220 K6=1,4
	ITEM=I3(K6,K5)
	I3(K6,K5)=I3(K6,K4)
220	I3(K6,K4)=ITEM
	K0=K0-1
	GOTO 10
30	CONTINUE
	IF(I3(1,K4)) 235,205,235
205	DO 200 K1=1,K0
	IF(I3(1,K1))200,230,200
230	I3(1,K1)=I(1,K4)
	DO 240 K6=1,4
	ITEM=I3(K6,K1)
	I3(K6,K1)=I3(K6,K4)
240	I3(K6,K4)=ITEM
235	K0=K0-1
	GOTO 10
200	CONTINUE
	STOP
10	CONTINUE
	DO 400 K1=1,K0
400	I3(1,K1)=0
	DO 300 K3=IANF,148
	IF(I3(2,K3)-11)310,310,320
310	I3(2,K3)=I(I3(2,K3),K3)
320	IF(I3(3,K3)-11)330,330,340
330	I3(3,K3)=I(I3(3,K3),K3)
340	IF(I3(4,K3))140,140,135
140	I3(4,K3)=100
	GOTO 300
135	IF(I3(4,K3)-11)160,160,300
160	I3(4,K3)=I(I3(4,K3),K3)
300	CONTINUE
	RETURN
	END