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