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: ftp 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