[ photo 100_1604.JPG
3;    (wanted by Director)
      =V6; =V7; SETAV2P1; =RM1; I4; =C4;
6;    V7; V6; SETB44; JS14; =V1; =V2; =V3;
      SET1; SETAV0; SETAV5; JSP8;
      V5; SHL-42; SETB56; J8#;
      C0TOQ6; J1P45;
8;    SETB71; NEV; J6#Z;
      V7; V6; JS20; (check whether required tape
      arrived during query); J2;
14;   V1; SHC+24; SHL+6; OR; SHC+18;
      REV; DUP; J9#Z;
      ERASE; V0P39;
9;    REV; EXIT1;
20;   V0P26; =Q6;
1;    SETB10544; JS2P26; EXIT1; ERASE; DUPD;
      M6; JSP131; =M6; V-16P101M6; V-17P101M6;
      CAB; =M6; CAB; NEV; PERM;
      NEV; OR; J1#Z; ERASE; ERASE; LINK; ERASE;
22;   V0P26M6; SET9; SHL18; -; M5; J11<Z;
      JSP55; OR;
13;   J6P27;
11;   SETB44; OR; J7P27;
72;   SETAV2P11; =RM4; I4; =C4; M0M4; J4P45=Z; J1P38;
      (set up subprog 1 if not active other wise return to main loop);

P59;      (check top item in flex queue, if query
      check answer ends correctly. if so, or
      if not query, remove top item from flex queue,
      type top item of flex queue);
      BUSYQ0; J4P45TR;
1;    V0P6; ZERO; SHLD+6; SETB40; NEV;
      J7#Z; PARQ0; J6TR; ZERO; SHLD+10;
      REV; =Q7; I7; C7; DUP;
      NOT; NEG; =RM7; -; =C7;
2;    SET8; J3C7NZ; =TR;
6;    ERASE; J10;
3;    =C5; =M0M7Q;
4;    ZERO; SHLD+6; SETB75; J5=; DC5;
      SETB37; SIGN; SHC-1; NOT; =TR;
      J4C5NZ; ERASE; J2;
5;    ERASE; ERASE; J6NTR; =M7;
      ZERO; =V11P11M7; ZERO;
7;    ERASE; V5P4; DUP; J16=Z; (no TINT);
      ZERO; V1P6; SHAD-43; REV; ERASE; ABS; NEG; NOT; J17=Z; (02 or 77);
16;   ERASE; SETAV0P6; =RM7;
8;    M0M7N; DUP; NOT; J9=Z;
      =M0M7Q; J8;
9;    J15C7Z; =M0M7;
10;   V0P6; (new top word); JSP127; J1;
      ERASE; SETAV0P6; DUP; SHL+16; OR;
12;   =Q7; POBQ7; EXIT1;
11;   SHL+16; SHL-16; Q6; REV; JSP103;
      J13; REV; =Q6; J12;
13;   ERASE; =Q6; EXIT1;
15;   NOT; =V0P6; EXIT1;
17;   DUP; =V0P6; ZERO; =V5P4; J11; (TINT to top of Q-concel TINT);

P60V0;      (deal with RFIR, read time, N.E.T.,
      and tape loading/unloading)
      K4; DUP; SHL+29; J35P0<Z;
2;    DUP; SHL-32; SHL+32; STR; V5P0; DUP;
      PERM; AND; DUP; =V0; V0P0; +;
      =V0P0; +; =V6P0; DUP; SHL+23; DUP;
      Q6; =E7; SET7; =RC6;