;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.10 detected.
;
;Source Code:
;------------------------------------------------------------------------------

    STRING     VAR001
    STRING     VAR002
    STRING     VAR003
    STRING     VAR004
    STRING     VAR005
    INTEGER    VAR006
    BOOLEAN    VAR007
    BOOLEAN    VAR008
    DATE       VAR009
    STRING     VAR010
    STRING     VAR011
    STRING     BBSNAME
    STRING     SYSNAME
    INTEGER    VAR012
    BOOLEAN    VAR013
    BOOLEAN    VAR014
    BOOLEAN    VAR015

;------------------------------------------------------------------------------

    CLS 
    LET VAR012=0
    LET VAR013=0
    LET VAR014=0
    FOPEN 1,PPEPATH()+"ARCHIE.CFG",O_RD,S_DN
    FGET 1,VAR006
    FGET 1,BBSNAME
    FGET 1,SYSNAME
    FCLOSE 1
    PRINTLN "@X0FARCHIE by Email - Version .20b"
    PRINTLN "Registered to: "+BBSNAME
    PRINTLN "Sysop: "+SYSNAME
    PRINTLN 
    WAIT 
    PRINTLN 
    PRINTLN "@X0FPlease enter the following information for the filenames you wish to"
    PRINTLN "search for.@X07"

:LABEL000
    IF (!(!VAR013)) GOTO LABEL004
    INPUT "Enter the string to search for",VAR001
    IF (!(VAR001="")) GOTO LABEL002
    PRINTLN 
    PRINTLN "Please enter a search string!"
    PRINTLN 
    LET VAR012=VAR012+1
    IF (!(VAR012>=4)) GOTO LABEL001
    PRINTLN "too many trys - aborting!!!!"
    LET VAR013=1
    LET VAR014=1

:LABEL001
    GOTO LABEL003

:LABEL002
    LET VAR013=1

:LABEL003
    GOTO LABEL000

:LABEL004
    LET VAR011="Y"
    IF (!(!VAR014)) GOTO LABEL008
    LET VAR015=1
    PRINTLN 
    PRINT "Creating ARCHIE request...."
    LET VAR010=PPEPATH()+"ATEMP"+STRING(PCBNODE())+".TMP"
    FCREATE 1,VAR010,O_WR,S_DB
    LET VAR002=U_NAME()
    LET VAR004="archie@archie.rutgers.edu"
    LET VAR003=" "
    LET VAR005="R"
    LET VAR007=0
    LET VAR008=1
    LET VAR009=DATE()+3
    IF (!VAR015) GOTO LABEL005
    FPUTLN 1,"set search sub"
    GOTO LABEL006

:LABEL005
    FPUTLN 1,"set search exact"

:LABEL006
    FPUTLN 1,"find ",VAR001
    FPUTLN 1,"quit"
    FCLOSE 1
    PRINTLN "Done!"
    LET VAR011="Y"
    INPUTYN "Do you want to send this request (Y/N)",VAR011,15
    IF (!(VAR011="Y")) GOTO LABEL007
    PRINTLN 
    PRINTLN "Request sent!"
    MESSAGE VAR006,VAR004,VAR002,VAR003,VAR005,VAR009,VAR007,VAR008,VAR010
    GOTO LABEL008

:LABEL007
    PRINTLN 
    PRINTLN "Request Aborted!"

:LABEL008
    PRINTLN 
    PRINTLN "Returning back to BBS"
    PRINTLN 
    END 


;------------------------------------------------------------------------------
;Statements used:
;
;     1 END
;     1 CLS
;     3 WAIT
;    10 GOTO
;    18 LET
;     1 PRINT
;    25 PRINTLN
;     6 IF
;     1 INPUT
;     1 FCREATE
;     1 FOPEN
;     2 FCLOSE
;     1 FGET
;     4 FPUTLN
;     1 INPUTYN
;     1 DELAY
;     1 MESSAGE
;
;Functions used:
;
;     1 *
;     1 /
;     6 +
;     2 =
;     1 >=
;     8 !
;     1 DATE
;     1 U_NAME
;     1 STRING
;     2 PPEPATH
;     1 PCBNODE
;
;------------------------------------------------------------------------------
;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------