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

C						SEITE 1
C	KUWA2E
C
C	KURSWAHL - KARTENSUCHPROGRAMM
C
	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),N(67)
	WRITE (1,400)
400	FORMAT(/'SUCHEN DER FALSCH CODIERTEN KARTEN!')
10	READ (3,420)KNUM
420	FORMAT(I3)
	IF(KNUM)25,60,25
25	DO 40 K1=IANF,148
	IF(KNUM-I(1,K1))40,26,40
26	IF(I2(K1))10,10,30
40	CONTINUE
30	WRITE (1,430)KNUM,N(1),
430	FORMAT(/,I3,A2)
	ITEST=I2(K1)
	DO 300 IFEHL=1,9
	IF(ITEST-2**(9-IFEHL))300,310,310
310	WRITE (1,415)IFEHL,
415	FORMAT(I2)
	ITEST= ITEST-2**(9-IFEHL)
300	CONTINUE
S	6032
SX,	KSF
S	JMP X
	GOTO 10
60	WRITE (1,440)
440	FORMAT(/'MEHR KARTEN LASSEN SICH NICHT FINDEN!')
100	WRITE (1,450)N(1),
450	FORMAT(/'SOLL ICH DIE VERARBEITUNG NEU STARTEN?',A1)
	READ(1,410)IFRAGE
410	FORMAT(A2)
	IF (IFRAGE-672)210,200,210
210	CALL CHAIN ('KUWA2F')
200     CALL CHAIN ('KUWA2')
        END