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

~|"P@
nH?! hD J	'Ih h	G~}w (
	00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn39?JM yH@ KURS#
TAD I KURS
DCA \K1#
INC KURS#
DUMMY \IFACH
TAD I KURS
DCA \IFACH
INC KURS#
TAD I KURS
DCA \IFACH#
INC KURS#

/      COMMON K,F,IF

/      DIMENSION K(22,100),F(2,20),IF(20 p{	<@<
LI	)0)
lJC&EK	L01	$K=%	L%0)	L)0	L11	6K
	L;1

%p	TO!N!(/X~b2b}3&J	2@- 5c5	L#0
+4,b57j
2f)
f4$&#@# nJ>
n!"b	|G#]#V
3f{Urz xO
33$HVbn?d
.

ny	
W0%% @_?P22A1=i~+Q qRfqTqWBqX-qY#q`
q
	}G| }c{z(yy yxy)w(zvu)$t)
A$ kbk	lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f 	ls(?\A$
AgA NA ~k-j Abe	les7 |e Kc2b22&3 WB'Y$xo)@*W0~}7} ~|b'{"zhd~yz)H?!hK	*xzxzi~}@? 	
w!>}S(}@?O!.vuz}hHz f} .~>zxz)OD	,~<Z	}C!o}b`vy J	.xz)1 	tC@s{ozrZJtc(S{yz)SZ3\\b(wz
nm~Fn]f eO.0Ee10- {Ps3% >NKf Lf 	l~~NO7})| R2r`rUrSr{6rMhN	
oO	lMQ	l@KJLKKj MfL<J}/K .{	z(?H	,~yR	zGM]Jx0 	~E\K&Y(N	oKU]*{R	~w
iC	iDk_z",7@(/s,vK2 w{ 1HZ*82Oe1	~(?}"
8)| {H/zy"	xC0(wy0	~C -z2b *z8$
2	lv2u2}t 	8K2 /4Z.	xCsr(3zq@.z/94*zV&V


V&T&z"!Tb!Vb(AzUUb!VbVVc ~VV& bUdeA*K-Osp?JMs! @`W 2	~8T	~OP	l}(?M@/|"O}G	l}{2@zN	o@PJQO	lz	}G	yCx(/P!.}@/ wiQ	l@Q	}>HIz}H>}vsvgu>u}st}s}'5	,}r0}	|0	}C{H/%Qd>w PP&R
(gz
g b	lM0
vc	
F&i|pZz)ptK#$)
$ ("   .)bn~6C	l4X7h1Fn(hn!JDD"@~b>z*N	*C*(O?D"(>z*3JD	l**6D*+!Dfj	}6|6{z0b{jxj	}2}~|2|~{2{{sH
nzyxDHE+	
}D>}|s|g{>{	|j?0 
F}	l(?~9hw/&xOz/"{
-@	}E70(/
	l0(|y{ ?##Kz}!Yf#>
O9z

n
y`xY2,*wZOZIz
nnsv'Y>J, ~W&}Y"HbnO0Ya(U	
oY]	,Z>	uC Yfmt"xYkz) %*e
`8r? 20!*)0} .	G =f 	l~v	Ez}|`O
UO
SO@W
"={K	~E!7h~ziy<&x=&~7x~@5z!	l~XK	
*j	G b=d /5}"	wG} .=v"u	CH$zts)O bFbb	lW	<es7 |e Kc2b22&"0S
e
|#tO2*82ON25NWFUpbXn%bn4 n4b	G	~C(WzU"b(;z!b@;zbHf.bf/JC .bAj
@"@HzfiH/@/Rf.X	l}y
"onh rm	
~nx	|Gn	{ ~mfVbkn?n;r&s&hmf Ehn8b tbcc	l8Ef	~C}ck)).
|`Xn)){ 0Df.bf*0@b&b&b&5N7ipzH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{"	G~'}'F>fjw+ 1t(xp&
c
F
6&
&cF cb7#j&c7F c	l68	G~68	~G}68	}GVN4&k6{	 	C|	~Cb{@/kz"yiKJ./!f	G~}w ([c\
dhT	
[<Vn\=&>(J	:hnS-/sp?JMs!N}tP5NWuF;Vhv'&	c	F 	c	F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi J	9Fh	lzpz*cpefn	l >A~0~&J0n4"cF%&
&&c' @H1~fn~b	l}|y 6:&7c7BF 7c7Fc n66	,{7rzy{Hf.bf	l}N{V
1	xC wr	xG 	hC^hdh_6J	\Ghdjj8UFEUOR.n
bDB(|h	T&*
-1wL
x=VVVVVVVJ, hZ.C$=B"&L5
 DB |
	LC&+J^}gx@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G	,EH+-S-HIb	EIKJb!HnG&	KBzzno7 JbJej
(?V,	IV  
C(VzB	V
R Q)&6ML
H
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

J	
GUfBtLvx]zLojl:np;rD@	|&!#%')N.~rsvvN]
p
xRC
 `0&
cd0cdaf>atH
f666b&	bC

n
PhbP8b(J
.
Jhb&.fJ(b8J~&}f}a(]z 

PJ|(2z{H/zy"P0
0!c (bbcoz

n
r`	gK?3WJ'Y  @`?M|
bn4c)F)c )bDn
bD
f)r$+	P@/$!
f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! hnnD
BHrH~wJ 
{Pzt/&
c
F

4nH?! hD J	'Ih h	G~}w (
	00bH ~1d~3&2>&c|(H#[
* n/c_c)c+c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn39?JM yH@ p{
<@<
LI	)0)
lJC&EK
L01
$K=%
L%0)	L)0
L11
6K

L;1

%
LI	)0)
lJC&EK

	L	
L		L	
L
	L		L		L		L		L		L		L		L		L		L		L		L
@"X2+4'[x)	mf%ug6;vW<[fr^Wa	[p?)-7676_7
B*)j).c77cl&	C_g	L	)&/767-6-(6B*-d-_77d)b720-7)l-&IK8-7'7B
7g)&JK
7y2*7d776*@ @p cN((bG*&(C[*c(]z7`K
<H
%abE
H
NI
|z&l%+
|N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ@C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m

)QFs
l
@
n	|PPsRPs
 N( n((/("); (b
.)Q	@SQ
(S)8TU'XW'hV'K
 FnY&&!&'&.&3&8&)2Z	&	
&[&F&
	C
GDJ
;K	80
hOe``
fOed
L^	fGfgD]d.i
|e'0'ppEb&t,('H/)"<b~*rC(2<+bi/' J,&H"z)=&}~'*C(K(=&+*

%S	,|{0(,{z(&y)&x*&w+&vu'
tBtr}	|, 2sss!rg
CK>
qp0(J{Jn!okXp8ug]o?C


 #2qVqr

0"1c!!bL~9!!&!J!F.(b
Iw
(
,
w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr
 .	?G+0hcKrp
c+	A
w
n~)pp&l@9AER0uH>@`1`RPS2 l(+2@i
 
O	AEwnX/
<	?&A9@T8U3<
why
I

-@9a8!V&r(ByK
>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6mAe["u]]idM
,lr@rdJ`0*w) J
n
`(r
Hnu0+B`Y@C*vR@
4
7N
+
C@%*A`3+O`M3J6I@!
fL@JfL@JfM@ JfM+fI@]9+aM@6\
7@*fA}*FN]+N@2m+aDo
f
%)vFZ,+P`G@
WS&
GN@ JFA@ 

fO!
FO#

G$
'@$
R FS!*F
4zJF4+fC
5`9+Pc
vS4*v
EA\+
SE@N
d@Ld+dR@1e+E/8J
d>J
dN
d@

d
d	Jd>Jd
NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H
w
Q*&V/
6
@T&FQ!*AC*
C@*
C)
@!
	7
{
&w
7B
{
w
7-
{Aw173GUD@
pp6 O$0
s7
{vw
7I
{#x
7@GDD170cGOB 	7'
7h{4|#3|

x
	7"2|
q"iRET@!20|2

:x
7<

`x
7G
_x57]H67`H77H87&H97BHOCCq@|{2p}
y370I
7C3@@XAT ASN"'PCNv	
lwLt@*NiBffhfeDV.c/`c&RRDXp~4}Bebdbj6*3f"nfbfb
ggfrn
d
ddt9d"gddf dphH. ?i96|(e{" @zz>Tzg
yI

7I
\

7I(xh
wIfzazxyh
w:}~	
	qBvur7ir.|h?
{
j@?fs^?z ?
o2!EfpC&D&
0qArB(|,v<s?&F /S
,O<9*AF.t`BB7AJ.
ntCCDrCdE>Juy)?
(>C"BCdAC'O0 
sBQ	lvw0xA&A?G<cGlsa&
nC	(O
chG,U0l
ldmalm'	cKfp0}|zpo(~fq_*04*WT

/      END
CALL 0,EXIT
[0, BLOCK 2
[1, BLOCK 2
END 
LAP 
\K, 0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAG 
0
PAGE 
0
PAGE 
BLOCK 10
\IH, BLOCK 16
\I, BLOCK 1
\J, BLOCK 1
\J1, BLOCK 1
DUMMY [0
DUMMY [1
]11, 615
2315
124
]6, 615
2315
2323
]3, 1116
0
0
CPAGE 6
EAP 
ENTRY MAIN
AIN, NOP 
CALL 0,OPEN
PAUSE 



0	FORMAT(I3,' ZEILEN')
	DO 50 J=1,J1
	DO 50 I=2,17
	IF(K(I,J))60,50,70
60	K(I,J)=1930-K(I,J)
	GOTO 50
70 	IF(5-K(I,J))80,80,90
80	K(I,J)=9
9+K(I,J)
	GOTO 50
90	K(I,J)=1920+K(I,J)
50	CONTINUE
	CALL OOPEN('IN','FMSMAT')
	WRITE(4,250)J1
250	FORMAT(I3)
	WRITE(4,300)K
300	FORMAT(I3,17I4)
	CALL OCLOSE
	CALL EXIT
	END
G
G
J	@E7(E#!~b!Ho?*

G	G	G
G
}J
9JD
G(G

|	,2
D	k@D	@?1* 
-,tR@.| 8		
kEIW1,IW1,IW0,IW,IW1)
C	LEISTUNGSFAECHER MIT 4 PKT.
	IW0=4
	IW2=2
	WRITE(3,1h 	
(?fb&0 ~rZ
ndd46}Bbb

L|

^z bfejh?i',{(/zA4bAJe(/1
,\	`\
4dDetyb&)A&3a&!C*SO*)A&ax0J
nc
.
adTa#xcaaCwv(-zu
,  K@9zt
s}{x
jt	
sI
<
|I	j
~h`fp~}

pI,HF&Hq,xw'x@HN



T@C





PP@6
	

PD@
RTA!O"
0

$

@NAAa
@
SEA
 A
Q

@
 $A$
SPGAN@
P@@
A/vX/vX6[XsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsWXsUXs;Xs9Xs
XsXsXsXT

/      END
CALL 0,EXIT
[0, BLOCK 2
[1, BLOCK 2
END 
LAP 
\K, 0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAG
MT@MSNBh
B!~bHBzd!.}H/A~"B
M
M
F 7h g-&*
M
Md!.}H/|2h

{
\c ^	@
ME	@h	*lsLr@*
zM
M 7h c!yb!(ox:#gS
#dP

,~
|~~S!}bH"z|(B

\
\ n
M
M"7h"c7 z{8
z
\2XE
XE	:
	l,`LN!i
yG
yEy!>xH?w
>!vb~
|~~S!ubHt{|(B


\
\ n7 (?sH?`r+|(B

\
\ n|*]n_``]
I^B
M
M
F"7h"c!~b7 ]z}(B

\
\ n7 !>|(/&H/&B*}(B

\
\ n}(B

\
\"n7"{27 ]z}(B

\
\ n}(B

\
\"n7"z27 ~yx;
M
M
wN
NE
ME	@v:`<G]vw
~	i,


l n	G
FE	@	*lwLt@*		/	,x ~w
|{
z
v	@O 3g
8Kurz,t1D/_3(RNXO
AHDHAKH:K*A/sC(rySKd]@3%?
zyf#A OR!W7(T(?'LX
LV J

pY*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;
LE{ 7ES'L
1<=ajwao[2h\LhTuRSbhC
t
|~
vGwizCVDyo
`(r
HnHMAT(A1,I3'*')
30	WRITE(1,200)JAHR,K(1,I),
200	FORMAT(A1,I3' ')
70	READ(1,300)IQ(1),IQ(2)
300	FORMAT(10(1H ),2A1))
	DO 50 J=1,2
	CALL DECOD(IQ(J))
	IF(IQ(J)-1952)50,35,50
50	CONTINUE
	

Note: Lines longer than 256 characters were wrapped