Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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