File: HARMD.FC of Tape: Various/ETH/fc4

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

---

C-OS/8 FOCAL, 1972

01.01 C    1.,2.,3. HARMONICS
01.10 T !"FREQ",:10;A A;T :20
01.20 I (A)1.3,1.5,1.3
01.30 F I=1,3;T %7.02,"  ",I*A
01.40 GOTO 1.1
01.50 T !;QUIT

---