bernhard@umn-cs.UUCP (03/11/87)
Every file for the Macintosh that comes across this newsgroup must be unpacked with BinHex 4.0 . I have never seen BinHex 4.0 come across this network. Where can I get it? Bruce Bernhardt bernhard@umn-cs
drd@stl.UUCP (03/23/87)
In article <1352@umn-cs.UUCP> bernhard@umn-cs.UUCP (Bruce Bernhardt) writes: >Every file for the Macintosh that comes across this newsgroup must >be unpacked with BinHex 4.0 . I have never seen BinHex 4.0 come across >this network. Where can I get it? I'd be interested in knowing too, please. Thanks, -- Regards, Dan Donovan (drd@stl ...!mcvax!ukc!stl!drd +44-279-29531 x3106)
jimb@dopey.UUCP (03/26/87)
In article <522@u410a.stl.stc.co.uk> drd@stl.UUCP (Dan Donovan) writes: >In article <1352@umn-cs.UUCP> bernhard@umn-cs.UUCP (Bruce Bernhardt) writes: >>Every file for the Macintosh that comes across this newsgroup must >>be unpacked with BinHex 4.0 . I have never seen BinHex 4.0 come across >>this network. Where can I get it? A not so simple problem. How to bootstrap. xbin: a unix program which creates a macterminal image for use with macput or macget (I forget the order, haven't used them in a while). However you could do a binary download of the .rsrc to create a file on the mac, and use Resedit to coerce it to be an APPL. binhex.hqx: The binhex program in it's own format. To be bootstrapped per above. or macbin: a unix program to convert the output of xbin to a MacBinary format for downloading via a MacBinary compatible terminal emulator such as freeter, MacTerminal 2.0, Versaterm, Red Ryder. I can supply xbin source, nxbin source(a varient of xbin), macbin source for unix, macput and macget source for unix, and binhex.hqx. Only macbin is of my own efforts, the rest is due to a large Mac 'memory'. -- +===== Jim Budler ==== Advanced Micro Devices, Inc. ==== (408) 749-5806 =====+ | Compuserve: 72415,1200; Delphi: JIMBUDLER; Usenet: jimb@amdcad.AMD.COM | +==== Disclaimer: My company wouldn't let ME speak for them, would they? ====+ Who needs four?
mkhaw@teknowledge-vaxc.UUCP (03/26/87)
In article <323@dopey.AMD.COM> jimb@dopey.AMD.COM (Jim Budler) writes: > >I can supply xbin source, nxbin source(a varient of xbin), macbin source >for unix, macput and macget source for unix, and binhex.hqx. Only macbin >is of my own efforts, the rest is due to a large Mac 'memory'. > I'm posting this since my host tables don't show dopey.amd.com. Jim, I have unix xbin from sumex-aim, but it appears to be an old version and can't cope with BinHex 4.0 format. I'd like to get current copies of all of the above. In case dopey.amd.com doesn't have my site in its host tables, teknowledge-vaxc.arpa = 10.5.0.11 or 128.136.10.10 Thanks, Mike Khaw -- internet: mkhaw@teknowledge-vaxc.arpa usenet: {hplabs|sun|ucbvax|decwrl|sri-unix}!mkhaw%teknowledge-vaxc.arpa voice: 415/424-0500 USnail: Teknowledge, Inc., 1850 Embarcadero Rd., POB 10119, Palo Alto, CA 94303
straka@ihlpf.UUCP (03/26/87)
In article <522@u410a.stl.stc.co.uk>, drd@stl.stc.co.uk (Dan Donovan) writes: > >be unpacked with BinHex 4.0 . I have never seen BinHex 4.0 come across > I'd be interested in knowing too, please. For those who don't know, BinHex 4.0 files may be unbinhexed with BinHex 5.0, as well as BinHex 4.0. -- Rich Straka ihnp4!ihlpf!straka
ud101425@ndsuvm1.bitnet.UUCP (03/27/87)
this is an after thought and I don't understand this enough to append this to
the last one but if what I told you in the last one doesn't work then drop me a
line and I'll see waht I can do to send you version 5 of binhex, thats the one
I use and it seems to be totally compatible.
The Lonley Nodak
sbb@esquire.UUCP (03/31/87)
In article <323@dopey.AMD.COM> jimb@dopey.AMD.COM (Jim Budler) writes: > >A not so simple problem. How to bootstrap. >: >I can supply xbin source, nxbin source(a varient of xbin), macbin source >for unix, macput and macget source for unix, and binhex.hqx. Only macbin >is of my own efforts, the rest is due to a large Mac 'memory'. >: Could you post the source to "xbin" (or whatever program turns a MacBinary file created on the Mac with BinHex 5.0 into something in postable form) ? I can get the file to our system via Kermit, but then what? - Steve (...seismo!cmcl2!esquire!sbb)
kato@ole.UUCP (03/31/87)
> In article <1352@umn-cs.UUCP> bernhard@umn-cs.UUCP (Bruce Bernhardt) writes: > >Every file for the Macintosh that comes across this newsgroup must > >be unpacked with BinHex 4.0 . I have never seen BinHex 4.0 come across > >this network. Where can I get it? > > I'd be interested in knowing too, please. > Dan Donovan (drd@stl ...!mcvax!ukc!stl!drd +44-279-29531 x3106) Yes, please tell us where BinHex is. It is a shame to recieve all this great software and not be able to make sense of it. Mehdi Katoozi (ole@ssc 206-828-4422 x345)
6063366@pucc.UUCP (04/02/87)
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 08544su01#@andrew.cmu.edu.UUCP (04/02/87)
Did this Binhex thing ever get figured out by the parties involved? If there are still problems getting a Binhex that doesn't require Binhexing, I think there's a basic version (in ascii) floating around in one of our mainframes that I could post (if I can find it.) Stuart Uleman Carnegie -Mellon University Arpa: su01@andrew.cmu.edu su01@te.cc.cmu.edu Bitnet: r747su01@cmccvb su01%cmccte@cmccvb UUCP: ...!seismo!andrew.cmu.edu!su01 (I think)
6063366@pucc.UUCP (04/02/87)
Run the following program under Macintosh Pascal to generate BinHex 4.0.
--- BEGINNING OF MACINTOSH PASCAL PROGRAM ---
program Make_BinHex4;
{ Requires 512K }
{ MakeMakers, by Steve Brecher,}
{ generated this program on 3/16/87 }
{}
{}
{}
{}
{}
{}
{ Select "Go" from "Run" menu. }
{}
{}
{}
{}
{}
{}
{}
const
DataLines = 167;
CodeWords = 129;
{}
var
TextRect : rect;
D : array[1..DataLines] of string[66];
Code : array[1..CodeWords] of integer;
{}
procedure InitDataArray;
var
i : integer;
begin
for i := 1 to DataLines do
D[i] := ''; {set all values in case any lines were dropped}
D[1] := '4E56FF80204E42A0BFC865FA41EEFFB043FA00E221490012316100186620A008';
D[2] := '670C0C40FFD0660EA009660A60F0117C0003001BA00A660000A632A80018222E';
D[3] := '000867000062214F0020703021400024224172001219E4495341244F76287000';
D[4] := '7403ED889711801951CAFFF815400002E0481540000148401480564A51C9FFE0';
D[5] := '705A244F722FE318141AB50051C9FFF812199203E54997118211B00167047201';
D[6] := '6034A0036038217C00001D81001CA012662242A8001CA00C661A700180290002';
D[7] := '43F1000345E8002024FC4150504C24D93491A00D3200A0014A41670230013200';
D[8] := '6704A009A0134E5E205F584F225F32814ED000000742696E48657834426E4871';
D[9] := '2000';
D[10] := '((()((((/*D(()TO((()>N1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*a0A?HQ+8PKc+';
D[11] := '8=)8;,1V:/,L4K(X4(\22JPR<L=;;]=:8\<H9Le::X\24+(X4+(Y4+(X4+(X4<4Z@+';
D[12] := '4[(X4+(Y8K0[4+(X4+(Y5<,Z4+8`5+<]6+0X4K(Z4+0X4K([4+<Y4K(X4+(X5;0]I+';
D[13] := '4X\25;0\4[(X4+(X4+,`5+0\9;8`5;,X4+(X4+(Z4+(X4+(Y5[8Z5KL^9;8`5K<_P)';
D[14] := '6+0X5[@[5+1-4[(Z4+1,4L8Z4(\24[([4K1.4[,[6+1.4[H[5;<Z5;4]4K8[4+(X\)';
D[15] := '4+(Y4+(\6;8[5,<Z4[(X6(((()H?8NMV:.=`0/@\3K(H3:\H4+0W4;LW6+<(((,(:*';
D[16] := '+ggf((H((X(0((2(*()*8(H(@J(0Gg08*/gcf(Igd(H0D.(0*/)(*(IX((H0D((0H*';
D[17] := '*/((*(IX((H0D+d0*GY(J(K`H,H0D;(P**/0.(H6GXd,(K(/(H,()X,(H(D(H.(/F+';
D[18] := '(,(GaX(H(Id(,(8/((H0(((,,((((J((((-(((((H((7gg`(+ggg((ggg`(7ggg(@*';
D[19] := '+ggg`(gggg(7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`\+';
D[20] := '+gggf(ggggH7ggg`+ggggXGgggd+gggg(GgggX+gggd(Gggg(+gf/X(Gg(D(+gH(@*';
D[21] := '((GX(((+`((((D((((*((((((8(7gg`(*((+((Q0(P(1<(1(*((*0(T@(I(0((7`-*';
D[22] := '*=((*(Q0((H0(((0*(((*(H(((H0(((0*(*(*(H)8(H0(J(0*(8`*(H09@H0,360J*';
D[23] := '*(OeJ(H,T@H0(T.0*(-gJ(H(H@H0(((0*(((*(H(((H0(((0*(((*(H(((H0(((0S*';
D[24] := '+gggf(gggH(7ggd(+gggH(gggd(7gggH+gggd(ggggH7ggg`+gggf(ggggH7ggg`;(';
D[25] := '+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`>*';
D[26] := '+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`(((()\-8<,X(((((3+';
D[27] := '(((/=,=@=(()(((((*9*CLIY(((((<M+;J4((8(((0(((8*)9M1-9H()((((H(()N(';
D[28] := '(0,(((*((((((((7((((*@((((M((((1`(((**((((HH(((00(((GgX((*(0(()g;*';
D[29] := 'g(((8(8((-(<(()()(()X(F((,(,H()()0((<):((,(,H()gg1`(0(Kf(/gd/H(*))';
D[30] := 'H(((),((((IX(((8JX((0>D(()7c(((1@X(()@4(((3g((()(X(((((Q((,(((((,*';
D[31] := '(((((7ggggT)-(])@Ne]E*)*B>a0A?K1((((((,U((((((((((**((0(((((((((8+';
D[32] := '(7gggcD,9NMTA9=)D/)TB>5IE.MWCJ(U7J)=D.YW@>8(=8((-\9WE^aTC^-L0*\f/*';
D[33] := '0,-XD.YQ@^-\B>eV(,8(((,U((((((U<9=I<0.AQC/9MDH((,H(68>9L0.YQCN<HM)';
D[34] := 'AN=MA/4((((((:\((((()--]B?8(<8(((((((,H((X((((((((((ggggfX9-A.M\`+';
D[35] := ')-=VA.d(>H(((:\((((((\5]E()@(((,8^eXF8)+(((-<.-[E.<(=H(()<5TA>-ZZ*';
D[36] := '(((((((((((=(,@(A(*V(A(((8((((((((((((,(((((LH(,(((((()((6@(=(,Jc(';
D[37] := ')(17:X((((((-(+\(+8)-2(*(0((((((()8(*H(L(4J0,L1QCLIMF*)^5*`X0*(P<*';
D[38] := ':/-`28((((((3((2(+X(Z0HAE_1QE/9MCJ)JF:)AEN=[0,YMC?)MDN=]DH((((((1(';
D[39] := '(,8(*H)<(4J0.L5WD/MZB>EPE*(Y6;H]0.1a0,]IB>a[E.-a((((+()L(.8(WH.8.*';
D[40] := '((M==8(((*P((8((((((7(+N(-()0H8*;\T(((((()T(:((S(9J0*=`X0.=ZDNeZW*';
D[41] := '3H(((((;(,@(A(*b(A(((8,(((((((((((((()4(2((<(9H)c(()(8((((((((((Z+';
D[42] := '((((,X).(.L(B8..((,)((((((((((((()?X(((((<IUggZPCRKfR92Q42O48RFQT)';
D[43] := 'F^,(,G0H7(((ggfH4Kdd((2Qb<2O3[Y88<537[X()bNH0-fH:L2O3[Y.;\a<7[X)K*';
D[44] := 'K2NH0-fH:L2O3[Y.;\a<7[X**BNH0-fH:IUd((/g3IUd((+g3>,(,E)X(.,(+?bQW(';
D[45] := 'U,0O7[X7g\IUgV:QD,PGAf`X3GcL\,(X6X(.;WT((WgH(+;g`((@gf+g`7gH(>3gg(';
D[46] := '`7gHgf+g`.,(,N`X3GcZ*(((*.Fb8RDH3GcN7X*Q7N(((+9I()1:8NDW3GcV:._f?)';
D[47] := 'e2LT4)g88+(c((A6fX(*ga((+H,,ga+gL7f8ga)*QZdUgVbQ7:UGgWHX3Gc`\,(X,(';
D[48] := '6X(.;WT((H(0()@(CH+.8NFQ6/((@8(4].((g]8X3Gcb+,(((>@X8RDg7(()8RDWA*';
D[49] := '77ggggfQG*U?gZJQ-<2O:._fg2N94*_fg(Y(((-NcJdUgZJQH^*`8RDg7(()R<LgC*';
D[50] := '3Gcb:._fQ2M.8NE0CGbLRCA2?^*B4*_ffU)(4+T()Lcc((3gK(*<(FcgK((8(*[g+*';
D[51] := 'K()0*J\((GdV8RDg7((*R<Lg7((,/Z_g3RM-@(+g@HPU((/g3<2O7[X((RM17[X(:)';
D[52] := ')9dUgZ^Q9>((g\BQe+(UgWQO(7dd<\)*1[d(RD12/^((gZa0CGcL3Z_fe2N[@(+fN+';
D[53] := 'H.,(,:8X3GcNAX+fE,1O7[X(A+dd(.8W3GcN7[X((2OQ:MeH(7aB7[X(9Kdd(,A0^*';
D[54] := 'FI,P8RDg77gg8RE*Q\IUgHXg7((*RFQ23G`4AX+f\N,(*Z(g7()L7[X(9LIb,7]0-(';
D[55] := 'CGbL8RE0CGa@7[X((BOR:J_f>.D(gRQX).,(*`)1cG`4@8(64N@(+R`SB((HgW`Sc*';
D[56] := 'B((LgX0X2((P(L+`(+U(gX@SB((^gXHSB()(gXYI((V@:F_f>.,(+E9N((a^@8(5Q+';
D[57] := 'XN@(+N1I((_VAH(6>J-d=,=@=((H0?Y*CLIY(*:H+;`P())N((a(D(1-cGPZ:F_fZ+';
D[58] := '>.,(+;AN((`J@8(.;N@(+IQI((=TAH(6,O()9GH((,OUgHYI((\<AH(5e*UUgXKgV*';
D[59] := '1.,()DYN((_N:F_f+.,(+:QN((_BD(--f(((:F_f+.,(+8)N((_02^_g+7dL@8(-/)';
D[60] := 'P.@(+CQ1cG`4@8(4gN@(+BaI((B8AH(5TLOUgMII(([RAH(5QN,(*TII((eP@(+eD+';
D[61] := 'P+dd(,@g7().:/P7[L2O:J_g3N@07[[gg\2O@(Hg7(():/P+?,2O:._f++dd((2QO*';
D[62] := 'bLPUgHYO(7]PD(--f(((:F_f+.,(+.9N((\^@8(13N@(+:`f77gA:L-O((\L8F_dX(';
D[63] := '7.(8,)H4(((bAX`4(((KAX()*-/1gfaH\JU0gYHc8Gd>@8(./.@(+7II((:FAH(4=(';
D[64] := 'd+dd(.8g7().:/P77\IUgR9*Q\IUgMHg7(()RFQ23Ga@AX((UO(,@8(1XN,(*IY1\)';
D[65] := 'cGa@@8(49N@(+31I((X\AH(4P.,(+.)N((Z@0>_fgH(H0>_g(H(L4*_g)P-P(*JH4)';
D[66] := '+;`P())N((YbD(1-cGPZ:F_f>.,(*b9N((YD2^_g*7dL@8(,JN@(+,a1cGa@@8(3B)';
D[67] := 'VN@(+,1X(L?UfK11cGa@@8(3L.@(++(SCGd4gZ9I((9FAH(40LOUgMII((V6AH(4*+';
D[68] := '-LOUgHYI((V*AH(40.,(*>)I((`(@(+d6,OUgHYI((URAH(4+.((g*HSG-9->-;f=)';
D[69] := 'gJUd8Na0DGd*8N_g)HY)((IM,.,((TPS87cf@8(*XJU(gX0488(-A9(4.((LAHQIV*';
D[70] := '((2dA88c87d.@8(0BKdd(.8g7().:/P6,\IUgR9*Q\IUgMHg7(()RFQ23Ga@A`QXb)';
D[71] := ').,(*1II((L,:F_f>.,(*YYN((V0@8(3*N@(*_AI((T^AH(3CJ-UgW`(0*-UgX0(@*';
D[72] := '1+(UgXB)B((PP(\f2((8AH(3<,0UgZe*3GdY8N_g,N,()`9N((Td8gP);N,((QQNY(';
D[73] := '+IUd((/g3^,()^YN((TL8gP)9.,((P1N+N,(*1QI((E>AH(3+N(R8gP)6>,((NQNX*';
D[74] := '0.,(*19I((DfAH(2eO(*9F_b4LOUgMII((P`AH(2^.(:D(1-cGPZ:F_f>.,(*HYNZ*';
D[75] := '((S,@8(2P.@(*SYI((B.@(II((D*AH(2SLPUg+YO1L7b(41I((0:AXQI((,4AH(2N*';
D[76] := 'MN+F8gP(_N,((GaN*.,()UAN((R*@8(.0N@(*OQ1cGa@@8(1aN@(*Na+fH*B@8()8)';
D[77] := '^.D(g]A+fH*C@8()[.D(g^11cG`4@8(1XN@(*N)I((FH8gP(O^,((C)N/N,((<9MI)';
D[78] := '83(Ug[-O8,/b*[d83GdY@8()@O`*@((2CL7b(09I((.0AIaI((,@A9JXCGd:AYI)2*';
D[79] := 'fHTJ4*_g,N,((;1f(>((*LAf(^((*L)I((WR@(+b0M9->-8+2JPR+:PR2L57;=):O+';
D[80] := '9=5;9<842JPR9,-<8:).;]13,*PR2M1-<\e=<L5-0,A7<LT62JPR9<a,0,e.0,9)+*';
D[81] := '=,,42JPR8\I-8\U;=<\b)ZPR2L5:8[QI((+N:J_g3^@@+(,((N<b@8((J.<\\:_gg+';
D[82] := '4>,((+1ObN(R7+X(H,1(@8((4K8(@)AI(((R5J_g,UA(a]Tc8gd:@8((+.@.<DSgH(';
D[83] := 'b,1/;O=0a`*(@8(,XL[G(8-6E?@/+(@(H.@B8LA28>D8<\,D.(8.(*(4)H)(A6[MW)';
D[84] := '+H(.((3K+V48<DWg^La]E(7IJ)(@<\-9ZWg`;O=I(((*@8(((I8@<\,2(H(X+(0((+';
D[85] := '*N<2)H0(J8X*(7QM+(0*((gQ:0(*(KX(gLa]7X+H:.,*4)dG(6H0@808/X0(((d()*';
D[86] := '(((X+(((6N<*?H(8X,a]8F_d7,1),IIO+(X8((QN)M20<\-Ne,a]@FA*8I8ATL1MP+';
D[87] := '+.(,TXIN)M/2ggQ*8,a]8N_g,L7UgIA*8909,)MI((+TAJ99ZGg^,*_f->,((5aNd*';
D[88] := '-L7UgWaZ,9(A@8((\.@0<DOgeN,((2Y6E<1UgY1I((.BAKQf(8X((+eJ4L1),H)+])';
D[89] := 'cGbL@(AI((.*AJ0:X-/1ggAI((-^AIA+cGcfDI-I((-RAHP:X-/1ggAI((,d;O=*[(';
D[90] := 'CGd::R_g1.DF@8(+Z.@DLb_g1,7Ug+YH*)(A@8((?N@2<DOgeN+D@8((6,a]@8(+/*';
D[91] := 'M,1UgY12SGdLAY1I((,DAIAI((4bAI);SGdLAVaI((+PAH9I((5,;O=*CGd8@(()P*';
D[92] := '6O((@8((R.,((28X3Gd:4H+H:.,(((AN8+():6E(()0(@8((JLQUgY)O+3(Ug[)O:)';
D[93] := ',.,((*IN/IU)g[)I(()2AI9:CGd8+.\(ggd8A8AI(((4AH1*9\[G((16E8YU((3g3(';
D[94] := ',.<F@HII(((HAYAH.)(d(1)I((+\AH`X3Gd8@8((bN@,8N_g,,a],*_g4.,((5QN6+';
D[95] := ',(X((1)N*/((@8(([.@*8LE6E>.^AH9I((,.;O=0af((5*_g,O0/`XKK<N8,*L08;*';
D[96] := '0=/1gg8c8Wd:;5d()\a]8N_g,.(((>aI(((HAIQI(((BAI92CGd:AXa)fHG04*_g_)';
D[97] := ',N,(gEIf(<a]:N_g,.@H@8()DN@Z+(((L.@J@8()AN@N:H)O--4((L((g[U(gY);f+';
D[98] := 'CGd8,*_g4.(0,+X(L)U(g[)I(7eb8LE6E;Ud((;g-,1UgYAI((0F8gP([.,((AaN6*';
D[99] := '-.,((AaN+O(b@8()XN@.<N_g-L1/;O=0af((5*_g-/0/`XKK,N8P-+TH?4-*@8()8*';
D[100] := 'ON@N<N_g-HYU(,+g-N<2@8()@.@<8N_g-T-*5+X()-/1ge(c8Wd<8LE4_X(/;O<X(+';
D[101] := '3Gd<`XILg)(c()YI((-HAI1X6N,((=IN*N,((:AN).,((>I6E:,J0Z8M1JDP2:PSL)';
D[102] := '3*\X4;0[5+<^6+M(8<1+9,=.9\I1:LU4;<a8<=1;=-=>>-MB>^)I@N5LA>APB>QSF(';
D[103] := 'C.]XD?0U2-9PB?4HANMTA:)UE?5\0.1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*(\7+';
D[104] := '3K(Q8F_e7/)g,7X(H-/0ggQ)fWf*8f_e7,1)D+d:4(((,`(8(-/0gg@cG(*(gY9*G(';
D[105] := '9\a]:6EH(+8UgY9Z)XX*(0)N3,QUgYAN).,`AK(HCGd@<R_g.-5UgYA*8I88Bf9)G*';
D[106] := 'cG\d-+(H(.WBa8P((H(*`XSK,-/1gdHc8Wd<8LE4_X(.;O=0ad((@8((`N@::L-O@)';
D[107] := '-,/Ug+XS:7d@6\/g-L1/;5d((\a]7K[g^>+\@8((.N@<D(]I(((PAHY23GdUAXAXG*';
D[108] := '*N,(()Q6E<1),IMH*)(A@8((+.@.<DOgeL1/;O<HCGdD,0):SGdD<R_g0(ZU(((HA(';
D[109] := '(7dHA(9*9\a]8F_eW,2P((XYCGbJ()I0CEPZ0=d(0*-UgZ((1,1P(*Y*R((VP(4fG(';
D[110] := '2((8:._B4JUGgYY*SGdH:LE6E</UgCY*R((44>_f=H(@:._d7*-G(*(IG((((8((;+';
D[111] := '1,1P(*Y*R((VP(0J2((P7JH(,.D,+,Gg^<a]8F_eW,2P((XYCGa>()I0CGXd0=d(Q(';
D[112] := '0*-d((()(((L4?X5H((T8RH(3R(*0JH(2+`P())O)(Y/geM6E</UgCY*R((44>_f,*';
D[113] := '=H(@:._d7:-G(*(IG((((7d(1+-d+@((3,2P(*bH(IUP(*Wd7+`P())O)(Y/geM6\(';
D[114] := 'E</UgIA+cGbL8L(8.(Y((+UK(O(c,T)H(I3@<DKgg,/b())X(Y3@<DKgg-HUgR96a)';
D[115] := 'E:a0D?I)cG`>8f_fQ,1),I(:^(Y)((9N2I(8+(((3N@J,*H((>,((*04(()0AI88-)';
D[116] := '2((+@8((-(X((-IN)MLUgR9H)-/1gdY6E8X((/QJ*HX((.-M)(0((-e6E<Q(AH:PO)';
D[117] := '<.(48RDg(2Na0-dW,2I9;O=*Q[dd((-*QZddgggggbNe2]Gg22I[7[X((bJ/7[X(B)';
D[118] := '+2J28NFPJ+dd((.PJ<a]3Z_g22L<;O=IZ.,((,aI((*2@8((QN(((41IUN,((-YI-*';
D[119] := '(()`@8((M.(((3)IQ.,((,QH((*N7[X(-+dd(+*PL\?b(=)H((-\7[X(-+dd(,*P@)';
D[120] := 'L\?b(<MH((-J7[X(-+dd(**PL\Ib(4RPI,?UgIAI((-2:/P(\RJ,;O<g7((<7[X(L(';
D[121] := '02J;:/P(RRJ,9F_f@N,((:Q0FH*ZR096E;dd()8g7((XR150FH*KR08H3Gd0@8((S)';
D[122] := 'g,Ib(2JPI,a]7[X(-+dd(,*PL\Ib(1bPI*(UgXYI((+D:/P(J2J,;O<g7((<7[X()(';
D[123] := '<2J;:/P(MBJ,._X()7Xe2^_fgWXf9F_d7>,((3a0FH).R08g7((<7[X(@2J;:/P()*';
D[124] := 'EBJ,._X()7Xe2^_g(WXf9F_d7>,((190FH(DR096E9=+C^a^A?1\B>aO0/9PA:)N()';
D[125] := 'B>YM0*0*0J`:9.-\@:)NC_1S0/5QFN<HB?4H)Z)JF?9MDZ`><N=[C_=Z@^<HANeZM)';
D[126] := 'BZ)[B?QM0.M[0(M<F?)M0.M[0*048_1M@?9WDJ)QDZ(J*L9IE.,HANeZBZ,6<N=[6+';
D[127] := 'C_=Z@^<HANeZBZ-)cGXd7[X((2OV9F_d7+dd((*PIZd2R08g7((+R0E6E</UgCY*M+';
D[128] := 'R((4:.X(*J-G()0YC((.()@9C((1()Q6E>/H,<((.Z-2()ZH(+MP()H(:K`P())6]+';
D[129] := 'E>/0,<((.Z-2()ZH*KMP()H(:K`P())6E</UgCY*R((44>X(:H(@P(,f2((8AI)*Q)';
D[130] := 'R((:4>X()H(>P)4f2((8;O=IJ2(07JH(,,a]@8+gGL1P()ZH++`P())O)HY/ge=HA(';
D[131] := ',K`dge402((/(*IN)R(17JH(,,a]@8+g=,1P()ZH++`P())6E</UgCY*R((44>X(6)';
D[132] := ':H(>4?X((H(T8RH(3R),7JH(,,a]7XE1cGa@@8+gC+`G7XE1cGa@@A0f/^,(g<0g7*';
D[133] := ')\OUgHYI(7e:7IeH2+d/:F_f+.,(g\8f/[d/:F_f>.,(g[Hf/[d/:F_f>.,(g]`fc)';
D[134] := '/^,(g8Y)fH(\,)IO+LJ(WL)O*,1(,)K8X.+V3XI*Q\2O8RFQJ_((@8+dPL1O7[X(*+';
D[135] := '*<2OR@A2?^((ccCG+L9QDN=KE.eZF:)NE>YT_HM,B?5S0.A]C.[D*,9QD^TH::e7>)';
D[136] := '^8U-CN8HC^@HANMTAE8@=_1QE.<HD/1WE.=KE.=L0.9QD^UME/9M\XU.B>YM0.YWP)';
D[137] := '@^UMA505=NeTE>]M0.YW@^UMA5,19NMTA:)JE?5a(XU6CZ)KB.=KB_5]C8068^IMD+';
D[138] := '@^U[E>\H2*8X4*L)*\5:8Z(P1+(X4+(Q((U.B>YM0/5aD_9MC<2O7[X((BNg3YE*b+';
D[139] := 'AbL]3[Y,<MA:R<]*Q[dd((2QW\1OR;=*Q[dd((6QW\1OR;>Q5\a]8RDg7((*8RDWN(';
D[140] := '77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJKdd((.PJ+dd((.PJ<Ib(9\W7(((((U05+';
D[141] := 'FH*`7[X((BO67[X((bJ/8NFPJ,Ib(8PW7(((()-0FH*J7[X((BO67[X()2J/7[X(*+';
D[142] := '*BJ2:/P(fZdd(((**LIb(0Pg7(((RDa0FH3Y3[X((()):/P(GKdd((.Q[IUd((/gB)';
D[143] := '3,a]8RDg7((+8RDW77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJL1OR0Hg7(()R0Lg++';
D[144] := '7((27[X(-RJ;:/P(<BJ,._X((GdT;O=23GdTAXPW3GdPR99*3GdT;O<(*H(2()P)4)';
D[145] := '[H(B((P(6H/6(,P(*H*`(D`(V((2(68)[H(9<^-^A:)LC^5]C>=VE*)ID[PO9NMTB*';
D[146] := 'A:)KC^a^A?1[B>eV0/5]@^5MD_5NE>YTF:)KC^]XC.=\A>8I8NMV:.=`0/@\3K)J-)';
D[147] := 'F8]AEN=[0,YMC?)MDN=]DM9PB?4HCN=_0.-VA*)QC?)ZC_AMA*)^A?1[B>eV0.eNb+';
D[148] := '0,1QCLIMF*)QDZ)JDNe]A^I\0/9W0/MWE:)IDZ)I0/)]@NYQ@Z)[A?1^B>5M0.1aA*';
D[149] := '0,]IB>a[E.-a3J)*B>a0A?HHB?4H@>`HB>a\A>EZ@?9MA*)X@?1\0.eN0/9PA:)<C(';
D[150] := 'A>YMD^5ID.<H@^eUC?=VB>5IE.MWCO4HD.-KB^-OA:XHD^eWCJ)\CZ)JA:)ZA>YMJ*';
D[151] := '@?5MA*)JF:)5@>MVD_9IF:`5+=9MC.=[@^-XA:)OB?AMDZ)aC_<HE.IM0.A]E/=Z\*';
D[152] := 'A:)QCJ)KC^]UE>aQ@^-\B>eV0*\U0/9WA.-a0:);A>aL0.]MD_5IA^=[0/EQE.HH])';
D[153] := 'EN-ZB>e]DZ)\A?I\0/5QFN=[3*)NC^a\DZ)ICN8HA_1ID.IQ@Z)[B.-XA?4V0,e\@+';
D[154] := 'B.=Z0.AM@?9]DN=[0.MV@^Y]A.<b0.eV3?5KDN=MCJ)KC^]UE>aQ@^-\B>eVDZ)LH(';
D[155] := 'B?1M@_9WDOLT0.MVE.=TC.MOA>a\0.]I@_1WDZXHE>aQEN=ZD^-T0/9MDN]QCN-Td*';
D[156] := '0.=UE>YIE.MWCJXHA?1ZC_0H@^IM@^UQCNDHD/1WE.eKC^Y[0.-VA*)ICJ)]CN-\))';
D[157] := 'E.=VA.=L0.]MD_5IA^<HD^=ZENMKA:`5+<AWDJ)NE?1\B.=Z0.MVANeZC>-\B>eV:)';
D[158] := '3*)KC^a\@>5\6L]IB>a[E.-a+;0`5K,Y8J)+@>a_C^eL0-5\3H])A^e]DN,H:.MT8+';
D[159] := 'C/4T0,5)0+LY4[(Y+:H`4;HQ0+La4:\^5;8X((((.((((*H((*?6((((*((((*((])';
D[160] := '(+dd((.Qd((((8((()XO(((C1X(((=P((4XD(-X((((D(=P(*L1V:/,((()B:<56S(';
D[161] := '0X()(.A.<L=.((,(GL169,X(((*>:<57;H(((2159<a=((0(SL94;\D(((+:9,M<)+';
D[162] := ';(()(5a);-1<((((eME1;L8((H,*8\e,98()(:@((7gg0(((((((Ze((HGgg0(()E)';
D[163] := '0(((ZdH(H7gg0(((/(((ZdX(HGgg0((*3X((Zd((H7gg0((*1(((Zd8(H7gg0((*>(';
D[164] := '6H((ZcX(H7gg)((*@H((ZcH((ggg)((+N8((ZbX((Wgg)((+,X((Zc(((Ggg)((*\(';
D[165] := 'aH((Zc8((Ggg)((+a8((ZbH(*Ggg)((,Q(((ZaX((Ggg)((+gH((Zb8(*Ggg)((,a(';
D[166] := 'M(((Zb(((ggg)((-((((Za(((Wgg)((,b8((Za8((Ggg)((,\H((ZaH((7gg0((C+(';
D[167] := '*X((Z`H((Ggg-((--X((Z`X(9)';
end; {InitDataArray}
{}
procedure BadDownload;
begin
writeln('The text of procedure InitDataArray is not correct.');
writeln('Probable cause: bad download of this program.');
writeln('To examine, choose first item from "Windows" menu.');
end;
{}
function DataToCode: boolean;
const
StuffHex = $A866;
var
Count, CodeIndex, i : integer;
Check : longint;
Error : boolean;
begin
Count := 0;
Error := false;
CodeIndex := 1;
while (Count < 9) and not Error do
begin
Count := Count + 1;
i := length(D[Count]);
Error := (i <> 64) and ((Count <> 9) or (i <> 4));
if not Error then
begin
InlineP(StuffHex, @Code[CodeIndex], @D[Count]);
CodeIndex := CodeIndex + 16;
end;
end;
if not Error then
begin
Check := 0;
for CodeIndex := 1 to CodeWords do
Check := Check + Code[CodeIndex];
Error := Check <> 875676;
end;
if Error then
BadDownload;
DataToCode := not Error;
end; {DataToCode}
{}
function WriteAppl : boolean;
const
JsrIndirectA0 = $4E90;
noErr = 0;
DataErr = 1;
dirFulErr = -33;
dskFulErr = -34;
ioErr = -36;
mFulErr = -41;
fLckdErr = -45;
vLckdErr = -46;
wPrErr = -44;
var
i, j, Result : integer;
RegRcd : record
A : array[0..2] of ^integer;
A3 : ^char;
Filler : array[0..7] of longint
end;
Glue : array[1..5] of integer;
begin
Glue[1] := $2057; { MoveA.L (SP),A0 ;return addr }
Glue[2] := $2E8A; { Move.L A2,(SP) ;ptr to Result }
Glue[3] := $2F0B; { Move.L A3,-(SP) ;argument }
Glue[4] := $2F08; { Move.L A0,-(SP) ;return addr }
Glue[5] := $4ED1; { Jmp (A1) ;to subr in Code array }
i := 10;
repeat
j := length(D[i]);
Result := ord((j <> 66) and ((i <> DataLines) or (j <> 26)));
if Result = noErr then
begin
with RegRcd do
begin
A[0] := @Glue[1];
A[1] := @Code[1];
A[2] := @Result;
A3 := @D[i]
end;
generic(JsrIndirectA0, RegRcd);
end;
i := i + 1;
until (i > DataLines) or (Result <> noErr);
if Result = noErr then
begin
with RegRcd do
begin
A[0] := @Glue[1];
A[1] := @Code[1];
A[2] := @Result;
A3 := nil;
end;
generic(JsrIndirectA0, RegRcd);
end;
case Result of
DataErr :
BadDownLoad;
noErr :
;
dirFulErr :
writeln('Output disk''s directory is full.');
dskFulErr :
writeln(' Output disk has too little free space.');
fLckdErr :
writeln('Old "BinHex4" file is locked, can''t replace it.');
ioErr :
writeln('Disk I/O error.');
mFulErr :
writeln('Insufficient memory.');
vLckdErr :
writeln('Output disk is locked.');
wPrErr :
writeln('Output disk is write protected.');
otherwise
write('File Manager returned unexpected error code = ', Result);
end;
WriteAppl := Result = noErr;
end; {WriteAppl}
{}
begin {program}
HideAll;
SetRect(TextRect, 0, 20, 528, 342);
SetTextRect(TextRect);
ShowText;
Writeln('Processing -- please wait...');
InitDataArray;
if DataToCode then
begin
if WriteAppl then
writeln('Done!')
else
writeln('Sorry, nothing was accomplished.');
writeln('To exit, select "Quit" from "File" menu.');
end
end.
--- END OF MACINTOSH PASCAL PROGRAM ---
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