'comment' A4; 'real' 'procedure' read(device); 'value' device; 'integer' device; 'KDF9' 12/9/14/0; {device}; JSP294; 'EXIT'; P294V12; (read); V2=B3244647411363215; V3=B1067311107601054; V4=B2372617635665123; V5=B2567106670407501; V6=B6625327150150035; V8=B4323345211424636; V9=0; V10=0; V11=B4100000000112235; V12=Q2/1/AV8; DUP; =V10; JS4P295; CI0TOQ7; CI0TOQ8; SET10; ZERO; J1NV; NOT; 1; =V7; Q0TOQ9; ZERO; NOT; REV; I14; =M7; J8; $2; DC9; 3; DUPD; *D; J5#Z; REV; ERASE; J2C9NZS; 4; DUP; M8; +; J7NV; DC9; 5; DC7; J24C8NZ; 6; SET1; =+C9; REV; 7; PERM; ERASE; M+I9; 8; JS6P295; J34; M7; I14; -; J35#Z; 23; DUPD; =M8; -; J10>=Z; REV; DUP; J6C7NZ; I7=-1; J9C8NZ; M8; J6=Z; 9; J3>=Z; NOT; C0TOQ9; J4; 10; DUP; M8; -; NOT; DUP; J15>Z; I7=-1; J25C8NZ; J14=Z; REV; DUP; J11>=Z; J13C9Z; NOT; 13; NEG; 11; I8; J12>=Z; NEG; 12; I0TOQ8; =V0; Q9; =V1; Q0TOQ9; DC8; ZERO; NOT; REV; C0TOQ7; J8; 14; I9; J26#Z; I9=+1; J8; 15; SET182; J17=; SET198; J18#; ERASE; I8; I8=-1; 16; J27#Z; I7=-1; REV; DUP; J28>=Z; REV; J8; 17; ERASE; I8; I8=+1; J16; 18; ERASE; I7; J8=Z; M8; SETB236; J34=; SETB240; J34=; SETB256; J34=; ERASE; 36; ERASE; DUP; J19>=Z; J29C9Z; NOT; 19; M9; I9; +; NEG; NOT; J30=Z; I8; J20>=Z; NEG; 20; J21C8Z; V1; =Q9; =+C9; V0; 21; C9; M9; -; M8; JS10P295; JS8P295; 22; V2; *D; SHAD+2; DUPD; ROUND; DUP; =Q8; ZERO; REV; -D; CONT; DUP; DUP; *; SHA-7; DUP; V3; *; V4; +; REV; V5; +; V6; REV; %; +; REV; SHA-4; DUPD; +; PERM; -; SHA+1; %; REV; DUP; ZERO; FLOAT; FIX; NEG; =C9; ERASE; SHLC9; *; Q8; SET48; +; C9; -; REV; DUP; J41=Z; ZERO; FLOAT; STR; PERM; ZERO; SHAD+8; CAB; +; SHAD-8; DUP; J42 >=Z; ERASE; 41; ERASE; ERASE; ZERO; J43; 42; CONT; REV; CONT; 43; J33V; V7; SHA+48; ERASE; EXIT1; 24; ERASE; SET1; 31; CAB; ERASE; 32; V12; PERM; V10; JS39; J37; JS39; J38; J36; 37; DUP; 38; SHL+8; OR; SHL+8; OR; SHL+16; V11; OR; =V9; JP299; 25; ERASE; ERASE; SET2; J32; 26; ERASE; SET3; J32; 27; ERASE; SET4; J32; 28; SET5; J31; 29; SET6; J32; 30; SET7; J32; 33; SET8; J32; 34; ERASE; J8; 35; M7; NOT; NEG; =I14; I7; J23=Z; =M8; J36; 39; SET10; %I; REV; DUP; J40#Z; ERASE; SETB236; EXIT1; 40; EXIT2; 'ALGOL'; 'boolean' 'procedure' read boolean(device); 'value' device; 'integer' device; 'KDF9' 12/9/14/0; {device}; (read b00llan); JS4P295; ZERO; J2; 1; SETB315; NEV; J3=Z; DUP; 4; ERASE; 2; JS6P295; J4; SETB335; J1#; ERASE; NOT; 3; JS8P295; 'EXIT'; 'ALGOL';