INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER COL,I,MAXL,MINL,NCOLS,NTOTAL,NSPARE,BANNE0(78),LMAX(89),LM *IN(89) INTEGER INDEX EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DATA LMAX/80,57,80,73,80,57,80,57,80,74,80,57,80,57,80,80,80,57,80 *,80,80,80,80,55,80,80,80,57,80,80,80,57,80,74,80,80,80,57,80,57,80 *,57,80,55,80,55,80,55,80,55,80,55,80,80,80,80,80,80,80,80,80,80,70 *,48,80,55,80,80,80,64,80,80,80,80,80,80,80,88,80,80,15,15,47,47,80 *,80,76,80,1/ DATA LMIN/1,1,1,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,-1,1,1,1, *1,1,1,1,-24,1,-24,1,1,1,1,1,-24,-11,-24,1,1,1,1,1,1,1,-24,1,1,1,1, *1,1,1,1,1,1,1,1,11,33,1,26,1,1,61,19,1,1,1,1,1,1,1,-7,1,1,-9,1,1,1 *1,41,41,4,1,1/ CALL DOARGS(FOREG0,BACKG0,BANNE0) MAXL=-100 MINL=100 NTOTAL=0 COL=1 GOTO 10002 10000 COL=COL+(1) 10002 IF((BANNE0(COL).EQ.0))GOTO 10001 I=INDEX(SYMA,BANNE0(COL)) IF((I.NE.0))GOTO 10003 I=89 10003 IF((LMAX(I).LE.MAXL))GOTO 10004 MAXL=LMAX(I) 10004 IF((LMIN(I).GE.MINL))GOTO 10005 MINL=LMIN(I) 10005 NTOTAL=NTOTAL+(SYMN(I)/10000+4) BANNE0(COL)=I GOTO 10000 10001 NCOLS=MAXL-MINL+1 MOVE=(132-NCOLS)/2-MINL NSPARE=(INT(FLOAT(NTOTAL)/66.+1.5)*66-NTOTAL-6)/2 CALL BAXX(NSPARE,2) I=1 GOTO 10008 10006 I=I+(1) 10008 IF((I.GE.COL))GOTO 10007 CALL PRNT(BANNE0(I)) GOTO 10006 10007 CALL BAXX(NSPARE+50,2) CALL SWT END SUBROUTINE PRNT(I) INTEGER I INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER J,K,JOUT,NA,NB,NC,ND,NE,NF,NG,NH,NCHK,NSI,NTEMP INTEGER NSHIFT(89) INTEGER * 4 NCH INTEGER AAAAA0 INTEGER AAAAB0 INTEGER AAAAC0 EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DATA NSHIFT/0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0, *0,0,0,0,25,0,25,0,0,0,0,0,25,12,25,0,0,0,0,0,0,0,25,0,0,0,0,0,0,0, *0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,10,0,0,0,0,0,0,0,0/ CALL BAXX(2,2) IF((I.NE.89))GOTO 10009 CALL BAXX(50,2) RETURN 10009 AAAAA0=I GOTO 10010 10011 CALL LEGL(25,0) GOTO 10012 10013 CALL LEGL(25,25) GOTO 10012 10014 CALL LEGL(0,0) GOTO 10012 10015 CALL OHAV(1) GOTO 10012 10016 CALL LEGU(7) GOTO 10012 10017 CALL LEGU(4) GOTO 10012 10018 CALL OHAF(1) GOTO 10012 10010 GOTO(10016,10019,10019,10019,10019,10019,10018,10015,10016,10019,1 *0017,10014,10019,10019,10016,10011,10016,10014,10016,10015,10016,1 *0011,10019,10019,10016,10019,10018,10015,10016,10019,10018,10019,1 *0019,10019,10016,10011,10017,10014,10016,10013,10018,10015),AAAAA0 10019 CONTINUE 10012 IF((I.EQ.8))GOTO 10020 IF((I.EQ.12))GOTO 10020 IF((I.EQ.16))GOTO 10020 J=MOD(SYMN(I),10000)-1 JOUT=MOD(SYMN(I+1),10000) NSI=NSHIFT(I) 10021 NE=0 NG=0 CALL BAXX(1,1) J=J+(1) IF((J.LT.JOUT))GOTO 10022 GOTO 10023 10022 NCH=NCHAR(J) NA=NCH/10000000 NB=MOD(NCH/100000,100) NC=MOD(NCH/1000,100) ND=MOD(NCH/10,100) NCHK=MOD(NCH,10) IF((NA.GT.NB))GOTO 10025 IF((NB.GT.NC))GOTO 10025 IF((NC.GT.ND))GOTO 10025 GOTO 10024 10025 NTEMP=NA NA=ND ND=NTEMP NTEMP=NB NB=NC NC=NTEMP 10024 IF((NCHK.NE.1))GOTO 10026 J=J+(1) NCH=NCHAR(J) NE=NCH/10000000 NF=MOD(NCH/100000,100) NG=MOD(NCH/1000,100) NH=MOD(NCH/10,100) NCHK=MOD(NCH,10) IF((NE.GT.NF))GOTO 10028 IF((NF.GT.NG))GOTO 10028 IF((NG.GT.NH))GOTO 10028 GOTO 10027 10028 NTEMP=NE NE=NH NH=NTEMP NTEMP=NF NF=NG NG=NTEMP 10027 CONTINUE 10026 IF((NCHK.NE.0))GOTO 10029 NCHK=1 10029 IF((NA.NE.0))GOTO 10030 IF((NB.NE.0))GOTO 10030 CALL BAXX(NCHK,2) GOTO 10031 10030 CALL FRNT(NA-NSI,NB-NSI) IF((NC.EQ.0))GOTO 10032 CALL FRNT(NC-NSI,ND-NSI) IF((NE.EQ.0))GOTO 10033 CALL FRNT(NE-NSI,NF-NSI) IF((NG.EQ.0))GOTO 10034 CALL FRNT(NG-NSI,NH-NSI) 10034 CONTINUE 10033 CONTINUE 10032 DO 10035 K=1,NCHK CALL OUTPUT(LINE) 10035 CONTINUE 10036 CONTINUE 10031 GOTO 10021 10023 CONTINUE 10020 AAAAB0=I GOTO 10037 10038 CALL OHAV(-1) GOTO 10039 10040 CALL ACHN GOTO 10039 10041 CALL OHAF(-1) GOTO 10039 10037 AAAAC0=AAAAB0-6 GOTO(10041,10038,10042,10042,10042,10040,10042,10042,10042,10040,1 *0042,10042,10041,10042,10042,10042,10042,10042,10042,10038,10042,1 *0042,10042,10042,10042,10042,10042,10042,10042,10042,10042,10042,1 *0042,10038),AAAAC0 10042 CONTINUE 10039 CALL BAXX(2,2) RETURN END SUBROUTINE ACHN INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER K,NA,NB,NC,ND INTEGER * 4 KLINE(30),KLK EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) 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,8000 *0,70000,60000,60000/ DO 10043 K=1,30 CALL BAXX(1,1) KLK=KLINE(K) NA=KLK/1000000 NB=MOD(KLK/10000,100) NC=MOD(KLK/100,100) ND=MOD(KLK,100) CALL FRNT(NA,NB) IF((NC.EQ.0))GOTO 10045 CALL FRNT(NC,ND) 10045 CALL OUTPUT(LINE) 10043 CONTINUE 10044 RETURN END SUBROUTINE OHAF(KSTEP) INTEGER KSTEP INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I,K,N,NA,NB,NC,ND INTEGER * 4 KLINE(30),KLK EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DATA KLINE/32480000,26540000,23570000,20600000,18620000,16640000,1 *4660000,12680000,11334769,9275371,8245672,7206073,6186274,5166475, *4146676,4136776,3126877,2116978,2107078,2097178,1087279,1087279,10 *77379,77380,67480,67480,67480,67480,67480,67480/ IF((KSTEP.NE.1))GOTO 10046 K=0 N=17 GOTO 10047 10046 K=31 N=30 10047 DO 10048 I=1,N CALL BAXX(1,1) K=K+(KSTEP) KLK=KLINE(K) NA=KLK/1000000 NB=MOD(KLK/10000,100) NC=MOD(KLK/100,100) ND=MOD(KLK,100) CALL FRNT(NA,NB) IF((NC.EQ.0))GOTO 10050 CALL FRNT(NC,ND) 10050 CALL OUTPUT(LINE) 10048 CONTINUE 10049 RETURN END SUBROUTINE LEGL(N,NX) INTEGER N,NX INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I,K INTEGER KS(16) EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) 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) CALL OUTPUT(LINE) CALL OUTPUT(LINE) DO 10051 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) CALL OUTPUT(LINE) 10051 CONTINUE 10052 CALL FRNT(12-NX,43+N-NX) DO 10053 K=1,6 CALL OUTPUT(LINE) 10053 CONTINUE 10054 RETURN END SUBROUTINE OHAV(KSTEP) INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I,K,NA,NB,NC,ND INTEGER * 4 KLINE(17),KLK EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DATA KLINE/20370000,16410000,13440000,11460000,9480000,7500000,651 *0000,5203752,4164153,3144354,2124555,1104756,1094856,1084956,75057 *,75057,65157/ IF((KSTEP.NE.1))GOTO 10055 K=0 GOTO 10056 10055 K=18 10056 DO 10057 I=1,17 CALL BAXX(1,1) K=K+(KSTEP) KLK=KLINE(K) NA=KLK/1000000 NB=MOD(KLK/10000,100) NC=MOD(KLK/100,100) ND=MOD(KLK,100) CALL FRNT(NA,NB) IF((NC.EQ.0))GOTO 10059 CALL FRNT(NC,ND) 10059 CALL OUTPUT(LINE) 10057 CONTINUE 10058 RETURN END SUBROUTINE LEGU(N) INTEGER N INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I,K INTEGER KS(16) EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) 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 10060 I=1,3 CALL OUTPUT(LINE) 10060 CONTINUE 10061 CALL FRNT(6,7) CALL FRNT(73,74) DO 10062 I=1,3 CALL OUTPUT(LINE) 10062 CONTINUE 10063 DO 10064 I=1,4 K=4*(I-1)+1 CALL FRNT(KS(K),KS(K+1)) CALL FRNT(KS(K+2),KS(K+3)) CALL OUTPUT(LINE) 10064 CONTINUE 10065 CALL FRNT(13,67) DO 10066 I=1,N CALL OUTPUT(LINE) 10066 CONTINUE 10067 RETURN END SUBROUTINE BAXX(N,J) INTEGER N,J INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DO 10068 I=1,132 LINE(I)=BACKG0 10068 CONTINUE 10069 IF((J.NE.1))GOTO 10070 RETURN 10070 DO 10071 I=1,N CALL OUTPUT(LINE) 10071 CONTINUE 10072 RETURN END SUBROUTINE FRNT(NA,NB) INTEGER NA,NB INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) INTEGER I,J,K EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) I=NA+MOVE J=NB+MOVE-1 DO 10073 K=I,J LINE(K)=FOREG0 10073 CONTINUE 10074 RETURN END SUBROUTINE DOARGS(FOREG0,BACKG0,BANNE0) INTEGER FOREG0,BACKG0,BANNE0(78) INTEGER GETARG INTEGER I,REVER0,JUNK(2) INTEGER C,LASTA0(78) IF((GETARG(1,BANNE0,2).NE.-1))GOTO 10075 CALL ERROR('Usage: banner { - | -c } .') 10075 REVER0=0 C=255 I=1 GOTO 10078 10076 I=I+(1) 10078 IF((GETARG(I,LASTA0,78).EQ.-1))GOTO 10077 IF((LASTA0(1).NE.173))GOTO 10079 IF((LASTA0(2).NE.0))GOTO 10079 IF((GETARG(I+1,JUNK,1).EQ.-1))GOTO 10080 REVER0=1 10080 GOTO 10081 10079 IF((LASTA0(1).NE.173))GOTO 10082 IF(((LASTA0(2).NE.227).AND.(LASTA0(2).NE.195)))GOTO 10082 IF((LASTA0(3).NE.0))GOTO 10082 IF((GETARG(I+2,JUNK,1).EQ.-1))GOTO 10083 I=I+(1) IF((GETARG(I,JUNK,2).NE.1))GOTO 10084 C=JUNK(1) 10084 CONTINUE 10083 GOTO 10085 10082 IF((GETARG(I+1,JUNK,1).NE.-1))GOTO 10086 GOTO 10077 10086 CONTINUE 10085 CONTINUE 10081 GOTO 10076 10077 CALL SCOPY(LASTA0,1,BANNE0,1) IF((REVER0.NE.1))GOTO 10087 FOREG0=160 BACKG0=C GOTO 10088 10087 FOREG0=C BACKG0=160 10088 RETURN END SUBROUTINE OUTPUT(LINE) INTEGER LINE(1) INTEGER L(134),I DO 10089 I=1,132 L(I)=LINE(I) 10089 CONTINUE 10090 L(133)=138 L(134)=0 CALL PUTLIN(L,-11) RETURN END BLOCKDATA INTEGER FOREG0 INTEGER BACKG0 INTEGER LINE INTEGER MOVE INTEGER SYMA INTEGER * 4 SYMN INTEGER * 4 NCHAR COMMON /CBANER/FOREG0,BACKG0,LINE(132),MOVE,SYMA(89),SYMN(89),NCHA *R(3000) INTEGER * 4 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) EQUIVALENCE (IA(187),IB(1)),(IB(181),IC(1)),(IC(182),ID(1)),(ID(18 *0),IE(1)),(IE(175),IF(1)),(IF(185),IG(1)),(IG(181),IH(1)),(IH(174) *,II(1)),(II(180),IJ(1)),(IJ(188),IK(1)),(IK(180),IL(1)),(IL(181),I *M(1)),(IM(177),IN(1)),(IN(172),IO(1)),(IO(169),IP(1)),(IP(164),IQ( *1)),(NCHAR(1),IA(1)) DATA SYMA/197,229,212,244,193,225,207,239,201,233,206,238,211,243, *200,232,210,242,196,228,204,236,213,245,194,226,195,227,198,230,19 *9,231,202,234,203,235,205,237,208,240,209,241,214,246,215,247,216, *248,217,249,218,250,176,177,178,179,180,181,182,183,184,185,171,17 *3,252,189,175,165,222,223,188,190,168,169,170,191,166,164,163,161, *172,174,187,186,167,162,224,192,0/ DATA SYMN/490001,340024,510072,220103,660123,380185,540239,340245, *270245,180251,670268,420315,440315,290386,650430,420463,550463,300 *502,570518,390520,460542,180557,640562,420609,520641,390669,480688 *,310712,490726,300751,560783,470822,360890,180921,620941,401001,76 *1033,641085,461132,391159,541175,391227,701249,461309,941350,67143 *5,611498,441572,571623,451683,461731,311800,491842,251885,381904,4 *21963,412019,412063,432118,382184,442215,432275,362341,362347,1023 *51,362353,282357,282385,122425,342436,312480,312511,172542,172559, *442576,352621,532664,402729,362781,092833,092842,092851,092858,092 *869,092876,182885,312900,482938,503001/ DATA IA/000638441,000080745,000638441,000080745,000637451,00008074 *2,000635471,000080740,000632501,000080740,000626561,000080740,0006 *21611,000080743,000674800,000774802,000873802,001072800,001170800, *001368800,001665800,002359800,003054804,000037200,000041160,000044 *130,000046110,000048090,000050070,000051060,052026331,000052370,04 *1626331,000053410,031426331,000054430,021226331,000055450,01102633 *1,000056470,010926331,000056480,010826331,000056490,000726331,0000 *57502,000626331,000057512,000626331,000057502,010726331,000056490, *010726331,000056480,010826331,000056470,020926331,000055450,031026 *331,000054430,041126331,000053410,051226331,000052370,061426510,07 *1526500,091826480,111826460,131826440,000041260,000037260,00008053 *3,000080610,000080660,000080680,000080700,000080710,000080720,0000 *80732,000673800,000674802,000774803,000874802,000974800,001074800, *001374800,000080007,001374800,001074800,000974800,000874802,000774 *803,000674802,000673800,000080732,000080720,000080710,000080700,00 *0080680,000080660,000080610,000080533,000053490,000054490,00005549 *0,000056490,000057490,000059490,000062080,000067050,000073030,0000 *73012,000073000,001149550,000949550,000849552,010949550,011049550, *021449550,042249550,072249550,122249550,000006003,000007002,000008 *000,000009000,000011000,000013000,000015000,000017000,000020000,00 *0023000,000026000,000029000,001017320,000821350,000725390,00072742 *0,000628450,000628480,000628341,000051360,000628341,000054400,2834 *43570,283446600,283449630,283452660,283455690,283458720,283461750, *283463780,283462800,283459800,283456800,283453780,283449740,283446 *710,283443680,000628341,000065401,000628341,000062360,000628590,00 *0628550,000727520,000724490,000820460,001016420,000039000,00003600 *0,000033000,000030000,000026000,000023000,000020000,000017000,0000 *15000,000012000,000010000,000009000,000008000,000007003,000006003, *000020080,000023050/ DATA IB/042541460,032638500,022737510,012836530,012936540,00121930 *1,000055360,001021311,000056370,000922311,000056380,000823321,4044 *49570,000824331,000057500,000825331,000057510,010825341,000057510, *010926341,000057520,020927341,000057520,031027351,000057520,041128 *351,000057520,051228351,000057520,061329361,000056510,071429361,00 *0056500,081630371,000056490,091931381,000055470,082331401,00005544 *0,000054060,000053040,000052030,000050020,000048010,000044000,0000 *09000,000008002,000009010,000011020,000023030,000023050,000023070, *021169780,021070780,020971780,010872792,010773790,000773800,001367 *800,001070800,000971800,000872800,000773803,000674803,000649552,00 *0748550,000847550,000946551,000070640,001243551,000072620,00556173 *0,005560742,005561730,005562720,005564700,000012000,000009000,0000 *08000,000007000,000006002,021568820,021267820,021165820,021064810, *020962790,020960780,020958760,020857740,020855730,020853710,000069 *520,000067500,000066480,000064460,000062450,000060430,000059410,00 *0057400,000055380,000054360,000052340,000050330,000048310,00004729 *0,000045270,000043260,000042240,000040220,000038210,193676820,1735 *76820,153376820,143175820,123075820,102875820,092674820,072473820, *052372820,032269820,000082020,000082003,000082690,000082720,000082 *730,000082740,000082753,000082763,022950640,013047680,022945700,05 *2643720,062342730,072041750,071840561,000076630,071639531,00007766 *0,071539521,000078680,061438511,000078690,051338501,000079700,0412 *38501,000079710,041137501,000079720,031037491,000080730,030937491, *000080730,020937491,000080740,020836491,000080740,010836491,000080 *740,010736491,000080742,000736491,000080740,000736481,000080740,00 *0636481,000080742,000636481,000080730,000736481,000079730,00073648 *1,000079720,000735471,000079720,000835471,000078710,010835471,0000 *78710,010835471,000077700/ DATA IC/010934461,000076690,021034461,000075680,021133451,00007567 *0,031231451,000075660,031429441,000075630,041626441,000076610,0543 *57770,064255790,084155790,093955780,000037110,000035140,000031170, *000045370,022233480,022231500,022229520,042028530,051627540,051426 *411,000055450,041226391,000056480,041125381,000056490,031025371,00 *0057500,020924361,000057510,010824361,000057510,010824361,00005752 *0,000724361,000057520,000724351,000057520,000723351,000057522,0007 *23351,000056510,000723351,000056500,000822341,000055490,000922341, *000055480,011021331,000054470,011220331,000054450,023243540,033139 *550,053038550,062938550,082738550,000024110,001338441,000080670,00 *1038441,000080700,000938441,000080710,000838441,000080720,00073844 *1,000080733,000638441,000080743,000044385,000044386,000638441,0000 *80743,000738441,000080733,000838441,000080720,000938441,000080710, *001038441,000080700,001338441,000080670,000080007,001367800,001070 *800,000971800,000872800,000773803,000674803,001339451,000080740,00 *1039451,000080740,000939451,000080740,000839451,000080740,00073945 *1,000080743,000639451,000080743,394574803,384574800,374574800,3645 *74800,354673800,334673800,294772800,154871800,085069800,045267790, *033940551,000079640,023840790,013641780,003342770,002644750,001145 *740,000947720,000850690,000854650,000009000,000010010,000012020,00 *0021030,000024040,000024070,000024100,001227460,000935460,00083949 *0,000743510,000645520,000647540,000055480,000056502,414550570,3948 *50570,000057380,000057372,000056370,000055380,000053390,000049410, *000674805,000674805,000651570,000750570,010750560,010849560,020948 *551,000080740,021047551,000080740,031245541,000080730,041443531,00 *0080720,061641511,000080710,072037501,000080680,000080006,00001200 *0,000009000,000008000,000007000,000006002,000667800,000670800,0006 *71800,000672800,000673803,00674803/ DATA ID/000006006,000007002,000008002,000010000,000011000,00001300 *0,000016000,000023000,000030004,000012000,000009000,000008000,0000 *07000,000006002,000080743,000080733,000080720,000080710,000080700, *000080670,000080230,000080180,000080150,000080130,000080110,000080 *090,000080080,072467800,062070800,051771800,041572800,031373800,02 *1273800,021173800,011074800,010974802,000008003,000007003,00000600 *7,000007002,000008010,010974800,020974800,021074800,031173800,0312 *73800,041373800,051472800,061671800,071970800,092367800,000080110, *000080130,000080160,000080210,000080670,000080700,000080710,000080 *720,000080733,000080743,000057512,000057500,000057490,000057480,00 *0057450,000057130,000057090,000057070,000057050,000057040,00005702 *0,000017010,000013010,000011000,000010000,000009000,000008000,0000 *07003,000007012,000008020,020951570,031051570,041150570,061349570, *081648570,082045570,000057026,000014020,000011020,000010020,000009 *020,000008022,000639451,000080746,000639451,000080746,000639451,00 *0080747,000738461,000080732,000837471,000080720,000936481,00008071 *0,001035501,000080690,011233521,000079670,011431411,435564790,0218 *27411,000079440,024044780,033945770,053846750,063748740,073649720, *093451690,123254650,000029160,000080742,000080730,000080720,000080 *710,000080680,000080003,000080030,000080060,000080090,092037500,06 *1641510,041443530,031245540,021047550,020948550,010849560,01075056 *0,000750570,000651570,021169780,021070780,020971780,010872792,0107 *73790,000674806,000773800,010773790,010872790,010872780,020971780, *021070770,031169770,041268760,051367750,061466740,071664740,091862 *740,102060750,112356760,132653780,162651790,192651790,212651790,00 *0651572,000650570,010750570,010749570,010839441,000056470,02093756 *0,031136550,041335550,051535540,061635520,081736510,111737490,1316 *39450,001338441/ DATA IE/000080740,001038441,000080740,000938441,000080740,00083844 *1,000080740,000738441,000080743,000638441,000080743,374574802,3547 *74800,325074800,265674800,216174803,000080743,000080732,000080720, *000080700,000080680,000080650,000080590,000080544,000649553,000749 *552,000849550,001249550,000062000,000069000,000072000,000075000,00 *0077000,000078000,001249551,000079680,000949551,000079710,00084955 *1,000080730,000749551,000080740,000749551,000080750,000649551,0000 *80762,000649551,677176800,647375800,000079630,000079620,000078620, *000077630,000075640,000073650,000071670,021169780,021070780,020971 *780,010872792,010773790,000773800,000674804,000774800,010774800,01 *0830361,000080730,010830361,000079730,020930361,000079720,02103036 *1,000078720,031129361,000078710,041229361,000077700,051328361,0000 *76690,061527361,000076680,071825361,000075660,093664760,103662760, *093658770,063653780,033651790,023651792,000036250,000036260,000036 *270,000036280,000036293,000036303,000017120,082031360,062226400,04 *2325430,034456660,031217451,000070520,021019361,000072390,02092033 *1,000074420,010821321,000076420,010821321,000077430,010722321,4356 *66780,000722321,435270790,000722321,425072800,000623321,424874800, *000623311,414775810,000623311,414676810,000623311,404676820,000623 *311,404577825,000623311,404676820,000623311,414676810,000623311,41 *4775810,000722311,424874800,000722311,425072800,010722311,43527079 *0,010821311,445666780,010821311,000077450,020920311,000076460,0210 *19311,000075480,031217311,000075500,043052750,053056760,062969780, *072872790,092773800,112564671,000080730,142361701,000080730,000080 *600,000079602,000078600,000076610,000073620,000069640,000019120,00 *0022090,000023070,000024050,000024040,000024030,000024020,01091123 *0,010813220,000715191,000080740/ DATA IF/000674802,000673800,000773802,010872800,011071800,02127080 *0,021567800,000080030,000080040,000080050,000080070,000080080,0000 *80110,000080160,000080670,000080700,000080710,000080720,000080733, *000080743,000013080,000015050,000016030,000017020,000017012,001674 *800,001574800,000609121,000080730,010772800,010871801,000095890,02 *1168801,000097870,038086980,048085990,068085990,088086980,10808797 *0,148089950,001330381,000080670,001031391,000080700,000933401,0000 *80710,000834411,000080720,000735421,000080730,000736431,000080730, *000737451,000080730,000638461,000080740,000640471,000080740,000641 *481,000080740,000049420,000051420,000052410,000053390,000054370,00 *0055350,000056330,000058310,294751590,274553601,000080740,00062543 *1,546174800,000623411,556274800,000621391,566374800,000719371,5765 *73800,000717351,586673800,000915331,606871800,003161800,002962800, *002763800,002564800,002366800,002167800,001968800,001769800,001570 *800,001370800,001270800,001072800,000973800,000873800,000774802,00 *0674800,000006002,001221290,000923300,000824320,000726330,00062735 *0,000627361,000055490,273849550,263949550,254149550,224248550,0006 *19441,000055470,000617341,000055360,000614311,000055380,000712281, *000055400,002641550,002443550,002244550,002045550,001846550,001647 *550,001448550,001248550,001049550,000949550,000749552,000649550,00 *0006000,001367800,001066800,000963800,000859800,000756800,00075380 *0,000749770,000646740,000643710,000639670,000064360,000061330,0000 *58290,000054260,000051230,000048190,000044160,000041130,000038100, *000034060,000031030,000028000,000024000,000021000,000018000,000017 *020,000020050,000024080,000027120,000031150,000034190,000038220,00 *0041260,000045290,000048330,000636520,000640550,000643580,00074762 *0,000750660,000754690,000857720,000960760,001064790,001366800,0000 *80007,001367800,001070800,000971800,000872800,000773803,000674803/ DATA IG/001237490,000941500,000844520,000746530,000647540,00064855 *0,000055490,000056502,000057500,000649570,000648570,000747570,0008 *46570,000944560,001240560,000055000,000053000,000052000,000050000, *000048000,000047000,001237490,000941500,000844520,000746530,000647 *540,000648550,000055490,000056502,000057500,000649570,000648570,00 *0747570,000846570,000944560,001240560,000055000,000053000,00005200 *0,000050000,000048000,000044000,000012000,000009000,000008000,0000 *07000,000006002,001313451,000080740,001039451,000080740,000939451, *000080740,000839451,000080740,000739451,000080743,000639451,000080 *743,394574804,394673802,394772800,394871800,395069800,405267790,40 *5564790,000079400,000078410,000077420,000075440,000074450,00007247 *0,000069500,000065540,001232451,000075620,000931411,000076660,0008 *29391,000078680,000728371,000079700,000627351,000080720,000627341, *000080730,263374810,263275810,253275820,253176820,142481900,142882 *900,143083900,133284910,132023331,000091840,131926341,000091850,12 *1927341,000092850,121827351,000092862,121826351,000092860,12182534 *1,000092860,121823341,000092860,121820331,000092860,123285920,1331 *85910,123084910,092884910,072683900,052482900,042381900,032480890, *021516251,000088790,011316261,000088780,001117281,000087760,000918 *301,000086740,000819321,000085720,000720361,000084680,000721391,00 *0083650,000823451,000081590,010924800,021126780,031628760,04173074 *0,071832720,101835690,000066380,000060440,253176820,253275820,2632 *75810,263374810,000627341,000080730,000627351,000080720,000728371, *000079700,000829391,000078680,000931411,000076660,001232451,000075 *620,000080006,001268800,000971800,000872800,000773800,000674802,00 *0080745,000080732,000080720,000080710,000080700,000080680,00008066 *0,000080630,000080600,000080570,000080540,000080510,000080480,0000 *80450,000080420,396770800/ DATA IH/366272800,335973800,305673800,275374800,245074800,21477480 *0,184474800,154174800,123874800,000035090,000032060,000029030,0000 *26000,000023000,000020000,000018000,000017000,000018040,000021070, *000024100,000028130,000031160,000034200,233774800,264074800,294374 *800,324674800,354974800,385273800,415673800,445972800,476369800,00 *0080500,000080530,000080570,000080600,000080630,000080660,00008068 *0,000080700,000080710,000080720,000080732,000080745,000055493,0000 *55482,000055460,000055450,000055420,000055400,000055370,000055340, *000055310,000055270,000055240,000055210,184247550,153948550,123649 *550,093349550,063049550,032749550,000023000,000020000,000017000,00 *0014010,000017040,000019070,000022100,122549550,152849550,18314955 *0,213448550,243648550,273947550,294345550,000055320,000055350,0000 *55380,000055410,000055440,000055460,000055470,000055480,000055493, *000080744,000080732,000080720,000080710,000080700,000080680,000080 *670,000080640,000080600,000080570,000080530,000080490,000080450,00 *0080410,000080370,336470800,306072800,265673800,225273800,18487480 *0,144474800,104074800,073774800,033374800,002974800,000025000,0000 *21000,000020000,000020020,000024060,000028100,000032140,000036180, *000040220,000044260,000048300,000052340,000056380,000060420,000064 *460,000068500,000072540,000076580,000080600,000080570,000080540,00 *0080500,000076460,000073420,000069390,000065350,000061310,00005828 *0,000054240,000050200,000047170,000043130,000039090,000036050,0000 *32010,000028000,000024000,000021000,000021030,000024070,112874800, *153274800,193674800,234074800,274474800,314874800,355273800,385673 *800,426071800,466569800,000080500,000080540,000080580,000080620,00 *0080660,000080680,000080700,000080720,000080732,000080745,00005549 *2,000055482,000055470/ DATA II/000055460,000055440,000055410,000055380,000055350,00005532 *0,000055280,000055250,000055220,184145550,153847550,123548550,0932 *49550,052849550,022549550,002249550,000019000,000016000,000015000, *000019020,000023060,000027110,000032150,000036190,000040240,000044 *280,000049320,000053360,000055350,000055320,000055290,000051250,00 *0048220,000045180,000041150,000037110,000034080,000030040,00002700 *0,000023000,000020000,000015000,000016020,000019060,092349550,1226 *49550,163048550,193348550,223647550,254045550,000055290,000055320, *000055360,000055390,000055410,000055440,000055460,000055470,000055 *482,000055492,000080740,000674800,000673800,000773802,000772800,00 *0872800,000971800,001070800,001169800,001367800,001465800,00166480 *0,001862800,001960800,002158800,002357800,001013251,000080550,0008 *16261,000080530,000719281,000080510,000721301,506771800,000722311, *486573800,000624331,466373800,000626351,456174800,283743591,000080 *740,293941581,000080740,000056310,000054330,000053340,000051340,00 *0050330,000050310,000051290,000052270,000054260,000624411,00005647 *0,000622391,485774800,000621381,505974800,000619361,526173800,0007 *17341,546273800,000815321,556472800,001012311,576870800,002959800, *002760800,002562800,002464800,002266800,002067800,001968800,001769 *800,001570800,001471800,001272800,001172800,001073800,000973800,00 *0873800,000774802,000006002,000649552,000648550,000747550,00074655 *0,000845550,000944550,001143550,001242550,001340550,001539550,0016 *37550,001836550,001934550,000911211,000055330,000714221,000055310, *000615241,304348550,000617251,284249550,000618401,000055490,203949 *550,000037210,000036230,000034210,000034200,000618360,000617371,00 *0055490,000715281,303949550,000714271,324049550,000812251,33434855 *0,002435550,002236550,002138550,001939550,001841550,001642550,0015 *43550,001345550/ DATA IJ/001246550,001147550,000948550,000848550,000749550,00064955 *2,000080743,000080733,000080720,000080710,000080700,000080680,0000 *80660,000080640,000080620,000659800,000657800,000655800,000753800, *000750800,000748800,000846661,000080720,000844631,000080730,000941 *611,000080730,001039591,000080740,001337571,000080740,005474800,00 *5274800,000050000,000048000,000045000,000043002,001335450,00103747 *0,000939490,000842511,000080740,000844541,000080740,000746561,0000 *80740,000748581,000080740,000751601,000080730,000653631,000080720, *000655661,000080690,000657800,000080590,000080620,000080640,000080 *660,000080670,000080690,000080700,000080710,000080720,000080732,00 *0080744,000080742,081673800,051872800,031971800,021969800,02196680 *0,011963800,011860800,000609161,000080570,000654800,000651800,0007 *48800,010844800,010941651,000080700,031138601,000080720,041435571, *000080730,051732541,000080740,072028511,000080740,104874800,134574 *800,000041160,000038190,000037220,000038250,000041280,000044310,35 *4774800,385074800,415474800,445773800,476073800,506372800,53677080 *0,000080560,000080590,000080620,000080650,000080680,000080710,0000 *80720,000080730,000080743,000008000,001054800,001154800,001354800, *001559800,001765800,001968800,002170800,002372800,002573800,002773 *800,000610281,000080740,000612301,000080740,000614321,000080740,00 *0616341,000080740,000618361,000080740,000620381,000080740,00062240 *1,000080740,000623421,000080740,000625441,000080740,000627461,0000 *80740,000629471,000080740,000631491,000080740,000633511,000080740, *000635531,000080740,000637551,000080740,000639571,000080740,000641 *591,000080740,000643611,000080740,000644631,000080740,000646651,00 *0080740,000648661,000080740,000650681,000080740,000652701,00008074 *0,000754800,000756800,000858800,000860800,001062800,001164800,0013 *65800,001667800,002369800,002971800,002973800,002975800,000733550, *000933550,001133550,001337550/ DATA IK/001544550,001746550,001947550,002148550,002349550,00254955 *0,000608271,000055490,000610291,000055490,000612311,000055490,0006 *14331,000055490,000616351,000055490,000618371,000055490,000620391, *000055490,000622411,000055490,000624431,000055490,000626451,000055 *490,000628471,000055490,000630550,000632550,000734550,000836550,00 *0938550,001140550,001842550,002244550,002246550,002248550,00004733 *0,000053270,000058220,000061190,000064160,000066140,000068120,0000 *70100,000071090,083248720,072654730,062258740,052060750,041763760, *031565770,021466780,021268780,011169790,011070790,000971800,000872 *802,000773805,000872802,000971800,011070790,011169790,021268780,02 *1466780,031565770,041763760,052060750,062258740,072654730,08324872 *0,000071090,000070100,000068120,000066140,000064160,000061190,0000 *58220,000053270,000047330,000071650,000765710,000764720,000864722, *000964720,000963730,001062730,001260740,000074000,000075000,000076 *000,000077000,000080000,000080003,000012000,000010000,000009002,00 *0008002,000007002,001052590,001449630,001747650,001946690,00214571 *0,002244730,002444740,002544611,000075630,001215261,446166760,0012 *17271,456068770,001219281,465969780,001220291,475770790,001221301, *505571790,001222301,000080720,001223311,000080720,001224321,000080 *720,001224331,000080720,001225341,000080722,001226351,000080720,00 *1226361,000080720,001227371,000080710,001227381,000080710,00122839 *1,000079700,001229401,000079690,001229411,000079680,001230431,0000 *78670,001231441,000078650,001231471,000078620,001332511,000077570, *001333760,001534750,001835740,002336730,002337720,002339700,002342 *680,000064470,000023140,000026110,092758630,082756670,062854700,05 *2853720,042853730,032753740,031114261,000075530,021015241,00007653 *0,010955661,000077690,010857651,000078700,000871780,000872780,0008 *39451,000079720/ DATA IL/000739451,000079720,000639451,000079730,000639451,00008073 *5,000739451,000080730,000738451,000080730,000838451,000080720,0009 *38461,000080720,011037461,000080710,011136471,000080700,011235481, *000080690,011334501,000079680,021433511,000079660,021730541,000078 *640,032026780,034042770,043943760,053944750,063845740,073746730,08 *3547710,103449700,123252660,000029150,000032220,000034220,00003522 *0,000037220,000038220,000040220,000042220,000043220,223033450,2230 *35460,223036480,223038490,22304051,223041530,223043540,223044560,2 *23046570,000722301,000059470,000722301,000060490,000822301,0000625 *00,000822301,000064520,000922301,000065540,000922301,000067550,001 *022301,000068570,001222301,000070580,000072000,000073000,000075000 *,000076000,000078000,000080003,001222300,001022300,000922302,00082 *2302,000722302,000025160,000029130,000030110,000031090,083241800,0 *73241800,053241800,043141800,041316311,000080420,031218291,4352688 *00,021120271,455368800,021046531,000080680,010947541,000080680,010 *948551,000080680,010848551,000080680,000848551,000080680,000849561 *,000080684,000949561,000080682,001048561,000080682,001147561,00008 *0680,011246561,000080680,011345561,000080680,021444551,000080680,0 *21542551,000080680,031740541,000080680,032037541,000080680,0424315 *31,000080680,055268800,065168800,075068800,084968800,000047090,000 *045110,000043130,000041160,000037220,000049270,000055220,000058190 *,000061160,000064140,000066120,000068100,000070090,000071080,06263 *0461,000072540,052035471,000074590,041738481,000075620,031539491,0 *00076640,031341501,000076660,021242511,000077670,011143521,0000786 *80,011044521,000078690,000945531,000079700,000946531,000079710,000 *846541,000079720,000846541,000080720,000846551,000080720,000747551 *,000080733,000846551,000080730,000946551,000080720,000945551,00008 *0720,011045551,000080720/ DATA IM/011144541,000080710,021343541,000079700,021442531,61676979 *0,031640531,000079590,041938521,000078570,052235511,000078570,0627 *30501,000076570,074957750,094857740,104658720,124460690,000042140, *000039160,000034190,000080585,000080630,000080670,000080680,000080 *695,071769800,032369800,012869800,003169800,003569800,003869800,00 *4169800,004469800,014769800,025069800,041823531,000080690,33556980 *0,385769800,436069800,476369800,516569800,546769800,000080570,0000 *80590,000080620,000080640,000080660,000080680,000080700,000080720, *000027170,000031140,113353640,093549680,083647700,073746720,053845 *730,043944740,033943750,031728401,000076420,021430541,000077610,02 *1331511,000077650,011133491,000078670,011034481,000078680,01093547 *1,000079690,000935461,000079700,000836461,000079710,000836451,0000 *80710,000837451,000080720,000737451,000080726,000837451,000080720, *000836451,000080710,000836461,000079710,000935461,000079700,010935 *471,000079690,011034481,000078680,011133491,000078670,021331511,00 *0077650,021430541,000077610,031728401,000076420,033943750,04394474 *0,053845730,073746720,083647700,093549680,113353640,000031140,0000 *27170,000061460,000064410,000066380,112036680,082234700,062332710, *052331730,042330501,000074530,032329451,000075580,022328421,000076 *610,012127401,000077640,011113191,273866780,011026371,000078670,00 *0926361,000079690,000825351,000079700,000825351,000080710,00082534 *1,000080710,000725341,000080720,000725331,000080733,000825341,0000 *80720,000826341,000080720,010826341,000080720,010927341,000080710, *011027351,000080710,021128361,000079700,021228371,000079690,031329 *381,000078680,041430391,000077670,041631411,000077650,051832421,00 *0076630,062133451,000075600,082634501,000074540,000072090,00007110 *0,000070120,000068140,000066160,000064190,000061220/ DATA IN/000058250,000053310,000048326,000048327,000070105,00007010 *5,000048327,000048326,000048329,000048329,000048329,000048329,0000 *98005,000098005,253545559,253545559,253545559,253545559,000012000, *000015000,000018000,000021000,000024000,000027020,000030050,000033 *080,000036110,000039140,000042170,000045200,000048230,000051260,00 *0054290,000057320,000060350,000063380,000066410,000069440,00007247 *0,000075500,000078530,000080560,000080590,000080620,000080650,0000 *80680,001266740,001563770,001862780,002161681,000079720,002460661, *000080740,022760651,000080750,053060651,000080750,083360661,000080 *740,113661681,000079720,143962780,174263770,204566740,000048230,00 *0051260,000054290,000057320,061435600,031738630,021841660,01081219 *1,000069440,000614201,000072470,000515201,000075500,000515201,0000 *78530,000614201,000080560,010812191,000080590,021862800,031765800, *061468800,000074660,000077630,000078620,616872790,606674800,606575 *802,606674800,616872790,000078620,000077630,000074660,182248510,18 *2248520,182248540,182227570,182225610,182224610,182224291,00005248 *0,182224281,000052480,182224291,000052480,182226351,000052480,1822 *28351,000052480,000022182,182224271,000064610,182224281,000064600, *182224301,000064580,182224643,182224301,000049440,182224281,000050 *460,182224271,000051480,182248520,182249532,182224271,000053480,18 *2224281,000053470,182224301,000052450,182224510,182224500,18222447 *0,182224300,182224280,182224270,000041390,000042380,000044360,0000 *45350,000047330,000048320,000050300,000051290,000053270,000054260, *243941560,233842570,213644590,203545600,183347620,173248630,153050 *650,142951660,122753680,112654690,092456710,082357720,062159740,05 *2060750,031862770,021763780,001565800,001466800,001268800,00116980 *0/ DATA IO/000971800,000971800,001169800,001268800,001466800,00156580 *0,021763780,031862770,052060750,062159740,082357720,092456710,1126 *54690,122753680,142951660,153050650,173248630,183347620,203545600, *213644590,233842570,243941560,000054260,000053270,000051290,000050 *300,000048320,000047330,000045350,000044360,000042380,000041390,00 *0049310,000054260,000058220,000061190,000064160,000067130,00006911 *0,093248710,082456720,061961740,051664750,041367760,031070770,0107 *73790,010476790,000278800,000179800,000179800,000278800,010476790, *010773790,031070770,041367760,051664750,061961740,082456720,093248 *710,000069110,000067130,000064160,000061190,000058220,000054260,00 *0049310,212951590,183248620,173347630,163446640,153446650,15354565 *0,153644652,163743640,173842630,183842620,203941600,213941590,0000 *57230,000056240,000055250,061527531,000074650,032128521,000077590, *000078020,013842790,003644800,003545802,003644800,013842790,000078 *020,032128521,000077590,061527531,000074650,000055250,000056240,00 *0057230,213941590,203941600,183842620,173842630,163743640,15364465 *0,153545650,153446650,163446640,173347630,183248620,212951590,0000 *66560,000069540,000072520,000073510,000075510,000076510,000077520, *000078520,546468780,576069790,000079710,000079720,000080720,000080 *730,041173800,021323291,000080730,011421341,000080730,001520381,00 *0080730,001521401,000080730,001524421,000080720,011429441,00008072 *0,021332451,000080710,041134471,000080700,354968800,365166800,3755 *62790,000079380,000078400,000077410,000076420,000075440,000074450, *000072470,000070490,000067520,000026180,000030130,000033110,000035 *090,000037070,000039060,000040050,000041040,000042030,021730430,02 *1533450,011434461,000068520,011336720/ DATA IP/011237740,001138760,001036770,001033581,000078660,00103154 *1,000079690,000929531,000079700,000927541,000080710,000925551,0000 *80720,000923441,465672800,010922421,475871800,011020401,486069790, *011018381,496366790,021116351,000078510,021215331,000077520,033154 *750,032956730,042860700,000026050,062439470,062239470,052339470,04 *2538470,032738470,023037470,000047020,011518470,011421470,00132447 *0,001227470,001230470,001133470,001135470,001137470,001238470,0113 *39470,021839470,032539470,052539470,000025080,000025130,114057720, *114053750,114051780,133650800,143149810,152948830,152747840,152546 *641,000085730,142346621,000085750,142245601,000086770,132145591,00 *0086780,132045591,000087790,121944591,000087790,111944591,00008780 *0,000096004,091743581,000088810,081643571,000088810,081643571,0000 *88800,081643571,000087800,000096004,081741551,000085760,091841551, *000084750,091940541,000083740,102039541,000083720,112238531,000083 *700,122436531,000083680,132734521,000084650,145161850,155061860,16 *4861850,184761840,000044200,000042220,000037260,000326341,00005446 *0,000826341,000054460,001326341,000054460,001926341,000054460,0024 *26341,000054460,003446540,033546540,084046540,000054130,000054190, *000056240,000061260,000067260,263440720,263445770,000326341,000080 *460,000826341,465456800,001326341,465461800,001926341,465467800,00 *2426341,465472800,003446541,000080770,033546540,084046540,00005413 *0,000054190,000056240,000061260,000067260,263440720,263445770,2634 *46800,263446541,000080560,263446541,000080610,263446541,000080670, *263446541,000080720,263446541,000080770,041166760,021349780,011432 *790,001521800,001520800,001521800,011432790,021349780/ DATA IQ/041166760,000021140,000023120,000411240,000609250,00002500 *0,000025010,000024030,000023040,000021070,000011040,000013020,0000 *14010,000015003,000014010,000013020,000011040,142136430,122334450, *000411241,000046330,000609251,000047320,002532470,012532470,032433 *460,042334450,072136430,142136430,122334450,112433460,102532473,11 *2433460,122334450,142136430,000076670,000078510,000079420,00008041 *0,000080400,000080410,000079420,000078510,000076670,000077680,0000 *79510,000080410,000080400,000080410,000079510,000077680,000000004, *000077680,000079510,000080410,000080400,000080410,000079510,000077 *680,000048310,000052270,000055240,000057220,000059200,000061180,03 *0717620,031216311,000063480,032752640,032554650,072756660,12325867 *0,123759670,121922421,000067600,111827471,000068610,111832521,0000 *68610,111737571,000068620,111742680,111747680,111752720,121857760, *121860760,121950551,000076580,132048671,000076720,142247660,152446 *660,162646650,172746630,192847620,222848600,242750560,000047330,00 *0053270,000056240,000060200,173149630,152654650,132357670,11203644 *1,000069600,101830501,000070620,091626541,000071640,071424561,0000 *73660,061321331,475967740,051219291,516168750,041118271,536269760, *031017251,556370770,030916231,576471770,020815221,586572780,020814 *211,596672780,010714201,606673790,010713191,616773792,000612181,62 *6874806,010713191,616773792,010714201,606673790,020814211,59667278 *0,020815221,586572780,030916231,576471770,031017661,000077700,0409 *15661,000076690,050713661,000075680,136567740,121966730,121864710, *121962700,132060690,132357670,152654650,173149630,000060200,000056 *240,000053270,000047330/ END C ---- Long Name Map ---- C backgroundsym backg0 C lastarg lasta0 C foregroundsym foreg0 C reversevideo rever0 C bannertext banne0