Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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