Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50476/text4.for
There are 2 other files named text4.for in the archive. Click here to see a list.
      SUBROUTINE TEXT4
CRENBR(RENBRSTART)(TEXT4/LETTERS 7 HIGH BY 9 WIDE)
      COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
     1LETTER(96),LENGTH(96),IPACKD( 672)
      DIMENSION JLETTR(54),JLETT1(54)
      DIMENSION JLNGTH(54),JLNGT1(54)
      DIMENSION JPACKD(378),JPACK1(100),JPA101(100),
     1          JPA201(100),JPA301( 78)
      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            (JPA101(1),JPACKD(101)),
     2            (JPA201(1),JPACKD(201)),
     3            (JPA301(1),JPACKD(301))
      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,1HY,1HX,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!/
      DATA JLNGT1/ 9, 8, 8, 8, 8, 8, 8, 8, 6, 8, 8, 8,10,
     1             8, 9, 8, 9, 8, 8, 8, 8, 8,10, 8, 8, 8,
     2             8, 4, 8, 8, 8, 8, 8, 8, 8, 8, 5, 8, 8,
     3             8, 8, 8, 2, 3, 3, 5, 8, 8, 6, 6, 8, 2,
     4             3, 2/
      DATA JPACK1/  7, 15, 27, 51,127,195,387,252,195,195,
     1            252,195,195,252, 31, 96,192,192,192, 96,
     2             31,248,198,195,195,195,198,248,255,192,
     3            192,248,192,192,255,255,192,192,248,192,
     4            192,192, 31, 96,192,207,195, 99, 31,195,
     5            195,195,255,195,195,195, 63, 12, 12, 12,
     6             12, 12, 63,  3,  3,  3,  3,195,102, 60,
     7            198,204,216,248,236,198,195,192,192,192,
     8            192,192,192,255,771,903,975,891,819,771,
     9            771,195,227,243,219,207,199,195,124,198/
      DATA JPA101/387,387,387,198,124,252,195,195,252,192,
     1            192,192,124,198,387,411,397,198,123,252,
     2            195,195,252,204,198,195, 63,192,192, 60,
     3              3,  3,252,255, 24, 24, 24, 24, 24, 24,
     4            195,195,195,195,195,102, 60,195,198,204,
     5            216,240,224,192,771,771,819,891,975,903,
     6            771,195,102, 60, 24, 24, 24, 24,195,102,
     7             60, 24, 60,102,195,255,  6, 12, 24, 48,
     8             96,255, 60,102,195,195,195,102, 60,  3,
     9             15,  3,  3,  3,  3,  3,252,  3,  3, 60/
      DATA JPA201/192,192,255,252,  3,  3, 60,  3,  3,252,
     1             15, 27, 51, 99,255,  3,  3,255,192,192,
     2            252,  3,  3,252, 12, 24, 48,124,195,195,
     3             60,255,  3,  6, 12, 24, 24, 24, 60,195,
     4            195, 60,195,195, 60, 60,195,195, 62, 12,
     5             24, 48,  3, 12, 24, 24, 24, 12,  3,  0,
     6             24, 24,255, 24, 24,  0,  0,  0,  0,255,
     7              0,  0,  0,  0,102, 60,255, 60,102,  0,
     8              3,  6, 12, 24, 48, 96,192,  0,  0,255,
     9              0,255,  0,  0,  0,  0,  0,  0,  0,  3/
      DATA JPA301/  3,  0,  0,  0,  0,  7,  3,  6,  7,  3,
     1              6,  0,  0,  0,  0, 24,  6,  3,  3,  3,
     2              6, 24, 24, 60,102,195,  0,  0,  0,252,
     3              3,  3, 28,  0, 24, 24,  0,  3, 12, 48,
     4             12,  3,  0,  0, 48, 12,  3, 12, 48,  0,
     5            102,102,231,  0,231,102,102,  3,  3,  0,
     6              0,  0,  3,  3,  3,  3,  0,  0,  7,  3,
     7              6,  3,  3,  3,  3,  0,  3,  3/
      DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 54, 7, 8,10,999/
      RETURN
C383688310881'^?<>#:;!
      END