FORTR 
/      COMMON LANF
/      DIMENSION NAME(10),IFELD(16),IHILF(5)
/      I=0
DCA \I
/      CALL IOPEN('DTA0','WOLFG')
CALL 2,IOPEN
ARG ]3
ARG ]6
/      CALL OOPEN('RKB1','ABITUR')
CALL 2,OOPEN
ARG ]11
ARG ]14
/      IZA=0
DCA \IZA
/5     READ(4,10)(NAME(K),K=1,10)
\5, CALL 2,READ
ARG (4
ARG \10
DCA \K
^A, ISZ \K
TAD \K
CIA 
TAD (12
SPC 
JMP ^B
CALL 2,SUBSC
ARG \K
ARG \NAME
^C
CALL 1,IOH
^C, ARG 0
JMP ^A
^B, 
CALL 1,IOH
ARG 0
/10    FORMAT(10A2)
JMP ^D
CPAGE 4
\10, 5061
6001
6251
0
^D, 
/      READ(4,20)(IFELD(K),K=1,16)
CALL 2,READ
ARG (4
ARG \20
DCA \K
^E, ISZ \K
TAD \K
CIA 
TAD (20
SPC 
JMP ^F
CALL 2,SUBSC
ARG \K
ARG \IFELD
^G
CALL 1,IOH
^G, ARG 0
JMP ^E
^F, 
CALL 1,IOH
ARG 0
/20    FORMAT(4(A2/),2(5(I4,10X)/),I4,10X,I4)
JMP ^H
CPAGE 21
\20, 5064
5001
6257
5154
6250
6550
1164
5461
6030
5157
5154
1164
5461
6030
5411
6451
0
^H, 
/      IF(NAME(1)-334) 30,40,30
CALL 2,SUBSC
ARG (1
ARG \NAME
[0
TAD I [0
CIA 
TAD (516
CIA 
SNA CLA 
JMP \40
JMP \30
/40    IF(NAME(2)-261) 30,50,30
\40, CALL 2,SUBSC
ARG (2
ARG \NAME
[0
TAD I [0
CIA 
TAD (405
CIA 
SNA CLA 
JMP \50
JMP \30
/50    CALL OCLOSE
\50, CALL 0,OCLOS
/      LANF=149-IZA
TAD \IZA
CIA 
TAD (225
DCA \LANF
/      CALL CHAIN('AB8')
CALL 1,CHAIN
ARG ]17
/      STOP
CALL 0,EXIT
/30    IZA=IZA+1
\30, IAC 
TAD \IZA
DCA \IZA
/      IHILF(1)=IFELD(6)
CALL 2,SUBSC
ARG (1
ARG \IHILF
[0
CALL 2,SUBSC
ARG (6
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IHILF(2)=IFELD(7)
CALL 2,SUBSC
ARG (2
ARG \IHILF
[0
CALL 2,SUBSC
ARG (7
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IHILF(3)=IFELD(9)
CALL 2,SUBSC
ARG (3
ARG \IHILF
[0
CALL 2,SUBSC
ARG (11
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IHILF(4)=IFELD(10)
CALL 2,SUBSC
ARG (4
ARG \IHILF
[0
CALL 2,SUBSC
ARG (12
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IHILF(5)=IFELD(13)
CALL 2,SUBSC
ARG (5
ARG \IHILF
[0
CALL 2,SUBSC
ARG (15
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IFELD(5)=IFELD(5)/3
CALL 2,SUBSC
ARG (5
ARG \IFELD
[0
CALL 2,SUBSC
ARG (5
ARG \IFELD
[1
TAD I [1
CALL 1,DIV
ARG (3
DCA I [0
/      IFELD(6)=IFELD(8)/3
CALL 2,SUBSC
ARG (6
ARG \IFELD
[0
CALL 2,SUBSC
ARG (10
ARG \IFELD
[1
TAD I [1
CALL 1,DIV
ARG (3
DCA I [0
/      IFELD(7)=IFELD(11)
CALL 2,SUBSC
ARG (7
ARG \IFELD
[0
CALL 2,SUBSC
ARG (13
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IFELD(8)=IFELD(14)
CALL 2,SUBSC
ARG (10
ARG \IFELD
[0
CALL 2,SUBSC
ARG (16
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IFELD(9)=IHILF(1)
CALL 2,SUBSC
ARG (11
ARG \IFELD
[0
CALL 2,SUBSC
ARG (1
ARG \IHILF
[1
TAD I [1
DCA I [0
/      IFELD(10)=IHILF(3)
CALL 2,SUBSC
ARG (12
ARG \IFELD
[0
CALL 2,SUBSC
ARG (3
ARG \IHILF
[1
TAD I [1
DCA I [0
/      IFELD(11)=IFELD(12)
CALL 2,SUBSC
ARG (13
ARG \IFELD
[0
CALL 2,SUBSC
ARG (14
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IFELD(12)=IFELD(15)
CALL 2,SUBSC
ARG (14
ARG \IFELD
[0
CALL 2,SUBSC
ARG (17
ARG \IFELD
[1
TAD I [1
DCA I [0
/      IFELD(13)=IHILF(2)
CALL 2,SUBSC
ARG (15
ARG \IFELD
[0
CALL 2,SUBSC
ARG (2
ARG \IHILF
[1
TAD I [1
DCA I [0
/      IFELD(14)=IHILF(4)
CALL 2,SUBSC
ARG (16
ARG \IFELD
[0
CALL 2,SUBSC
ARG (4
ARG \IHILF
[1
TAD I [1
DCA I [0
/      IFELD(15)=IHILF(5)
CALL 2,SUBSC
ARG (17
ARG \IFELD
[0
CALL 2,SUBSC
ARG (5
ARG \IHILF
[1
TAD I [1
DCA I [0
/      WRITE(4,150)IZA,(IFELD(K),K=1,4)
CALL 2,WRITE
ARG (4
ARG \150
CALL 1,IOH
ARG \IZA
DCA \K
^I, ISZ \K
TAD \K
CIA 
TAD (4
SPC 
JMP ^J
CALL 2,SUBSC
ARG \K
ARG \IFELD
^K
CALL 1,IOH
^K, ARG 0
JMP ^I
^J, 
CALL 1,IOH
ARG 0
/      WRITE(4,160)(IFELD(K),K=5,16),I,I
CALL 2,WRITE
ARG (4
ARG \160
IAC 
CIA 
TAD (5
DCA \K
^L, ISZ \K
TAD \K
CIA 
TAD (20
SPC 
JMP ^M
CALL 2,SUBSC
ARG \K
ARG \IFELD
^N
CALL 1,IOH
^N, ARG 0
JMP ^L
^M, 
CALL 1,IOH
ARG \I
CALL 1,IOH
ARG \I
CALL 1,IOH
ARG 0
/150   FORMAT(I3,4A2)
JMP ^O
CPAGE 5
\150, 5011
6354
6401
6251
0
^O, 
/160   FORMAT(14I4)
JMP ^P
CPAGE 4
\160, 5061
6411
6451
0
^P, 
/      GOTO 5
JMP \5
/      END
CALL 0,EXIT
[0, BLOCK 2
[1, BLOCK 2
END 
LAP 
\LANF, COMMN 1
\NAME, BLOCK 12
\IFELD, BLOCK 20
\IHILF, BLOCK 5
\I, BLOCK 1
\IZA, BLOCK 1
\K, BLOCK 1
DUMMY [0
DUMMY [1
]17, 102
7000
0
]14, 102
1124
2522
]11, 2213
261
0
]6, 2717
1406
700
]3, 424
160
0
CPAGE 6
EAP 
ENTRY MAIN
MAIN, NOP 
CALL 0,OPEN
PAUSE