File: MODFIL.FC of Tape: Various/ETH/fc1

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-OS/8 FOCAL, 1972

01.10 A !,"FIRST D NUMBER?",L1
01.20 A !,"LAST D NUMBER?",L2
01.30 F A=L1,L2;D 3;D 8
01.40 Q

03.01 C DATAFILE
03.10 O I M22D(A)
03.20 A D,D,N;F I=0,N-1;A X;S Z=FX(I,X)
03.30 A X;I (X-13)3.35,3.4,3.35
03.35 T "FEHLER";Q
03.40 A DK,HR,HI,HF,MI,PS,PT,RT,TM,TV,X(1),X(2),X(3)
03.50 S DK=DK*1E-7
03.80 F I=1,4;D 3.9;A Z
03.85 O I TTY:,E;R
03.90 F J=1,4;A X(I*4+J)

08.01 C STORE
08.10 O O M22D(A)
08.20 T "D",%2,D,!,%3,N,!;F I=0,N-1;T %4.03,FX(I),!
08.30 T "13",!,%5.03,DK*1E7,!,HR,!,HI,!,HF,!
08.40 T MI,!,PS,!,PT,!,RT,!,TM,!,TV,!,X(1),!,X(2),!,X(3),!
08.50 F I=1,4;F J=1,4;T X(I*4+J),!
08.90 S Z=FOUT(140)
08.95 O C

---