Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0141/text4.for
There are 2 other files named text4.for in the archive. Click here to see a list.
00100 SUBROUTINE TEXT4
00200 CRENBR(RENBRSTART)(TEXT4/LETTERS 7 HIGH BY 9 WIDE)
00300 COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
00400 1LETTER(96),LENGTH(96),IPACKD(1020)
00500 DIMENSION JLETTR(54),JLETT1(54)
00600 DIMENSION JLNGTH(54),JLNGT1(54)
00700 DIMENSION JPACKD(378),JPACK1(100),JPA101(100),
00800 1 JPA201(100),JPA301( 78)
00900 EQUIVALENCE (LETTER(1),JLETTR(1)),
01000 1(LENGTH(1),JLNGTH(1)),(IPACKD(1),JPACKD(1))
01100 EQUIVALENCE (JLETT1(1),JLETTR(1))
01200 EQUIVALENCE (JLNGT1(1),JLNGTH(1))
01300 EQUIVALENCE (JPACK1(1),JPACKD( 1)),
01400 1 (JPA101(1),JPACKD(101)),
01500 2 (JPA201(1),JPACKD(201)),
01600 3 (JPA301(1),JPACKD(301))
01700 DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
01800 1 1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
01900 2 1HU,1HV,1HW,1HY,1HX,1HZ,1H0,1H1,1H2,1H3,
02000 3 1H4,1H5,1H6,1H7,1H8,1H9,1H(,1H+,1H-,1H*,
02100 4 1H/,1H=,1H.,1H,,1H',1H),1H^,1H?,1H<,1H>,
02200 5 1H#,1H:,1H;,1H!/
02300 DATA JLNGT1/ 9, 8, 8, 8, 8, 8, 8, 8, 6, 8, 8, 8,10,
02400 1 8, 9, 8, 9, 8, 8, 8, 8, 8,10, 8, 8, 8,
02500 2 8, 4, 8, 8, 8, 8, 8, 8, 8, 8, 5, 8, 8,
02600 3 8, 8, 8, 2, 3, 3, 5, 8, 8, 6, 6, 8, 2,
02700 4 3, 2/
02800 DATA JPACK1/ 7, 15, 27, 51,127,195,387,252,195,195,
02900 1 252,195,195,252, 31, 96,192,192,192, 96,
03000 2 31,248,198,195,195,195,198,248,255,192,
03100 3 192,248,192,192,255,255,192,192,248,192,
03200 4 192,192, 31, 96,192,207,195, 99, 31,195,
03300 5 195,195,255,195,195,195, 63, 12, 12, 12,
03400 6 12, 12, 63, 3, 3, 3, 3,195,102, 60,
03500 7 198,204,216,248,236,198,195,192,192,192,
03600 8 192,192,192,255,771,903,975,891,819,771,
03700 9 771,195,227,243,219,207,199,195,124,198/
03800 DATA JPA101/387,387,387,198,124,252,195,195,252,192,
03900 1 192,192,124,198,387,411,397,198,123,252,
04000 2 195,195,252,204,198,195, 63,192,192, 60,
04100 3 3, 3,252,255, 24, 24, 24, 24, 24, 24,
04200 4 195,195,195,195,195,102, 60,195,198,204,
04300 5 216,240,224,192,771,771,819,891,975,903,
04400 6 771,195,102, 60, 24, 24, 24, 24,195,102,
04500 7 60, 24, 60,102,195,255, 6, 12, 24, 48,
04600 8 96,255, 60,102,195,195,195,102, 60, 3,
04700 9 15, 3, 3, 3, 3, 3,252, 3, 3, 60/
04800 DATA JPA201/192,192,255,252, 3, 3, 60, 3, 3,252,
04900 1 15, 27, 51, 99,255, 3, 3,255,192,192,
05000 2 252, 3, 3,252, 12, 24, 48,124,195,195,
05100 3 60,255, 3, 6, 12, 24, 24, 24, 60,195,
05200 4 195, 60,195,195, 60, 60,195,195, 62, 12,
05300 5 24, 48, 3, 12, 24, 24, 24, 12, 3, 0,
05400 6 24, 24,255, 24, 24, 0, 0, 0, 0,255,
05500 7 0, 0, 0, 0,102, 60,255, 60,102, 0,
05600 8 3, 6, 12, 24, 48, 96,192, 0, 0,255,
05700 9 0,255, 0, 0, 0, 0, 0, 0, 0, 3/
05800 DATA JPA301/ 3, 0, 0, 0, 0, 7, 3, 6, 7, 3,
05900 1 6, 0, 0, 0, 0, 24, 6, 3, 3, 3,
06000 2 6, 24, 24, 60,102,195, 0, 0, 0,252,
06100 3 3, 3, 28, 0, 24, 24, 0, 3, 12, 48,
06200 4 12, 3, 0, 0, 48, 12, 3, 12, 48, 0,
06300 5 102,102,231, 0,231,102,102, 3, 3, 0,
06400 6 0, 0, 3, 3, 3, 3, 0, 0, 7, 3,
06500 7 6, 3, 3, 3, 3, 0, 3, 3/
06600 DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 54, 7, 8,10,999/
06700 RETURN
06800 C383688310881'^?<>#:;!
06900 END