File: SUPTST.FC of Tape: Various/ETH/fc-files
(.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