04200 NEXT
04205 *
04210 FCC '(.")'
-04212 FCB MCOMP.OR.4
+04212 FCB MCOMP|4
04214 FCB MFORE
04216 FDB TYPE-CFAOFF
04218 FDB BIF+2
04400 BRA TYPE
04410 *
04510 FCC 'FILL-IN'
-04512 FCB MCOMP.OR.7
+04512 FCB MCOMP|7
04514 FCB MFORE
04516 FDB IDDOT-CFAOFF
04518 FDB BIF+2
04570 NEXT
04590 *
04610 FCC 'BEGIN'
-04612 FCB MCOMP.OR.MIMM.OR.5
+04612 FCB MCOMP|MIMM|5
04614 FCB MFORE
04616 FDB FILLIN-CFAOFF
04618 FDB BIF+2
04680 FDB SEMIS
04690 *
04710 FCC 'AGAIN'
-04712 FCB MCOMP.OR.MIMM.OR.5
+04712 FCB MCOMP|MIMM|5
04714 FCB MFORE
04716 FDB BEGIN-CFAOFF
04718 FDB BIF+2
04780 FDB SEMIS
04790 *
04810 FCC 'UNTIL'
-04812 FCB MCOMP.OR.MIMM.OR.5
+04812 FCB MCOMP|MIMM|5
04814 FCB MFORE
04816 FDB AGAIN-CFAOFF
04818 FDB BIF+2
04880 FDB SEMIS
04890 *
04910 FCC 'WHILE'
-04912 FCB MCOMP.OR.MIMM.OR.5
+04912 FCB MCOMP|MIMM|5
04914 FCB MFORE
04916 FDB UNTIL-CFAOFF
04918 FDB BIF+2
05050 FDB SEMIS
05090 *
05110 FCC 'REPEAT'
-05112 FCB MCOMP.OR.MIMM.OR.6
+05112 FCB MCOMP|MIMM|6
05114 FCB MFORE
05116 FDB WHILE-CFAOFF
05118 FDB BIF+2
05210 FDB SEMIS
05290 *
05310 FCC 'DO'
-05312 FCB MCOMP.OR.MIMM.OR.2
+05312 FCB MCOMP|MIMM|2
05314 FCB MFORE
05316 FDB WHILE-CFAOFF
05318 FDB BIF+2