;------------------------------------------------------------------------------
;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
    INTEGER    VAR005
    BOOLEAN    VAR006
    BOOLEAN    VAR007
    DATE       VAR008
    STRING     VAR009
    STRING     VAR010
    STRING     VAR011
    STRING     VAR012
    STRING     VAR013
    BOOLEAN    VAR014
    BOOLEAN    VAR015

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

    CLS 
    LET VAR014=1
    LET VAR015=1
    LET VAR010="Y"
    PRINTLN "@X0FFTP by Email - Version .20b"
    Delay 10
    FOPEN 1,PPEPATH()+"FTP.CFG",O_RD,S_DN
    FGET 1,VAR005
    FCLOSE 1
    LET VAR015=1
    PRINTLN 
    INPUT "Enter HOST name",VAR011
    PRINTLN 
    INPUT "Enter UNIX directory",VAR012
    PRINTLN 
    IF (!VAR015) GOTO LABEL001
    INPUT "Enter FILENAME",VAR013
    PRINTLN 
    LET VAR010="Y"
    INPUTYN "Is this a BINARY file (Y/N)",VAR010,15
    PRINTLN 
    IF (!(VAR010="Y")) GOTO LABEL000
    LET VAR014=1
    PRINTLN "FILETYPE: BINARY"
    GOTO LABEL001

:LABEL000
    LET VAR014=0
    PRINTLN "FILETYPE: ASCII"

:LABEL001
    PRINTLN 
    PRINT "Creating FTP request...."
    LET VAR009=PPEPATH()+"FTEMP"+STRING(PCBNODE())+".TMP"
    FCREATE 1,VAR009,O_WR,S_DB
    LET VAR001=U_NAME()
    LET VAR003="ftpmail@sunsite.unc.edu"
    LET VAR002=" "
    LET VAR004="R"
    LET VAR006=0
    LET VAR007=1
    LET VAR008=DATE()+3
    FPUTLN 1,"open ",VAR011
    IF (!VAR015) GOTO LABEL003
    IF (!VAR014) GOTO LABEL002
    FPUTLN 1,"binary"
    FPUTLN 1,"uuencode"
    GOTO LABEL003

:LABEL002
    FPUTLN 1,"ascii"

:LABEL003
    FPUTLN 1,"cd ",VAR012
    IF (!VAR015) GOTO LABEL004
    FPUTLN 1,"get ",VAR013
    GOTO LABEL005

:LABEL004
    FPUTLN 1,"dir"

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

:LABEL006
    PRINTLN 
    PRINTLN "Request Aborted!"

:LABEL007
    PRINTLN "Returning back to BBS"
    END 


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