Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0141/text3.for
There are 2 other files named text3.for in the archive. Click here to see a list.
00100	      SUBROUTINE TEXT3
00200	CRENBR(RENBRSTART)(TEXT3/LETTERS 12 WIDE BY 11 HIGH)
00300	      COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
00400	     1LETTER(96),LENGTH(96),IPACKD(1020)
00500	      DIMENSION JLETTR(59),JLETT1(59)
00600	      DIMENSION JLNGTH(59),JLNGT1(59)
00700	      DIMENSION JPACKD(649),JPACK1( 80),JPAC81( 80),
00800	     1          JPA161( 80),JPA241( 80),JPA321( 80),
00900	     2          JPA401( 80),JPA481( 80),JPA561( 80),
01000	     3          JPA641(  9)
01100	      EQUIVALENCE           (LETTER(1),JLETTR(1)),
01200	     1(LENGTH(1),JLNGTH(1)),(IPACKD(1),JPACKD(1))
01300	      EQUIVALENCE (JLETT1(1),JLETTR(1))
01400	      EQUIVALENCE (JLNGT1(1),JLNGTH(1))
01500	      EQUIVALENCE (JPACK1(1),JPACKD(  1)),
01600	     1            (JPAC81(1),JPACKD( 81)),
01700	     2            (JPA161(1),JPACKD(161)),
01800	     3            (JPA241(1),JPACKD(241)),
01900	     4            (JPA321(1),JPACKD(321)),
02000	     5            (JPA401(1),JPACKD(401)),
02100	     6            (JPA481(1),JPACKD(481)),
02200	     7            (JPA561(1),JPACKD(561)),
02300	     8            (JPA641(1),JPACKD(641))
02400	      DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
02500	     1            1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
02600	     2            1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3,
02700	     3            1H4,1H5,1H6,1H7,1H8,1H9,1H<,1H>,1H%,1H$,
02800	     4            1H?,1H^,1H!,1H#,1H&,1H@,1H/,1H+,1H*,1H-,
02900	     5            1H=,1H(,1H',1H:,1H",1H;,1H.,1H,,1H)/
03000	      DATA JLNGT1/12,12,12,12,12,12,12,12, 6,12,12,12,12,
03100	     1            12,12,12,12,12,12,12,12,12,12,12,12,12,
03200	     2            12, 6,12,12,12,12,12,12,12,12,10,10,12,
03300	     3            12,12,12, 4,12,12,12,12,12,12,12,12, 8,
03400	     4             3, 4, 9, 4, 4, 3, 8/
03500	      DATA JPACK1/  96, 240, 408, 780,1542,3075,3075,4095,
03600	     1            3075,3075,3075,4088,3078,3075,3075,3078,
03700	     2            4088,3078,3075,3075,3078,4088, 504,1542,
03800	     3            3075,3072,3072,3072,3072,3072,3075,1542,
03900	     4             504,4080,3084,3078,3075,3075,3075,3075,
04000	     5            3075,3078,3084,4080,4095,3072,3072,3072,
04100	     6            3072,4080,3072,3072,3072,3072,4095,4095,
04200	     7            3072,3072,3072,3072,4080,3072,3072,3072,
04300	     8            3072,3072, 504,1542,3075,3072,3072,3072,
04400	     9            3103,3075,3075,1539, 511,3075,3075,3075/
04500	      DATA JPAC81/3075,3075,4095,3075,3075,3075,3075,3075,
04600	     1              63,  12,  12,  12,  12,  12,  12,  12,
04700	     2              12,  12,  63,   3,   3,   3,   3,   3,
04800	     3               3,   3,   3,3075,1542, 504,3084,3096,
04900	     4            3120,3168,3264,3552,3888,3608,3084,3078,
05000	     5            3075,3072,3072,3072,3072,3072,3072,3072,
05100	     6            3072,3072,3072,4095,3075,3591,3855,3483,
05200	     7            3315,3171,3075,3075,3075,3075,3075,3075,
05300	     8            3587,3843,3459,3267,3171,3123,3099,3087,
05400	     9            3079,3075, 504,1542,3075,3075,3075,3075/
05500	      DATA JPA161/3075,3075,3075,1542, 504,4088,3078,3075,
05600	     1            3075,3078,4088,3072,3072,3072,3072,3072,
05700	     2             504,1542,3075,3075,3075,3075,3075,3097,
05800	     3            3084,1542, 499,4088,3078,3075,3075,3078,
05900	     4            4088,3120,3096,3084,3078,3075, 504,1542,
06000	     5            3075,3072,1536, 504,   6,   3,3075,1542,
06100	     6             504,4095,  96,  96,  96,  96,  96,  96,
06200	     7              96,  96,  96,  96,3075,3075,3075,3075,
06300	     8            3075,3075,3075,3075,3075,1542, 504,3075,
06400	     9            3075,3075,3075,3075,3075,1542, 780, 408/
06500	      DATA JPA241/ 240,  96,3075,3075,3075,3075,3075,3171,
06600	     1            3315,3483,3855,3591,3075,3075,1542, 780,
06700	     2             408, 240,  96, 240, 408, 780,1542,3075,
06800	     3            3075,1542, 780, 408, 240,  96,  96,  96,
06900	     4              96,  96,  96,4095,   6,  12,  24,  48,
07000	     5              96, 192, 384, 768,1536,4095, 504,1542,
07100	     6            3075,3075,3075,3075,3075,3075,3075,1542,
07200	     7             504,  12,  28,  60,  12,  12,  12,  12,
07300	     8              12,  12,  12,  63, 504,1542,3075,   3,
07400	     9               6,  24,  96, 384,1536,3072,4095, 504/
07500	      DATA JPA321/1542,3075,   3,   6, 248,   6,   3,3075,
07600	     1            1542, 504,  48,  96, 192, 387, 771,1539,
07700	     2            4095,   3,   3,   3,   3,4095,3072,3072,
07800	     3            3072,3072,4088,   6,   3,   3,   6,4088,
07900	     4              24,  48,  96, 192, 384,1016,1542,3075,
08000	     5            3075,1542, 504,4095,   6,  12,  24,  48,
08100	     6              96,  96,  96,  96,  96,  96, 504,1542,
08200	     7            3075,3075,1542, 504,1542,3075,3075,1542,
08300	     8             504, 504,1542,3075,3075,1542, 508,  24,
08400	     9              48,  96, 192, 384,   0,   3,  12,  48/
08500	      DATA JPA401/ 192, 768, 192,  48,  12,   3,   0,   0,
08600	     1             768, 192,  48,  12,   3,  12,  48, 192,
08700	     2             768,   0,1795,2182,2188,1816,  48,  96,
08800	     3             192, 398, 785,1553,3086,  96,  96,1023,
08900	     4            3168,3168,1020,  99,  99,4092,  96,  96,
09000	     5            4088,   6,   3,   3,   6, 504, 384,   0,
09100	     6             384, 960, 384,  96, 240, 408, 780,1542,
09200	     7            3075,   0,   0,   0,   0,   0,   6,   6,
09300	     8               6,   6,   6,   6,   6,   0,   6,  15,
09400	     9               6, 408, 408, 408,3999,   0,   0,   0/
09500	      DATA JPA481/3999, 408, 408, 408, 480, 816, 816, 480,
09600	     1             192, 480, 816,1563,3084,3126,1987, 504,
09700	     2            1542,3075,3171,3219,3219,3219,3198,3072,
09800	     3            1536, 511,   3,   6,  12,  24,  48,  96,
09900	     4             192, 384, 768,1536,3072,   0,   0,  96,
10000	     5              96,  96,4095,  96,  96,  96,   0,   0,
10100	     6               0,   0, 780, 408, 240,4095, 240, 408,
10200	     7             780,   0,   0,   0,   0,   0,   0,   0,
10300	     8            4095,   0,   0,   0,   0,   0,   0,   0,
10400	     9               0,4095,   0,   0,   0,4095,   0,   0/
10500	      DATA JPA561/   0,  15,  56,  96, 192, 192, 192, 192,
10600	     1             192,  96,  56,  15,   6,   7,   3,   6,
10700	     2               0,   0,   0,   0,   0,   0,   0,   6,
10800	     3              15,   6,   0,   0,   0,   0,   0,   6,
10900	     4              15,   6, 390, 455, 195, 390,   0,   0,
11000	     5               0,   0,   0,   0,   0,   6,  15,   6,
11100	     6               0,   0,   0,   0,   6,   7,   3,   6,
11200	     7               0,   0,   0,   0,   0,   0,   0,   0,
11300	     8               6,  15,   6,   0,   0,   0,   0,   0,
11400	     9               0,   0,   6,   7,   3,   6, 240,  28/
11500	      DATA JPA641/   6,   3,   3,   3,   3,   3,   6,  28,
11600	     1             240/
11700	      DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 59,11,12,12,999/
11800	      RETURN
11900	C330359958028<>%$?^!#&@':";
12000	      END