[ photo 100_1627.JPG
      JSP303; I4; =+C4; M+I4; (PTin);
      JSP303; I4; =+C4; M+I4; (OUT 8 claimer);
1;    JSP60; JS4P60; JSP100;      JSP59;      JSP198;      JSP11;
      ZERO; =V0P101;
      V16P0; J4=Z; JSP400;
4;    ERASE; J4NEN;
      SET8; =RC4; ZERO;
$2;   V1P11M4Q; $OR; J2C4NZS; J1#Z; (wait till OK to go);
      M1; SETAY544; -; =RC4; SETAV0P200; =M4;
      M4TOQ6; CI1TOQ6; NC6; Q6; =V0P199;
      SETAY544; =RM5; M4; C4; +; NEG; NOT;
      SHL-5; NOT; NEG; SHL5; DUP; =V0P117;
      V5; REV; FRB; SHL6; V1; OR; V0; JS20P6;
      (Director size);
      V2P161; V0P299; JS2P161; SHL12; SHL-12; V4; OR; V3; JS20P6;
      JSP49; JS35P0; (print store available);
$3;   M0M5Q; =M0M4Q; (shift disc directory);
      $J3C4NZS; J23P0; (enter Director);
P3211; (title);
      V0/2=p {cn}UNIVERSITY$OF$OXFORD$-;
      V3/4=p $DISC$DIRECTOR{cc};

      V4; V3; V2; V1; V0; SET5; JP6;
P300V6;
      V0/1=p {cnnn}DATE$$D/M/Y{q};
      V4=B7473575675735756;
      V5=B1212011212011212;
      V6=P 00/00/00;
      ZERO; SETAV0; SETAV3; JSP8;
      SETAV2; =Q6; JS10P32; J1;
      DUP; J1=Z; =I5; JS10P32; J1;
      DUP; =C5; SET13; SIGN; JP300>=Z; JP300C5Z; JS10P32; J1;
      DUP; SET100; SIGN; J1>Z; DUP; SET68; SIGN; J1<Z;
      DUP; =M5; V4; REV; SHL46; J2#Z; SHC24;
2;    SHCC5; SHCC5; SHL-46;
      SET28; +; I5; SIGN; JP300<Z;
      I5; SET100; xD; CONT; C5; +; SET100; xD; CONT;
      M5; +; V5; REV; FRB; V6; +; =V3P120;
      JSP3212; JP300; EXIT1;

1;    ERASE; JP300;
P301V2;
      V0/1=P {cn}TIME$HRS/MINS{q};
      ZERO; SETAV0; SETAV2; JSP8;
      SETAV2; =Q6; JS10P32; J1;
      DUP; SET24; SIGN; J1>=Z; SET3600; xD; CONT; =Q5;
      JS10P32; J1;
      DUP; SET60; SIGN; J1>=Z;
      SET60; xD; CONT; Q5; +; SHL24; =V0P0; EXIT1;
1;    ERASE; JP301;
P302V5;      (OUT reel no and stream count);   [ sic
      V0/1=p {cn}OUT$8$REEL$NO{q};
      V3/4=p {cnn}STREAM$COUNT{q};
      ZERO; SETAV0; SETAV2; JSP8;
      SETAV2; =Q6; JS10P32; JP302<Z; =V0P161;
1;    ZERO; SETAV3; SETAV5; JSP8;
      SETAV5; =Q6; JS10P32; J1<Z; DUP; =V-1P155; =V4P155;
      EXIT1;

p303V10;
      V0=Q 1/AY1/AY31;
      V1=P {cn}FAIL{cd};
[ ------ fold
      V2=b 776/8;
      V3=B 37003700177400;