File: CHARS.FO of Tape: Various/System-Tapes/natalie

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

---

C-CHARS .FO DEC-85

01.05 O O LPT:
01.10 F I=0,3; DO 2
01.20 O C
01.30 Q

02.02 S L=0
02.05 I (I,=,0) 2.10; S L=32
02.10 F J=L,63; DO 3
02.20 S X=FOUT(13)

03.10 S C=I*64+J
03.20 S X=FOUT(C)

---