File: CHARS.FO of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

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

---

C-CHARS .FO DEC-85

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

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

03.10 S C=I*64+J
03.15 I (C,=,26) 3.16; R
03.16 I (C,=,27) 3.17; R
03.17 I (C,=,154) 3.18; R
03.18 I (C,=,155) 3.2:; R
03.20 S X=FOUT(C)

---