Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50476/text2.for
There are 2 other files named text2.for in the archive. Click here to see a list.
SUBROUTINE TEXT2
CRENBR(RENBRSTART)(TEXT2/LETTERS 5 WIDE BY 5 HIGH)
COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
1LETTER(96),LENGTH(96),IPACKD( 672)
DIMENSION JLETTR(58),JLETT1(58)
DIMENSION JLNGTH(58),JLNGT1(58)
DIMENSION JPACKD(290),JPACK1(130),JPA131(130),
1 JPA261( 30)
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 (JPA131(1),JPACKD(131)),
2 (JPA261(1),JPACKD(261))
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!/
DATA JLNGT1/5,5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,5,5,5,
1 5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,3,3,5,5,
2 5,5,2,2,2,2,5,5,5,5,5,5,5,3,3,5,5,1/
DATA JPACK1/ 4,10,17,31,17,30,17,30,17,30,15,16,16,
1 16,15,30,17,17,17,30,31,16,30,16,31,31,
2 16,30,16,16,15,16,19,17,15,17,17,31,17,
3 17, 7, 2, 2, 2, 7, 1, 1, 1,17,14,17,18,
4 28,18,17,16,16,16,16,31,17,27,21,17,17,
5 17,25,21,19,17,14,17,17,17,14,30,17,30,
6 16,16,14,17,21,18,13,30,17,30,18,17,15,
7 16,14, 1,30,31, 4, 4, 4, 4,17,17,17,17,
8 14,17,17,17,10, 4,17,17,21,27,17,17,10,
9 4,10,17,17,10, 4, 4, 4,31, 2, 4, 8,31/
DATA JPA131/14,17,17,17,14, 6, 2, 2, 2, 7,30, 1,14,
1 16,31,30, 1, 6, 1,30,17,17,31, 1, 1,31,
2 16,30, 1,30, 4, 8,30,17,14,31, 2, 4, 8,
3 16,14,17,14,17,14,14,17,15, 2, 4, 3, 4,
4 4, 4, 3, 6, 1, 1, 1, 6, 0, 4,31, 4, 0,
5 0, 0,31, 0, 0, 0,14,31,14, 0, 1, 2, 4,
6 8,16, 0, 0, 0, 3, 3, 0, 0, 3, 3, 1, 3,
7 3, 1, 0, 0, 3, 3, 0, 3, 3, 4,10,17, 0,
8 0,27,27, 9, 0, 0,10,27, 0,27,10,15,20,
9 14, 5,30,25,26, 4,11,19,28, 8,21,18,13/
DATA JPA261/ 0,31, 0,31, 0, 1, 2, 4, 2, 1, 4, 2, 1,
1 2, 4,30, 1, 6, 0, 4,14,17,19,19, 8, 1,
2 1, 1, 0, 1/
DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 58, 5, 5, 5,999/
RETURN
C750874299490':^"#$%&<>?@!
END