• One From The Vault: BASIC fun with Pak Jana (8K)

    From Cameron Kaiser@21:1/5 to All on Fri Jan 1 18:40:07 2021
    ******************************************************************
    *** ***
    *** comp.binaries.cbm is a moderated binaries- ***
    *** only newsgroup (no discussion or ***
    *** crossposting allowed) for Commodore 8-bits ***
    *** ***
    *** For information on comp.binaries.cbm visit ***
    *** http://www.floodgap.com/comp.binaries.cbm/ ***
    *** ***
    *** This file is available via mailing list at ***
    *** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
    *** to list subscribers ***
    *** Allow time for submission to be received ***
    *** ***
    ******************************************************************

    * One from the Vault is a collection of frequently requested, useful or just
    plain interesting past posts sent to comp.binaries.cbm, as archived by the
    moderators. If you have a request, please send it to the address in the
    headers. In addition to being selected and reposted by moderation staff,
    some of these postings are regularly posted on Mondays and Fridays on a
    rotating schedule.

    Take care when replying to these messages, as many were posted years ago.


    From: Larry Anderson <foxnhareANTI@SPAMbigvalley.net>
    Reply-to: foxnhareANTI@SPAMbigvalley.net
    X-Original-Posting-Date: Mon, 24 Dec 2001 20:19:49 -0800

    [ This is a post I found going through my old E-mail that I'm not sure if
    it was posted or not, so here it is (possibly again). To those posts that
    really did slip through the cracks, apologies to the senders! -- Cameron
    Kaiser, moderator emeritus ]

    This is Pak Jana a BASIC character animation program. Program the
    on-screen dancer with different moves with it's mini procedureal command
    set then use the E command to see Pak Jana execute his dance.

    Originally written over 20 years ago for the Commodore PET I modified it
    for use on the Commodore 64 - the POKEs used to scroll the figure up and
    down have been adjusted for the 64 and Screen color changes added -
    otherwise the rest is unchanged.

    Instructions are in the program listing just LIST 0-170. This is a good
    tool to see how to make rudimentary procedural applications or to
    explore BASIC controlled character animation.

    Trivia - This program was inspired by a famous dancer at the time, but
    the name escapes me.

    [Section: 1/1 File: pak jana.prg UULite v3.0]
    [Original File Size: 7808]

    BEGIN-------cut here-------CUT HERE-------PART 01/01
    begin 644 pak jana.prg M`0@<"```ES4S,C@Q+#`ZES4S,C@P+#(ZF2(%(@`K"`(`CR!004L@2D%.00`Q M"`0`CP!["`8`CR!04D]'4D%-($%,3$]74R!54T52(%1/($-/3E123TP@("`@ M("`@("`@04Y)34%424].($]&($1!3D-)3D<@1DE'55)%`($("`"/`,T("@"/ M(%=2251414X@24Y35%)50U1)3TY3($9/4B`@("`@("`@("`@("`@("!!3DE- M051)3TX@05)%($%604E,04),12!&4D]-.@#3"`P`CP#P"`X`CR!"24Q,($9) M3EI%4BP@34%42"!$15!4`!4)$`"/(%-!3B!&4D%.0TE30T\@4U1!5$4@54Y) M5D524TE460`R"1(`CR!304X@1E)!3D-)4T-/($-!(#DT,3,R`#@)%`"/`'0) M%@"/(%!23T=204T@34%9(%)53B`G05,@25,G($].(#$V2R`@("`@("`@("!/ M4B!,05)'15(@4$54`'H)&`"/`,0)&@"/(%1/(%)53B!04D]'4D%-($].(#A+ M(%!%5"P@0T]062`@("`@("`@("!,24Y%4R`Q+3$V,"!!3D0@5$A%3B!$14Q% M5$4`^@D<`(\@5$A%4T4@3$E.15,@0D5&3U)%(%)53DY)3D<@("`@("`@("`@ M("`@(%!23T=204T```H>`(\`.0H@`(\@24Y35%)50U1)3TY3($9/4B!004L@ M2D%.02=3("`@("`@("`@("`@($U/5D5-14Y44SH`@0HB`(\@*$X@4U1!3D13 M($9/4B!!3ED@1$E'250@,2!43R`Y("`@("`@("`@("!53DQ%4U,@4U1!5$5$ M($]42$525TE312D`Q0HD`(\@("`@($A%3B`M+2!#2$%.1T53($A%040@3U(@ M("`@("`@("`@("`@("`@("`@("`@("`@15A04D534TE/3@`-"R4`CR`@(%!/ M4U-)0DQ%($U/5D53.B!(13$L2$4R+$A%,RP@("`@("`@("`@("!(130L2$4U M+$A%-BQ(13<L2$4X+$A%.0`3"R8`CP`Y"R@`CR`@("`@3$%.("TM($-(04Y' M15,@5$A%($Q%1E0@05)-`($+*0"/("`@4$]34TE"3$4@34]615,Z($Q!,2Q, M03(L3$$S+"`@("`@("`@("`@($Q!-"Q,034L3$$V+$Q!-RQ,03@L3$$Y`(<+ M*@"/`-0++`"/("`@("!204X@+2T@0TA!3D=%4R!42$4@4DE'2%0@05)-("`@ M("`@("`@(%!/4U-)0DQ%($U/5D53.B!203$L4D$R+%)!,RP`]`LM`(\@("!2 M030L4D$U+%)!-BQ203<L4D$X+%)!.0#Z"RX`CP`_##``CR`@("`@3$Q.("TM M($-(04Y'15,@5$A%($Q%1E0@3$5'("`@("`@("`@("`@("`@("`@("`H3CTQ M+#,L-BPY*0!S##$`CR`@(%!/4U-)0DQ%($U/5D53.B!,3#$L3$PS+$Q,-BP@ M("`@("`@("`@("!,3#D`>0PR`(\`O@PT`(\@("`@(%),3B`M+2!#2$%.1T53 M(%1(12!224=(5"!,14<@("`@("`@("`@("`@("`@("`@*$X],2PS+#0L-RD` M\@PU`(\@("!03U-324),12!-3U9%4SH@4DPQ+%),,RQ23#0L("`@("`@("`@ M("`@4DPW`/@,-@"/`$,-.`"/("`@("!702`M+2!&3TQ,3U=%1"!"62!!3ED@ M3E5-0D52("`@("`@("`@("`@("`@("`@1D],3$]7140@0ED@02!$05-(`)$- M.@"/("`@("`@("`@("!#055315,@5$A%($-/35!55$52(%1/("`@("`@("`@ M("`@("`@("`@5T%)5"!42$%4($U!3ED@5$5.5$A3`*\-/`"/("`@("`@("`@ M("`@3T8@02!314-/3D0N`+4-0`"/`-8-1`"/("`@("`@(#@@+2T@34]615,@ M1$%.0T52(%50`/H-1@"/("`@("`@(#8@+2T@34]615,@1$%.0T52(%))1TA4 M`!T.2`"/("`@("`@(#0@+2T@34]615,@1$%.0T52($Q%1E0`0`Y*`(\@("`@ M("`@,B`M+2!-3U9%4R!$04Y#15(@1$]73@".#DX`CR!'0DXM32T@("TM($-! M55-%4R!#3TU0551%4B!43R`@("`@("`@("`@("`@("`@("`@(%)%+45814-5 M5$4@5$A%($Q!4U0@3@#<#E``CR`@("`@("`@("`@24Y35%)50U1)3TY3($T@ M5$E-15,N("`@("`@("`@("`@("`@("`@($1!4TA%4R!!4D4@24U03U)404Y4 M(0`J#U0`CR`@("`@($4@+2T@0T%54T53(%1(12!72$],12!$04Y#12`@("`@ M("`@("`@("`@("`@(%1/($)%($5814-55$4@5TE42$]55`!`#U8`CR`@("`@ M("`@("`@4$%54T4`@`]8`(\@("`@("!0("TM($Q)4U13(%1(12!72$],12!$ M04Y#12`@("`@("`@("`@("`@("`@("!04D]'4D%-`,</6@"/("`@("`@1B`M M+2!&24Y)4TA%1"X@4U1!4E0@02!.15<@("`@("`@("`@("`@("`@("`@1$%. M0T4@4%)/1U)!32X`S0]<`(\`[0]>`(\@("TM+2TM4T%-4$Q%(%!23T=204TM M+2TM+0`"$&``CR`@3$]!1"!004L@2D%.00`($&$`CP!3$&(`CR!465!%(%)5 M3BX@5TA%3B!42$4@4$%+($I!3D$@("`@("`@("`@("`@1DE'55)%($%04$5! M4E,@3TX@5$A%(%-#4D5%3@!V$&,`CR!465!%(%1(12!&3TQ,3U=)3D<@0T]- M34%.1%,Z`)809`"/($Q!.2Q(13DL4D$W+$Q!-RQ23#<L-"PT+#0`G!!E`(\` MZ1!F`(\@1D],3$]724Y'(%-415!3(#DV+3$P,"!!0D]612`@("`@("`@("`@ M(%=)3$P@0T%54T4@5$A%(%!!2R!*04Y!($9)1U5210`*$6@`CR!43R!-3U9% M($%#4D]34R!42$4@4T-2145.+@`0$6D`CP!7$6H`CR`@64]5($-!3B!#4D5! M5$4@14Y$3$534R`@("`@("`@("`@("`@("`@(%9!4DE!5$E/3E,@3T8@5$A% M($1!3D-%`(L1;`"/($)9(%5324Y'(%1(12!#3TU-04Y$4R!)3B!,24Y%4R`@ M("`@("`@("`S,BTY,`"1$6X`CP#3$98`CR!42$4@4%)/1U)!32!#4D5!5$53 M($$@4TE-4$Q%("`@("`@("`@("`@04Y)34%424].($Q!3D=504=%+@`B$J`` MCR!004L@2D%.02!&24=54D4@0T%.($5!4TE,62!"12`@("`@("`@("`@0TA! M3D=%1"!43R!!3B!!3DE-04PL($9!0T4L($540RX`*!*J`(\`/A*T`(9)3B0H M,3`P*2Q3*#$P+#(I`$<2O@"--3`P`%@2R`"/+2TM+4U!24XM+2T`:Q+2`)DB MDR(Z6+(R,#I9LC$Q`'02W`"-.#`P`(T2Y@"90D\D*#$I4DPD*#0I3$PD*#8I M.P"F$O``F4A%)"@U*5)!)"@S*4Q!)"@V*3L`L!+Z`(TQ-3`P`-02_`"+022R M(D0BIYDB$T1%3$5412`Q(CI0LE"K,3J),C4P`.<2_P"+022R(D8BIYPZB3$X M,``*$P0!BT$DLB)0(J>9(I,B.SI.4[)0.HT@-3`P,#J),C4P`"X3#@&+022R M(D4BIR!.4[)0.HT@-#4P,#I0LE"K,3J),C4P`#P3]`&/+4E.250M+2T`21/V M`5"R,3I.4[(Q`(43_@%(120H-2FR(I&1D9&1D9&=I*01G9V=W:RLW1&=G9V= MW2`^W1&=G9V=W<K+W1&=G9W%Q1$1$9TB`)H3_P%(120H,BFR(I&1D9&=U<DB M`+83``)(120H-"FR(I&1D9&1D9V[NQ&=G3P@(@#2$P$"2$4D*#8ILB*1D9&1 MD9&=K*P1G9T@/B(`YQ,"`DA%)"@X*;(BD9&1D9W*RR(`_A,#`DA%)"@Y*;(B MD9&1D9&1G2HJ(@`3%`0"2$4D*#$ILB*1D9&1G2TM(@`O%`4"2$4D*#<ILB*1 MD9&1D9&=+BX1G9VMO2(`4A0&`DA%)"@S*;(BD9&1D9&1G;L@$9V=G3P@(!&= MG<L@(@"2%!("0D\D*#$ILB*1D9V=G:.CHZ.CHQ&=G9V=G9W=(-;6(-T1G9V= MG9V=W2#6UB#=$9V=G9V=S2`@SI&=G2(`OA0<`DQ!)"@V*;(BD9$='1W-$<VD MI!&=G9V=S:2DI"A=G9V=G9V=G9V=(@#M%!T"3$$D*#$ILB*1D1T='<T1S1&= MG<T@S1&=G9W.(,X1G9V=G=4@SA&=G<LB`"`5'@),020H-RFR(I&1D9&1D1T= M':2DI!&=G9V=/*2DIQ&=G<ZG$9V=G<X@SA&=G<XB`%\5'P),020H.2FR(I&1 MD9&1D9$='1T='1T='<D1G9V=SLH1G9V=SB#.$9V=G9W.(,X1G9V=G<X@SA&= MG<XB`(05(`),020H-2FR(I&1'1T=HZ.CH\T1G9V=G9VCHZ/-U1'+(@"]%2$" M3$$D*#@ILB*1D9&1D9&1'1T='1W3$9VEW1&=G:7=$9V=G<X@W1&=G9V=SB#. M$9V=G:3.(@#F%2("3$$D*#,ILB*1D1T='<T1S1&=G<T@S1&=G<T@S1&=G<W5 M$<LB``\6(P),020H,BFR(I&1'1T=S1''$9V=I<<1G9VEQQ&=G:7'$9V=UR(` M/A8D`DQ!)"@T*;(BD9$='1W-$<T1G9W-(,T1G9V=HR`@S1&=G9V=G:.CHZ.C M(@!R%B8"4D$D*#,ILB*=G9V=G9W.D<Z1SA$1G<X1G9V=S2#-$9V=S2#)$9V= MRAT='9&1D2(`GQ8G`E)!)"@T*;(BD9&=G9V=SA&=G<X1G9V=G9U;*:.C(,X1 MG9V=G:.CHR(`UA8H`E)!)"@Y*;(BD9&1D9&1G9V=G9V=I*2D$9V=G:6DI-$1 MG9V=G:7-$9V=S2#-$9V=S:0B``\7*0)2020H-RFR(I&1D9&1D9&=G9V=G9V= MG9VL$;[-$9V=S2#-$9V=S2#-$9V=S2#-$9V=S:0B`#\7*@)2020H-2FR(I&1 MG9V=G9V=G9W.HZ.CHQ&=G9V=G<G.HZ.C$9V=G9V=G<HB`'87*P)2020H."FR M(I&1D9&1D9&=G9V=G9VQ$9V=W:<1G9W=IQ&=G=T@S1&=G<T@S1&=G<VD(@"H M%RP"4D$D*#8ILB*1D9V=G9W.$9V=SA&=G<X@SA&=G9V=SB`@HQ&=G9V=HZ.C MHZ,B`-L7+0)2020H,2FR(I&1G9V=G<X1G9W.$9V=SB#.$9V=G9W.(,X1G9V= MG=4@SA&=G<LB``<8+@)2020H,BFR(I&1G9V=G<X1G9W(IQ&=G<BG$9V=R*<1 MG9W(IQ&=6R(`2Q@P`DQ,)"@V*;(B$1$1$1$1$1$='1VCHY&=G9W=(,V1G9V= MW:>1G9W=IY&=G9W-(,V1G9V=G<T@S9&=G<V1D9V=(@!_&#$"3$PD*#DILB(1 M$1W-$9V=S2#-$9V=S2#-$9V=S2#-$9V=S2#-SJ41G9V=G<VDSB(`M1@R`DQ, M)"@S*;(B$1$=S1&=G=VG$9V=W:<1G9W=IQ&=G=VG$9V=W:<1G9W=(,T1G9VC MHR(`ZA@S`DQ,)"@Q*;(B$1$=S1&=G=VG$9V=W:<1G9W=IQ&=G=VG$9V=W:<1 MG9W.IQ&=G:.C(@`J&3H"4DPD*#0ILB(1$1$1$1$1G9V=G9T1HZ.1G9W.(-V1 MG9VEW9&=G:7=D9V=SB#.D9V=SB#.D9V=SAV1D2(`7QD[`E),)"@S*;(BG9T1 M$<X1G:7=$9V=I=T1G9VEW1&=G:7=$9V=I=T1G9VES1&=G:.C(@"7&3P"4DPD M*#$ILB(1$9V=SA&=I=T1G9VEW1&=G:7=$9V=I=T1G9VEW1&=G9W.(-T1G9V= MHZ,B`-09/0)23"0H-RFR(A$1G9W.$9V=SB#.$9V=G9W.(,X1G9V=G<X@SA&= MG9V=G9VGS<X@SA&=G9V=S:3.(@`D&DX"13),022R(I&1D9&1D9$='2`@("`@ M("`1G9V=G9V=G2`@("`@("`1G9V=G9V=G2`@("`@("`1G9V=G9V=G2`@("`@ M("`1G9V=G9TB`'(:3P)%,DQ!)+)%,B2J(IV=("`@("`@(!&=G9V=G9T@("`@ M("`1G9V=G9V=("`@("`@$9V=G9V=G2`@("`@(!&=G9V=G9T@("`@("`B`*T: M4`)%,DQ!)+)%,DQ!)*HB$9V=G9V=G9T@("`@("`@$9V=G9V=G2`@("`@()V= MG9V=G9V=G9&1D2(`_!I3`D4Q)+(BD9&1D9&1D9V=G9V=G9V=G2`@("`@("`1 MG9V=G9V=G2`@("`@("`1G9V=G9V=G2`@("`@("`1G9V=G9V=G2`@("`@("`B M`$D;5`)%,22R13$DJB(1G9V=G9V=G2`@("`@(!&=G9V=G9V=("`@("`@(!&= MG9V=G9T@("`@("`1G9V=G9V=("`@("`@$9V=G9V=G2(`?AM5`D4Q)+)%,22J M(B`@("`@(!&=G9V=G9T@("`@("`@$9V=G9V=G2`@("`@'1T=D9&1(@#&&U@" M131,3"2R(A$1("`1G9T@("`1G9V=("`@(!&=G9V=("`@("`1G9V=G9T@("`@ M("`@(!&=G9V=G9V=G2`@("`@("`@(@`('%H"131,3"2R131,3"2J(A&=G9V= MG9V=G2`@("`@("`1G9V=G9V=G2`@("`@(""=G9V=G9V=D9&1D9&1D9&1(@!5 M'%T"13-2)+(B$1&=G2`@$9V=G2`@(!&=G9V=("`@(!&=G9V=G2`@("`@$9V= MG9V=G9V=("`@("`@("`1G9V=G9V=G2`@("`@("`B`(L<7@)%,R2R13,DJB(1 MG9V=G9V=G2`@("`@("`1G9V=G9V=G2`@("`@(""1D9&1D9&1D9$B`-<<8@)2 M,22R(A.4(!&=E"`1G90@$9V4(!&=E"`1G90@$9V4(!&=E"`1G90@$9V4(!&= ME"`1G90@$9V4(!&=E"`1G90@$9V4(!&=(@`$'6P"4C(DLB*4(!&=E"`1G90@ M$9V4(!&=E"`1G90@$9V4(!&=E"`1G90@(@`0'78"3$8DLB(3(@`<'8`"@4FR M,:0R-``V'8H"3$8DLDQ&)*HB'2*JQR@R,"FJ(A$B`#T=E`*"20!?'9X"1"2R M(A$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1$2(`91T6`XX`>AT@`X\M0U524T]2 M(%1/(%@L62T`DQTJ`XM9LC"GF2(3(CJ9(A,BHU@I.SJ.`*P=-`.9(A,B.IDB M$R+(*$0D+%DIHU@I.P"R'3X#C@#)'=P%CRTM+4=%5"!)3E-44E5#5"TM`/D= MY@69(A,@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@$R([ M``,>ZP6-.#`P,``L'O`%B\4H020IL3"G24XD*%`ILD$D.HTR,#`P.E"R4*HQ M.HDQ-3$P`$\>^@6+022R(D4BL$$DLB)0(K!!)+(B1B*P022R(D0BIXX`@1X$ M!HM!)+.Q(D@BKT$DL[$B4B*O022SL2),(J]!)+.Q(D<BKT$DL[$B5R*G,34Q M,`"/'@X&24XD*%`ILD$D`)H>&`:!2;(QI#(`I!XB!HTX,#`P`+D>+`9)3B0H M4"FR24XD*%`IJD$D`,`>-@:"20#G'D`&B\@H24XD*%`I+#$ILB)7(J>-,S4P M,#I0LE"J,3J),34Q,``.'TH&B\@H24XD*%`I+#$ILB)'(J>-,C4P,#I0LE"J M,3J),34Q,``D'U0&C3,P,#`ZCR!-3U9%(%!!4E0`-!]>!E"R4*HQ.HDQ-3$P M`$(?T`>/+4U/5D4M+2T`4A_:!T&RQ2A)3B0H4"DI`(<?WP>+*$&R,J]9L3$S M*;`H0;(TKUBS,3`IL"A!LC:O6+$S,"FP*$&R.*]9LSDIIS(P-S``NQ_D!XM! MLC*G6;)9JC$ZES(Q."PQ,C@ZF2(3(CJ9(A,BHS,X*2)8G924G9V=G2`@("([ M`-`?[@>+0;(TIUBR6*LQ.IE,1B0[`.D?^`>+0;(VIUBR6*HQ.IE2,20[4C(D M.P`((`((BT&R.*=9LEFK,3J7,C$X+#$R.#J9(A,B1"0`#B`6"(X`*R#$"8\M M+49)3DE32"!'150@1T\@0D%#2RTM+0`U(,X)C3@P,#``1B#8"8M!)+(B+2*G M,C8P,`!;(.()24XD*%`ILDE.)"A0*:I!)`!E(.P)B3(U,3``>B`H"DE.)"A0 M*;))3B0H4"FJ020`A"`R"HTX,#`P`)4@/`J+022R(BTBIS(V-#4`JB!&"DE. M)"A0*;))3B0H4"FJ020`M"!0"HDR-C$P`,4@50I.4[)0JC$ZC30V,#``SR!7 M"E"R4*LR`-4@6@J.`.@@N`N/+4U/5D4@4$%25"TM+0#Q(+T+C3@P,``%(<(+ M24XDLL@H24XD*%`I+#(I`!HAS`M!LL4HR2A)3B0H4"DL,2DI`"XAU@N+24XD MLB)202*GC3,Q,#``0B'@"XM)3B2R(DQ!(J>-,S(P,`!6(>H+BTE.)+(B4DPB MIXTS,S`P`&HA]`N+24XDLB),3"*GC3,T,#``?B'^"XM)3B2R(DA%(J>-,S0U M,`"$(0@,C@"9(1P,F44Q4D$D.U)!)"A!*3LZC@"N(8`,F44R3$$D.TQ!)"A! M*3LZC@##(>0,F44S4DPD.U),)"A!*3LZC@#8(4@-F44T3$PD.TQ,)"A!*3LZ MC@#G(7H-F4A%)"A!*3LZC@``(JP-CRTM+49)3E-)2"!'150@5T%)5"T`"R*V M#8T@.#`P,``<(KL-BT$DLB(M(J<S-30P`#$BP`U)3B0H4"FR24XD*%`IJD$D M`#LBR@V),S4Q,`!!(M0-C@!/(G0.CRU704E4+2TM`%@B?@Y4LE1)`&$BB`Y# M5[(Q`'4BD@Y7)++)*$E.)"A0*2Q#5RD`FB*<#HO&*%<D*;,U.*_&*%<D*;$T M-Z=#5[)#5ZHQ.HDS-S,P`+(BI@Y7LL4HR2A)3B0H4"DL0U>K,2DI`,4BL`Z+ M5$FS5*I7K#:G,S<V,`#+(KH.C@#=(J`/CRTM1T\@0D%#2RTM+0#R(JH/BU,H M4U`L,2FSL5"G-#$P,``&([0/BU,H4U`L,BFQ,*<T,C`P`!DCO@^/+2TM14Y$ M($Q/3U`M+0`O(\@/4RA34"PQ*;(P.E-0LE-0JS$`-2/2#XX`1B,$$(\M3D57 M($Q/3U`M+0!<(PX04U"R4U"J,3I3*%-0+#$ILE``:R,8$$E.)+))3B0H4"D` M>2,B$$-,LL,H24XD*0"?(RP0B\HH24XD+$-,+#$IL[$B+2*G0TRR0TRK,3H@ MB2`T,30P`,$C-A!3*%-0+#(ILL4HRBA)3B0L0TRJ,2S#*$E.)"DI*0#1(V@0 MCRTM+4Q/3U!)3D<`W"-R$(T@-#,P,`#Q(WP04+)0JT*K,3J+4+,PIU"R,``' M)(804RA34"PR*;)3*%-0+#(IJS$`#220$(X`)B3,$(\M+2U'150@0D%#2U-4 M15`M+2TM`#4DUA!)3B2R24XD*%`I`$<DZA!"LL4HRBA)3B0L,RDI`$TD$A&. M`%XDE!&/+2U$4DE615(M+2T`<226$9DBDR(Z6+(R,#I9LC$Q`'LDF!&-(#@P M,`"4))H1F4)/)"@Q*5),)"@T*4Q,)"@V*3L`K22<$9E(120H-2E2020H,RE, M020H-BD[`+4DGA%0LC$`PB2H$8%34+(QI#$P`-HDLA%3*%-0+#$ILC`Z4RA3 M4"PR*;(P`.(DO!&"4U``ZR3&$5-0LC$`^B3X$4E.)+))3B0H4"D`#B7\$9DB M$R`@("`@("`@("`@(@`<)?T1F2(3(E`[24XD`"PE`A)&)++(*$E.)"PQ*0`_ M)0P2B\4H1B0IL3"GC3(P,#``5R46$HM&)+(B5R*GC3,W,#`ZB30V-S``;R4@ M$HM&)+(B1R*GC30P,#`ZB30V-S``A24T$HTS,#`P.H\@0D]$62!005)4`(\E M/A)0LE"J,0"B)4@2BU"QLDY3IU"R4*HQ.HX`K"52$HDT-C`P`+TEB!./+2U0 M4D]'4D%-+2T`S262$YDBDQ%04D]'4D%-`-LEG!.!2;(QI$Y3JS$`ZB6F$YE) M.TE.)"A)*2P`\26P$X))`/<EQ!..``0F0!^/($=%5"!!)``:)DH?H2!!)#J+ M($$DLB(BIS@P,3``+29,'XO&*$$D*;(Q,Z<X,#$P`#8F3Q^9020[`#PF5!^. M````"AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH: 7&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH@
    `
    end
    END-------cut here-------CUT HERE-------PART 01/01

    01000011 01001111 01001101 01001101 01001111 01000100 01001111 01010010 01000101
    Larry Anderson - Sysop of Silicon Realms BBS (209) 754-1363
    300-14.4k bps
    Set your 8-bit C= rigs to sail for http://www.portcommodore.com/ 01000011 01001111 01001101 01010000 01010101 01010100 01000101 01010010 01010011

    --
    Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
    Floodgap Systems: http://www.floodgap.com/
    personal page: http://www.cameronkaiser.com/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)