Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watnot!watmath!clyde!rutgers!princeton!phoenix!pucc!6063366
From: 6063366@pucc.UUCP
Newsgroups: net.sources.mac
Subject: Re: Where is BinHex 4.0 ?
Message-ID: <2148@PUCC.PRINCETON.EDU>
Date: Wed, 1-Apr-87 19:28:32 EST
Article-I.D.: PUCC.2148
Posted: Wed Apr  1 19:28:32 1987
Date-Received: Sat, 4-Apr-87 09:24:31 EST
References: <226@ole.UUCP> <1352@umn-cs.UUCP> <522@u410a.stl.stc.co.uk>
Reply-To: 6063366@PUCC.PRINCETON.EDU
Organization: Princeton University - Computing and Information Technology
Lines: 212
Disclaimer: Author bears full responsibility for contents of this article

For those who wanted to know how to get BinHex 4.0, I have posted an
MS-BASIC program created by running Steve Brecher's MakeMakers program
on BinHex 4.0.  If you get into Microsoft BASIC and run this program, it
will create BinHex 4.0 on your MS-BASIC disk.
 
If you do not have MS-BASIC,
you can run the Macintosh Pascal program in the next posting.  If you
have neither BASIC nor Pascal, you can probably get BinHex 4.0 from a
friend or from a user's group.
 
---- MICROSOFT BASIC PROGRAM FOLLOWS ----
 
1000 REM Creates BinHex4 on the MS BASIC disk.
1010 REM MakeMakers, by Steve Brecher, generated this program on 3/16/87
1020 DIM ASM%(128),SH%(2):SH%(0)=&H245F:SH%(1)=&HA866:SH%(2)=&H4ED2
1030 IF (SH%(0)<>&H245F)OR(SH%(1)<>&HA866)OR(SH%(2)<>&H4ED2) GOTO 1180
1040 CODEPTR!=0!:LN%=0:MAKEFILE!=0!:DAT$="":CHK!=0!:P!=0!:S!=0!:R!=0!:I%=0
1050 STUFFHEX!=VARPTR(SH%(0)):MAKEFILE!=VARPTR(ASM%(0)):CODEPTR!=MAKEFILE!
1060 P!=VARPTR(DAT$):CLS:PRINT:PRINT "Processing -- please wait...":PRINT
1070 R!=VARPTR(I%):ON ERROR GOTO 1180:FOR LN% = 2000 TO 2080 STEP 10
1080   READ DAT$:I%=LEN(DAT$):IF I%<>64 AND (LN%<>2080 OR I%<>4) GOTO 1180
1090   DAT$=CHR$(I%)+DAT$:S!=PEEK(P!+2!)*65536!+PEEK(P!+3!)*256!+PEEK(P!+4!)
1100   CALL STUFFHEX!(CODEPTR!,S!):CODEPTR!=CODEPTR!+32!:NEXT
1110 FOR I%=0 TO 128:CHK!=CHK!+(ASM%(I%)):NEXT:IF CHK!<>875676! GOTO 1180
1120 FOR LN% = 3000 TO 4570 STEP 10:READ DAT$:I%=LEN(DAT$)
1130   IF I%<>66 AND (LN%<>4570 OR I%<>26) GOTO 1180 ELSE DAT$=CHR$(I%)+DAT$
1140   S!=PEEK(P!+2!)*65536!+PEEK(P!+3!)*256!+PEEK(P!+4!):CALL MAKEFILE!(R!,S!)
1150   IF I%<>0 GOTO 1180 ELSE NEXT:CALL MAKEFILE!(R!,0!):IF I%<>0 GOTO 1180
1160 PRINT "BinHex4 is now on the disk with MS BASIC."
1170 PRINT "You'll see its icon.  Feel free to move it to any disk.":END
1180 IF I%>=0    THEN PRINT "Bad download of this program!";
1190 IF I%=(-41) THEN PRINT "Insufficient memory for I/O operation";
1200 IF I%=(-45) THEN PRINT "Old 'BinHex4' is locked, can't replace it";
1210 IF I%=(-33) THEN PRINT "MS BASIC disk directory is full";
1220 IF I%=(-34) THEN PRINT "MS BASIC disk has too little free space";
1230 IF I%=(-36) THEN PRINT "Disk I/O error";
1240 IF I%=(-46) THEN PRINT "MS BASIC disk is locked";
1250 IF I%=(-44) THEN PRINT "MS BASIC disk is write-protected";
1260 PRINT " -- Sorry, nothing was accomplished.":END
2000 DATA "4E56FF80204E42A0BFC865FA41EEFFB043FA00E221490012316100186620A008"
2010 DATA "670C0C40FFD0660EA009660A60F0117C0003001BA00A660000A632A80018222E"
2020 DATA "000867000062214F0020703021400024224172001219E4495341244F76287000"
2030 DATA "7403ED889711801951CAFFF815400002E0481540000148401480564A51C9FFE0"
2040 DATA "705A244F722FE318141AB50051C9FFF812199203E54997118211B00167047201"
2050 DATA "6034A0036038217C00001D81001CA012662242A8001CA00C661A700180290002"
2060 DATA "43F1000345E8002024FC4150504C24D93491A00D3200A0014A41670230013200"
2070 DATA "6704A009A0134E5E205F584F225F32814ED000000742696E48657834426E4871"
2080 DATA "2000"
3000 DATA "((()((((/*D(()TO((()>N1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*a0A?HQ+8PKc+"
3010 DATA "8=)8;,1V:/,L4K(X4(\22JPR<L=;;]=:8\<H9Le::X\24+(X4+(Y4+(X4+(X4<4Z@+"
3020 DATA "4[(X4+(Y8K0[4+(X4+(Y5<,Z4+8`5+<]6+0X4K(Z4+0X4K([4+<Y4K(X4+(X5;0]I+"
3030 DATA "4X\25;0\4[(X4+(X4+,`5+0\9;8`5;,X4+(X4+(Z4+(X4+(Y5[8Z5KL^9;8`5K<_P)"
3040 DATA "6+0X5[@[5+1-4[(Z4+1,4L8Z4(\24[([4K1.4[,[6+1.4[H[5;<Z5;4]4K8[4+(X\)"
3050 DATA "4+(Y4+(\6;8[5,<Z4[(X6(((()H?8NMV:.=`0/@\3K(H3:\H4+0W4;LW6+<(((,(:*"
3060 DATA "+ggf((H((X(0((2(*()*8(H(@J(0Gg08*/gcf(Igd(H0D.(0*/)(*(IX((H0D((0H*"
3070 DATA "*/((*(IX((H0D+d0*GY(J(K`H,H0D;(P**/0.(H6GXd,(K(/(H,()X,(H(D(H.(/F+"
3080 DATA "(,(GaX(H(Id(,(8/((H0(((,,((((J((((-(((((H((7gg`(+ggg((ggg`(7ggg(@*"
3090 DATA "+ggg`(gggg(7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`\+"
3100 DATA "+gggf(ggggH7ggg`+ggggXGgggd+gggg(GgggX+gggd(Gggg(+gf/X(Gg(D(+gH(@*"
3110 DATA "((GX(((+`((((D((((*((((((8(7gg`(*((+((Q0(P(1<(1(*((*0(T@(I(0((7`-*"
3120 DATA "*=((*(Q0((H0(((0*(((*(H(((H0(((0*(*(*(H)8(H0(J(0*(8`*(H09@H0,360J*"
3130 DATA "*(OeJ(H,T@H0(T.0*(-gJ(H(H@H0(((0*(((*(H(((H0(((0*(((*(H(((H0(((0S*"
3140 DATA "+gggf(gggH(7ggd(+gggH(gggd(7gggH+gggd(ggggH7ggg`+gggf(ggggH7ggg`;("
3150 DATA "+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`>*"
3160 DATA "+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`(((()\-8<,X(((((3+"
3170 DATA "(((/=,=@=(()(((((*9*CLIY(((((<M+;J4((8(((0(((8*)9M1-9H()((((H(()N("
3180 DATA "(0,(((*((((((((7((((*@((((M((((1`(((**((((HH(((00(((GgX((*(0(()g;*"
3190 DATA "g(((8(8((-(<(()()(()X(F((,(,H()()0((<):((,(,H()gg1`(0(Kf(/gd/H(*))"
3200 DATA "H(((),((((IX(((8JX((0>D(()7c(((1@X(()@4(((3g((()(X(((((Q((,(((((,*"
3210 DATA "(((((7ggggT)-(])@Ne]E*)*B>a0A?K1((((((,U((((((((((**((0(((((((((8+"
3220 DATA "(7gggcD,9NMTA9=)D/)TB>5IE.MWCJ(U7J)=D.YW@>8(=8((-\9WE^aTC^-L0*\f/*"
3230 DATA "0,-XD.YQ@^-\B>eV(,8(((,U((((((U<9=I<0.AQC/9MDH((,H(68>9L0.YQCN<HM)"
3240 DATA "AN=MA/4((((((:\((((()--]B?8(<8(((((((,H((X((((((((((ggggfX9-A.M\`+"
3250 DATA ")-=VA.d(>H(((:\((((((\5]E()@(((,8^eXF8)+(((-<.-[E.<(=H(()<5TA>-ZZ*"
3260 DATA "(((((((((((=(,@(A(*V(A(((8((((((((((((,(((((LH(,(((((()((6@(=(,Jc("
3270 DATA ")(17:X((((((-(+\(+8)-2(*(0((((((()8(*H(L(4J0,L1QCLIMF*)^5*`X0*(P<*"
3280 DATA ":/-`28((((((3((2(+X(Z0HAE_1QE/9MCJ)JF:)AEN=[0,YMC?)MDN=]DH((((((1("
3290 DATA "(,8(*H)<(4J0.L5WD/MZB>EPE*(Y6;H]0.1a0,]IB>a[E.-a((((+()L(.8(WH.8.*"
3300 DATA "((M==8(((*P((8((((((7(+N(-()0H8*;\T(((((()T(:((S(9J0*=`X0.=ZDNeZW*"
3310 DATA "3H(((((;(,@(A(*b(A(((8,(((((((((((((()4(2((<(9H)c(()(8((((((((((Z+"
3320 DATA "((((,X).(.L(B8..((,)((((((((((((()?X(((((<IUggZPCRKfR92Q42O48RFQT)"
3330 DATA "F^,(,G0H7(((ggfH4Kdd((2Qb<2O3[Y88<537[X()bNH0-fH:L2O3[Y.;\a<7[X)K*"
3340 DATA "K2NH0-fH:L2O3[Y.;\a<7[X**BNH0-fH:IUd((/g3IUd((+g3>,(,E)X(.,(+?bQW("
3350 DATA "U,0O7[X7g\IUgV:QD,PGAf`X3GcL\,(X6X(.;WT((WgH(+;g`((@gf+g`7gH(>3gg("
3360 DATA "`7gHgf+g`.,(,N`X3GcZ*(((*.Fb8RDH3GcN7X*Q7N(((+9I()1:8NDW3GcV:._f?)"
3370 DATA "e2LT4)g88+(c((A6fX(*ga((+H,,ga+gL7f8ga)*QZdUgVbQ7:UGgWHX3Gc`\,(X,("
3380 DATA "6X(.;WT((H(0()@(CH+.8NFQ6/((@8(4].((g]8X3Gcb+,(((>@X8RDg7(()8RDWA*"
3390 DATA "77ggggfQG*U?gZJQ-<2O:._fg2N94*_fg(Y(((-NcJdUgZJQH^*`8RDg7(()R<LgC*"
3400 DATA "3Gcb:._fQ2M.8NE0CGbLRCA2?^*B4*_ffU)(4+T()Lcc((3gK(*<(FcgK((8(*[g+*"
3410 DATA "K()0*J\((GdV8RDg7((*R<Lg7((,/Z_g3RM-@(+g@HPU((/g3<2O7[X((RM17[X(:)"
3420 DATA ")9dUgZ^Q9>((g\BQe+(UgWQO(7dd<\)*1[d(RD12/^((gZa0CGcL3Z_fe2N[@(+fN+"
3430 DATA "H.,(,:8X3GcNAX+fE,1O7[X(A+dd(.8W3GcN7[X((2OQ:MeH(7aB7[X(9Kdd(,A0^*"
3440 DATA "FI,P8RDg77gg8RE*Q\IUgHXg7((*RFQ23G`4AX+f\N,(*Z(g7()L7[X(9LIb,7]0-("
3450 DATA "CGbL8RE0CGa@7[X((BOR:J_f>.D(gRQX).,(*`)1cG`4@8(64N@(+R`SB((HgW`Sc*"
3460 DATA "B((LgX0X2((P(L+`(+U(gX@SB((^gXHSB()(gXYI((V@:F_f>.,(+E9N((a^@8(5Q+"
3470 DATA "XN@(+N1I((_VAH(6>J-d=,=@=((H0?Y*CLIY(*:H+;`P())N((a(D(1-cGPZ:F_fZ+"
3480 DATA ">.,(+;AN((`J@8(.;N@(+IQI((=TAH(6,O()9GH((,OUgHYI((\<AH(5e*UUgXKgV*"
3490 DATA "1.,()DYN((_N:F_f+.,(+:QN((_BD(--f(((:F_f+.,(+8)N((_02^_g+7dL@8(-/)"
3500 DATA "P.@(+CQ1cG`4@8(4gN@(+BaI((B8AH(5TLOUgMII(([RAH(5QN,(*TII((eP@(+eD+"
3510 DATA "P+dd(,@g7().:/P7[L2O:J_g3N@07[[gg\2O@(Hg7(():/P+?,2O:._f++dd((2QO*"
3520 DATA "bLPUgHYO(7]PD(--f(((:F_f+.,(+.9N((\^@8(13N@(+:`f77gA:L-O((\L8F_dX("
3530 DATA "7.(8,)H4(((bAX`4(((KAX()*-/1gfaH\JU0gYHc8Gd>@8(./.@(+7II((:FAH(4=("
3540 DATA "d+dd(.8g7().:/P77\IUgR9*Q\IUgMHg7(()RFQ23Ga@AX((UO(,@8(1XN,(*IY1\)"
3550 DATA "cGa@@8(49N@(+31I((X\AH(4P.,(+.)N((Z@0>_fgH(H0>_g(H(L4*_g)P-P(*JH4)"
3560 DATA "+;`P())N((YbD(1-cGPZ:F_f>.,(*b9N((YD2^_g*7dL@8(,JN@(+,a1cGa@@8(3B)"
3570 DATA "VN@(+,1X(L?UfK11cGa@@8(3L.@(++(SCGd4gZ9I((9FAH(40LOUgMII((V6AH(4*+"
3580 DATA "-LOUgHYI((V*AH(40.,(*>)I((`(@(+d6,OUgHYI((URAH(4+.((g*HSG-9->-;f=)"
3590 DATA "gJUd8Na0DGd*8N_g)HY)((IM,.,((TPS87cf@8(*XJU(gX0488(-A9(4.((LAHQIV*"
3600 DATA "((2dA88c87d.@8(0BKdd(.8g7().:/P6,\IUgR9*Q\IUgMHg7(()RFQ23Ga@A`QXb)"
3610 DATA ").,(*1II((L,:F_f>.,(*YYN((V0@8(3*N@(*_AI((T^AH(3CJ-UgW`(0*-UgX0(@*"
3620 DATA "1+(UgXB)B((PP(\f2((8AH(3<,0UgZe*3GdY8N_g,N,()`9N((Td8gP);N,((QQNY("
3630 DATA "+IUd((/g3^,()^YN((TL8gP)9.,((P1N+N,(*1QI((E>AH(3+N(R8gP)6>,((NQNX*"
3640 DATA "0.,(*19I((DfAH(2eO(*9F_b4LOUgMII((P`AH(2^.(:D(1-cGPZ:F_f>.,(*HYNZ*"
3650 DATA "((S,@8(2P.@(*SYI((B.@(II((D*AH(2SLPUg+YO1L7b(41I((0:AXQI((,4AH(2N*"
3660 DATA "MN+F8gP(_N,((GaN*.,()UAN((R*@8(.0N@(*OQ1cGa@@8(1aN@(*Na+fH*B@8()8)"
3670 DATA "^.D(g]A+fH*C@8()[.D(g^11cG`4@8(1XN@(*N)I((FH8gP(O^,((C)N/N,((<9MI)"
3680 DATA "83(Ug[-O8,/b*[d83GdY@8()@O`*@((2CL7b(09I((.0AIaI((,@A9JXCGd:AYI)2*"
3690 DATA "fHTJ4*_g,N,((;1f(>((*LAf(^((*L)I((WR@(+b0M9->-8+2JPR+:PR2L57;=):O+"
3700 DATA "9=5;9<842JPR9,-<8:).;]13,*PR2M1-<\e=<L5-0,A7<LT62JPR9<a,0,e.0,9)+*"
3710 DATA "=,,42JPR8\I-8\U;=<\b)ZPR2L5:8[QI((+N:J_g3^@@+(,((N<b@8((J.<\\:_gg+"
3720 DATA "4>,((+1ObN(R7+X(H,1(@8((4K8(@)AI(((R5J_g,UA(a]Tc8gd:@8((+.@.<DSgH("
3730 DATA "b,1/;O=0a`*(@8(,XL[G(8-6E?@/+(@(H.@B8LA28>D8<\,D.(8.(*(4)H)(A6[MW)"
3740 DATA "+H(.((3K+V48<DWg^La]E(7IJ)(@<\-9ZWg`;O=I(((*@8(((I8@<\,2(H(X+(0((+"
3750 DATA "*N<2)H0(J8X*(7QM+(0*((gQ:0(*(KX(gLa]7X+H:.,*4)dG(6H0@808/X0(((d()*"
3760 DATA "(((X+(((6N<*?H(8X,a]8F_d7,1),IIO+(X8((QN)M20<\-Ne,a]@FA*8I8ATL1MP+"
3770 DATA "+.(,TXIN)M/2ggQ*8,a]8N_g,L7UgIA*8909,)MI((+TAJ99ZGg^,*_f->,((5aNd*"
3780 DATA "-L7UgWaZ,9(A@8((\.@0<DOgeN,((2Y6E<1UgY1I((.BAKQf(8X((+eJ4L1),H)+])"
3790 DATA "cGbL@(AI((.*AJ0:X-/1ggAI((-^AIA+cGcfDI-I((-RAHP:X-/1ggAI((,d;O=*[("
3800 DATA "CGd::R_g1.DF@8(+Z.@DLb_g1,7Ug+YH*)(A@8((?N@2<DOgeN+D@8((6,a]@8(+/*"
3810 DATA "M,1UgY12SGdLAY1I((,DAIAI((4bAI);SGdLAVaI((+PAH9I((5,;O=*CGd8@(()P*"
3820 DATA "6O((@8((R.,((28X3Gd:4H+H:.,(((AN8+():6E(()0(@8((JLQUgY)O+3(Ug[)O:)"
3830 DATA ",.,((*IN/IU)g[)I(()2AI9:CGd8+.\(ggd8A8AI(((4AH1*9\[G((16E8YU((3g3("
3840 DATA ",.<F@HII(((HAYAH.)(d(1)I((+\AH`X3Gd8@8((bN@,8N_g,,a],*_g4.,((5QN6+"
3850 DATA ",(X((1)N*/((@8(([.@*8LE6E>.^AH9I((,.;O=0af((5*_g,O0/`XKK<N8,*L08;*"
3860 DATA "0=/1gg8c8Wd:;5d()\a]8N_g,.(((>aI(((HAIQI(((BAI92CGd:AXa)fHG04*_g_)"
3870 DATA ",N,(gEIf(<a]:N_g,.@H@8()DN@Z+(((L.@J@8()AN@N:H)O--4((L((g[U(gY);f+"
3880 DATA "CGd8,*_g4.(0,+X(L)U(g[)I(7eb8LE6E;Ud((;g-,1UgYAI((0F8gP([.,((AaN6*"
3890 DATA "-.,((AaN+O(b@8()XN@.<N_g-L1/;O=0af((5*_g-/0/`XKK,N8P-+TH?4-*@8()8*"
3900 DATA "ON@N<N_g-HYU(,+g-N<2@8()@.@<8N_g-T-*5+X()-/1ge(c8Wd<8LE4_X(/;O<X(+"
3910 DATA "3Gd<`XILg)(c()YI((-HAI1X6N,((=IN*N,((:AN).,((>I6E:,J0Z8M1JDP2:PSL)"
3920 DATA "3*\X4;0[5+<^6+M(8<1+9,=.9\I1:LU4;<a8<=1;=-=>>-MB>^)I@N5LA>APB>QSF("
3930 DATA "C.]XD?0U2-9PB?4HANMTA:)UE?5\0.1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*(\7+"
3940 DATA "3K(Q8F_e7/)g,7X(H-/0ggQ)fWf*8f_e7,1)D+d:4(((,`(8(-/0gg@cG(*(gY9*G("
3950 DATA "9\a]:6EH(+8UgY9Z)XX*(0)N3,QUgYAN).,`AK(HCGd@<R_g.-5UgYA*8I88Bf9)G*"
3960 DATA "cG\d-+(H(.WBa8P((H(*`XSK,-/1gdHc8Wd<8LE4_X(.;O=0ad((@8((`N@::L-O@)"
3970 DATA "-,/Ug+XS:7d@6\/g-L1/;5d((\a]7K[g^>+\@8((.N@<D(]I(((PAHY23GdUAXAXG*"
3980 DATA "*N,(()Q6E<1),IMH*)(A@8((+.@.<DOgeL1/;O<HCGdD,0):SGdD<R_g0(ZU(((HA("
3990 DATA "(7dHA(9*9\a]8F_eW,2P((XYCGbJ()I0CEPZ0=d(0*-UgZ((1,1P(*Y*R((VP(4fG("
4000 DATA "2((8:._B4JUGgYY*SGdH:LE6E</UgCY*R((44>_f=H(@:._d7*-G(*(IG((((8((;+"
4010 DATA "1,1P(*Y*R((VP(0J2((P7JH(,.D,+,Gg^<a]8F_eW,2P((XYCGa>()I0CGXd0=d(Q("
4020 DATA "0*-d((()(((L4?X5H((T8RH(3R(*0JH(2+`P())O)(Y/geM6E</UgCY*R((44>_f,*"
4030 DATA "=H(@:._d7:-G(*(IG((((7d(1+-d+@((3,2P(*bH(IUP(*Wd7+`P())O)(Y/geM6\("
4040 DATA "E</UgIA+cGbL8L(8.(Y((+UK(O(c,T)H(I3@<DKgg,/b())X(Y3@<DKgg-HUgR96a)"
4050 DATA "E:a0D?I)cG`>8f_fQ,1),I(:^(Y)((9N2I(8+(((3N@J,*H((>,((*04(()0AI88-)"
4060 DATA "2((+@8((-(X((-IN)MLUgR9H)-/1gdY6E8X((/QJ*HX((.-M)(0((-e6E<Q(AH:PO)"
4070 DATA "<.(48RDg(2Na0-dW,2I9;O=*Q[dd((-*QZddgggggbNe2]Gg22I[7[X((bJ/7[X(B)"
4080 DATA "+2J28NFPJ+dd((.PJ<a]3Z_g22L<;O=IZ.,((,aI((*2@8((QN(((41IUN,((-YI-*"
4090 DATA "(()`@8((M.(((3)IQ.,((,QH((*N7[X(-+dd(+*PL\?b(=)H((-\7[X(-+dd(,*P@)"
4100 DATA "L\?b(<MH((-J7[X(-+dd(**PL\Ib(4RPI,?UgIAI((-2:/P(\RJ,;O<g7((<7[X(L("
4110 DATA "02J;:/P(RRJ,9F_f@N,((:Q0FH*ZR096E;dd()8g7((XR150FH*KR08H3Gd0@8((S)"
4120 DATA "g,Ib(2JPI,a]7[X(-+dd(,*PL\Ib(1bPI*(UgXYI((+D:/P(J2J,;O<g7((<7[X()("
4130 DATA "<2J;:/P(MBJ,._X()7Xe2^_fgWXf9F_d7>,((3a0FH).R08g7((<7[X(@2J;:/P()*"
4140 DATA "EBJ,._X()7Xe2^_g(WXf9F_d7>,((190FH(DR096E9=+C^a^A?1\B>aO0/9PA:)N()"
4150 DATA "B>YM0*0*0J`:9.-\@:)NC_1S0/5QFN<HB?4H)Z)JF?9MDZ`><N=[C_=Z@^<HANeZM)"
4160 DATA "BZ)[B?QM0.M[0(M<F?)M0.M[0*048_1M@?9WDJ)QDZ(J*L9IE.,HANeZBZ,6<N=[6+"
4170 DATA "C_=Z@^<HANeZBZ-)cGXd7[X((2OV9F_d7+dd((*PIZd2R08g7((+R0E6E</UgCY*M+"
4180 DATA "R((4:.X(*J-G()0YC((.()@9C((1()Q6E>/H,<((.Z-2()ZH(+MP()H(:K`P())6]+"
4190 DATA "E>/0,<((.Z-2()ZH*KMP()H(:K`P())6E</UgCY*R((44>X(:H(@P(,f2((8AI)*Q)"
4200 DATA "R((:4>X()H(>P)4f2((8;O=IJ2(07JH(,,a]@8+gGL1P()ZH++`P())O)HY/ge=HA("
4210 DATA ",K`dge402((/(*IN)R(17JH(,,a]@8+g=,1P()ZH++`P())6E</UgCY*R((44>X(6)"
4220 DATA ":H(>4?X((H(T8RH(3R),7JH(,,a]7XE1cGa@@8+gC+`G7XE1cGa@@A0f/^,(g<0g7*"
4230 DATA ")\OUgHYI(7e:7IeH2+d/:F_f+.,(g\8f/[d/:F_f>.,(g[Hf/[d/:F_f>.,(g]`fc)"
4240 DATA "/^,(g8Y)fH(\,)IO+LJ(WL)O*,1(,)K8X.+V3XI*Q\2O8RFQJ_((@8+dPL1O7[X(*+"
4250 DATA "*<2OR@A2?^((ccCG+L9QDN=KE.eZF:)NE>YT_HM,B?5S0.A]C.[D*,9QD^TH::e7>)"
4260 DATA "^8U-CN8HC^@HANMTAE8@=_1QE.<HD/1WE.=KE.=L0.9QD^UME/9M\XU.B>YM0.YWP)"
4270 DATA "@^UMA505=NeTE>]M0.YW@^UMA5,19NMTA:)JE?5a(XU6CZ)KB.=KB_5]C8068^IMD+"
4280 DATA "@^U[E>\H2*8X4*L)*\5:8Z(P1+(X4+(Q((U.B>YM0/5aD_9MC<2O7[X((BNg3YE*b+"
4290 DATA "AbL]3[Y,<MA:R<]*Q[dd((2QW\1OR;=*Q[dd((6QW\1OR;>Q5\a]8RDg7((*8RDWN("
4300 DATA "77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJKdd((.PJ+dd((.PJ<Ib(9\W7(((((U05+"
4310 DATA "FH*`7[X((BO67[X((bJ/8NFPJ,Ib(8PW7(((()-0FH*J7[X((BO67[X()2J/7[X(*+"
4320 DATA "*BJ2:/P(fZdd(((**LIb(0Pg7(((RDa0FH3Y3[X((()):/P(GKdd((.Q[IUd((/gB)"
4330 DATA "3,a]8RDg7((+8RDW77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJL1OR0Hg7(()R0Lg++"
4340 DATA "7((27[X(-RJ;:/P(<BJ,._X((GdT;O=23GdTAXPW3GdPR99*3GdT;O<(*H(2()P)4)"
4350 DATA "[H(B((P(6H/6(,P(*H*`(D`(V((2(68)[H(9<^-^A:)LC^5]C>=VE*)ID[PO9NMTB*"
4360 DATA "A:)KC^a^A?1[B>eV0/5]@^5MD_5NE>YTF:)KC^]XC.=\A>8I8NMV:.=`0/@\3K)J-)"
4370 DATA "F8]AEN=[0,YMC?)MDN=]DM9PB?4HCN=_0.-VA*)QC?)ZC_AMA*)^A?1[B>eV0.eNb+"
4380 DATA "0,1QCLIMF*)QDZ)JDNe]A^I\0/9W0/MWE:)IDZ)I0/)]@NYQ@Z)[A?1^B>5M0.1aA*"
4390 DATA "0,]IB>a[E.-a3J)*B>a0A?HHB?4H@>`HB>a\A>EZ@?9MA*)X@?1\0.eN0/9PA:)<C("
4400 DATA "A>YMD^5ID.<H@^eUC?=VB>5IE.MWCO4HD.-KB^-OA:XHD^eWCJ)\CZ)JA:)ZA>YMJ*"
4410 DATA "@?5MA*)JF:)5@>MVD_9IF:`5+=9MC.=[@^-XA:)OB?AMDZ)aC_<HE.IM0.A]E/=Z\*"
4420 DATA "A:)QCJ)KC^]UE>aQ@^-\B>eV0*\U0/9WA.-a0:);A>aL0.]MD_5IA^=[0/EQE.HH])"
4430 DATA "EN-ZB>e]DZ)\A?I\0/5QFN=[3*)NC^a\DZ)ICN8HA_1ID.IQ@Z)[B.-XA?4V0,e\@+"
4440 DATA "B.=Z0.AM@?9]DN=[0.MV@^Y]A.<b0.eV3?5KDN=MCJ)KC^]UE>aQ@^-\B>eVDZ)LH("
4450 DATA "B?1M@_9WDOLT0.MVE.=TC.MOA>a\0.]I@_1WDZXHE>aQEN=ZD^-T0/9MDN]QCN-Td*"
4460 DATA "0.=UE>YIE.MWCJXHA?1ZC_0H@^IM@^UQCNDHD/1WE.eKC^Y[0.-VA*)ICJ)]CN-\))"
4470 DATA "E.=VA.=L0.]MD_5IA^<HD^=ZENMKA:`5+<AWDJ)NE?1\B.=Z0.MVANeZC>-\B>eV:)"
4480 DATA "3*)KC^a\@>5\6L]IB>a[E.-a+;0`5K,Y8J)+@>a_C^eL0-5\3H])A^e]DN,H:.MT8+"
4490 DATA "C/4T0,5)0+LY4[(Y+:H`4;HQ0+La4:\^5;8X((((.((((*H((*?6((((*((((*((])"
4500 DATA "(+dd((.Qd((((8((()XO(((C1X(((=P((4XD(-X((((D(=P(*L1V:/,((()B:<56S("
4510 DATA "0X()(.A.<L=.((,(GL169,X(((*>:<57;H(((2159<a=((0(SL94;\D(((+:9,M<)+"
4520 DATA ";(()(5a);-1<((((eME1;L8((H,*8\e,98()(:@((7gg0(((((((Ze((HGgg0(()E)"
4530 DATA "0(((ZdH(H7gg0(((/(((ZdX(HGgg0((*3X((Zd((H7gg0((*1(((Zd8(H7gg0((*>("
4540 DATA "6H((ZcX(H7gg)((*@H((ZcH((ggg)((+N8((ZbX((Wgg)((+,X((Zc(((Ggg)((*\("
4550 DATA "aH((Zc8((Ggg)((+a8((ZbH(*Ggg)((,Q(((ZaX((Ggg)((+gH((Zb8(*Ggg)((,a("
4560 DATA "M(((Zb(((ggg)((-((((Za(((Wgg)((,b8((Za8((Ggg)((,\H((ZaH((7gg0((C+("
4570 DATA "*X((Z`H((Ggg-((--X((Z`X(9)"
 
Carl Micarelli         BITNET: 6063366@PUCC
                       UUCP: {allegra,ihnp4,cbosgd}!psuvax1!PUCC.BITNET!6063366
                       INTERNET: 6063366@PUCC.PRINCETON.EDU
                       USMAIL: 122 1903 Hall, Princeton, NJ  08544