Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0141/text2.for
There are 2 other files named text2.for in the archive. Click here to see a list.
00100 SUBROUTINE TEXT2
00200 CRENBR(RENBRSTART)(TEXT2/LETTERS 5 WIDE BY 5 HIGH)
00300 COMMON/FASPG/KNTLTR,IHIGH,IWIDE,JWIDE,LOCK,
00400 1LETTER(96),LENGTH(96),IPACKD(1020)
00500 DIMENSION JLETTR(58),JLETT1(58)
00600 DIMENSION JLNGTH(58),JLNGT1(58)
00700 DIMENSION JPACKD(290),JPACK1(130),JPA131(130),
00800 1 JPA261( 30)
00900 EQUIVALENCE (LETTER(1),JLETTR(1)),
01000 1(LENGTH(1),JLNGTH(1)),(IPACKD(1),JPACKD(1))
01100 EQUIVALENCE (JLETT1(1),JLETTR(1))
01200 EQUIVALENCE (JLNGT1(1),JLNGTH(1))
01300 EQUIVALENCE (JPACK1(1),JPACKD( 1)),
01400 1 (JPA131(1),JPACKD(131)),
01500 2 (JPA261(1),JPACKD(261))
01600 DATA JLETT1/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
01700 1 1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
01800 2 1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3,
01900 3 1H4,1H5,1H6,1H7,1H8,1H9,1H(,1H),1H+,1H-,
02000 4 1H*,1H/,1H.,1H,,1H',1H:,1H^,1H",1H#,1H$,
02100 5 1H%,1H&,1H=,1H<,1H>,1H?,1H@,1H!/
02200 DATA JLNGT1/5,5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,5,5,5,
02300 1 5,5,5,5,5,5,5,3,5,5,5,5,5,5,5,5,3,3,5,5,
02400 2 5,5,2,2,2,2,5,5,5,5,5,5,5,3,3,5,5,1/
02500 DATA JPACK1/ 4,10,17,31,17,30,17,30,17,30,15,16,16,
02600 1 16,15,30,17,17,17,30,31,16,30,16,31,31,
02700 2 16,30,16,16,15,16,19,17,15,17,17,31,17,
02800 3 17, 7, 2, 2, 2, 7, 1, 1, 1,17,14,17,18,
02900 4 28,18,17,16,16,16,16,31,17,27,21,17,17,
03000 5 17,25,21,19,17,14,17,17,17,14,30,17,30,
03100 6 16,16,14,17,21,18,13,30,17,30,18,17,15,
03200 7 16,14, 1,30,31, 4, 4, 4, 4,17,17,17,17,
03300 8 14,17,17,17,10, 4,17,17,21,27,17,17,10,
03400 9 4,10,17,17,10, 4, 4, 4,31, 2, 4, 8,31/
03500 DATA JPA131/14,17,17,17,14, 6, 2, 2, 2, 7,30, 1,14,
03600 1 16,31,30, 1, 6, 1,30,17,17,31, 1, 1,31,
03700 2 16,30, 1,30, 4, 8,30,17,14,31, 2, 4, 8,
03800 3 16,14,17,14,17,14,14,17,15, 2, 4, 3, 4,
03900 4 4, 4, 3, 6, 1, 1, 1, 6, 0, 4,31, 4, 0,
04000 5 0, 0,31, 0, 0, 0,14,31,14, 0, 1, 2, 4,
04100 6 8,16, 0, 0, 0, 3, 3, 0, 0, 3, 3, 1, 3,
04200 7 3, 1, 0, 0, 3, 3, 0, 3, 3, 4,10,17, 0,
04300 8 0,27,27, 9, 0, 0,10,27, 0,27,10,15,20,
04400 9 14, 5,30,25,26, 4,11,19,28, 8,21,18,13/
04500 DATA JPA261/ 0,31, 0,31, 0, 1, 2, 4, 2, 1, 4, 2, 1,
04600 1 2, 4,30, 1, 6, 0, 4,14,17,19,19, 8, 1,
04700 2 1, 1, 0, 1/
04800 DATA KNTLTR,IHIGH,IWIDE,JWIDE,LOCK/ 58, 5, 5, 5,999/
04900 RETURN
05000 C750874299490':^"#$%&<>?@!
05100 END