Searched refs:INTA (Results 1 – 1 of 1) sorted by relevance
31 INTEGER INTA,INTB,ZCODE local48 INTA = ICHAR(CA)56 IF (INTA.GE.97 .AND. INTA.LE.122) INTA = INTA - 3264 IF (INTA.GE.129 .AND. INTA.LE.137 .OR.65 + INTA.GE.145 .AND. INTA.LE.153 .OR.66 + INTA.GE.162 .AND. INTA.LE.169) INTA = INTA + 6476 IF (INTA.GE.225 .AND. INTA.LE.250) INTA = INTA - 3279 LSAME = INTA .EQ. INTB