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