[ photo 100_1629.JPG
      C6TOQ7;
1;    V5P1; C7TOQ6; J2=Z; ZERO; JS3P10; J1; (wait till OUT 8 REEL typed);
2;    SET1; JS50P155; ZERO; JSP10; (label)
      ZERO; NOT; =Y64;
      SETAY64; DUP; SHL16; OR; =Q6; IM6TOQ7; MLWQ7;
      ZERO; JSP10; EXIT1; (LB written);


P400V5; (TINT for phase 0);
      V0=P {cn}AGAIN{d};
      V1=P {cn}TINT{dq};
      (V2,3 have ans);
      V4=B 036122002/26; (valid EFGHLNQZ);
      (TINT params);

      V1P11; J4P45#Z;
      ZERO; =V16P0; (clear TINT marker); SETAV1;
2;    V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5P4;
      JS20P45; JS50P10; SETAV2; =Q6;
      JSP31; J3; SET-33; =+C7;
      V4; JS10P3; J3; JS1; J3; (fails);
      V0P11; =Q4; EXIT1; (TINT accepted);
3;    SETAV0; J2; (inserting AGAIN);
1;    =LINK; EXITAR6;

$6;   JP37; EXIT2; JP39; JP40;
      JP44; JP46; JP49; JP72;


P3212V11;          (check day);
      V0=B 0702435045435300;
      (V1= first part of day of week);
      V2=b4406410671070734;
      (V3= answer);
      V4=Q 0/AV0/AV3;
      V5=B0763060665065606;
      V6=B0755060657065606;
      V7=B0764066506450663;
      V8=B6706064544564563;
      V9=B6406065065066263;
      V10=B0746060662065106;
      V11=B6306064164650662;
      I5; C5; M5; JSP3214; =M3; V5M3; =V1;
1;    SET1; SETAV0; SETAV3; JSP8;
      V3; SHL-42; SETB56; J3P45=; SETB71; NEV; J1#Z;
      JSP3215; EXIT2;
P3214V0;            (find day of week);
      V0=B 3407156335633463;
      I0TOQ6; DUP; REVD; NEG; NOT; DUP;
      NEG; NOT; J1>Z; I6=-1;
1;    SHL2; =C6; V0; SHLC6; BITS; -;
      ZERO; CAB; SHLD-2; REV;
      J2#Z; I6; +;
2;    +; +; SET7; %I; REV; ERASE; EXIT1;


P3213V5;      (read prog idents);
      (fail job   OUT8    prog list);
      V0=Q 1/AY544/AY607; (standard);
      V1=Q 1/AY544/AY547; (OUT 8 idents);
      V2=P $$FAXOUT;
[ --fold
      V3=P {c}IDENTS{c};
      V4=Q 1/AY544/AY545;
      V5=P FAXFAILJ;

      V4; =Q7; JS1P305; J2;
      JS5; M0M6QN; REV; SHLD-24; ERASE;
      V5; NEV; J2#Z; (fail if not FAILJOB);
[ --- from image 1678
      Y544; =V2P2; Y545; =V3P2;
      V1; =Q7; JS1P305; J2; SET2; =Q6; I6=+2;
3;    JS5; SHL24; SHL-1; SETB37; SHLD-6; ERASE; DUP; =M0M6;
      M0M6QN; NEV; SHLD24; SHLD-60; ERASE; V2; NEV; J2#Z; J3C6NZ;