Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50476/text3.for
There are 2 other files named text3.for in the archive. Click here to see a list.
      SUBROUTINE TEXT3
CRENBR(RENBRSTART)(TEXT3/LETTERS 12 WIDE BY 11 HIGH)
      COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
     1LETTER(96),LENGTH(96),IPACKD( 672)
      DIMENSION JLETTR(59),JLETT1(59)
      DIMENSION JLNGTH(59),JLNGT1(59)
      DIMENSION JPACKD(649),JPACK1( 80),JPAC81( 80),
     1          JPA161( 80),JPA241( 80),JPA321( 80),
     2          JPA401( 80),JPA481( 80),JPA561( 80),
     3          JPA641(  9)
      EQUIVALENCE           (LETTER(1),JLETTR(1)),
     1(LENGTH(1),JLNGTH(1)),(IPACKD(1),JPACKD(1))
      EQUIVALENCE (JLETT1(1),JLETTR(1))
      EQUIVALENCE (JLNGT1(1),JLNGTH(1))
      EQUIVALENCE (JPACK1(1),JPACKD(  1)),
     1            (JPAC81(1),JPACKD( 81)),
     2            (JPA161(1),JPACKD(161)),
     3            (JPA241(1),JPACKD(241)),
     4            (JPA321(1),JPACKD(321)),
     5            (JPA401(1),JPACKD(401)),
     6            (JPA481(1),JPACKD(481)),
     7            (JPA561(1),JPACKD(561)),
     8            (JPA641(1),JPACKD(641))
      DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
     1            1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
     2            1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3,
     3            1H4,1H5,1H6,1H7,1H8,1H9,1H<,1H>,1H%,1H$,
     4            1H?,1H^,1H!,1H#,1H&,1H@,1H/,1H+,1H*,1H-,
     5            1H=,1H(,1H',1H:,1H",1H;,1H.,1H,,1H)/
      DATA JLNGT1/12,12,12,12,12,12,12,12, 6,12,12,12,12,
     1            12,12,12,12,12,12,12,12,12,12,12,12,12,
     2            12, 6,12,12,12,12,12,12,12,12,10,10,12,
     3            12,12,12, 4,12,12,12,12,12,12,12,12, 8,
     4             3, 4, 9, 4, 4, 3, 8/
      DATA JPACK1/  96, 240, 408, 780,1542,3075,3075,4095,
     1            3075,3075,3075,4088,3078,3075,3075,3078,
     2            4088,3078,3075,3075,3078,4088, 504,1542,
     3            3075,3072,3072,3072,3072,3072,3075,1542,
     4             504,4080,3084,3078,3075,3075,3075,3075,
     5            3075,3078,3084,4080,4095,3072,3072,3072,
     6            3072,4080,3072,3072,3072,3072,4095,4095,
     7            3072,3072,3072,3072,4080,3072,3072,3072,
     8            3072,3072, 504,1542,3075,3072,3072,3072,
     9            3103,3075,3075,1539, 511,3075,3075,3075/
      DATA JPAC81/3075,3075,4095,3075,3075,3075,3075,3075,
     1              63,  12,  12,  12,  12,  12,  12,  12,
     2              12,  12,  63,   3,   3,   3,   3,   3,
     3               3,   3,   3,3075,1542, 504,3084,3096,
     4            3120,3168,3264,3552,3888,3608,3084,3078,
     5            3075,3072,3072,3072,3072,3072,3072,3072,
     6            3072,3072,3072,4095,3075,3591,3855,3483,
     7            3315,3171,3075,3075,3075,3075,3075,3075,
     8            3587,3843,3459,3267,3171,3123,3099,3087,
     9            3079,3075, 504,1542,3075,3075,3075,3075/
      DATA JPA161/3075,3075,3075,1542, 504,4088,3078,3075,
     1            3075,3078,4088,3072,3072,3072,3072,3072,
     2             504,1542,3075,3075,3075,3075,3075,3097,
     3            3084,1542, 499,4088,3078,3075,3075,3078,
     4            4088,3120,3096,3084,3078,3075, 504,1542,
     5            3075,3072,1536, 504,   6,   3,3075,1542,
     6             504,4095,  96,  96,  96,  96,  96,  96,
     7              96,  96,  96,  96,3075,3075,3075,3075,
     8            3075,3075,3075,3075,3075,1542, 504,3075,
     9            3075,3075,3075,3075,3075,1542, 780, 408/
      DATA JPA241/ 240,  96,3075,3075,3075,3075,3075,3171,
     1            3315,3483,3855,3591,3075,3075,1542, 780,
     2             408, 240,  96, 240, 408, 780,1542,3075,
     3            3075,1542, 780, 408, 240,  96,  96,  96,
     4              96,  96,  96,4095,   6,  12,  24,  48,
     5              96, 192, 384, 768,1536,4095, 504,1542,
     6            3075,3075,3075,3075,3075,3075,3075,1542,
     7             504,  12,  28,  60,  12,  12,  12,  12,
     8              12,  12,  12,  63, 504,1542,3075,   3,
     9               6,  24,  96, 384,1536,3072,4095, 504/
      DATA JPA321/1542,3075,   3,   6, 248,   6,   3,3075,
     1            1542, 504,  48,  96, 192, 387, 771,1539,
     2            4095,   3,   3,   3,   3,4095,3072,3072,
     3            3072,3072,4088,   6,   3,   3,   6,4088,
     4              24,  48,  96, 192, 384,1016,1542,3075,
     5            3075,1542, 504,4095,   6,  12,  24,  48,
     6              96,  96,  96,  96,  96,  96, 504,1542,
     7            3075,3075,1542, 504,1542,3075,3075,1542,
     8             504, 504,1542,3075,3075,1542, 508,  24,
     9              48,  96, 192, 384,   0,   3,  12,  48/
      DATA JPA401/ 192, 768, 192,  48,  12,   3,   0,   0,
     1             768, 192,  48,  12,   3,  12,  48, 192,
     2             768,   0,1795,2182,2188,1816,  48,  96,
     3             192, 398, 785,1553,3086,  96,  96,1023,
     4            3168,3168,1020,  99,  99,4092,  96,  96,
     5            4088,   6,   3,   3,   6, 504, 384,   0,
     6             384, 960, 384,  96, 240, 408, 780,1542,
     7            3075,   0,   0,   0,   0,   0,   6,   6,
     8               6,   6,   6,   6,   6,   0,   6,  15,
     9               6, 408, 408, 408,3999,   0,   0,   0/
      DATA JPA481/3999, 408, 408, 408, 480, 816, 816, 480,
     1             192, 480, 816,1563,3084,3126,1987, 504,
     2            1542,3075,3171,3219,3219,3219,3198,3072,
     3            1536, 511,   3,   6,  12,  24,  48,  96,
     4             192, 384, 768,1536,3072,   0,   0,  96,
     5              96,  96,4095,  96,  96,  96,   0,   0,
     6               0,   0, 780, 408, 240,4095, 240, 408,
     7             780,   0,   0,   0,   0,   0,   0,   0,
     8            4095,   0,   0,   0,   0,   0,   0,   0,
     9               0,4095,   0,   0,   0,4095,   0,   0/
      DATA JPA561/   0,  15,  56,  96, 192, 192, 192, 192,
     1             192,  96,  56,  15,   6,   7,   3,   6,
     2               0,   0,   0,   0,   0,   0,   0,   6,
     3              15,   6,   0,   0,   0,   0,   0,   6,
     4              15,   6, 390, 455, 195, 390,   0,   0,
     5               0,   0,   0,   0,   0,   6,  15,   6,
     6               0,   0,   0,   0,   6,   7,   3,   6,
     7               0,   0,   0,   0,   0,   0,   0,   0,
     8               6,  15,   6,   0,   0,   0,   0,   0,
     9               0,   0,   6,   7,   3,   6, 240,  28/
      DATA JPA641/   6,   3,   3,   3,   3,   3,   6,  28,
     1             240/
      DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 59,11,12,12,999/
      RETURN
C330359958028<>%$?^!#&@':";
      END