[stella] A7800

Subject: [stella] A7800
From: Keith W Gerdes <kwg@xxxxxxxxxxxxxxxxxx>
Date: Tue, 17 Nov 1998 17:11:16 -0600 (CST)
Here is Bruce Tomlin's Pascal source converted to C.

This is just a first cut and doesn't produce a valid
checksum...

Please send me -PRIVATE- email if you find any mistakes
and I'll post new versions to the list.

Use Dejanews to get the original Pascal source.

 ----

_=_ 
_=_ Part 001 of 001 of file crypt78c.zip
_=_ 

begin 666 crypt78c.zip
M4$L#!!0````(`%&&<26:2J8\IPH``,8B```)````8W)Y<'0W."YCS5EK;]I8
M&OY,I?R'TZXF@H8DML%@-Y==+G9GU78Z:F<U(V79BH))G`)&MFG)C/K?]SS/
ML8T-Y$QV/FU5G=K'Y[T_[^70\Y='SXZ>B?XX":8B6HKT+A`_CY/)>"Z2:!U/
M`O'Y07X7HK=.[Z+XE7SJQVNY_4NTF(=+?O(6XW#^2GQ.N?6/23P_FT0+?AJ.
MT^"5,%VW<V[(ORXW_2A>+Y)7(@XF9[?C19"<?0VG070VF8^3))SPS,\?WK_^
MT'LG!O'#*NTZ%]1RL*/3FR!,[\3K()X&"0]\3,?I.N$WTSPWN^>N(TY%DH[C
M5)KWYC4.O3S'>O3L;^%R,E]/`W&9I-,P.KN[QF[ZL`JFP4RLETEXNY1$D[MQ
M+.6EP<6!CXET22J^1?&4"IY+9^*HZ'V:2)$W(W$E_A#&QK":QL8SY-+MRL5Q
MY-+KR,7LR\5HR:7E-L7YN9C%T4*\BY9A&L5B('G0E@-_C,W0DV3^0"ZV"598
MAD.Y]%VPQ^+VFX_3FU"J#RW:;;D,0#H$NPZ6/EZ-CH:^AQ,^E.ABL<')[\$4
MV-B'4;:CH>_@K&/C;#MW2@M:V_21+Q=OJ*%O6[D72=JG)N#9A_X]2]FDT1]4
M!F09>*(['<3#A>I]R&_U-/1=:-VCUP>Y$QA*E_+AG9:OH3<H`00>78=E@#T'
M>UUXPM+%CZ(=AAFB&35JPDCTB0E7YS]8/:#]0&8/B^_F[NA`DX&EH;?AX2[$
M=&&K17?0?@8!KZY./K%O$W#0WV128+%!WX810ZW_*,LLZ+'0DU8!XJ%.?P-B
M!B!@P`T@T>$>2-M@UZ=/?/'](B\;679_>/]NF]SPV8"$;LZ1UC/!Z$Q3%\<.
MA-@XYL"8-MSB@(E!;!';.C\,B11HSQ!V04\<M!@@?'7:&OH6"+K,>2P6$\_*
M%V:TH\LC^I$0(J<!-/&8`N!D`1N.+H\&6:7)XL"RT`,3$TXD#F35U-"W<ZH^
M%+9934'E,9F@R<#3Z5^4BPY\340/F8+,3>SY.OF=0O\^M+:,7+0%^C83;*#+
M(PBT03J@+)9UV$1,T#IM':'`'L1TL+0(&"*!3K`4$PU^6`<AOP.%?=;A02Z?
M,;5T\;<H`02J#M-UK$UP@LGX&W^&'X<]`V=9UFQBFO['4U='3PL9,**.@&$D
M'3B!78)MQ>LQCXL<7JR7MP&R^!'6R&V6QPYSB]B&JAX#Q![%NJ&K<1[!!#U<
M`HSLBK[;)5YM#;T#66[18YA;K!*JV\%*2^<;^K$/J:R,K0*J;=K$&J_KT:Q>
M+0@DK(9X\EDO8+K#DJ^M\1#-&:7%'H]7U2/PRMKBZO3O0ZH'K0<PF&"T.3.Q
M1X#34"??YQ1"7>EU!@SLF+1L-!V=?)?'8#43C),5!RT3,66]]'2YU64)(@Y!
MY3$2S#($@8W:TLU8K:*8#K-^F-4K,F:5<'6UK<<\ANGMHB)RQN!XPZ*GK2T]
M]C$H;$(3%_JWX363_2)+,`U^>0RFL\#815JRVW,8ULXX')Q;"#TG@S;]SZBQ
MWP()'6UM9S-EUN+)9X-E68)AJC?JY+,VNB!P"3TH;(**5=("8VUM9`DV.)F0
M`$]L\&K08F]HZ>0S_^E_%@R\#J&ZQ[F9#5J'7TYF'(J'7#@RPPFLUZS-GK9^
M0"#K,&<+EPT.3#AML<LZNOK%9F9RT.6EA*6>(RM(.2,;VMY&P!)FQ`H6NY@V
M/8)`YS_.$3ZU9EMAZ.'_-GBR0?5T^.&,S]F*-ZL!IUU68K8JQD3GOR$[,CLB
M^RA3EZ$KICSMC,R.:#/-B7I.MAQPF-/,"=ULX?`^"%(U:#/T'*L86$2BI9MM
M.,*J&9F9P$K$40&D'1CA:6=LRB+,.!N#G;KH$8[,7UW]Y`C,ZRGO(QRP?-8$
MQ,_BO*3+/YMS$/L7*Q$Y%0,"Y_6A#C]L^&SSG`0X!/C%3,#)W_.J8X7I&,:-
M97=&%]LM5VXYHQO3,DJ[EB%WJUMF;V^+OR-4MQ;!X@8=2/[!KO_/MYYX.3,O
MU,\:7Z-P*GZ-PS2P?@PV=?PV(9:-HV=_'#VKK>)PF<[J+WXPK-]>-)<-2?*]
M1#5<+U90OXXW12+/BY"<:[,H%O7PRK@0X>45KD7RX>1$'JN!=6TK,O-!.`+_
M6BV<B;HD/#;MAKBZ$ET!DEJABQ`OU+E@G@1BY[!I[YS^][)TNLI'??A>,C,[
MO&>B9=3IRG'\0-?^F:G=[F.F@L/_C9TZN_OA[8<HW0UL\[ZY;$J$Q0_*[@RJ
MQDC^E;=;XX`W.E57D#@[6E,G[^$QYT+<7X/D_O24EO%T;2F/9D+"T<W]2+P4
MEC@1N0KR1/[UQ.3W*[$4Q\*R;?4U%[<4U]?"X=YWY8P=8S^N/]>5B0+_W&^-
MWDB3/T=Q''U3UJGGW`1:L,DLV-""C;*`!F3Z$]XGFY$XS:VY']WPM>!,2XIS
M53,*D75E1T-^,[.@RG4COYSR_=M=.`]$/3O_7.JHT>1QT7JAE+>1#'(5,E<R
M1:0K!XO58ZZ\*/0U2NI6I%]5/-38RCM1\N(@7<?+*M%UE68?RL/PZSZ4E3(9
MT!L%H!T"NA+?4F8[!9QS\'9WD<O$SOW0O&^HS5H.,KFSKV!O.M7`KY1QE?SY
M'\%W4@5?.8T>Q]Y^!CT".G50B[F_*O$QQ.7>>[>>/RV\>33E$"SC2(>%6=2*
M)K1?QU0]KYS."Y>,^B41D&$B*^I9LY;,CD7=%)>7,J(-^D9LT<"8GYC[>'B'
M'QH&=\'D2[)>'.ZM>>6N',W*^`'4;OM1J62C9#)`'!G"D2*5P\)D]9!9T%0?
MFTGX>Q#-ZNJMP=Z1N?TO"<2OH917RW+S*5QRCY8@A1M9IG;>I]6Y(IM)9"BB
M_/E8="^V']MYP,L1^.V3U?)]-0NMQK=!D_]E(_@+D,K0L?J'6"W##K639\?3
M::RTP).4`3Y`@G/`5D"_TB:1.6.5L!DJR[F39\A>95ZJ3>92@^28_:#`R0Z+
M,5VB?M+B*K\6E*-*AHZHRWY^'FA&91]^>/_VURC^4G_434]RPG8XA._,QL$:
M\J2:M9]A$LL'LDM%-Q>"M]6AG)/$VWQ;*6]RSO9]WP7(6&3T5N8CH+B^PMW+
MD*X\QNLE7GWI654L=DM3:<@K?]HJ8!@G>3J/<YK<)V9%IU4^G'M5UV<)$#:-
M9N:+1L6S1N;4'<:U/.A;DKV=DD.4V&MJ4>I;A7#GL/#2Z%/<0)Y4AWJ[%60D
M_E.N)K:QL^$X>^4%3+;#0F];7O+GHKQP8[>\`$^+<2@'&.(LOITTU?\8OY3/
M7V\>O5J8L`C'MP85E[-$`K%)<G6U.-J?]"4RDB#-DJDIY-^BI&.GL7/(W3OD
M[AUB?Z@<8N7-%%#(GIG2^EFT"I9UZF>.FN)%_/E%@Y>8G_[U]JTHHIZKS.,B
MD,-G_+RXU>13GUG<969)$'R1`J0*;YOBH^>]^>3]-.3G$$+38#Z7G]7&#"Z\
M,O9E@<FNK-ED'B5!3OLTT1^]7PK1R&?\%`!O_#U[>(5HUF9Q,)[6CRLW\M-0
M^D2RDI-?)K$JO^C';,3B>)OECC$J.;_HS)*F.D"0S;;BY0&ZVH[@]:+H=+NJ
M!I62I6B=$ERJ(,'(,)O'2]Z54V@%EY`6AU/96B:9*@)@_B$182*^CN?A]+D0
MZI>%'!PA=<VKVY,8+:-4R^SP'?>_4$L!`A0`%`````@`489Q)9I*ICRG"@``
MQB(```D``````````0`@`+:!`````&-R>7!T-S@N8U!+!08``````0`!`#<`
(``#."@``````
`
end



--
Archives (includes files) at http://www.biglist.com/lists/stella/archives/
Unsub & more at http://www.biglist.com/lists/stella/

Current Thread
  • [stella] A7800
    • Keith W Gerdes - Tue, 17 Nov 1998 18:12:34 -0500 (EST) <=
      • <Possible follow-ups>
      • Keith W Gerdes - Thu, 19 Nov 1998 15:22:38 -0500 (EST)
      • Bob Colbert - Fri, 20 Nov 1998 07:51:34 -0500 (EST)