Area : SNETNEWS

Date : Fri Jun 07, 22:26                                                       
From : Brian Redman                                          1:330/201.1
To   : All                                 
Subj : Conspiracy Nation -- Vol. 8 Num. 10                                   
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

Reply-to: snetnews@alterzone.com
From: "Brian Redman" 
Originally to: "Conspiracy Nation" 
Sender: snetnews-approval@alterzone.com
Original Date: Fri, 7 Jun 1996 16:56:02 -0500 (CDT)


->  SearchNet's   snetnews   Mailing List

The following is brought to you thanks, in part, to the kind 
assistance of CyberNews and the fine folks at Cornell University.


              Conspiracy Nation -- Vol. 8  Num. 10
             ======================================
                    ("Quid coniuratio est?")
 
 
-----------------------------------------------------------------
 
666 SEARCHER
============
 
' 666 Searcher
' Helps you keep on the lookout for the Beast, whose number is 666
' Public Domain program written by Brian Francis Redman, Editor-
' in-Chief, Conspiracy Nation, June 7, 1995
'
' Compile using QuickBasic 4.5 or may be portable to BASICA
 
' Example names: try "Kissinger" and "Computer"
 
CLS
L1% = 0: X1% = 0: X2% = 0: X3% = 0
LOCATE 2, 1
PRINT "Enter name";
Sw1% = 1
WHILE Sw1% = 1
    INPUT A$
    L1% = LEN(A$)
    FOR X1% = 1 TO L1%
        X2% = ASC(MID$(A$, X1%, 1))
        IF X2% > 90 THEN X2% = X2% - 32
        X2% = X2% - 64
        X2% = X2% * 6
        X3% = X3% + X2%
    NEXT X1%
    LOCATE 4, 1
    PRINT A$; " = "; X3%
    B$ = ""
    WHILE B$ = ""
        B$ = INKEY$
    WEND
    LOCATE 6, 1
    PRINT "Again?"
    B$ = ""
    WHILE B$ = ""
        B$ = INKEY$
    WEND
    IF B$ <> "Y" AND B$ <> "y" THEN
        Sw1% = 0
    ELSE
        L1% = 0: X1% = 0: X2% = 0: X3% = 0
        A$ = "": B$ = ""
        CLS
        LOCATE 2, 1
        PRINT "Enter name";
    END IF
WEND
CLS
LOCATE 2, 1
PRINT "Thank you for using 666 Searcher."
END
 
-----------------------------------------------------------------
     I encourage distribution of "Conspiracy Nation."
-----------------------------------------------------------------
If you would like "Conspiracy Nation" sent to your e-mail 
address, send a message in the form "subscribe cn-l My Name" to 
listproc@cornell.edu          (Note: that is "CN-L" *not* "CN-1")
-----------------------------------------------------------------
    For information on how to receive the improved Conspiracy 
  Nation Newsletter, send an e-mail message to bigred@shout.net
-----------------------------------------------------------------
Want to know more about Whitewater, Oklahoma City bombing, etc? 
(1) telnet prairienet.org (2) logon as "visitor" (3) go citcom
-----------------------------------------------------------------
       See also: http://www.europa.com/~johnlf/cn.html
-----------------------------------------------------------------
          See also: ftp.shout.net  pub/users/bigred
-----------------------------------------------------------------
Aperi os tuum muto, et causis omnium filiorum qui pertranseunt.
Aperi os tuum, decerne quod justum est, et judica inopem et 
  pauperem.                    -- Liber Proverbiorum  XXXI: 8-9 



-> Send "subscribe   snetnews " to majordomo@alterzone.com
->  Posted by: Brian Redman 


--- MailGate 0.25e
 * Origin: XBN BBS - SearchNet HeadQuarters (1:330/201.1)

Disclaimer: The file contained in the box above or displayed in a separate window from a link in the box above is NOT owned nor implied to be owned by BeYoND THe iLLuSioN. Most files at BeYoND THe iLLuSioN are originally from public Bulletin Board Systems (BBS) which were popular in the days before the Internet or from gopher, web, and FTP sites from the early days of the Internet which no longer exist today. Essentially, all files were acquired from the public domain in one for or another.

However, there have been occasions when copyright protected material has appeared on BeYoND THe iLLuSIoN without permission of the copyright holder. In these instances, we have and will continue to remove the copyright protected file as soon as it is brought to our attention. This can now be done using our Report Copyright Material form. Fill out the form, and the webmaster will be notified of the situation.

There are also times when files found on BeYoND THe iLLuSioN have a real home somewhere else on the Internet. In these instances, we will gladly replace the file with a link to its true home whenever it is brought to our attention. If you know of the true home of any of these files, you can use our Report Original URL form to bring it yo our attention.