File: SUPTST.FC of Tape: Various/ETH/fc2

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

---

C-OS/8 FOCAL, 1972

01.05 S Z=FELD(S)
01.10 S Z=FELD(Q);T "$";
01.20 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
01.25 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
01.30 G 1.1

02.01 F I=1,100;S Z=FELD(S)
02.05 S Z=FELD(S)
02.10 S !=-1
02.20 I (!)2.2
02.30 S Z=FELD(R)
02.40 T "$"
02.50 G 2.05

---