         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
                                                                        01265000
$EDIT VOID=01340000                                                     01265001
                                                                        01267000
                                                                        01269000
PROCEDURE OUTACT;                                                       01271000
COMMENT:                                                                01273000
  PLACES THE ACTUAL FILE DESIGNATOR OF THE JDT                          01275000
  ENTRY POINTED TO BY ENTR IN THE OUTPUT BUFFER;                        01277000
BEGIN                                                                   01279000
BYTE POINTER B2;                                                        01281000
INTEGER I,J;                                                            01283000
LOGICAL LOCKWD;                                                         01285000
I:=(ENTR(ENTR.(8:8)+3).(0:8));                                          01287000
@B2:=(@ENTR+INTEGER(ENTR.(8:8))+4)*2;                                   01289000
LOCKWD := FALSE;                                                        01291000
FOR J := 0 UNTIL I-1 DO                                                 01293000
  BEGIN                                                                 01295000
    IF B2(J) = "/" THEN                                                 01297000
       LOCKWD := TRUE;                                                  01299000
    IF B2(J) = "." OR                                                   01301000
       B2(J) = ";" OR                                                   01303000
       B2(J) = "," THEN                                                 01305000
       LOCKWD := FALSE;                                                 01307000
    IF NOT LOCKWD THEN                                                  01309000
       BEGIN                                                            01311000
         OPT:=B2(J);                                                    01313000
         @OPT := @OPT + 1;                                              01315000
         NCH:=NCH+1;                                                    01317000
       END;                                                             01319000
  END;                                                                  01321000
END;                                                                    01323000
                                                                        01325000
IF P1.(14:1) OR P2.(10:1) OR P2.(11:1) OR P2.(5:1) THEN BEGIN  << 9780>>02775000
