1c1,4 < ST 0;TL99999; --- > [ typist: Graham T > [ Page 01 ] > > ST ;TL99999; 3c6 < YA 33; YB31; YC31; --- > YA 33; YB 31; YC 31; 18,19c20,21 < V18=B 4170 3607 4170 3607; V19=B 4150 3607 4170 3607; < V20=B 4170 4607 4170 3607; V21=B 4170 3606 4170 3607; --- > V18=B 4170 3607 4170 3607; V19=B 4190 3607 4170 3607; > V20=B 4170 4607 4170 3607; V21=B 4170 3607 4170 3607; 27a30 > [ Page 02 ] 29c32 < V40=B 2064 0607 4170 3607; V41=B 5414 0360 4170 2607; --- > V40=B 2064 0607 4170 3607; V41=B 5414 0360 4170 3607; 48c51 < V78=B 5756 4500 4154 4757; V79=B 5400 6462 4256 6354; --- > V78=B 5756 4500 4154 4757; V79=B 5400 6462 4156 6354; 50a54 > V84=B7777000063517245; V85=B0207604162516471; 55a59 > [ Page 03 ] 65,66c69 < < (ENTRY TO TRANSLATOR CONTINUED); --- > (ENTRY TO TRANSLATOR CONTINUED); 68c71 < 102; ZERO; =V7P31; ZERO; =V4P33; ZERO; =V6P33; --- > 102; ZERO; =V74P31; ZERO; =V4P33; ZERO; =V6P33; 78a82 > SETB2320; -; J109!=Z; (IF NO REF TABLES); 80,81c84,85 < 95; ERASE; SET1; =V6P33; (SET REF TABLES OUTPUT MARKER); < 109; SET3; OUT; =V93; SET9; OUT; =V110; --- > 95; ERASE; SET1; =V6P33; (SET REF TABLES OUTPUT MARKER); > 109; SET3; OUT; =V93; SET9; OUT; =V110; 84,85c88,90 < 103; ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31; < V61; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32; --- > [ Page 04 ] > 103; ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31; > V6; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32; 87,88c92,93 < Y7; DUP; =YA22; =Q1; PARQ7; C7TOQ1; < PREQ1; V4; =YA32; YB1; DUP; YB0; DUP; --- > V7; DUP; =YA22; =Q1; PARQ7; C7TOQ1; > PREQ1; V6; =YA23; YB1; DUP; YB0; DUP; 92c97 < 119; Q7; JSP114; --- > 119; Q7; JSP114; 97c102 < SET-3; =I12; SET1996; =RC15; SET3; --- > SET-3; =I12; SET1996; =RC13; SET3; 100c105 < =Y118; J11NTR; SETAV85; =I3; SETAV87; =M3; --- > =YA18; J115NTR; SETAV85; =I3; SETAV87; =M3; 103c108,109 < 115; YB3; V64P32; -; J1!=Z; --- > > 115; YB31; V64P32; -; J1!=Z; 107,108c113,114 < (JUMP IF DELIMITER = BEGIN OR ; ); < 1; V120P29; V121P29; JS13P50; --- > (JUMP IF DELIMITER = BEGIN OR : ); > 1; V120P29; V121P29; JS13P50; 110,112c116,119 < 2; ZERO; SETB656; SHLD-8; SHL32; M12; +; DUP; JSP44; < SET120; =YA44; SET102; -; < J5/=Z; (JUMP TO OUT IF DELIMITER /= : ); --- > 2; ZERO; SETB656; SHLD-8; SHL32; M12; +; DUP; JSP44; > SET120; =YA4; SET102; -; > J5!=Z; (JUMP TO OUT IF DELIMITER != :); > [ Page 05 ] 114c121 < 3; JSP3; SET1; ZERO; JSP47; SET5; JSP1; SET46; J4=; --- > 3; JSP3; SET1; ZERO; JSP47; SET5; JSP1; SET46; J4=; 116,118c123,125 < SET102; -; J3=Z; (JUMP IS DELIMITER = :); J1; < 107; ERASE; JSP113; J109; < 4; ERASE; ZERO; SETB1135; SHLD-9; --- > SET102; -; J3=Z; (JUMP IF DELIMITER = :); J1; > 107; ERASE; JSP113; J109; > 4; ERASE; ZERO; SETB1135; SHLD-9; 120,124c127,130 < (MAIN LOOP) < < 5; J105EN; SETB777; J7; < 105; SET5; JSP1; SETB157; J6/=; SET133; J7; < 6; JSP101; --- > (MAIN LOOP); > 5; J105EN; SETB777; J7; > 105; SET5; JSP1; SETB157; J6!=; SET133; J7; > 6; JSP101; 126,127c132,133 < x; JSP100; < (TREE); --- > x; JSP100; > (TREE); 131c137 < 7; JP5; --- > 7; JP5; 141a148 > [ Page 06 ] 148c155 < SET127; J5; --- > SET127; J92; 156,157c163,164 < (SCALAR); < 8; SET27; YA0; J7/=Z; (JUMP TO FAIL IF T/=0); --- > (SCALAR); > 8; SET27; YA0; J7!=Z; (JUMP TO FAIL IF T!=0); 160,161c167,168 < (END); < 9; YA0; J7/=Z; (FAIL IF T /= 0); --- > (END); > 9; YA0; J7!=Z; (FAIL IF T != 0); 163c170 < 10; SET1; JSP37; JSP58; SET206; J14/=; (IF TS /= PROC BEGIN(BL)); --- > 10; SET1; JSP37; JSP58; SET206; J14!=; (IF TS != PROC BEGIN(BL)); 167c174 < 11; ZERO; SET1; =V0P5; (SET END COMMENT MARKER) --- > 11; ZERO; SET1; =V0P5; (SET END COMMENT MARKER); 169c176 < 12; SET4; JSP1; SETB157; J106=; DUP; SETB150; NEV; SETB356; --- > 12; SET4; JSP1; SETB157; J106=; DUP; SETB150; NEV; SETB356; 170a178 > [ Page 07 ] 173,174c181,182 < 106; SET133; JP5; < 13; ZERO; =V0P5; (CLEAR END COMMENT MARKER); --- > 106; SET133; JP5; > 13; ZERO; =V0P5; (CLEAR END COMMEND MARKER); 177,180c185,188 < (OUT2 IF TS-THENS); ERASE; J5; (OUT); < 14; SET174; -; J15!=Z; (JUMP IF TS!=BEGIN BL); < DUP; ZERO; ZERO; JSP52; J19; < 15; STR; ERASE; DUP; SHL-40; SET46; --- > (OUT2 IF TS=THENS); ERASE; J5; (OUT); > 14; SET174; -; J15!=Z;(JUMP IF TS!=BEGIN BL); > DUP; ZERO;ZERO; JSP52; J19; > 15; STR; ERASE; DUP; SHL-40; SET46; 184c192 < 19; DUP; SHL8; J16>Z; (JUMP IF MARKER L NOT SET); --- > 19; DUP; SHL8; J16>=Z; (JUMP IF MARKER L NOT SET); 187c195 < 16; ERASE; J11C14NZ; Q4; SHL8; SHL-40; SETB157; -; J90!=Z; --- > 16; ERASE; J11C14NZ; Q4; SHL8; SHL-40; SETB157; -; J90!=Z; 189c197 < YA28; =RC6; YA26; J11!=Z; (IF FAIL SET); --- > YA28; =RC6; YA26; J112!=Z; (IF FAIL SET); 191c199 < SET6; E0; SETB40; AND; J7=Z; ERASE; --- > SET61; E0; SETB40; AND; J7=Z; ERASE; 194,195c202,203 < 156; REV; SETB41; JSP12; DUP; JSP13; V107; SET3; JS1P12; < DUP; SETB302; +; JSP13; SETB230; JSP12; --- > 156; REV; SETB41; JSP12; DUP; JSP13; V107; SET3; JS1P12; > DUP; SET302; +; JSP13; SETB230; JSP12; 197,198c205,206 < ERASE; ERASE; V106; SET6; JS1P12; < V109; SET4; JS1P12; SETB114276; SHL32; SET2; JS1P12; --- > ERASE; ERASE; V108; SET6; JS1P12; > V109; SET6; JS1P12; SETB114276; SHL32; SET2; JS1P12; 200c208,209 < 157; M13; DUP; =RC3; =Y2; YA11; =Y1; YA10; =Y0; --- > [ Page 08 ] > 157; M13; DUP; =RC3; =Y2; YA11; =Y1; YA10; =Y0; 204,205c213,214 < 96; Y0M3Q; =M0M6Q; J96C3NZ; J112; < 97; SETAV73; =I16; SETAV76; =M6; Q6; JSP114; --- > 96; Y0M3Q; =M0M6Q; J96C3NZ; J112; > 97; SETAV73; =I6; SETAV76; =M6; Q6; JSP114; 208c217,218 < 101; Y0M3Q; JSP125; ERASE; C3; J101>Z; --- > > 101; Y0M3Q; JSP125; ERASE; C3; J101>=Z; 211,213c221,223 < 108; Y0M3Q; =W0; Q6; JSP114; C3; J108>Z; ERASE; C0TOQ6; J121; < 112; YA28; =C6; < 121; SETAW1; =I6; SETAW5; =M6; --- > 108; Y0M3Q; =W0; Q6; JSP114; C3; J108>=Z; ERASE; C0TOQ6; J121; > 112; YA28; =C6; > 121; SETAW1; =I6; SETAW5; =M6; 218,220c228,230 < V82; =W1; V54; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5; < W5; OR; =W5; J01C6Z; Q6; JSP114; C0TOQ6; < 91; Q6; JSP114; SETB10; DUP; DUP; SHL16; OR; SHL16; OR; --- > V82; =W1; V84; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5; > W5; OR; =W5; J91C6Z; Q6; JSP114; C0TOQ6; > 91; Q6; JSP114; SETB10; DUP; DUP; SHL16; OR; SHL16; OR; 225c235 < 120; YA27; SET6; OUT; V75P113; J122=Z; --- > 120; YA27; SET6; OUT; V75P113; J122=Z; 227c237 < 122; YA26; E0; SETB20; AND; OR; J102!=Z; --- > 122; YA26; E0; SETB20; AND; OR; J102!=Z; 228a239 > [ Page 09 ] 232c243 < 90; V100P29; V101P29; JS13P50; (IF NO END MESSAGE AFTER PROG); --- > 90; V100P29; V101P29; JS13P50; (IF NO END MESSAGE AFTER PROG); 234,235c245,249 < (OWN); < 17; YA1; OR; J7!=Z; (JUMP IF T OR D != 0 ); --- > (OWN); > 17; YA1; OR; J7!=Z; (JUMP TO FAIL IF T OR D != 0); > =YA1; JSP30; J5; > (SWITCH); > 18; YA1; OR; J7!=Z; (JUMP IF T OR D != 0 ); 238c252 < (RIGHT ROUND BRACKET ); --- > (RIGHT ROUND BRACKET ); 240,244c254,258 < 20; REV; ERASE; J24!=Z; (JUMP ID PROC = 1 ); < M1; J22=Z; (JUMP IF E = -); SET85; < 21; J7; < 22; SET1; JSP41; SET2; JSP37; SET86; M14M15; ZERO; SHLD8; REV; < SHL-24; =YA7; SET115; -; J21!=Z; (JUMP TO FAIL IS TS !=BRACKET); --- > 20; REV; ERASE; J24!=Z; (JUMP IF PROC = 1 ); > M1; J22=Z; (JUMP IF E = 0); SET85; > 21; J7; > 22; SET1; JSP41; SET2; JSP37; SET86; M14M15; ZERO; SHLD8; REV; > SHL-24; =YA7; SET115; -; J21!=Z; (JUMP TO FAIL IF TS !=BRACKET); 246,249c260,263 < 23; J5; < 24; JSP57; < 25; C0TOQ11; < 26; M14M15; DUP; SHL-40; SET115; J25=; (JUMP IS TS=LEFT BRACKET); --- > 23; J51; > 24; JSP57; > 25; C0TOQ11; > 26; M14M15; DUP; SHL-40; SET115; J28=; (JUMP IF TS=LEFT BRACKET); 253c267 < SET1; JSP45; DUP; =I3; Q3; DUP; --- > SET1; JSP45; DUP; =I13; Q3; DUP; 255,257c269,272 < 32; =Y1M11; ERASE; SHL32; M2; SHLD-8; ERASE; < 27; SET4; JSP34; M-I15; SET1; DUP; =+C15; =+C11; J26; < 28; SHC-8; -; SHL-16; =YA7; M-I15; SET1; =+C15; M14M15; --- > [ Page 10 ] > 32; =Y1M11; ERASE; SHL32; M2; SHLD-8; ERASE; > 27; SET4; JSP34; M-I15; SET1; DUP; =+C15; J26; > 28; SHC-8; SHL-16; =YA7; M-I15; SET1; =+C15; M14M15; 263,264c278,279 < 29; SETB2004; DUP; YA0; AND; NEV; J30!=Z; SET1; OR; < 30; SETB400; SHL16; OR; =Y0M11; SETB1004; M1; J31!=Z; (IF E=1); --- > 29; SETB2004; DUP; YA0; AND; NEV; J30!=Z; SET1; OR; > 30; SETB400; SHL16; OR; =Y0M11; SETB1004; M1; J31!=Z; (IF E=1); 267c282 < 31; SET88; Q6; SHL-32; SETB6013; AND; J7!=Z; (IF ABFH OR J = 1); --- > 31; SET88; Q6; SHL-32; SETB6013; AND; J7!=Z; (IF ABFH OR J = 1); 270,272c285,287 < 33; SET19; < 34; =C3; C11; SHL8; =M3; Q3; SHL8; SET4; JSP34; Q6; < =Y1M11; M1; ZERO; =V5P53; W0; =W6; J5=Z; ZERO; SETB524; --- > 33; SET19; > 34; =C3; C11; SHL8; =M3; Q3; SHL8; SET4; JSP34; Q6; > =Y1M11; M1; ZERO; =V5P53; W0; =Q6; J5=Z; ZERO; SETB524; 275c290 < (JUMP TO FAIL ID DELIMITER != END.ELSE OR SEMI COLON); --- > (JUMP TO FAIL IF DELIMITER != END,ELSE OR SEMI COLON); 277,282c292,297 < 35; Y0M11; DUP; =Q3; JSP48; J29; < 36; ERASE; M1; J37!=Z; (JUMP IF E=1); SET90; Q6; SHL7; J7<=Z; ERASE; < 37; Q3; J36 35; Y0M11; DUP; =Q3; JSP48; J29; > 36; ERASE; M1; J37!=Z; (JUMP IF E=1); SET90; Q6; SHL7; J7>=Z; ERASE; > 37; Q3; J38 38; I6TOQ3; SET51; J34; > (PROCEDURE); > 39; SET1; =YA25; (PH := 1); 283a299 > [ Page 11 ] 286c302 < 40; ERASE; ERASE; JSP43; SET1; JSP1; SET1; --- > 40; ERASE; ERASE; JSP43; SET1; JSP1; SET1; 292c308 < =C14; DUP; SHC-7; J763); ERASE; --- > =C14; DUP; SHC-7; J763); ERASE; 302c318 < 41; SET115; REV; J7!=; ERASE; YA0; SETB3777; AND; --- > 41; SET115; REV; J7!=; ERASE; YA0; SETB3777; AND; 304,305c320,321 < =W1; M12; =YA12; Y2M11; =Y2M12; YA15; =Y0M12Q; SET1; =YA7; < 42; SET1; DUP; =+C11; JSP1; JSP46; SET92; REV; --- > =W1; M12; =YA12; Y2M11; =Y2M12; YA15; =Y0M12Q; SET1; =YA7; > 42; SET1; DUP; =+C11; JSP1; JSP46; SET92; REV; 307c323 < SHL10; +; SHL16; ZERO; NOT; CONT; =Y1M11; --- > SHL10; +1; SHL16; ZERO; NOT; CONT; =Y1M11; 309,310c325,326 < J7!=Z; (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT; < =Y0M11; SET125; J43=Z; SET123; -; J42=Z; (JUMP IF DEL =,); --- > J7!=Z, (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT; > =Y0M11; SET125; J43=; SET123; -; J42=Z; (JUMP IF DEL =,); 312c328,329 < 43; ERASE; SET1; JSP45; SETB47000; SHL16; +; SHL16; =M14M15; --- > 43; ERASE; SET1; JSP45; SETB47000; SHL16; +; SHL16; =M14M15; > [ Page 12 ] 315c332 < 44; M2; JSP47; SETB2025; SHL24; C11; +; --- > 44; M2; JSP47; SETB2025; SHL24; C11; +; 320c337 < J7!=; (FAIL DELIMITER != SEMI COLON); --- > J7!=; (FAIL IF DELIMITER != SEMI COLON); 324,325c341,342 < 45; ERASE; SET1; JSP1; JSP46; ERASE; SET94; < Y0M11; DUPD; J7>Z; (FAIL IF COL =0); ERASE; ZERO; --- > 45; ERASE; SET1; JSP1; JSP46; ERASE; SET94; > Y0M11; DUPD; J7>=Z; (FAIL IF F COL =0); ERASE; ZERO; 328,329c345,346 < (FAIL IF DEL= 0 OTHER); ERASE; ZERO; JSP1; < 46; DUP; SETB37; AND; J47!=Z; (JUMP IF DEL!=SCALER); SHL-1; --- > (FAIL IF DEL= OTHER); ERASE; ZERO; JSP1; > 46; DUP; SETB37; AND; J47!=Z; (JUMP IF DEL!=SCALAR); SHL-1; 331,334c348,351 < 47; SET129; J48!=; (JUMP IF DEL!=STRING); SHL-6; J49; < 48; DUP; SHL-3; J55=Z; (JUMP IF DEL = SPECIFIER); REV; J56=Z; < SET96; J7; (FAIL ID DEL!=SPECIFIER IN SPEC. PART); < 55; SHL4; =C3; V0; V1; --- > 47; SET129; J48N; (JUMP IF DEL!=STRING); SHL-6; J49; > 48; DUP; SHL-3; J55=Z; (JUMP IF DEL = SPECIFIER); REV; J56=Z; > SET96; J7; (FAIL IF DEL!=SPECIFIER IN SPEC. PART); > 55; SHL4; =C3; V0; V1; 336c353 < 49; =YA0; SET5; JSP1; SET97; C1; J7 49; =YA0; SET5; JSP1; SET97; C1; J7 J50=; (JUMP IF DEL=PROCEDURE); SET99; REV; SET2; -; J7!=Z; > (FAIL IF DEL!=ARRAY); ERASE; SETB2000; OR; DUP; > 50; ERASE; =YA0;