      SUBROUTINE TEXT2
CRENBR(RENBRSTART)(TEXT2/LETTERS 5 WIDE BY 5 HIGH)
      COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
     1LETTER(96),LENGTH(96),IPACKD( 672)
      DIMENSION JLETTR(58),JLETT1(58)
      DIMENSION JLNGTH(58),JLNGT1(58)
      DIMENSION JPACKD(290),JPACK1(130),JPA131(130),
     1          JPA261( 30)
      EQUIVALENCE           (LETTER(1),JLETTR(1)),
     1(LENGTH(1),JLNGTH(1)),(IPACKD(1),JPACKD(1))
      EQUIVALENCE (JLETT1(1),JLETTR(1))
      EQUIVALENCE (JLNGT1(1),JLNGTH(1))
      EQUIVALENCE (JPACK1(1),JPACKD(  1)),
     1            (JPA131(1),JPACKD(131)),
     2            (JPA261(1),JPACKD(261))
      DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
     1            1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
     2            1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3,
     3            1H4,1H5,1H6,1H7,1H8,1H9,1H(,1H),1H+,1H-,
     4            1H*,1H/,1H.,1H,,1H',1H:,1H^,1H",1H#,1H$,
     5            1H%,1H&,1H=,1H<,1H>,1H?,1H@,1H!/
      DATA JLNGT1/5,5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,5,5,5,
     1            5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,3,3,5,5,
     2            5,5,2,2,2,2,5,5,5,5,5,5,5,3,3,5,5,1/
      DATA JPACK1/ 4,10,17,31,17,30,17,30,17,30,15,16,16,
     1            16,15,30,17,17,17,30,31,16,30,16,31,31,
     2            16,30,16,16,15,16,19,17,15,17,17,31,17,
     3            17, 7, 2, 2, 2, 7, 1, 1, 1,17,14,17,18,
     4            28,18,17,16,16,16,16,31,17,27,21,17,17,
     5            17,25,21,19,17,14,17,17,17,14,30,17,30,
     6            16,16,14,17,21,18,13,30,17,30,18,17,15,
     7            16,14, 1,30,31, 4, 4, 4, 4,17,17,17,17,
     8            14,17,17,17,10, 4,17,17,21,27,17,17,10,
     9             4,10,17,17,10, 4, 4, 4,31, 2, 4, 8,31/
      DATA JPA131/14,17,17,17,14, 6, 2, 2, 2, 7,30, 1,14,
     1            16,31,30, 1, 6, 1,30,17,17,31, 1, 1,31,
     2            16,30, 1,30, 4, 8,30,17,14,31, 2, 4, 8,
     3            16,14,17,14,17,14,14,17,15, 2, 4, 3, 4,
     4             4, 4, 3, 6, 1, 1, 1, 6, 0, 4,31, 4, 0,
     5             0, 0,31, 0, 0, 0,14,31,14, 0, 1, 2, 4,
     6             8,16, 0, 0, 0, 3, 3, 0, 0, 3, 3, 1, 3,
     7             3, 1, 0, 0, 3, 3, 0, 3, 3, 4,10,17, 0,
     8             0,27,27, 9, 0, 0,10,27, 0,27,10,15,20,
     9            14, 5,30,25,26, 4,11,19,28, 8,21,18,13/
      DATA JPA261/ 0,31, 0,31, 0, 1, 2, 4, 2, 1, 4, 2, 1,
     1             2, 4,30, 1, 6, 0, 4,14,17,19,19, 8, 1,
     2             1, 1, 0, 1/
      DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 58, 5, 5, 5,999/
      RETURN
C750874299490':^"#$%&<>?@!
      END

