C BIGWORD2 C BY JOSEPH J. GREINER, JR. C JULY 1975 C C TYPEFACE: FORTUNE LIGHT BY BAUER TYPE FOUNDRY; C NOMINAL SIZE, 8 INCHES HIGH C C MOST 029 (EBCDIC) KEYPUNCH SYMBOLS, PLUS LOWER-CASE MULTI- C PUNCHING, CAN BE INTERPRETED BY THIS PROGRAM. C C THE SYMBOL "^" IS USED FOR DEGREES (SUPERSCRIPT ZERO). C THE UNDERSCORE SYMBOL "_" IS USED FOR "TH" WITH UNDERSCORE. C C C C DATA REQUIREMENTS: ONE CARD, FORMAT A1,78A1, FOR EACH PHRASE: C A1: "+" OR BLANK PRODUCES BLACK TEXT WITH C WHITE BACKGROUND; C "-" PRODUCES WHITE TEXT WITH BLACK C BACKGROUND. C 78A1: TEXT TO BE PRINTED. C C END OF FILE PROVIDES NORMAL TERMINATION OF THE PROGRAM. C C MODIFIED 11/77 BY JOEL DAMIANO C 5/85 by gce C C DIMENSION KARD(78),MAXCRD(78),MINCRD(78),LMAX(89),LMIN(89), * LSTACK(78) COMMON MOVE COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX COMMON /INIT/ NSYMB(2,89),NCHAR(3000),LMAX,LMIN LOGICAL*1 IFNM(80),OFNM(80) 500 FORMAT(1A1,78A1) 600 FORMAT(1H1) 675 FORMAT (14H ENTER LINE: ) C C 680 FORMAT (20H INPUT ERROR--FIRST , * 40HCHARACTER MUST BE A "+", "-", OR A BLANK) DATA NPLUS, MINUS, NPBLNK /1H+, 1H-, 1H / DATA LMAX,LMIN/80,57,80,73,80,57,80,57,80,74,80,57,80,57,3*80,57, * 5*80,55,3*80,57,3*80,57,80,74,3*80,57,80,57,80,57,80,55,80,55, * 80,55,80,55,80,55,10*80,70,48,80,55,3*80,64,7*80,88,2*80,2*15, * 2*47,2*80,76,80,1,10*1,-1,12*1,-1,7*1,-24,1,-24,5*1,-24,-11,-24, * 7*1,-24,12*1,11,33,1,26,1,1,61,19,7*1,-7,1,1,-9,1,1,11,41,41, * 4,1,1/ C GET INPUT AND OUTPUT FILES CALL ASSIGN(5,'TT:') CALL ASSIGN(6,'TT:') 8008 continue WRITE(6,8000) 8000 FORMAT(' Enter INPUT file specifier') read (5,8001)ifnm 8001 format(80a1) write(6,8002) 8002 format(' Enter OUTPUT file specifier') read(5,8001)ofnm c got the names in now. null terminate them. do 8003 n=1,80 nn=81-n if(ifnm(nn).gt.32)goto 8004 ifnm(nn)=0 8003 continue 8004 continue do 8005 n=1,80 nn=81-n if(ofnm(nn).gt.32)goto 8006 ofnm(nn)=0 8005 continue 8006 continue c above null terminates filenames c now assign them to units we use in rest if(ifnm(1).gt.32)call assign(1,ifnm) if(ifnm(1).le.32)call assign(1,'tt:') if(ofnm(1).gt.32)call assign(2,ofnm) if(ofnm(1).le.32)call assign(2,'lettrs.dat') c always prompt on 6 which is console. 10 WRITE (6,675) READ(1,500,END = 90) NEGPOS,KARD IF ((NEGPOS .EQ. NPBLNK) .OR. (NEGPOS .EQ. NPLUS)) GO TO 15 IF (NEGPOS .EQ. MINUS) GO TO 17 WRITE (6,680) GO TO 10 15 LFRONT = NSYM LFRNTX = NSYMX LBACK = NBLANK LBACKX = NBLANK NP = POS GO TO 20 17 NP = NEG LFRONT = NBLANK LFRNTX = NBLANK LBACK = NSYM LBACKX = NSYMX 20 CONTINUE DO 30 ICOL=1,78 JCOL = 79 - ICOL IF(KARD(JCOL).NE.NBLANK) GO TO 40 30 CONTINUE 40 NTOTAL = 0 DO 60 ICOL=1,JCOL DO 50 ISYMB=1,89 IF(KARD(ICOL).NE.NSYMB(1,ISYMB)) GO TO 50 NTOTAL = NTOTAL + NSYMB(2,ISYMB)/I4 + 4 MAXCRD(ICOL) = LMAX(ISYMB) MINCRD(ICOL) = LMIN(ISYMB) LSTACK(ICOL) = ISYMB GO TO 60 50 CONTINUE 60 CONTINUE CALL MINMAX(MAXCRD,JCOL,MAXL,JUNK,IMAX,IMIN) CALL MINMAX(MINCRD,JCOL,JUNK,MINL,IMAX,IMIN) NCOLS = MAXL - MINL + 1 MOVE = (132-NCOLS)/2 - MINL NSPARE = (INT(FLOAT(NTOTAL)/66.+1.5)*66-NTOTAL-6)/2 WRITE(2,600) CALL BAXX(NSPARE,2) DO 80 ICOL=1,JCOL 70 CALL PRNT ( LSTACK(ICOL) ) 80 CONTINUE CALL BAXX(NSPARE,2) WRITE(2,600) GO TO 10 90 CONTINUE END SUBROUTINE MINMAX(NARRAY,N,MAX,MIN,IMAX,IMIN) C FINDS THE MINIMUM AND MAXIMUM VALUES, AND C SUBSCRIPTS THEREOF, IN A ONE-DIMENSIONAL ARRAY. C DIMENSION NARRAY(N) MAX = -100000000 MIN = 100000000 DO 10 I=1,N NREF = NARRAY(I) IF(NREF.GT.MAX) IMAX = I IF(NREF.GT.MAX) MAX = NREF IF(NREF.LT.MIN) IMIN = I IF(NREF.LT.MIN) MIN = NREF 10 CONTINUE RETURN END SUBROUTINE PRNT(I) C MANAGES THE PRINTING OF EACH CHARACTER. C DIMENSION NSHIFT(89) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 COMMON /INIT/ NSYMB(2,89),NCHAR(3000),LMAX(89),LMIN(89) 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA NSHIFT/10*0,2,12*0,2,7*0,25,0,25,5*0,25,12,25,7*0,25, * 14*0,9,12*0,8,0,0,10,8*0/ CALL BAXX(2,2) IF(I.NE.89) GO TO 10 CALL BAXX(50,2) RETURN 10 IF(I.EQ.16.OR.I.EQ.22.OR.I.EQ.36) CALL LEGL(25,0) IF(I.EQ.40) CALL LEGL(25,25) IF(I.EQ.12.OR.I.EQ.18.OR.I.EQ.38) CALL LEGL(0,0) IF(I.EQ.8.OR.I.EQ.20.OR.I.EQ.28.OR.I.EQ.42) CALL OHAV(1) IF(I.EQ.1.OR.I.EQ.9.OR.I.EQ.15.OR.I.EQ.17.OR.I.EQ.19.OR.I.EQ.21 * .OR.I.EQ.25.OR.I.EQ.29.OR.I.EQ.35.OR.I.EQ.39) CALL LEGU(7) IF(I.EQ.11.OR.I.EQ.37) CALL LEGU(4) IF(I.EQ.7.OR.I.EQ.27.OR.I.EQ.31.OR.I.EQ.41) CALL OHAF(1) IF(I.EQ.8.OR.I.EQ.12.OR.I.EQ.16) GO TO 70 J = NSYMB(2,I) - (NSYMB(2,I)/I4)*I4 - 1 JOUT = NSYMB(2,I+1) - (NSYMB(2,I+1)/I4)*I4 NSI = NSHIFT(I) 20 NE = 0 NG = 0 CALL BAXX(1,1) J = J + 1 IF(J.GE.JOUT) GO TO 70 NCH = NCHAR(J) NA = NCH/I7 NB = NCH/I5 - NA*I2 NC = NCH/I3 - NB*I2 - NA*I4 ND = NCH/10 - NC*I2 - NB*I4 - NA*I6 NCHK = NCH - ND*10 - NC*I3 - NB*I5 - NA*I7 IF(NA.LE.NB.AND.NB.LE.NC.AND.NC.LE.ND) GO TO 25 NTEMP = NA NA = ND ND = NTEMP NTEMP = NB NB = NC NC = NTEMP 25 IF(NCHK.NE.1) GO TO 30 J = J + 1 NCH = NCHAR(J) NE = NCH/I7 NF = NCH/I5 - NE*I2 NG = NCH/I3 - NF*I2 - NE*I4 NH = NCH/10 - NG*I2 - NF*I4 - NE*I6 NCHK = NCH - NH*10 - NG*I3 - NF*I5 - NE*I7 IF(NE.LE.NF.AND.NF.LE.NG.AND.NG.LE.NH) GO TO 30 NTEMP = NE NE = NH NH = NTEMP NTEMP = NF NF = NG NG = NTEMP 30 IF(NCHK.EQ.0) NCHK = 1 IF(NA.NE.0.OR.NB.NE.0) GO TO 40 CALL BAXX(NCHK,2) GO TO 20 40 CALL FRNT(NA-NSI,NB-NSI) IF(NC.EQ.0) GO TO 50 CALL FRNT(NC-NSI,ND-NSI) IF(NE.EQ.0) GO TO 50 CALL FRNT(NE-NSI,NF-NSI) IF(NG.EQ.0) GO TO 50 CALL FRNT(NG-NSI,NH-NSI) 50 DO 60 K=1,NCHK WRITE(2,61) LINE 60 WRITE(2,62) LINEX GO TO 20 70 IF(I.EQ.8.OR.I.EQ.26.OR.I.EQ.40) CALL OHAV(-1) IF(I.EQ.12.OR.I.EQ.16) CALL ACHN IF(I.EQ.7.OR.I.EQ.19) CALL OHAF(-1) CALL BAXX(2,2) RETURN END SUBROUTINE ACHN C PRINTS THE SECOND PART OF LOWER-CASE 'H' AND 'N'. C DIMENSION KLINE(30) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA KLINE/123849,94249,84651,74753,64854,64955,50550000,51560000, * 51560000,51570000,51570000,51570000,65057,64957,74857, 84757, * 94656, 124156, 550000, 530000, 520000, 500000, 480000, * 440000, 120000, 90000, 80000, 70000, 60000, 60000/ DO 20 K=1,30 CALL BAXX(1,1) KLK = KLINE(K) NA = KLK/I6 NB = KLK/I4 - NA*I2 NC = KLK/I2 - NB*I2 - NA*I4 ND = KLK - NC*I2 - NB*I4 - NA*I6 CALL FRNT(NA,NB) IF(NC.EQ.0) GO TO 10 CALL FRNT(NC,ND) 10 WRITE(2,61) LINE 20 WRITE(2,62) LINEX RETURN END SUBROUTINE OHAF(KSTEP) C PRINTS THE LEFT (KSTEP=1) OR RIGHT (KSTEP=-1) C PART OF UPPER-CASE 'O' FOR UPPER-CASE 'C','D','G','O' AND 'Q'. C DIMENSION KLINE(30) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA KLINE/32480000,26540000,23570000,20600000,18620000,16640000, * 14660000,12680000,11334769, 9275371,8245672,7206073,6186274, * 5166475,4146676,4136776,3126877,2116978,2107078,2097178, * 1087279,1087279,1077379, 77380, 67480, 67480, 67480, * 67480, 67480, 67480/ IF(KSTEP.EQ.1) K = 0 IF(KSTEP.EQ.1) N = 17 IF(KSTEP.EQ.-1) K = 31 IF(KSTEP.EQ.-1) N = 30 DO 20 I=1,N CALL BAXX(1,1) K = K + KSTEP KLK = KLINE(K) NA = KLK/I6 NB = KLK/I4 - NA*I2 NC = KLK/I2 - NB*I2 - NA*I4 ND = KLK - NC*I2 - NB*I4 - NA*I6 CALL FRNT(NA,NB) IF(NC.EQ.0) GO TO 10 CALL FRNT(NC,ND) 10 WRITE(2,61) LINE 20 WRITE(2,62) LINEX RETURN END SUBROUTINE LEGL(N,NX) C PRINTS THE INITIAL PART OF LOWER-CASE 'H','K', C 'L','M','N','P' AND 'R'; H K L M N P R C N: 25 25 25 0 0 25 0 C NX: 0 0 0 0 0 25 0 C DIMENSION KS(16) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA KS/6,7,48,51,7,8,47,48,8,9,46,47, 9,12,43,46/ CALL BAXX(1,1) CALL FRNT( -NX,6-NX) CALL FRNT(49+N-NX,55+N-NX) WRITE(2,61) LINE WRITE(2,62) LINEX WRITE(2,61) LINE WRITE(2,62) LINEX DO 10 I=1,4 K = 4*(I-1) + 1 CALL FRNT(KS(K)-NX,KS(K+1)-NX) CALL FRNT(KS(K+2)+N-NX,KS(K+3)+N-NX) WRITE(2,61) LINE 10 WRITE(2,62) LINEX CALL FRNT(12-NX,43+N-NX) DO 20 K=1,6 WRITE(2,61) LINE 20 WRITE(2,62) LINEX RETURN END SUBROUTINE OHAV(KSTEP) C PRINTS THE LEFT (KSTEP=1) OR RIGHT (KSTEP=-1) C HALF OF LOWER-CASE 'O' FOR LOWER-CASE 'B','C','D','O','P' AND 'Q'. C DIMENSION KLINE(17) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA KLINE/20370000,16410000,13440000,11460000, 9480000,7500000, * 6510000,5203752,4164153,3144354,2124555,1104756,1094856, * 1084956, 75057, 75057, 65157/ IF(KSTEP.EQ.1) K = 0 IF(KSTEP.EQ.-1) K = 18 DO 20 I=1,17 CALL BAXX(1,1) K = K + KSTEP KLK = KLINE(K) NA = KLK/I6 NB = KLK/I4 - NA*I2 NC = KLK/I2 - NB*I2 - NA*I4 ND = KLK - NC*I2 - NB*I4 - NA*I6 CALL FRNT(NA,NB) IF(NC.EQ.0) GO TO 10 CALL FRNT(NC,ND) 10 WRITE(2,61) LINE 20 WRITE(2,62) LINEX RETURN END SUBROUTINE LEGU(N) C PRINTS THE INITIAL PART OF UPPER-CASE 'B','D', C 'E','F','H','I','K','L','M','N','P' AND 'R'; M,N: N=4 C OTHERS: N=7 C DIMENSION KS(16) COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DATA KS/7,8,72,73,8,9,71,72,9,10,70,71,10,13,67,70/ CALL BAXX(1,1) CALL FRNT(0,6) CALL FRNT(74,80) DO 10 I=1,3 WRITE(2,61) LINE 10 WRITE(2,62) LINEX CALL FRNT(6,7) CALL FRNT(73,74) DO 20 I=1,3 WRITE(2,61) LINE 20 WRITE(2,62) LINEX DO 30 I=1,4 K = 4*(I-1) + 1 CALL FRNT(KS(K),KS(K+1)) CALL FRNT(KS(K+2),KS(K+3)) WRITE(2,61) LINE 30 WRITE(2,62) LINEX CALL FRNT(13,67) DO 40 I=1,N WRITE(2,61) LINE 40 WRITE(2,62) LINEX RETURN END SUBROUTINE BAXX(N,J) C PUTS BACKGROUND SYMBOLS IN THE OUTPUT LINES; C FOR J.NE.1, PRINTS N LINES OF BACKGROUND. C COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX 61 FORMAT(1X,132A1) 62 FORMAT(1H+,132A1) DO 10 I=1,132 LINE(I) = LBACK 10 LINEX(I) = LBACKX IF(J.EQ.1) RETURN DO 20 I=1,N WRITE(2,61) LINE IF(LBACK.EQ.NBLANK) GO TO 20 WRITE(2,62) LINEX 20 CONTINUE RETURN END SUBROUTINE FRNT(NA,NB) C PUTS FOREGROUND SYMBOLS IN THE OUTPUT LINES C FROM NA+MOVE THROUGH NB+MOVE. C COMMON MOVE COMMON /LINES/ LINE(132),LINEX(132) BYTE LINE,LINEX COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX I = NA + MOVE J = NB + MOVE - 1 DO 10 K=I,J LINEX(K) = LFRNTX 10 LINE(K) = LFRONT RETURN END BLOCK DATA COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7 COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX COMMON /INIT/ NSYMB(2,89),IA(186),IB(180),IC(181),ID(179),IE(174), * IF(184),IG(180),IH(173),II(179),IJ(187),IK(179),IL(180), * IM(176),IN(171),IO(168),IP(163),IQ(160),LMAX(89),LMIN(89) DATA I2,I3,I4,I5,I6,I7/100,1000,10000,100000,1000000,10000000/ DATA NBLANK,NSYM,NSYMX/1H ,1H$,1HM/ C C THE SECOND LETTER IN EACH OF THE FOLLOWING PAIRS IS LOWER CASE. DATA NSYMB/1HE,490001,1He,340024,1HT,510072,1Ht,220103,1HA,660123, *1Ha,380185,1HO,540239,1Ho,340245,1HI,270245,1Hi,180251,1HN,670268, *1Hn,420315,1HS,440315,1Hs,290386,1HH,650430,1Hh,420463,1HR,550463, *1Hr,300502,1HD,570518,1Hd,390520,1HL,460542,1Hl,180557,1HU,640562, *1Hu,420609,1HB,520641,1Hb,390669,1HC,480688,1Hc,310712,1HF,490726, *1Hf,300751,1HG,560783,1Hg,470822,1HJ,360890,1Hj,180921,1HK,620941, *1Hk,401001,1HM,761033,1Hm,641085,1HP,461132,1Hp,391159,1HQ,541175, *1Hq,391227,1HV,701249,1Hv,461309,1HW,941350,1Hw,671435,1HX,611498, *1Hx,441572,1HY,571623,1Hy,451683,1HZ,461731,1Hz,311800,1H0,491842, *1H1,251885,1H2,381904,1H3,421963,1H4,412019,1H5,412063,1H6,432118, *1H7,382184,1H8,442215,1H9,432275,1H+,362341,1H-,362347,1H!,102351, *1H=,362353,1H/,282357,1H%,282385,1H^,122425,1H_,342436,1H<,312480, *1H>,312511,1H(,172542,1H),172559,1H*,442576,1H?,352621,1H&,532664, *1H$,402729,1H#,362781,1H], 92833,1H,, 92842,1H., 92851,1H;, 92858, *1H:, 92869,1H', 92876,1H",182885,1H[,312900,1H@,482938,1H ,503001/ C C C C C C 1 - 186 : 186 DATA IA/638441,80745,638441,80745,637451,80742,635471,80740,632501 *,80740,626561,80740,621611,80743,674800,774802,873802,1072800,1170 *800,1368800,1665800,2359800,3054804,37200,41160,44130,46110,48090, *50070,51060,52026331,52370,41626331,53410,31426331,54430,21226331, *55450,11026331,56470,10926331,56480,10826331,56490,726331,57502,62 *6331,57512,626331,57502,10726331,56490,10726331,56480,10826331,564 *70,20926331,55450,31026331,54430,41126331,53410,51226331,52370,614 *26510,71526500,91826480,111826460,131826440,41260,37260,80533,8061 *0,80660,80680,80700,80710,80720,80732,673800,674802,774803,874802, *974800,1074800,1374800,80007,1374800,1074800,974800,874802,774803, *674802,673800,80732,80720,80710,80700,80680,80660,80610,80533,5349 *0,54490,55490,56490,57490,59490,62080,67050,73030,73012,73000,1149 *550,949550,849552,10949550,11049550,21449550,42249550,72249550,122 *249550,6003,7002,8000,9000,11000,13000,15000,17000,20000,23000,260 *00,29000,1017320,821350,725390,727420,628450,628480,628341,51360,6 *28341,54400,283443570,283446600,283449630,283452660,283455690,2834 *58720,283461750,283463780,283462800,283459800,283456800,283453780, *283449740,283446710,283443680,628341,65401,628341,62360,628590,628 *550,727520,724490,820460,1016420,39000,36000,33000,30000,26000,230 *00,20000,17000,15000,12000,10000,9000,8000,7003,6003,20080,23050/ C 187 - 366 : 180 DATA IB/42541460,32638500,22737510,12836530,12936540,1219301,55360 *,1021311,56370,922311,56380,823321,404449570,824331,57500,825331,5 *7510,10825341,57510,10926341,57520,20927341,57520,31027351,57520,4 *1128351,57520,51228351,57520,61329361,56510,71429361,56500,8163037 *1,56490,91931381,55470,82331401,55440,54060,53040,52030,50020,4801 *0,44000,9000,8002,9010,11020,23030,23050,23070,21169780,21070780,2 *0971780,10872792,10773790,773800,1367800,1070800,971800,872800,773 *803,674803,649552,748550,847550,946551,70640,1243551,72620,5561730 *,5560742,5561730,5562720,5564700,12000,9000,8000,7000,6002,2156882 *0,21267820,21165820,21064810,20962790,20960780,20958760,20857740,2 *0855730,20853710,69520,67500,66480,64460,62450,60430,59410,57400,5 *5380,54360,52340,50330,48310,47290,45270,43260,42240,40220,38210,1 *93676820,173576820,153376820,143175820,123075820,102875820,9267482 *0,72473820,52372820,32269820,82020,82003,82690,82720,82730,82740,8 *2753,82763,22950640,13047680,22945700,52643720,62342730,72041750,7 *1840561,76630,71639531,77660,71539521,78680,61438511,78690,5133850 *1,79700,41238501,79710,41137501,79720,31037491,80730,30937491,8073 *0,20937491,80740,20836491,80740,10836491,80740,10736491,80742,7364 *91,80740,736481,80740,636481,80742,636481,80730,736481,79730,73648 *1,79720,735471,79720,835471,78710,10835471,78710,10835471,77700/ C 367 - 547 : 181 DATA IC/10934461,76690,21034461,75680,21133451,75670,31231451,7566 *0,31429441,75630,41626441,76610,54357770,64255790,84155790,9395578 *0,37110,35140,31170,45370,22233480,22231500,22229520,42028530,5162 *7540,51426411,55450,41226391,56480,41125381,56490,31025371,57500,2 *0924361,57510,10824361,57510,10824361,57520,724361,57520,724351,57 *520,723351,57522,723351,56510,723351,56500,822341,55490,922341,554 *80,11021331,54470,11220331,54450,23243540,33139550,53038550,629385 *50,82738550,24110,1338441,80670,1038441,80700,938441,80710,838441, *80720,738441,80733,638441,80743,44385,44386,638441,80743,738441,80 *733,838441,80720,938441,80710,1038441,80700,1338441,80670,80007,13 *67800,1070800,971800,872800,773803,674803,1339451,80740,1039451,80 *740,939451,80740,839451,80740,739451,80743,639451,80743,394574803, *384574800,374574800,364574800,354673800,334673800,294772800,154871 *800,85069800,45267790,33940551,79640,23840790,13641780,3342770,264 *4750,1145740,947720,850690,854650,9000,10010,12020,21030,24040,240 *70,24100,1227460,935460,839490,743510,645520,647540,55480,56502,41 *4550570,394850570,57380,57372,56370,55380,53390,49410,674805,67480 *5,651570,750570,10750560,10849560,20948551,80740,21047551,80740,31 *245541,80730,41443531,80720,61641511,80710,72037501,80680,80006,12 *000,9000,8000,7000,6002,667800,670800,671800,672800,673803,674803/ C 548 - 726 : 179 DATA ID/6006,7002,8002,10000,11000,13000,16000,23000,30004,12000,9 *000,8000,7000,6002,80743,80733,80720,80710,80700,80670,80230,80180 *,80150,80130,80110,80090,80080,72467800,62070800,51771800,41572800 *,31373800,21273800,21173800,11074800,10974802,8003,7003,6007,7002, *8010,10974800,20974800,21074800,31173800,31273800,41373800,5147280 *0,61671800,71970800,92367800,80110,80130,80160,80210,80670,80700,8 *0710,80720,80733,80743,57512,57500,57490,57480,57450,57130,57090,5 *7070,57050,57040,57020,17010,13010,11000,10000,9000,8000,7003,7012 *,8020,20951570,31051570,41150570,61349570,81648570,82045570,57026, *14020,11020,10020,9020,8022,639451,80746,639451,80746,639451,80747 *,738461,80732,837471,80720,936481,80710,1035501,80690,11233521,796 *70,11431411,435564790,21827411,79440,24044780,33945770,53846750,63 *748740,73649720,93451690,123254650,29160,80742,80730,80720,80710,8 *0680,80003,80030,80060,80090,92037500,61641510,41443530,31245540,2 *1047550,20948550,10849560,10750560,750570,651570,21169780,21070780 *,20971780,10872792,10773790,674806,773800,10773790,10872790,108727 *80,20971780,21070770,31169770,41268760,51367750,61466740,71664740, *91862740,102060750,112356760,132653780,162651790,192651790,2126517 *90,651572,650570,10750570,10749570,10839441,56470,20937560,3113655 *0,41335550,51535540,61635520,81736510,111737490,131639450,1338441/ C 727 - 900 : 174 DATA IE/80740,1038441,80740,938441,80740,838441,80740,738441,80743 *,638441,80743,374574802,354774800,325074800,265674800,216174803,80 *743,80732,80720,80700,80680,80650,80590,80544,649553,749552,849550 *,1249550,62000,69000,72000,75000,77000,78000,1249551,79680,949551, *79710,849551,80730,749551,80740,749551,80750,649551,80762,649551,6 *77176800,647375800,79630,79620,78620,77630,75640,73650,71670,21169 *780,21070780,20971780,10872792,10773790,773800,674804,774800,10774 *800,10830361,80730,10830361,79730,20930361,79720,21030361,78720,31 *129361,78710,41229361,77700,51328361,76690,61527361,76680,71825361 *,75660,93664760,103662760,93658770,63653780,33651790,23651792,3625 *0,36260,36270,36280,36293,36303,17120,82031360,62226400,42325430,3 *4456660,31217451,70520,21019361,72390,20920331,74420,10821321,7642 *0,10821321,77430,10722321,435666780,722321,435270790,722321,425072 *800,623321,424874800,623311,414775810,623311,414676810,623311,4046 *76820,623311,404577825,623311,404676820,623311,414676810,623311,41 *4775810,722311,424874800,722311,425072800,10722311,435270790,10821 *311,445666780,10821311,77450,20920311,76460,21019311,75480,3121731 *1,75500,43052750,53056760,62969780,72872790,92773800,112564671,807 *30,142361701,80730,80600,79602,78600,76610,73620,69640,19120,22090 *,23070,24050,24040,24030,24020,10911230,10813220,715191,80740/ C 901 - 1084 : 184 DATA IF/674802,673800,773802,10872800,11071800,21270800,21567800,8 *0030,80040,80050,80070,80080,80110,80160,80670,80700,80710,80720,8 *0733,80743,13080,15050,16030,17020,17012,1674800,1574800,609121,80 *730,10772800,10871801,95890,21168801,97870,38086980,48085990,68085 *990,88086980,108087970,148089950,1330381,80670,1031391,80700,93340 *1,80710,834411,80720,735421,80730,736431,80730,737451,80730,638461 *,80740,640471,80740,641481,80740,49420,51420,52410,53390,54370,553 *50,56330,58310,294751590,274553601,80740,625431,546174800,623411,5 *56274800,621391,566374800,719371,576573800,717351,586673800,915331 *,606871800,3161800,2962800,2763800,2564800,2366800,2167800,1968800 *,1769800,1570800,1370800,1270800,1072800,973800,873800,774802,6748 *00,6002,1221290,923300,824320,726330,627350,627361,55490,273849550 *,263949550,254149550,224248550,619441,55470,617341,55360,614311,55 *380,712281,55400,2641550,2443550,2244550,2045550,1846550,1647550,1 *448550,1248550,1049550,949550,749552,649550,6000,1367800,1066800,9 *63800,859800,756800,753800,749770,646740,643710,639670,64360,61330 *,58290,54260,51230,48190,44160,41130,38100,34060,31030,28000,24000 *,21000,18000,17020,20050,24080,27120,31150,34190,38220,41260,45290 *,48330,636520,640550,643580,747620,750660,754690,857720,960760,106 *4790,1366800,80007,1367800,1070800,971800,872800,773803,674803/ C 1085 - 1264 : 180 DATA IG/1237490,941500,844520,746530,647540,648550,55490,56502,575 *00,649570,648570,747570,846570,944560,1240560,55000,53000,52000,50 *000,48000,47000,1237490,941500,844520,746530,647540,648550,55490,5 *6502,57500,649570,648570,747570,846570,944560,1240560,55000,53000, *52000,50000,48000,44000,12000,9000,8000,7000,6002,1313451,80740,10 *39451,80740,939451,80740,839451,80740,739451,80743,639451,80743,39 *4574804,394673802,394772800,394871800,395069800,405267790,40556479 *0,79400,78410,77420,75440,74450,72470,69500,65540,1232451,75620,93 *1411,76660,829391,78680,728371,79700,627351,80720,627341,80730,263 *374810,263275810,253275820,253176820,142481900,142882900,143083900 *,133284910,132023331,91840,131926341,91850,121927341,92850,1218273 *51,92862,121826351,92860,121825341,92860,121823341,92860,121820331 *,92860,123285920,133185910,123084910,92884910,72683900,52482900,42 *381900,32480890,21516251,88790,11316261,88780,1117281,87760,918301 *,86740,819321,85720,720361,84680,721391,83650,823451,81590,1092480 *0,21126780,31628760,41730740,71832720,101835690,66380,60440,253176 *820,253275820,263275810,263374810,627341,80730,627351,80720,728371 *,79700,829391,78680,931411,76660,1232451,75620,80006,1268800,97180 *0,872800,773800,674802,80745,80732,80720,80710,80700,80680,80660,8 *0630,80600,80570,80540,80510,80480,80450,80420,396770800/ C 1265 - 1437 : 173 DATA IH/366272800,335973800,305673800,275374800,245074800,21477480 *0,184474800,154174800,123874800,35090,32060,29030,26000,23000,2000 *0,18000,17000,18040,21070,24100,28130,31160,34200,233774800,264074 *800,294374800,324674800,354974800,385273800,415673800,445972800,47 *6369800,80500,80530,80570,80600,80630,80660,80680,80700,80710,8072 *0,80732,80745,55493,55482,55460,55450,55420,55400,55370,55340,5531 *0,55270,55240,55210,184247550,153948550,123649550,93349550,6304955 *0,32749550,23000,20000,17000,14010,17040,19070,22100,122549550,152 *849550,183149550,213448550,243648550,273947550,294345550,55320,553 *50,55380,55410,55440,55460,55470,55480,55493,80744,80732,80720,807 *10,80700,80680,80670,80640,80600,80570,80530,80490,80450,80410,803 *70,336470800,306072800,265673800,225273800,184874800,144474800,104 *074800,73774800,33374800,2974800,25000,21000,20000,20020,24060,281 *00,32140,36180,40220,44260,48300,52340,56380,60420,64460,68500,725 *40,76580,80600,80570,80540,80500,76460,73420,69390,65350,61310,582 *80,54240,50200,47170,43130,39090,36050,32010,28000,24000,21000, * 21030,24070,112874800,153274800,193674800,234074800,274474800,3 *14874800,355273800,385673800,426071800,466569800,80500,80540,80580 *,80620,80660,80680,80700,80720,80732,80745,55492,55482,55470/ C 1438 - 1616 : 179 DATA II/55460,55440,55410,55380,55350,55320,55280,55250,55220,1841 *45550,153847550,123548550,93249550,52849550,22549550,2249550,19000 *,16000,15000,19020,23060,27110,32150,36190,40240,44280,49320,53360 *,55350,55320,55290,51250,48220,45180,41150,37110,34080,30040,27000 *,23000,20000,15000,16020,19060,92349550,122649550,163048550,193348 *550,223647550,254045550,55290,55320,55360,55390,55410,55440,55460, *55470,55482,55492,80740,674800,673800,773802,772800,872800,971800, *1070800,1169800,1367800,1465800,1664800,1862800,1960800,2158800,23 *57800,1013251,80550,816261,80530,719281,80510,721301,506771800,722 *311,486573800,624331,466373800,626351,456174800,283743591,80740,29 *3941581,80740,56310,54330,53340,51340,50330,50310,51290,52270,5426 *0,624411,56470,622391,485774800,621381,505974800,619361,526173800, *717341,546273800,815321,556472800,1012311,576870800,2959800,276080 *0,2562800,2464800,2266800,2067800,1968800,1769800,1570800,1471800, *1272800,1172800,1073800,973800,873800,774802,6002,649552,648550,74 *7550,746550,845550,944550,1143550,1242550,1340550,1539550,1637550, *1836550,1934550,911211,55330,714221,55310,615241,304348550,617251, *284249550,618401,55490,203949550,37210,36230,34210,34200,618360,61 *7371,55490,715281,303949550,714271,324049550,812251,334348550,2435 *550,2236550,2138550,1939550,1841550,1642550,1543550,1345550/ C 1617 - 1803 : 187 DATA IJ/1246550,1147550,948550,848550,749550,649552,80743,80733,80 *720,80710,80700,80680,80660,80640,80620,659800,657800,655800,75380 *0,750800,748800,846661,80720,844631,80730,941611,80730,1039591,807 *40,1337571,80740,5474800,5274800,50000,48000,45000,43002,1335450,1 *037470,939490,842511,80740,844541,80740,746561,80740,748581,80740, *751601,80730,653631,80720,655661,80690,657800,80590,80620,80640,80 *660,80670,80690,80700,80710,80720,80732,80744,80742,81673800,51872 *800,31971800,21969800,21966800,11963800,11860800,609161,80570,6548 *00,651800,748800,10844800,10941651,80700,31138601,80720,41435571,8 *0730,51732541,80740,72028511,80740,104874800,134574800,41160,38190 *,37220,38250,41280,44310,354774800,385074800,415474800,445773800,4 *76073800,506372800,536770800,80560,80590,80620,80650,80680,80710,8 *0720,80730,80743,8000,1054800,1154800,1354800,1559800,1765800,1968 *800,2170800,2372800,2573800,2773800,610281,80740,612301,80740,6143 *21,80740,616341,80740,618361,80740,620381,80740,622401,80740,62342 *1,80740,625441,80740,627461,80740,629471,80740,631491,80740,633511 *,80740,635531,80740,637551,80740,639571,80740,641591,80740,643611, *80740,644631,80740,646651,80740,648661,80740,650681,80740,652701,8 *0740,754800,756800,858800,860800,1062800,1164800,1365800,1667800,2 *369800,2971800,2973800,2975800,733550,933550,1133550,1337550/ C 1804 - 1982 : 179 DATA IK/1544550,1746550,1947550,2148550,2349550,2549550,608271,554 *90,610291,55490,612311,55490,614331,55490,616351,55490,618371,5549 *0,620391,55490,622411,55490,624431,55490,626451,55490,628471,55490 *,630550,632550,734550,836550,938550,1140550,1842550,2244550,224655 *0,2248550,47330,53270,58220,61190,64160,66140,68120,70100,71090,83 *248720,72654730,62258740,52060750,41763760,31565770,21466780,21268 *780,11169790,11070790,971800,872802,773805,872802,971800,11070790, *11169790,21268780,21466780,31565770,41763760,52060750,62258740,726 *54730,83248720,71090,70100,68120,66140,64160,61190,58220,53270,473 *30,71650,765710,764720,864722,964720,963730,1062730,1260740,74000, *75000,76000,77000,80000,80003,12000,10000,9002,8002,7002,1052590,1 *449630,1747650,1946690,2145710,2244730,2444740,2544611,75630,12152 *61,446166760,1217271,456068770,1219281,465969780,1220291,475770790 *,1221301,505571790,1222301,80720,1223311,80720,1224321,80720,12243 *31,80720,1225341,80722,1226351,80720,1226361,80720,1227371,80710,1 *227381,80710,1228391,79700,1229401,79690,1229411,79680,1230431,786 *70,1231441,78650,1231471,78620,1332511,77570,1333760,1534750,18357 *40,2336730,2337720,2339700,2342680,64470,23140,26110,92758630,8275 *6670,62854700,52853720,42853730,32753740,31114261,75530,21015241,7 *6530,10955661,77690,10857651,78700,871780,872780,839451,79720/ C 1983 - 2162 : 180 DATA IL/739451,79720,639451,79730,639451,80735,739451,80730,738451 *,80730,838451,80720,938461,80720,11037461,80710,11136471,80700,112 *35481,80690,11334501,79680,21433511,79660,21730541,78640,32026780, *34042770,43943760,53944750,63845740,73746730,83547710,103449700,12 *3252660,29150,32220,34220,35220,37220,38220,40220,42220,43220,2230 *33450,223035460,223036480,223038490,2230405 1,223041530,223043540, *223044560,223046570,722301,59470,722301,60490, 822301,62500,8 *22301,64520,922301,65540,922301,67550,1022301,68570,1222301,70580, *72000,73000,75000,76000,78000,80003,1222300,1022300,922302,822302, *722302,25160,29130,30110,31090,83241800,73241800,53241800,43141800 *,41316311,80420,31218291,435268800,21120271,455368800,21046531,806 *80,10947541,80680,10948551,80680,10848551,80680,848551,80680,84956 *1,80684,949561,80682,1048561,80682,1147561,80680,11246561,80680,11 *345561,80680,21444551,80680,21542551,80680,31740541,80680,32037541 *,80680,42431531,80680,55268800,65168800,75068800,84968800,47090,45 *110,43130,41160,37220,49270,55220,58190,61160,64140,66120,68100,70 *090,71080,62630461,72540,52035471,74590,41738481,75620,31539491,76 *640,31341501,76660,21242511,77670,11143521,78680,11044521,78690,94 *5531,79700,946531,79710,846541,79720,846541,80720,846551,80720,747 *551,80733,846551,80730,946551,80720,945551,80720,11045551,80720/ C 2163 - 2338 : 176 DATA IM/11144541,80710,21343541,79700,21442531,616769790,31640531, *79590,41938521,78570,52235511,78570,62730501,76570,74957750,948577 *40,104658720,124460690,42140,39160,34190,80585,80630,80670,80680,8 *0695,71769800,32369800,12869800,3169800,3569800,3869800,4169800,44 *69800,14769800,25069800,41823531,80690,335569800,385769800,4360698 *00,476369800,516569800,546769800,80570,80590,80620,80640,80660,806 *80,80700,80720,27170,31140,113353640,93549680,83647700,73746720,53 *845730,43944740,33943750,31728401,76420,21430541,77610,21331511,77 *650,11133491,78670,11034481,78680,10935471,79690,935461,79700,8364 *61,79710,836451,80710,837451,80720,737451,80726,837451,80720,83645 *1,80710,836461,79710,935461,79700,10935471,79690,11034481,78680,11 *133491,78670,21331511,77650,21430541,77610,31728401,76420,33943750 *,43944740,53845730,73746720,83647700,93549680,113353640,31140,2717 *0,61460,64410,66380,112036680,82234700,62332710,52331730,42330501, *74530,32329451,75580,22328421,76610,12127401,77640,11113191,273866 *780,11026371,78670,926361,79690,825351,79700,825351,80710,825341,8 *0710,725341,80720,725331,80733,825341,80720,826341,80720,10826341, *80720,10927341,80710,11027351,80710,21128361,79700,21228371,79690, *31329381,78680,41430391,77670,41631411,77650,51832421,76630,621334 *51,75600,82634501,74540,72090,71100,70120,68140,66160,64190,61220/ C 2339 - 2509 : 171 DATA IN/58250,53310,48326,48327,70105,70105,48327,48326,48329,4832 *9,48329,48329,98005,98005,253545559,253545559,253545559,253545559, *12000,15000,18000,21000,24000,27020,30050,33080,36110,39140,42170, *45200,48230,51260,54290,57320,60350,63380,66410,69440,72470,75500, *78530,80560,80590,80620,80650,80680,1266740,1563770,1862780,216168 *1,79720,2460661,80740,22760651,80750,53060651,80750,83360661,80740 *,113661681,79720,143962780,174263770,204566740,48230,51260,54290,5 *7320,61435600,31738630,21841660,10812191,69440,614201,72470,515201 *,75500,515201,78530,614201,80560,10812191,80590,21862800,31765800, *61468800,74660,77630,78620,616872790,606674800,606575802,606674800 *,616872790,78620,77630,74660,182248510,182248520,182248540,1822275 *70,182225610,182224610,182224291,52480,182224281,52480,182224291,5 *2480,182226351,52480,182228351,52480,22182,182224271,64610,1822242 *81,64600,182224301,64580,182224643,182224301,49440,182224281,50460 *,182224271,51480,182248520,182249532,182224271,53480,182224281,534 *70,182224301,52450,182224510,182224500,182224470,182224300,1822242 *80,182224270,41390,42380,44360,45350,47330,48320,50300,51290,53270 *,54260,243941560,233842570,213644590,203545600,183347620,173248630 *,153050650,142951660,122753680,112654690,92456710,82357720,6215974 *0,52060750,31862770,21763780,1565800,1466800,1268800,1169800/ C 2510 - 2677 : 168 DATA IO/971800,971800,1169800,1268800,1466800,1565800,21763780,318 *62770,52060750,62159740,82357720,92456710,112654690,122753680,1429 *51660,153050650,173248630,183347620,203545600,213644590,233842570, *243941560,54260,53270,51290,50300,48320,47330,45350,44360,42380,41 *390,49310,54260,58220,61190,64160,67130,69110,93248710,82456720,61 *961740,51664750,41367760,31070770,10773790,10476790,278800,179800, *179800,278800,10476790,10773790,31070770,41367760,51664750,6196174 *0,82456720,93248710,69110,67130,64160,61190,58220,54260,49310,2129 *51590,183248620,173347630,163446640,153446650,153545650,153644652, *163743640,173842630,183842620,203941600,213941590,57230,56240,5525 *0,61527531,74650,32128521,77590,78020,13842790,3644800,3545802,364 *4800,13842790,78020,32128521,77590,61527531,74650,55250,56240,5723 *0,213941590,203941600,183842620,173842630,163743640,153644650,1535 *45650,153446650,163446640,173347630,183248620,212951590,66560,6954 *0,72520,73510,75510,76510,77520,78520,546468780,576069790,79710,79 *720,80720,80730,41173800,21323291,80730,11421341,80730,1520381,807 *30,1521401,80730,1524421,80720,11429441,80720,21332451,80710,41134 *471,80700,354968800,365166800,375562790,79380,78400,77410,76420,75 *440,74450,72470,70490,67520,26180,30130,33110,35090,37070,39060,40 *050,41040,42030,21730430,21533450,11434461,68520,11336720/ C 2678 - 2840 : 163 DATA IP/11237740,1138760,1036770,1033581,78660,1031541,79690,92953 *1,79700,927541,80710,925551,80720,923441,465672800,10922421,475871 *800,11020401,486069790,11018381,496366790,21116351,78510,21215331, *77520,33154750,32956730,42860700,26050,62439470,62239470,52339470, *42538470,32738470,23037470,47020,11518470,11421470,1324470,1227470 *,1230470,1133470,1135470,1137470,1238470,11339470,21839470,3253947 *0,52539470,25080,25130,114057720,114053750,114051780,133650800,143 *149810,152948830,152747840,152546641,85730,142346621,85750,1422456 *01,86770,132145591,86780,132045591,87790,121944591,87790,111944591 *,87800,96004,91743581,88810,81643571,88810,81643571,88800,81643571 *,87800,96004,81741551,85760,91841551,84750,91940541,83740,10203954 *1,83720,112238531,83700,122436531,83680,132734521,84650,145161850, *155061860,164861850,184761840,44200,42220,37260,326341,54460,82634 *1,54460,1326341,54460,1926341,54460,2426341,54460,3446540,33546540 *,84046540,54130,54190,56240,61260,67260,263440720,263445770,326341 *,80460,826341,465456800,1326341,465461800,1926341,465467800,242634 *1,465472800,3446541,80770,33546540,84046540,54130,54190,56240,6126 *0,67260,263440720,263445770,263446800,263446541,80560,263446541,80 *610,263446541,80670,263446541,80720,263446541,80770,41166760,21349 *780,11432790,1521800,1520800,1521800,11432790,21349780/ C 2841 - 3000 : 160 DATA IQ/41166760,21140,23120,411240,609250,25000,25010,24030,23040 *,21070,11040,13020,14010,15003,14010,13020,11040,142136430,1223344 *50,411241,46330,609251,47320,2532470,12532470,32433460,42334450,72 *136430,142136430,122334450,112433460,102532473,112433460,122334450 *,142136430,76670,78510,79420,80410,80400,80410,79420,78510,76670,7 *7680,79510,80410,80400,80410,79510,77680,4,77680,79510,80410,80400 *,80410,79510,77680,48310,52270,55240,57220,59200,61180,30717620,31 *216311,63480,32752640,32554650,72756660,123258670,123759670,121922 *421,67600,111827471,68610,111832521,68610,111737571,68620,11174268 *0,111747680,111752720,121857760,121860760,121950551,76580,13204867 *1,76720,142247660,152446660,162646650,172746630,192847620,22284860 *0,242750560,47330,53270,56240,60200,173149630,152654650,132357670, *112036441,69600,101830501,70620,91626541,71640,71424561,73660,6132 *1331,475967740,51219291,516168750,41118271,536269760,31017251,5563 *70770,30916231,576471770,20815221,586572780,20814211,596672780,107 *14201,606673790,10713191,616773792,612181,626874806,10713191,61677 *3792,10714201,606673790,20814211,596672780,20815221,586572780,3091 *6231,576471770,31017661,77700,40915661,76690,50713661,75680,136567 *740,121966730,121864710,121962700,132060690,132357670,152654650,17 *3149630,60200,56240,53270,47330/ END