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