[ photo 100_1599.JPG
      M5; NOT; NEG; SHL+1; DUP;
      =RC4; SETAV1P11; +; =M4; EXIT1;

P31;      (fetch char result in C7); (amended Jan 68);
8;    JS9; (fetch char);
      =C7; SET6;
      =+C6; ZERO; NOT; SHLC6; J2#Z;
      C0TOQ6; SET1; =+M6;
2;    V1P122; ZERO; SHLDC7; SHLD-15; ERASE;
      J3>=Z; I6; J4#Z; EXIT2; (I6 is shift indicator);
3;    C7; SET7; -; DUP; NEG; SHL-1; J1P45#Z; (jump if not shift char);
      =I6; J8; (store shift  case shift is zero  CN is 1);
9;    M0M6; SHLC6; SHL-42;
4;    EXIT1;

P32;      (fetch number, result in N1);
      SETB77600;
1;    =Q7; ZERO;
5;    DUP; J3<Z; M7; BITS; xD;
      CONT; SETB20; -;
3;    C7; +;
4;    JSP31; J2; M7;
      SHL+17; SHLC7; J5<Z;
      C7; SET10; SIGN; J6>=Z;
      ERASE; ZERO; NOT; EXIT1;
2;    C7; SETB75; NEV; J4P45=Z;
6;    DUP; J4<Z;
      EXIT2;
10;   SETB77740; J1; (read decimal);

11;   (fetch store size);
      V0P45; V0P117; -; (whole store);
      JS10P32; EXIT1; (none types);
      DUP; SHL-5; J12#Z; SHL10; (if less that 32 shift 10);
12;   NEG; NOT; SHL-5; NOT; NEG; SHL5; (roound up);   [sic
      EXIT2;

P33;      (TINT A - terminate program);
      JSP38;
      V29P104M5; DUP; J1=Z;
      DUP; SET1; OR; =V29P104M5; EXIT2;
1;    ERASE;
3;    JSP31;

      EXIT1; SET4; JS94P105;
      JSP30; ZERO; NOT; ZERO; C7; JS2P10;
      (now in priority subprogram)
      SET4; M7; SETB35; NEV; J1P15#Z;
      ERASE; SETB74177; ZERO; J3P2;

P34;      (IINT B - read integer to E0);
      JSP38;
      JSP32; J1P45;
      V9P0M5; DUP; SHL+36; J3P45=Z;
      SHL+6; NOT; NEG; =M6;
      V29P104M5; J1=Z;
      =V33P104M5; EXIT2;
1;    SHL+24; =M0M6H; EXIT2;


P37;      (TINT E - nominate program tape)
[ ------------ fold
      JSP65; =M7;
      SETB12054; V0P26M7; SHL+15; SHL-33;
      NEV; J4P45#Z;
      V7; SETB41; -; DUP;