home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / code / p_binhex.sit < prev    next >
Encoding:
Text File  |  1985-07-07  |  16.4 KB  |  339 lines
  1. program Make_Binhex4;
  2. { Requires 512K }
  3. { MakeMakers, by Steve Brecher,}
  4. { generated this program on 7/6/85 }
  5. {}
  6. {}
  7. {}
  8. {}
  9. {}
  10. {}
  11. { Select "Go" from "Run" menu. }
  12. {}
  13. {}
  14. {}
  15. {}
  16. {}
  17. {}
  18. {}
  19.  const
  20.   DataLines = 167;
  21.   CodeWords = 129;
  22. {}
  23.  var
  24.   TextRect : rect;
  25.   D : array[1..DataLines] of string[66];
  26.   Code : array[1..CodeWords] of integer;
  27. {}
  28.  procedure InitDataArray;
  29.  var
  30.   i : integer;
  31.  begin
  32.   for i := 1 to DataLines do
  33.    D[i] := ''; {set all values in case any lines were dropped}
  34. D[1] := '4E56FF80204E42A0BFC865FA41EEFFB043FA00E221490012316100186620A008';
  35. D[2] := '670C0C40FFD0660EA009660A60F0117C0003001BA00A660000A632A80018222E';
  36. D[3] := '000867000062214F0020703021400024224172001219E4495341244F76287000';
  37. D[4] := '7403ED889711801951CAFFF815400002E0481540000148401480564A51C9FFE0';
  38. D[5] := '705A244F722FE318141AB50051C9FFF812199203E54997118211B00167047201';
  39. D[6] := '6034A0036038217C00001D81001CA012662242A8001CA00C661A700180290002';
  40. D[7] := '43F1000345E8002024FC4150504C24D93491A00D3200A0014A41670230013200';
  41. D[8] := '6704A009A0134E5E205F584F225F32814ED000000742696E68657834426E4871';
  42. D[9] := '2000';
  43. D[10] := '((()((((/*D(()TO((()>N1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*a0A?HQ+8PKc+';
  44. D[11] := '8=)8;,1V:/,L4K(X4(\22JPR<L=;;]=:8\<H9Le::X\24+(X4+(Y4+(X4+(X4<4Z@+';
  45. D[12] := '4[(X4+(Y8K0[4+(X4+(Y5<,Z4+8`5+<]6+0X4K(Z4+0X4K([4+<Y4K(X4+(X5;0]I+';
  46. D[13] := '4X\25;0\4[(X4+(X4+,`5+0\9;8`5;,X4+(X4+(Z4+(X4+(Y5[8Z5KL^9;8`5K<_P)';
  47. D[14] := '6+0X5[@[5+1-4[(Z4+1,4L8Z4(\24[([4K1.4[,[6+1.4[H[5;<Z5;4]4K8[4+(X\)';
  48. D[15] := '4+(Y4+(\6;8[5,<Z4[(X6(((()H?8NMV:.=`0/@\3K(H3:\H4+0W4;LW6+<(((,(:*';
  49. D[16] := '+ggf((H((X(0((2(*()*8(H(@J(0Gg08*/gcf(Igd(H0D.(0*/)(*(IX((H0D((0H*';
  50. D[17] := '*/((*(IX((H0D+d0*GY(J(K`H,H0D;(P**/0.(H6GXd,(K(/(H,()X,(H(D(H.(/F+';
  51. D[18] := '(,(GaX(H(Id(,(8/((H0(((,,((((J((((-(((((H((7gg`(+ggg((ggg`(7ggg(@*';
  52. D[19] := '+ggg`(gggg(7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`\+';
  53. D[20] := '+gggf(ggggH7ggg`+ggggXGgggd+gggg(GgggX+gggd(Gggg(+gf/X(Gg(D(+gH(@*';
  54. D[21] := '((GX(((+`((((D((((*((((((8(7gg`(*((+((Q0(P(1<(1(*((*0(T@(I(0((7`-*';
  55. D[22] := '*=((*(Q0((H0(((0*(((*(H(((H0(((0*(*(*(H)8(H0(J(0*(8`*(H09@H0,360J*';
  56. D[23] := '*(OeJ(H,T@H0(T.0*(-gJ(H(H@H0(((0*(((*(H(((H0(((0*(((*(H(((H0(((0S*';
  57. D[24] := '+gggf(gggH(7ggd(+gggH(gggd(7gggH+gggd(ggggH7ggg`+gggf(ggggH7ggg`;(';
  58. D[25] := '+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`>*';
  59. D[26] := '+gggf(ggggH7ggg`+gggf(ggggH7ggg`+gggf(ggggH7ggg`(((()\-8<,X(((((3+';
  60. D[27] := '(((/=,=@=(()(((((*9*CLIY(((((<M+;J4((8(((0(((8*)9M1-9H()((((H(()N(';
  61. D[28] := '(0,(((*((((((((7((((*@((((M((((1`(((**((((HH(((00(((GgX((*(0(()g;*';
  62. D[29] := 'g(((8(8((-(<(()()(()X(F((,(,H()()0((<):((,(,H()gg1`(0(Kf(/gd/H(*))';
  63. D[30] := 'H(((),((((IX(((8JX((0>D(()7c(((1@X(()@4(((3g((()(X(((((Q((,(((((,*';
  64. D[31] := '(((((7ggggT)-(])@Ne]E*)*B>a0A?K1((((((,U((((((((((**((0(((((((((8+';
  65. D[32] := '(7gggcD,9NMTA9=)D/)TB>5IE.MWCJ(U7J)=D.YW@>8(=8((-\9WE^aTC^-L0*\f/*';
  66. D[33] := '0,-XD.YQ@^-\B>eV(,8(((,U((((((U<9=I<0.AQC/9MDH((,H(68>9L0.YQCN<HM)';
  67. D[34] := 'AN=MA/4((((((:\((((()--]B?8(<8(((((((,H((X((((((((((ggggfX9-A.M\`+';
  68. D[35] := ')-=VA.d(>H(((:\((((((\5]E()@(((,8^eXF8)+(((-<.-[E.<(=H(()<5TA>-ZZ*';
  69. D[36] := '(((((((((((=(,@(A(*V(A(((8((((((((((((,(((((LH(,(((((()((6@(=(,Jc(';
  70. D[37] := ')(17:X((((((-(+\(+8)-2(*(0((((((()8(*H(L(4J0,L1QCLIMF*)^5*`X0*(P<*';
  71. D[38] := ':/-`28((((((3((2(+X(Z0HAE_1QE/9MCJ)JF:)AEN=[0,YMC?)MDN=]DH((((((1(';
  72. D[39] := '(,8(*H)<(4J0.L5WD/MZB>EPE*(Y6;H]0.1a0,]IB>a[E.-a((((+()L(.8(WH.8.*';
  73. D[40] := '((M==8(((*P((8((((((7(+N(-()0H8*;\T(((((()T(:((S(9J0*=`X0.=ZDNeZW*';
  74. D[41] := '3H(((((;(,@(A(*b(A(((8,(((((((((((((()4(2((<(9H)c(()(8((((((((((Z+';
  75. D[42] := '((((,X).(.L(B8..((,)((((((((((((()?X(((((<IUggZPCRKfR92Q42O48RFQT)';
  76. D[43] := 'F^,(,G0H7(((ggfH4Kdd((2Qb<2O3[Y88<537[X()bNH0-fH:L2O3[Y.;\a<7[X)K*';
  77. D[44] := 'K2NH0-fH:L2O3[Y.;\a<7[X**BNH0-fH:IUd((/g3IUd((+g3>,(,E)X(.,(+?bQW(';
  78. D[45] := 'U,0O7[X7g\IUgV:QD,PGAf`X3GcL\,(X6X(.;WT((WgH(+;g`((@gf+g`7gH(>3gg(';
  79. D[46] := '`7gHgf+g`.,(,N`X3GcZ*(((*.Fb8RDH3GcN7X*Q7N(((+9I()1:8NDW3GcV:._f?)';
  80. D[47] := 'e2LT4)g88+(c((A6fX(*ga((+H,,ga+gL7f8ga)*QZdUgVbQ7:UGgWHX3Gc`\,(X,(';
  81. D[48] := '6X(.;WT((H(0()@(CH+.8NFQ6/((@8(4].((g]8X3Gcb+,(((>@X8RDg7(()8RDWA*';
  82. D[49] := '77ggggfQG*U?gZJQ-<2O:._fg2N94*_fg(Y(((-NcJdUgZJQH^*`8RDg7(()R<LgC*';
  83. D[50] := '3Gcb:._fQ2M.8NE0CGbLRCA2?^*B4*_ffU)(4+T()Lcc((3gK(*<(FcgK((8(*[g+*';
  84. D[51] := 'K()0*J\((GdV8RDg7((*R<Lg7((,/Z_g3RM-@(+g@HPU((/g3<2O7[X((RM17[X(:)';
  85. D[52] := ')9dUgZ^Q9>((g\BQe+(UgWQO(7dd<\)*1[d(RD12/^((gZa0CGcL3Z_fe2N[@(+fN+';
  86. D[53] := 'H.,(,:8X3GcNAX+fE,1O7[X(A+dd(.8W3GcN7[X((2OQ:MeH(7aB7[X(9Kdd(,A0^*';
  87. D[54] := 'FI,P8RDg77gg8RE*Q\IUgHXg7((*RFQ23G`4AX+f\N,(*Z(g7()L7[X(9LIb,7]0-(';
  88. D[55] := 'CGbL8RE0CGa@7[X((BOR:J_f>.D(gRQX).,(*`)1cG`4@8(64N@(+R`SB((HgW`Sc*';
  89. D[56] := 'B((LgX0X2((P(L+`(+U(gX@SB((^gXHSB()(gXYI((V@:F_f>.,(+E9N((a^@8(5Q+';
  90. D[57] := 'XN@(+N1I((_VAH(6>J-d=,=@=((H0?Y*CLIY(*:H+;`P())N((a(D(1-cGPZ:F_fZ+';
  91. D[58] := '>.,(+;AN((`J@8(.;N@(+IQI((=TAH(6,O()9GH((,OUgHYI((\<AH(5e*UUgXKgV*';
  92. D[59] := '1.,()DYN((_N:F_f+.,(+:QN((_BD(--f(((:F_f+.,(+8)N((_02^_g+7dL@8(-/)';
  93. D[60] := 'P.@(+CQ1cG`4@8(4gN@(+BaI((B8AH(5TLOUgMII(([RAH(5QN,(*TII((eP@(+eD+';
  94. D[61] := 'P+dd(,@g7().:/P7[L2O:J_g3N@07[[gg\2O@(Hg7(():/P+?,2O:._f++dd((2QO*';
  95. D[62] := 'bLPUgHYO(7]PD(--f(((:F_f+.,(+.9N((\^@8(13N@(+:`f77gA:L-O((\L8F_dX(';
  96. D[63] := '7.(8,)H4(((bAX`4(((KAX()*-/1gfaH\JU0gYHc8Gd>@8(./.@(+7II((:FAH(4=(';
  97. D[64] := 'd+dd(.8g7().:/P77\IUgR9*Q\IUgMHg7(()RFQ23Ga@AX((UO(,@8(1XN,(*IY1\)';
  98. D[65] := 'cGa@@8(49N@(+31I((X\AH(4P.,(+.)N((Z@0>_fgH(H0>_g(H(L4*_g)P-P(*JH4)';
  99. D[66] := '+;`P())N((YbD(1-cGPZ:F_f>.,(*b9N((YD2^_g*7dL@8(,JN@(+,a1cGa@@8(3B)';
  100. D[67] := 'VN@(+,1X(L?UfK11cGa@@8(3L.@(++(SCGd4gZ9I((9FAH(40LOUgMII((V6AH(4*+';
  101. D[68] := '-LOUgHYI((V*AH(40.,(*>)I((`(@(+d6,OUgHYI((URAH(4+.((g*HSG-9->-;f=)';
  102. D[69] := 'gJUd8Na0DGd*8N_g)HY)((IM,.,((TPS87cf@8(*XJU(gX0488(-A9(4.((LAHQIV*';
  103. D[70] := '((2dA88c87d.@8(0BKdd(.8g7().:/P6,\IUgR9*Q\IUgMHg7(()RFQ23Ga@A`QXb)';
  104. D[71] := ').,(*1II((L,:F_f>.,(*YYN((V0@8(3*N@(*_AI((T^AH(3CJ-UgW`(0*-UgX0(@*';
  105. D[72] := '1+(UgXB)B((PP(\f2((8AH(3<,0UgZe*3GdY8N_g,N,()`9N((Td8gP);N,((QQNY(';
  106. D[73] := '+IUd((/g3^,()^YN((TL8gP)9.,((P1N+N,(*1QI((E>AH(3+N(R8gP)6>,((NQNX*';
  107. D[74] := '0.,(*19I((DfAH(2eO(*9F_b4LOUgMII((P`AH(2^.(:D(1-cGPZ:F_f>.,(*HYNZ*';
  108. D[75] := '((S,@8(2P.@(*SYI((B.@(II((D*AH(2SLPUg+YO1L7b(41I((0:AXQI((,4AH(2N*';
  109. D[76] := 'MN+F8gP(_N,((GaN*.,()UAN((R*@8(.0N@(*OQ1cGa@@8(1aN@(*Na+fH*B@8()8)';
  110. D[77] := '^.D(g]A+fH*C@8()[.D(g^11cG`4@8(1XN@(*N)I((FH8gP(O^,((C)N/N,((<9MI)';
  111. D[78] := '83(Ug[-O8,/b*[d83GdY@8()@O`*@((2CL7b(09I((.0AIaI((,@A9JXCGd:AYI)2*';
  112. D[79] := 'fHTJ4*_g,N,((;1f(>((*LAf(^((*L)I((WR@(+b0M9->-8+2JPR+:PR2L57;=):O+';
  113. D[80] := '9=5;9<842JPR9,-<8:).;]13,*PR2M1-<\e=<L5-0,A7<LT62JPR9<a,0,e.0,9)+*';
  114. D[81] := '=,,42JPR8\I-8\U;=<\b)ZPR2L5:8[QI((+N:J_g3^@@+(,((N<b@8((J.<\\:_gg+';
  115. D[82] := '4>,((+1ObN(R7+X(H,1(@8((4K8(@)AI(((R5J_g,UA(a]Tc8gd:@8((+.@.<DSgH(';
  116. D[83] := 'b,1/;O=0a`*(@8(,XL[G(8-6E?@/+(@(H.@B8LA28>D8<\,D.(8.(*(4)H)(A6[MW)';
  117. D[84] := '+H(.((3K+V48<DWg^La]E(7IJ)(@<\-9ZWg`;O=I(((*@8(((I8@<\,2(H(X+(0((+';
  118. D[85] := '*N<2)H0(J8X*(7QM+(0*((gQ:0(*(KX(gLa]7X+H:.,*4)dG(6H0@808/X0(((d()*';
  119. D[86] := '(((X+(((6N<*?H(8X,a]8F_d7,1),IIO+(X8((QN)M20<\-Ne,a]@FA*8I8ATL1MP+';
  120. D[87] := '+.(,TXIN)M/2ggQ*8,a]8N_g,L7UgIA*8909,)MI((+TAJ99ZGg^,*_f->,((5aNd*';
  121. D[88] := '-L7UgWaZ,9(A@8((\.@0<DOgeN,((2Y6E<1UgY1I((.BAKQf(8X((+eJ4L1),H)+])';
  122. D[89] := 'cGbL@(AI((.*AJ0:X-/1ggAI((-^AIA+cGcfDI-I((-RAHP:X-/1ggAI((,d;O=*[(';
  123. D[90] := 'CGd::R_g1.DF@8(+Z.@DLb_g1,7Ug+YH*)(A@8((?N@2<DOgeN+D@8((6,a]@8(+/*';
  124. D[91] := 'M,1UgY12SGdLAY1I((,DAIAI((4bAI);SGdLAVaI((+PAH9I((5,;O=*CGd8@(()P*';
  125. D[92] := '6O((@8((R.,((28X3Gd:4H+H:.,(((AN8+():6E(()0(@8((JLQUgY)O+3(Ug[)O:)';
  126. D[93] := ',.,((*IN/IU)g[)I(()2AI9:CGd8+.\(ggd8A8AI(((4AH1*9\[G((16E8YU((3g3(';
  127. D[94] := ',.<F@HII(((HAYAH.)(d(1)I((+\AH`X3Gd8@8((bN@,8N_g,,a],*_g4.,((5QN6+';
  128. D[95] := ',(X((1)N*/((@8(([.@*8LE6E>.^AH9I((,.;O=0af((5*_g,O0/`XKK<N8,*L08;*';
  129. D[96] := '0=/1gg8c8Wd:;5d()\a]8N_g,.(((>aI(((HAIQI(((BAI92CGd:AXa)fHG04*_g_)';
  130. D[97] := ',N,(gEIf(<a]:N_g,.@H@8()DN@Z+(((L.@J@8()AN@N:H)O--4((L((g[U(gY);f+';
  131. D[98] := 'CGd8,*_g4.(0,+X(L)U(g[)I(7eb8LE6E;Ud((;g-,1UgYAI((0F8gP([.,((AaN6*';
  132. D[99] := '-.,((AaN+O(b@8()XN@.<N_g-L1/;O=0af((5*_g-/0/`XKK,N8P-+TH?4-*@8()8*';
  133. D[100] := 'ON@N<N_g-HYU(,+g-N<2@8()@.@<8N_g-T-*5+X()-/1ge(c8Wd<8LE4_X(/;O<X(+';
  134. D[101] := '3Gd<`XILg)(c()YI((-HAI1X6N,((=IN*N,((:AN).,((>I6E:,J0Z8M1JDP2:PSL)';
  135. D[102] := '3*\X4;0[5+<^6+M(8<1+9,=.9\I1:LU4;<a8<=1;=-=>>-MB>^)I@N5LA>APB>QSF(';
  136. D[103] := 'C.]XD?0U2-9PB?4HANMTA:)UE?5\0.1M0.5WCOAMDO9MA*)_B?9P0,1QCLIMF*(\7+';
  137. D[104] := '3K(Q8F_e7/)g,7X(H-/0ggQ)fWf*8f_e7,1)D+d:4(((,`(8(-/0gg@cG(*(gY9*G(';
  138. D[105] := '9\a]:6EH(+8UgY9Z)XX*(0)N3,QUgYAN).,`AK(HCGd@<R_g.-5UgYA*8I88Bf9)G*';
  139. D[106] := 'cG\d-+(H(.WBa8P((H(*`XSK,-/1gdHc8Wd<8LE4_X(.;O=0ad((@8((`N@::L-O@)';
  140. D[107] := '-,/Ug+XS:7d@6\/g-L1/;5d((\a]7K[g^>+\@8((.N@<D(]I(((PAHY23GdUAXAXG*';
  141. D[108] := '*N,(()Q6E<1),IMH*)(A@8((+.@.<DOgeL1/;O<HCGdD,0):SGdD<R_g0(ZU(((HA(';
  142. D[109] := '(7dHA(9*9\a]8F_eW,2P((XYCGbJ()I0CEPZ0=d(0*-UgZ((1,1P(*Y*R((VP(4fG(';
  143. D[110] := '2((8:._B4JUGgYY*SGdH:LE6E</UgCY*R((44>_f=H(@:._d7*-G(*(IG((((8((;+';
  144. D[111] := '1,1P(*Y*R((VP(0J2((P7JH(,.D,+,Gg^<a]8F_eW,2P((XYCGa>()I0CGXd0=d(Q(';
  145. D[112] := '0*-d((()(((L4?X5H((T8RH(3R(*0JH(2+`P())O)(Y/geM6E</UgCY*R((44>_f,*';
  146. D[113] := '=H(@:._d7:-G(*(IG((((7d(1+-d+@((3,2P(*bH(IUP(*Wd7+`P())O)(Y/geM6\(';
  147. D[114] := 'E</UgIA+cGbL8L(8.(Y((+UK(O(c,T)H(I3@<DKgg,/b())X(Y3@<DKgg-HUgR96a)';
  148. D[115] := 'E:a0D?I)cG`>8f_fQ,1),I(:^(Y)((9N2I(8+(((3N@J,*H((>,((*04(()0AI88-)';
  149. D[116] := '2((+@8((-(X((-IN)MLUgR9H)-/1gdY6E8X((/QJ*HX((.-M)(0((-e6E<Q(AH:PO)';
  150. D[117] := '<.(48RDg(2Na0-dW,2I9;O=*Q[dd((-*QZddgggggbNe2]Gg22I[7[X((bJ/7[X(B)';
  151. D[118] := '+2J28NFPJ+dd((.PJ<a]3Z_g22L<;O=IZ.,((,aI((*2@8((QN(((41IUN,((-YI-*';
  152. D[119] := '(()`@8((M.(((3)IQ.,((,QH((*N7[X(-+dd(+*PL\?b(=)H((-\7[X(-+dd(,*P@)';
  153. D[120] := 'L\?b(<MH((-J7[X(-+dd(**PL\Ib(4RPI,?UgIAI((-2:/P(\RJ,;O<g7((<7[X(L(';
  154. D[121] := '02J;:/P(RRJ,9F_f@N,((:Q0FH*ZR096E;dd()8g7((XR150FH*KR08H3Gd0@8((S)';
  155. D[122] := 'g,Ib(2JPI,a]7[X(-+dd(,*PL\Ib(1bPI*(UgXYI((+D:/P(J2J,;O<g7((<7[X()(';
  156. D[123] := '<2J;:/P(MBJ,._X()7Xe2^_fgWXf9F_d7>,((3a0FH).R08g7((<7[X(@2J;:/P()*';
  157. D[124] := 'EBJ,._X()7Xe2^_g(WXf9F_d7>,((190FH(DR096E9=+C^a^A?1\B>aO0/9PA:)N()';
  158. D[125] := 'B>YM0*0*0J`:9.-\@:)NC_1S0/5QFN<HB?4H)Z)JF?9MDZ`><N=[C_=Z@^<HANeZM)';
  159. D[126] := 'BZ)[B?QM0.M[0(M<F?)M0.M[0*048_1M@?9WDJ)QDZ(J*L9IE.,HANeZBZ,6<N=[6+';
  160. D[127] := 'C_=Z@^<HANeZBZ-)cGXd7[X((2OV9F_d7+dd((*PIZd2R08g7((+R0E6E</UgCY*M+';
  161. D[128] := 'R((4:.X(*J-G()0YC((.()@9C((1()Q6E>/H,<((.Z-2()ZH(+MP()H(:K`P())6]+';
  162. D[129] := 'E>/0,<((.Z-2()ZH*KMP()H(:K`P())6E</UgCY*R((44>X(:H(@P(,f2((8AI)*Q)';
  163. D[130] := 'R((:4>X()H(>P)4f2((8;O=IJ2(07JH(,,a]@8+gGL1P()ZH++`P())O)HY/ge=HA(';
  164. D[131] := ',K`dge402((/(*IN)R(17JH(,,a]@8+g=,1P()ZH++`P())6E</UgCY*R((44>X(6)';
  165. D[132] := ':H(>4?X((H(T8RH(3R),7JH(,,a]7XE1cGa@@8+gC+`G7XE1cGa@@A0f/^,(g<0g7*';
  166. D[133] := ')\OUgHYI(7e:7IeH2+d/:F_f+.,(g\8f/[d/:F_f>.,(g[Hf/[d/:F_f>.,(g]`fc)';
  167. D[134] := '/^,(g8Y)fH(\,)IO+LJ(WL)O*,1(,)K8X.+V3XI*Q\2O8RFQJ_((@8+dPL1O7[X(*+';
  168. D[135] := '*<2OR@A2?^((ccCG+L9QDN=KE.eZF:)NE>YT_HM,B?5S0.A]C.[D*,9QD^TH::e7>)';
  169. D[136] := '^8U-CN8HC^@HANMTAE8@=_1QE.<HD/1WE.=KE.=L0.9QD^UME/9M\XU.B>YM0.YWP)';
  170. D[137] := '@^UMA505=NeTE>]M0.YW@^UMA5,19NMTA:)JE?5a(XU6CZ)KB.=KB_5]C8068^IMD+';
  171. D[138] := '@^U[E>\H2*8X4*L)*\5:8Z(P1+(X4+(Q((U.B>YM0/5aD_9MC<2O7[X((BNg3YE*b+';
  172. D[139] := 'AbL]3[Y,<MA:R<]*Q[dd((2QW\1OR;=*Q[dd((6QW\1OR;>Q5\a]8RDg7((*8RDWN(';
  173. D[140] := '77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJKdd((.PJ+dd((.PJ<Ib(9\W7(((((U05+';
  174. D[141] := 'FH*`7[X((BO67[X((bJ/8NFPJ,Ib(8PW7(((()-0FH*J7[X((BO67[X()2J/7[X(*+';
  175. D[142] := '*BJ2:/P(fZdd(((**LIb(0Pg7(((RDa0FH3Y3[X((()):/P(GKdd((.Q[IUd((/gB)';
  176. D[143] := '3,a]8RDg7((+8RDW77ggggfQW:U?gZJPD[dd((*PI[dd((ZPJL1OR0Hg7(()R0Lg++';
  177. D[144] := '7((27[X(-RJ;:/P(<BJ,._X((GdT;O=23GdTAXPW3GdPR99*3GdT;O<(*H(2()P)4)';
  178. D[145] := '[H(B((P(6H/6(,P(*H*`(D`(V((2(68)[H(9<^-^A:)LC^5]C>=VE*)ID[PO9NMTB*';
  179. D[146] := 'A:)KC^a^A?1[B>eV0/5]@^5MD_5NE>YTF:)KC^]XC.=\A>8I8NMV:.=`0/@\3K)J-)';
  180. D[147] := 'F8]AEN=[0,YMC?)MDN=]DM9PB?4HCN=_0.-VA*)QC?)ZC_AMA*)^A?1[B>eV0.eNb+';
  181. D[148] := '0,1QCLIMF*)QDZ)JDNe]A^I\0/9W0/MWE:)IDZ)I0/)]@NYQ@Z)[A?1^B>5M0.1aA*';
  182. D[149] := '0,]IB>a[E.-a3J)*B>a0A?HHB?4H@>`HB>a\A>EZ@?9MA*)X@?1\0.eN0/9PA:)<C(';
  183. D[150] := 'A>YMD^5ID.<H@^eUC?=VB>5IE.MWCO4HD.-KB^-OA:XHD^eWCJ)\CZ)JA:)ZA>YMJ*';
  184. D[151] := '@?5MA*)JF:)5@>MVD_9IF:`5+=9MC.=[@^-XA:)OB?AMDZ)aC_<HE.IM0.A]E/=Z\*';
  185. D[152] := 'A:)QCJ)KC^]UE>aQ@^-\B>eV0*\U0/9WA.-a0:);A>aL0.]MD_5IA^=[0/EQE.HH])';
  186. D[153] := 'EN-ZB>e]DZ)\A?I\0/5QFN=[3*)NC^a\DZ)ICN8HA_1ID.IQ@Z)[B.-XA?4V0,e\@+';
  187. D[154] := 'B.=Z0.AM@?9]DN=[0.MV@^Y]A.<b0.eV3?5KDN=MCJ)KC^]UE>aQ@^-\B>eVDZ)LH(';
  188. D[155] := 'B?1M@_9WDOLT0.MVE.=TC.MOA>a\0.]I@_1WDZXHE>aQEN=ZD^-T0/9MDN]QCN-Td*';
  189. D[156] := '0.=UE>YIE.MWCJXHA?1ZC_0H@^IM@^UQCNDHD/1WE.eKC^Y[0.-VA*)ICJ)]CN-\))';
  190. D[157] := 'E.=VA.=L0.]MD_5IA^<HD^=ZENMKA:`5+<AWDJ)NE?1\B.=Z0.MVANeZC>-\B>eV:)';
  191. D[158] := '3*)KC^a\@>5\6L]IB>a[E.-a+;0`5K,Y8J)+@>a_C^eL0-5\3H])A^e]DN,H:.MT8+';
  192. D[159] := 'C/4T0,5)0+LY4[(Y+:H`4;HQ0+La4:\^5;8X((((.((((*H((*?6((((*((((*((])';
  193. D[160] := '(+dd((.Qd((((8((()XO(((C1X(((=P((4XD(-X((((D(=P(*L1V:/,((()B:<56S(';
  194. D[161] := '0X()(.A.<L=.((,(GL169,X(((*>:<57;H(((2159<a=((0(SL94;\D(((+:9,M<)+';
  195. D[162] := ';(()(5a);-1<((((eME1;L8((H,*8\e,98()(:@((7gg0(((((((Ze((HGgg0(()E)';
  196. D[163] := '0(((ZdH(H7gg0(((/(((ZdX(HGgg0((*3X((Zd((H7gg0((*1(((Zd8(H7gg0((*>(';
  197. D[164] := '6H((ZcX(H7gg)((*@H((ZcH((ggg)((+N8((ZbX((Wgg)((+,X((Zc(((Ggg)((*\(';
  198. D[165] := 'aH((Zc8((Ggg)((+a8((ZbH(*Ggg)((,Q(((ZaX((Ggg)((+gH((Zb8(*Ggg)((,a(';
  199. D[166] := 'M(((Zb(((ggg)((-((((Za(((Wgg)((,b8((Za8((Ggg)((,\H((ZaH((7gg0((C+(';
  200. D[167] := '*X((Z`H((Ggg-((--X((Z`X(9)';
  201.  end; {InitDataArray}
  202. {}
  203.  procedure BadDownload;
  204.   begin
  205.    writeln('The text of procedure InitDataArray is not correct.');
  206.    writeln('Probable cause:  bad download of this program.');
  207.    writeln('To examine, choose first item from "Windows" menu.');
  208.   end;
  209. {}
  210.  function DataToCode: boolean;
  211.  const
  212.   StuffHex = $A866;
  213.  var
  214.   Count, CodeIndex, i : integer;
  215.   Check : longint;
  216.   Error : boolean;
  217.  begin
  218.   Count := 0;
  219.   Error := false;
  220.   CodeIndex := 1;
  221.   while (Count < 9) and not Error do
  222.    begin
  223.     Count := Count + 1;
  224.     i := length(D[Count]);
  225.     Error := (i <> 64) and ((Count <> 9) or (i <> 4));
  226.     if not Error then
  227.      begin
  228.       InlineP(StuffHex, @Code[CodeIndex], @D[Count]);
  229.       CodeIndex := CodeIndex + 16;
  230.      end;
  231.    end;
  232.   if not Error then
  233.    begin
  234.     Check := 0;
  235.     for CodeIndex := 1 to CodeWords do
  236.       Check := Check + Code[CodeIndex];
  237.     Error := Check <> 883868;
  238.    end;
  239.   if Error then
  240.    BadDownload;
  241.   DataToCode := not Error;
  242.  end; {DataToCode}
  243. {}
  244.  function WriteAppl : boolean;
  245.  const
  246.   JsrIndirectA0 = $4E90;
  247.   noErr = 0;
  248.   DataErr = 1;
  249.   dirFulErr = -33;
  250.   dskFulErr = -34;
  251.   ioErr = -36;
  252.   mFulErr = -41;
  253.   fLckdErr = -45;
  254.   vLckdErr = -46;
  255.   wPrErr = -44;
  256.  var
  257.   i, j, Result : integer;
  258.   RegRcd : record
  259.     A : array[0..2] of ^integer;
  260.     A3 : ^char;
  261.     Filler : array[0..7] of longint
  262.    end;
  263.   Glue : array[1..5] of integer;
  264.  begin
  265.   Glue[1] := $2057; { MoveA.L (SP),A0 ;return addr }
  266.   Glue[2] := $2E8A; { Move.L A2,(SP) ;ptr to Result }
  267.   Glue[3] := $2F0B; { Move.L A3,-(SP) ;argument }
  268.   Glue[4] := $2F08; { Move.L A0,-(SP) ;return addr }
  269.   Glue[5] := $4ED1; { Jmp (A1) ;to subr in Code array }
  270.   i := 10;
  271.   repeat
  272.    j := length(D[i]);
  273.    Result := ord((j <> 66) and ((i <> DataLines) or (j <> 26)));
  274.    if Result = noErr then
  275.     begin
  276.      with RegRcd do
  277.       begin
  278.        A[0] := @Glue[1];
  279.        A[1] := @Code[1];
  280.        A[2] := @Result;
  281.        A3 := @D[i]
  282.       end;
  283.      generic(JsrIndirectA0, RegRcd);
  284.     end;
  285.    i := i + 1;
  286.   until (i > DataLines) or (Result <> noErr);
  287.   if Result = noErr then
  288.    begin
  289.     with RegRcd do
  290.      begin
  291.       A[0] := @Glue[1];
  292.       A[1] := @Code[1];
  293.       A[2] := @Result;
  294.       A3 := nil;
  295.      end;
  296.     generic(JsrIndirectA0, RegRcd);
  297.    end;
  298.   case Result of
  299.    DataErr :
  300.     BadDownLoad;
  301.    noErr :
  302.     ;
  303.    dirFulErr :
  304.     writeln('Output disk''s directory is full.');
  305.    dskFulErr :
  306.     writeln(' Output disk has too little free space.');
  307.    fLckdErr :
  308.     writeln('Old "Binhex4" file is locked, can''t replace it.');
  309.    ioErr : 
  310.     writeln('Disk I/O error.');
  311.    mFulErr :
  312.     writeln('Insufficient memory.');
  313.    vLckdErr :
  314.     writeln('Output disk is locked.');
  315.    wPrErr :
  316.     writeln('Output disk is write protected.');
  317.    otherwise
  318.     write('File Manager returned unexpected error code = ', Result);
  319.    end;
  320.   WriteAppl := Result = noErr;
  321.  end; {WriteAppl}
  322. {}
  323. begin {program}
  324.  HideAll;
  325.  SetRect(TextRect, 0, 20, 528, 342);
  326.  SetTextRect(TextRect);
  327.  ShowText;
  328.  Writeln('Processing -- please wait...');
  329.  InitDataArray;
  330.  if DataToCode then
  331.   begin
  332.    if WriteAppl then
  333.     writeln('Done!')
  334.    else
  335.     writeln('Sorry, nothing was accomplished.');
  336.    writeln('To exit, select "Quit" from "File" menu.');
  337.   end
  338. end.
  339.