1 C -+-+-+-+-+
\ e H A E F I S . F T
\ e -+-+-+-+-+
3 C CHANGE THE BLOCK SIZE OF THE RANDOM ACCESS FILE
4 C THIS MUST BE DONE PRIOR TO THE OPEN DEFINE FILE OF UNITS 5,6,7
18 IF (OPTION.EQ.1) GOTO 10 @ FS0 RESETS THE OUTPUT UNIT 6
19 IF (BETW(2,OPTION,11)) GOTO 20 @ FS1 ... FS9 DETERMINES THE FILE SIZE
22 READ (TTI,2) I @ ASK FOR THE SIZE OF UNITS 6 AND 7
23 MAXREC=NCOND(I,I,MAXREC)
25 WRITE (TTO,3) MAXBL5 @ ASK FOR THE SIZE OF SCRATCH FILE 5
27 MAXBL5=NCOND(I,I,MAXBL5)
31 10 CLEAR=.TRUE. @ FS0 RESETS THE OUTPUT UNIT
35 20 MAXREC=720*OPTION-720
40 1 FORMAT (' ANZAHL BLOECKE DER EIN/AUSGABE EINHEITEN 6 & 7 (',I5,
43 3 FORMAT (' ANZAHL BLOECKE DES ZWISCHENSPEICHERS EINHEIT 5 (',I5,