Directory of image this file is from
This file as a plain text file
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