[ photo 100_1596.JPG SHLD-16; ERASE; SHC16; DUP; =V3M6; =M6; ZERO; =M0M6; =M6; =M0M6; EXIT1; 158; (check str no and put coded str in N1); C7; DUP; SETB177710; AND; SHL-3; NEG; NOT; J1P45#Z; (invalid); SHC-4; ZERO; SHAD+3; OR; EXIT2; 159; SETAV65P104; M5; +; SHL16; OR; EXIT1; 15; ERASE; 16; SETB770; JP2; (invalid parameters in N1); 17; ERASE; SETB710; JP2; (attempt to close unopened stream); 18; SETB740; JP2; (invalid stream no); 19; M0M7; V2P155; NEV; SHL-16; J21=Z; (check for gap page ch); M-I4; DC4; SETB720; JP2; (invalid last char); 1; ZERO; (OUT 8 flag); 20; =V61P104M5; JSP62; J16; =Q7; M7; I7; J27#; C7; NEV; J15#Z; ERASE; (clase stream); JS158; J16; =Q7; JS1P139; M7; DUP; NOT; =C7; (wait for 2nd sub prog); V57P104M5; SHCC7; J17>=Z; M+I4;I4; =+C4; (check str open); JS3P29; JS35P0; JS80; J99; 27; ERASE; JSP133; J16; (check parameters); 29; C0TOQ7; JS1P139; JSP102; (wait for last transfer or P105); I7; =RM6; M0M6; =C7; J13C7Z; (jump if stream 0); V61P104M5; J18#Z; (disallow non zero streams on OUT 16); JS158; J18; DUP; =C5; I4; DUP; =+C4; M+I4; (switch to 2nd subprog); SHLC5; V57P104M5; DUPD; OR; =V57P104M5; AND; J28#Z; (stream not open); ZERO; JS159; (open stream); JS156; 28; SHC-4; J21>=Z; (jump if punch str); M0M7; SHL42; ABS; SHL-43; NEG; NOT; J19#Z; (check last char); 21; ZERO; NOT; 22; C0TOQ7; Q7; REV; CONT;JS156; JS3P29; JS35P0; PMHQ7; ZERO; ZERO; Q7; ZERO; NOT; CONT; JS2P10; J99; (lock out transfer area); 14; ZERO; JS3P10; I7; =RM6; 13; V56P6; NOT; J14#Z; (wait if transfer will not go in Q); M7; I7; -; SET5; MAX; ERASE; =C6; (truncate at 5 words); 3; J4C6Z; SET-42; =C5; M0M6QN; 5; SHLC5; SETB77; AND; SET2; J6=; SET4; J6=; (check for CR and TAB); SETB75; J7#; (EM); ERASE; 4; V45P104M5; J8