Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0141/text1.for
There are 2 other files named text1.for in the archive. Click here to see a list.
00100	      SUBROUTINE TEXT1
00200	CRENBR(RENBRSTART)(TEXT1/LETTERS 9 WIDE BY 5 HIGH)
00300	      COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
00400	     1LETTER(96),LENGTH(96),IPACKD(1020)
00500	      DIMENSION JLETTR(47),JLETT1(47)
00600	      DIMENSION JLNGTH(47),JLNGT1(47)
00700	      DIMENSION JPACKD(235),JPACK1( 80),JPAC81( 80),
00800	     1          JPA161( 75)
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            (JPAC81(1),JPACKD( 81)),
01500	     2            (JPA161(1),JPACKD(161))
01600	      DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
01700	     1            1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
01800	     2            1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3,
01900	     3            1H4,1H5,1H6,1H7,1H8,1H9,1H(,1H*,1H/,1H+,
02000	     4            1H-,1H=,1H),1H:,1H',1H.,1H,/
02100	      DATA JLNGT1/ 9, 9, 9, 9, 9, 9, 9, 9, 7, 9, 9, 9,11,
02200	     1             9, 9, 9,11, 9, 9, 9, 9, 9,11, 9, 9, 9,
02300	     2             9, 5, 9, 9, 9, 9, 9, 9, 9, 9, 5, 9, 7,
02400	     3             9, 9, 9, 5, 2, 2, 2, 2/
02500	      DATA JPACK1/  56, 238, 455, 511, 455, 511, 455, 508,
02600	     1             455, 511, 511, 448, 448, 448, 511, 508,
02700	     2             455, 455, 455, 508, 511, 448, 504, 448,
02800	     3             511, 511, 448, 504, 448, 448, 511, 448,
02900	     4             463, 455, 511, 455, 455, 511, 455, 455,
03000	     5             127,  28,  28,  28, 127,   7,   7,   7,
03100	     6             455, 511, 455, 462, 508, 462, 455, 448,
03200	     7             448, 448, 448, 511,1799,1935,1879,1831,
03300	     8            1799, 455, 487, 471, 463, 455, 511, 455,
03400	     9             455, 455, 511, 511, 455, 511, 448, 448/
03500	      DATA JPAC81/2044,1820,1820,1820,2047, 511, 455, 508,
03600	     1             462, 455, 254, 448, 254,   7, 510, 511,
03700	     2              56,  56,  56,  56, 455, 455, 455, 455,
03800	     3             511, 455, 455, 238, 124,  56,1799,1831,
03900	     4            1879,1935,1799, 455, 238,  56, 238, 455,
04000	     5             455, 238,  56,  56,  56, 511,  14,  56,
04100	     6             224, 511, 511, 455, 455, 455, 511,   7,
04200	     7              31,   7,   7,   7, 511,   7, 127, 448,
04300	     8             511, 511,   7,  28,   7, 511, 119, 231,
04400	     9             511,   7,   7, 511, 448, 508,   7, 511/
04500	      DATA JPA161/ 112, 224, 511, 455, 511, 511,  14,  28,
04600	     1              56, 112, 511, 455, 124, 455, 511, 511,
04700	     2             455, 511,  14,  28,   7,  28,  28,  28,
04800	     3               7, 238,  56, 511,  56, 238,   7,  14,
04900	     4              28,  56, 112,  56,  56, 511,  56,  56,
05000	     5               0,   0, 511,   0,   0,   0, 511,   0,
05100	     6             511,   0,  28,   7,   7,   7,  28,   3,
05200	     7               3,   0,   3,   3,   3,   3,   1,   0,
05300	     8               0,   0,   0,   0,   3,   3,   0,   0,
05400	     9               3,   3,   1/
05500	      DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 47, 5, 9,11,999/
05600	      RETURN
05700	C767780423690:'
05800	      END