PREQ $(1) LIT . . IMPLICIT STATEMENT. SET TABLE (S1 OF P1TAB3) PER . CHARACTERS STIPULATED. . IMPL* S,H2 B11,IMPLX IMP01 LMJ B11,NGX6 GET 4 CHARACTERS +4 TE A2,('REAL ') J IMP02 L,M A1,020 REAL IMP03 S A1,TCODE LMJ B11,GX J IMP99 EOS TE,M A0,'(' J IMP04 . IMP05 LMJ B11,GX J IMP99 L,M A2,0,A0 THE CHARACTER TZ,S6 P1TAB3,A2 IS IT ALPHA J IMP98 L A1,TCODE S,S5 A1,P1TAB1,A2 PUT TYPE IN TABLE IMP051 LMJ B11,GX NEXT CHAR J IMP99 TNE,M A0,',' J IMP05 AGAIN TE,M A0,')' J IMP21 . IMP052 LMJ B11,GX J IMP999 EOS, SO EXIT NORMALLY TNE,M A0,',' J IMP01 GO GET NEXT TZ,S6 P1TAB3,A0 IS IT ALPHA LMJ B11,ERR2 PUNCTUATION PROBLEMS SZ FNXT J IMP01 . IMP02 TE A2,('INTE ') J IMP11 TRY SOME MORE LMJ B11,NGX6 +3 TE A2,('GER ') J IMP97 NOT PROPER TYPE L,M A1,010 MARK AS INTEGER J IMP03 GO FIND CHARACTERS . IMP11 TE A2,('DOUB ') J IMP12 LMJ B11,NGX6 +11 TE A2,('LEPREC') J IMP97 TE A3,('ISION ') J IMP97 L,M A1,030 MARK AS D.P. J IMP03 . IMP12 TE A2,('COMP ') J IMP13 LMJ B11,NGX6 +3 TE A2,('LEX ') J IMP97 L,M A1,040 MARK AS COMPLEX J IMP03 . IMP13 TE A2,('LOGI ') J IMP97 LMJ B11,NGX6 +3 TE A2,('CAL ') J IMP97 L,M A1,050 MARK AS LOGICAL J IMP03 IMP21 TE,M A0,'-' NEXT CHAR NOT , OR ) J IMP98 LMJ B11,GX J IMP99 EOS TZ,S6 P1TAB3,A0 J IMP98 TG,H2 A2,GXX J IMP41 A-A OR B-A IMP422 A A2,(1,1) INCREMENT A2 L A1,TCODE IMP42 S,S5 A1,P1TAB1,A2 TLEM A2,GXX J IMP42 J IMP051 . IMP41 TNE,H2 A2,GXX J IMP051 A-A, SO ALL RIGHT L,M A0,0,A2 B-A, REVERSE THEM L A2,GXX L A1,TCODE S,S5 A1,P1TAB1,A2 J IMP422 . IMP04 TE,M A0,'*' CHAR AFTER TYPE NOT ( J IMP95 LMJ B11,GX J IMP99 TE,M A0,'8' J IMP041 TNE,M A1,020 L,M A1,030 J IMP03 . IMP041 TNE,M A0,'4' J IMP03 TNE,M A1,030 L,M A1,020 J IMP03 . . IMP98 LMJ B11,PERR FORM6 010,178,GXX IMP981 LMJ B11,GX HUNT FOR ) J IMP99 TNE,M A0,')' J IMP052 TE,M A0,',' J IMP981 J IMP05 . IMP99 LMJ B11,PERR FORM6 01,4,0 IMP999 RES 0 J *IMPLX REENT . IMP95 LMJ B11,PERR FORM6 010,178,GXX IMP955 LMJ B11,GX J IMP99 TE,M A0,'(' J IMP955 J IMP05 . IMP97 LMJ B11,PERR FORM6 01,180,0 IMP977 LMJ B11,GX J IMP99 TE,M A0,')' J IMP977 LMJ B11,GX J IMP99 TE,M A0,',' SZ FNXT J IMP01 $(2) . REENT IMPLX J $-$ REENT TCODE +0 END