DATA SBASE(1:24) /' :?!#&$@;><=()+-*/[],.''"'/ DATA SBASE(25:27) /'{}\\'/ DATA SBASE(28:53) /'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ DATA SBASE(54:79) /'abcdefghijklmnopqrstuvwxyz'/ DATA SBASE(80:92) /'_0123456789%^'/ DATA SPCHAR /'@&$#?!>'/ DATA SPILL /'{}'/ *----------------------------------------------------------------------- *--- statement function SPECCH = true for special character SPECCH(SDUMMY)=INDEX(SBASE(2:24),SDUMMY).NE.0 1 .OR.INDEX(SBASE(91:),SDUMMY).NE.0 *--- statement function NUMCH = true for numeric character NUMCH(SDUMMY)=INDEX(SBASE(81:90),SDUMMY).NE.0 *--- statement function ALPHCH = true for alphabetic character ALPHCH(SDUMMY)=INDEX(SBASE(28:80),SDUMMY).NE.0 *--- statement function ANUMCH = true for alphanumeric character ANUMCH(SDUMMY)=INDEX(SBASE(28:90),SDUMMY).NE.0 *--- statement function STRGCH = true for string character STRGCH(SDUMMY)=INDEX(SBASE(3:10),SDUMMY).NE.0 *--- statement function for integer value (place) of character ICVAL(SDUMMY)=INDEX(SBASE(28:90),SDUMMY) *-----------------------------------------------------------------------