From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_05,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 10c949,38eaf2ac280788bb,start X-Google-Attributes: gid10c949,public X-Google-Thread: 109fba,38eaf2ac280788bb,start X-Google-Attributes: gid109fba,public X-Google-Thread: f6290,38eaf2ac280788bb,start X-Google-Attributes: gidf6290,public X-Google-Thread: 114917,38eaf2ac280788bb,start X-Google-Attributes: gid114917,public X-Google-Thread: 1014db,38eaf2ac280788bb,start X-Google-Attributes: gid1014db,public X-Google-Thread: 103376,38eaf2ac280788bb,start X-Google-Attributes: gid103376,public X-Google-Thread: fdb77,38eaf2ac280788bb,start X-Google-Attributes: gidfdb77,public X-Google-Thread: 10d15b,38eaf2ac280788bb,start X-Google-Attributes: gid10d15b,public From: spam.free.zone@no-spam.com (Doug Miller) Subject: 'Money wanted' algorithm (Cobol version) Date: 1996/12/30 Message-ID: <5a8h44$elt@news.inetdirect.net>#1/1 X-Deja-AN: 206752203 distribution: world organization: Hospital Health Plan Corp. newsgroups: comp.lang.ada,comp.lang.asm.x86,comp.lang.basic.misc,comp.lang.c,comp.lang.c++,comp.lang.clipper,comp.lang.cobol,comp.lang.java.advocacy,comp.lang.java.api,comp.lang.java.misc,comp.lang.java.programmer,comp.lang.javascript,comp.lang.pascal.borland,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.databases,comp.lang.pascal.delphi.misc,comp.lang.perl.misc,comp.lang.smalltalk,comp.lang.tcl,comp.mail.eudora.ms-windows,comp.mail.sendmail,comp.multimedia,comp.music.midi,comp.object,com Date: 1996-12-30T00:00:00+00:00 List-Id: congee@mindspring.com (Deric Cheng) wrote: >Path: news.netdirect.net!news.sprintlink.net!news-chi-13.sprintlink.net!www.nntp.primenet.com!nntp.primenet.com!news.mindspring.com!usenet >From: congee@mindspring.com (Deric Cheng) >Newsgroups: comp.lang.ada,comp.lang.asm.x86,comp.lang.basic.misc,comp.lang.c,comp.lang.c++,comp.lang.clipper,comp.lang.cobol,comp.lang.java.advocacy,comp.lang.java.api,comp.lang.java.misc,comp.lang.java.programmer,comp.lang.javascript,comp.lang.pascal.borland,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.databases,comp.lang.pascal.delphi.misc,comp.lang.perl.misc,comp.lang.smalltalk,comp.lang.tcl,comp.mail.eudora.ms-windows,comp.mail.sendmail,comp.multimedia,comp.music.midi,comp.object, >com >p.org.eff.ta >Subject: Re: Money wanted >Date: Sun, 29 Dec 1996 05:51:17 GMT >Organization: MindSpring Enterprises, Inc. >Lines: 34 >Message-ID: <5a50s6$kfp@camel2.mindspring.com> >References: <32BFDC0E.79BB@solutions.mb.ca> <32C15269.2481304F@seahunt.imat.com> <32c1bb07.1770350@news.2sprint.net> <32C1ECEF.32B8@pacbell.net> <59t5l6$kes@camel2.mindspring.com> >Reply-To: congee@mindspring.com >NNTP-Posting-Host: ip253.an13-new-york4.ny.pub-ip.psi.net >X-Server-Date: 29 Dec 1996 05:51:02 GMT >X-Newsreader: Forte Free Agent 1.0.82 >Xref: news.netdirect.net comp.lang.ada:48423 comp.lang.asm.x86:29605 comp.lang.basic.misc:23092 comp.lang.c:202850 comp.lang.c++:208853 comp.lang.clipper:19938 comp.lang.cobol:12231 comp.lang.java.advocacy:2908 comp.lang.java.api:4850 comp.lang.java.misc:6535 comp.lang.java.programmer:19677 comp.lang.javascript:14294 comp.lang.pascal.borland:22596 comp.lang.pascal.delphi.databases:24628 comp.lang.pascal.delphi.misc:58635 comp.lang.perl.misc:43611 comp.lang.smalltalk:41655 comp.lang.tcl:52025 comp.mail.e >udo >ra.ms-windows:19511 comp.mail.sendmail:35187 comp.multimedia:60129 comp.music.midi:13092 comp.object:51961 > >dennis@qltel.exonet.nl (Dennis Janssen) wrote: > >>Hi Deric, > >>**>> I need alot of money badly; Could anyone help? > >>DC> Step 1 Find empty coffee cup >>DC> Step 2 Find busy Street >>DC> Step 3 Sit in middle of Street >>DC> Step 4 goto Step 3 until sun goes down. >>DC> Stpe 5 goto step 1 in the next day. > >>Tsk, tsk, bad advice. Goto's are evil! > >>Program Make_Money; > >>Uses >> Nothing; > >>begin >> Repeat >> Find(EmptyCoffeeCup); >> Find(BusyStreet); >> Repeat >> Sit(MiddleOfStreet) >> Until Sun(Down) >> Until Hell(FrozenOver) >>end. > >>See mom, I DO have the Christmas spirit! > >> Dennis! >Hey that's cool can you do it in Cobol? > Sure thing: PERFORM WITH TEST AFTER UNTIL hell-frozen-over PERFORM find-empty-coffee-cup PERFORM find-busy-street PERFORM sit-middle-of-street UNTIL sunset PERFORM wait-til-morning END-PERFORM Doug Miller dlmiller@inetdirect.net ('from' field rigged to foil e-mail spammers) views expressed are mine and not those of Hospital Health Plan Corp. "all health care is local"