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