;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00 (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.20 detected.
;
;Source Code:
;------------------------------------------------------------------------------
STRING VAR001
STRING VAR002
STRING VAR003
INTEGER VAR004
INTEGER VAR005
STRING VAR006
STRING VAR007
INTEGER VAR008
STRING VAR009
STRING VAR010
INTEGER VAR011
INTEGER VAR012
STRING VAR013
STRING VAR014
STRING VAR015
STRING VAR016
STRING VAR017
STRING VAR018
STRING VAR019
DATE VAR020
DATE VAR021
DATE VAR022
INTEGER VAR023
INTEGER VAR024
STRING VAR025
STRING VAR026
INTEGER VAR027
INTEGER VAR028
STRING VAR029
STRING VAR030
INTEGER VAR031
STRING VAR032
STRING VAR033
INTEGER VAR034
INTEGER VAR035
STRING VAR036(6)
INTEGER VAR037
INTEGER VAR038
INTEGER VAR039
INTEGER VAR040
INTEGER VAR041
INTEGER VAR042
INTEGER VAR043
INTEGER VAR044
STRING VAR045
INTEGER VAR046
INTEGER VAR047
INTEGER VAR048
STRING VAR049
INTEGER VAR050
STRING VAR051
INTEGER VAR052
STRING VAR053
STRING VAR054
INTEGER VAR055
STRING VAR056
STRING VAR057
STRING VAR058
INTEGER VAR059
INTEGER VAR060
STRING VAR061
STRING VAR062
;------------------------------------------------------------------------------
LET VAR029=1.09
LOG "Opened Depository PPE",1
CDCHKON
CLS
LET VAR013=GETENV("PCB_PWRD")
IF (!(VAR013="")) GOTO LABEL000
LET VAR061="Environment Variable was not set. Please tell Sysop."
LOG "PCB_PWRD environment variable not set.. ",0
GOTO LABEL047
:LABEL000
IF (!(EXIST(VAR013)=0)) GOTO LABEL001
LET VAR061="File associated with environmet not found. Please tell Sysop."
LOG "PCB_PWRD Environment variable "+VAR013+" was not found!",0
GOTO LABEL047
:LABEL001
FOPEN 1,VAR013,O_RD,S_DN
FGET 1,VAR049
FCLOSE 1
LET VAR046=LEN(VAR049)
LET VAR062=0
:LABEL002
IF (!(VAR062<VAR046)) GOTO LABEL004
LET VAR062=VAR062+1
IF (!(MID(VAR049,VAR062,1)=",")) GOTO LABEL003
LET VAR040=VAR040+1
:LABEL003
GOTO LABEL002
:LABEL004
IF (!(VAR040<7)) GOTO LABEL005
LOG "PWRD file is not the correct format.",0
LOG "Please check that the FORMAT is 15.x extended format.",0
LET VAR061="Please tell SYSOP that the PWRD file has incorrect format."
GOTO LABEL047
:LABEL005
GETUSER
CLS
LET VAR008=U_PAGELEN
IF (!(VAR008<>25)) GOTO LABEL006
LET U_PAGELEN=25
PUTUSER
:LABEL006
LET VAR033=PPEPATH()
LET VAR033=VAR033+"intro.pcb"
LET VAR037=1
LET VAR036(VAR037)=VAR033
GOSUB LABEL089
DISPFILE VAR036(VAR037),DEFS
ANSIPOS 14,22
PRINTLN "@X0E(c)1993,96 PRACTICAL COMPUTER SERVICES (609) 587-2672@X07"
ANSIPOS 5,23
GETUSER
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.CFG"
FOPEN 1,VAR053,O_RD,S_DN
LET VAR037=1
LET VAR036(VAR037)=VAR053
GOSUB LABEL089
FGET 1,VAR009
FGET 1,VAR010
FGET 1,VAR011
FGET 1,VAR012
FCLOSE 1
LET VAR013=GETENV("PCB_PWRD")
IF (VAR013="") STOP
IF (EXIST(VAR013)=0) STOP
LET VAR001=U_SEC
FOPEN 1,VAR013,O_RD,S_DN
LET VAR035=0
:LABEL007
IF (!(VAR035=0)) GOTO LABEL017
FGET 1,VAR032
LET VAR051=MID(VAR032,1,5)
IF (!(INSTR(VAR051,VAR001)>0)) GOTO LABEL016
LET VAR040=0
LET VAR041=0
:LABEL008
IF (!(VAR040<=2)) GOTO LABEL010
LET VAR045=MID(VAR032,VAR041,1)
IF (!(VAR045=",")) GOTO LABEL009
LET VAR040=VAR040+1
:LABEL009
LET VAR041=VAR041+1
GOTO LABEL008
:LABEL010
LET VAR042=VAR041
LET VAR040=0
:LABEL011
IF (!(VAR040<1)) GOTO LABEL013
LET VAR045=MID(VAR032,VAR041,1)
IF (!(VAR045=",")) GOTO LABEL012
LET VAR040=VAR040+1
:LABEL012
LET VAR041=VAR041+1
GOTO LABEL011
:LABEL013
LET VAR043=VAR041-1
LET VAR044=VAR043-VAR042
LET VAR002=MID(VAR032,VAR042,VAR044)
IF (!(VAR002="32767")) GOTO LABEL014
LET VAR002="UNLIMITED"
GOTO LABEL015
:LABEL014
LET VAR002=VAR002*1024
:LABEL015
LET VAR035=1
:LABEL016
GOTO LABEL007
:LABEL017
FCLOSE 1
IF (!(VAR002="UNLIMITED")) GOTO LABEL018
LET VAR003=VAR002
GOTO LABEL019
:LABEL018
LET VAR046=VAR002
LET VAR046=VAR046-U_BDLDAY()
LET VAR003=VAR046
:LABEL019
LET VAR042=0
LET VAR043=0
LET VAR035=0
LET VAR053=VAR013
LET VAR037=1
LET VAR036(VAR037)=VAR053
GOSUB LABEL089
FOPEN 1,VAR013,O_RD,S_DN
:LABEL020
IF (!(VAR035=0)) GOTO LABEL030
FGET 1,VAR032
LET VAR051=MID(VAR032,1,5)
IF (!(INSTR(VAR051,VAR001)>0)) GOTO LABEL029
LET VAR040=0
LET VAR041=0
:LABEL021
IF (!(VAR040<=5)) GOTO LABEL023
LET VAR045=MID(VAR032,VAR041,1)
IF (!(VAR045=",")) GOTO LABEL022
LET VAR040=VAR040+1
:LABEL022
LET VAR041=VAR041+1
GOTO LABEL021
:LABEL023
LET VAR042=VAR041
LET VAR040=0
:LABEL024
IF (!(VAR040<1)) GOTO LABEL026
LET VAR045=MID(VAR032,VAR041,1)
IF (!(VAR045=",")) GOTO LABEL025
LET VAR040=VAR040+1
:LABEL025
LET VAR041=VAR041+1
GOTO LABEL024
:LABEL026
LET VAR043=VAR041-1
LET VAR044=VAR043-VAR042
LET VAR049=MID(VAR032,VAR042,VAR044)
LET VAR046=VAR049
LET VAR046=VAR046/10
LET VAR049=VAR046
IF (!(VAR049="0")) GOTO LABEL027
LET VAR007="NA"
GOTO LABEL028
:LABEL027
LET VAR007="1:"+VAR049
:LABEL028
LET VAR035=1
:LABEL029
GOTO LABEL020
:LABEL030
FCLOSE 1
FCLOSE 1
LET VAR004=U_FUL()
LET VAR005=U_FDL()
IF (!(VAR004>VAR005)) GOTO LABEL031
LET VAR050=VAR004/VAR005
LET VAR049=VAR050
LET VAR006=VAR049+":1"
:LABEL031
IF (!(VAR005>VAR004)) GOTO LABEL032
LET VAR050=VAR005/VAR004
LET VAR049=VAR050
LET VAR006="1:"+VAR049
:LABEL032
IF (!(VAR005=VAR004)) GOTO LABEL033
LET VAR006="1:1"
:LABEL033
LET VAR035=0
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.ndx"
FOPEN 1,VAR053,O_RD,S_DN
:LABEL034
IF (!(VAR035=0)) GOTO LABEL041
IF (VAR035=0) FGET 1,VAR032
IF (!(VAR032<>"")) GOTO LABEL039
LET VAR046=INSTR(VAR032,"/")
LET VAR048=LEN(VAR032)
LET VAR049=MID(VAR032,(VAR046+1),(VAR048-VAR046))
LET VAR031=VAR049
LET VAR049=MID(VAR032,1,(VAR046-1))
LET VAR019=U_NAME()
IF (!(INSTR(VAR049,VAR019)>0)) GOTO LABEL038
LET VAR035=1
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.dat"
FOPEN 2,VAR053,O_RD,S_DN
LET VAR052=0
LET VAR040=0
:LABEL035
IF (!(VAR052=0)) GOTO LABEL037
FGET 2,VAR032
IF (VAR032="") LET VAR052=1
LET VAR040=VAR040+1
IF (!(VAR040=VAR031)) GOTO LABEL036
LET VAR052=1
:LABEL036
GOTO LABEL035
:LABEL037
LET VAR019=VAR032
FGET 2,VAR032
LET VAR020=VAR032
FGET 2,VAR032
LET VAR021=VAR032
FGET 2,VAR032
LET VAR022=VAR032
FGET 2,VAR032
LET VAR023=VAR032
FGET 2,VAR032
LET VAR024=VAR032
FGET 2,VAR032
LET VAR025=VAR032
FGET 2,VAR032
LET VAR026=VAR032
FGET 2,VAR032
LET VAR027=VAR032
FGET 2,VAR032
LET VAR028=VAR032
FGET 2,VAR032
LET VAR017=VAR032
FGET 2,VAR032
LET VAR018=VAR032
LET VAR035=1
FCLOSE 2
:LABEL038
GOTO LABEL040
:LABEL039
FCLOSE 1
GOSUB LABEL083
LET VAR035=1
:LABEL040
GOTO LABEL034
:LABEL041
IF (!(VAR020<>DATE())) GOTO LABEL042
LET VAR017="0"
LET VAR018="0"
:LABEL042
LET VAR059=VAR017
LET VAR060=VAR018
GOSUB LABEL088
:LABEL043
ANSIPOS 24,7
LET VAR049=MINLEFT()
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 28,23
INPUTSTR "@X0EEnter your choice@X07 ",VAR054,4,1,"QDWEqdwe",ERASELINE
IF (UPPER(VAR054)="Q") GOTO LABEL049
IF (!(UPPER(VAR054)="D")) GOTO LABEL044
GOSUB LABEL050
GOTO LABEL043
:LABEL044
IF (!(UPPER(VAR054)="W")) GOTO LABEL045
GOSUB LABEL059
GOTO LABEL043
:LABEL045
IF (!(UPPER(VAR054)="E")) GOTO LABEL046
GOSUB LABEL072
GOTO LABEL043
:LABEL046
GOTO LABEL043
:LABEL047
CLS
IF (!(VAR061>"")) GOTO LABEL048
PRINTLN VAR061
:LABEL048
FCLOSE 1
FCLOSE 2
FCLOSE 3
FCLOSE 4
STOP
:LABEL049
FCLOSE 1
FCLOSE 2
FCLOSE 3
FCLOSE 4
GOSUB LABEL090
GETUSER
LET VAR046=MINLEFT()
IF (VAR046<1) BYE
CLS
END
:LABEL050
ANSIPOS 14,23
INPUTSTR "Deposit @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ",VAR054,3,1,"BTQbtq",ERASELINE
IF (UPPER(VAR054)="Q") GOTO LABEL043
IF (!(UPPER(VAR054)="B")) GOTO LABEL056
ANSIPOS 15,23
INPUTSTR "@X0EInput Byte amount you wish to Deposit@X07 ",VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to deposit "+VAR054+" Bytes@X07 ",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL055
LET VAR046=VAR002
IF (VAR002="UNLIMITED") LET VAR046=0
LET VAR046=VAR046-U_BDLDAY()
IF (!(VAR046<1)) GOTO LABEL051
ANSIPOS 5,23
INPUTSTR "Value entered is larger than Bytes remaining. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL050
:LABEL051
LET VAR047=VAR054
IF (!(VAR047>VAR046)) GOTO LABEL052
ANSIPOS 5,23
INPUTSTR "Value entered is larger than Bytes remaining. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL050
:LABEL052
LET VAR021=DATE()
LET VAR023=VAR054
LET VAR059=VAR059-VAR023
LET VAR025="BYTE"
LET VAR028=VAR028+VAR023
LET VAR033=PPEPATH()
LET VAR033=VAR033+"USysUpd.Exe"
WRUSYS
SHELL 1,VAR056,VAR033,VAR023
RDUSYS
PUTUSER
GETUSER
IF (!(VAR002="UNLIMITED")) GOTO LABEL053
LET VAR003=VAR002
GOTO LABEL054
:LABEL053
LET VAR046=VAR002
LET VAR046=VAR046-U_BDLDAY()
LET VAR003=VAR046
:LABEL054
GOSUB LABEL088
:LABEL055
GOTO LABEL050
:LABEL056
IF (!(UPPER(VAR054)="T")) GOTO LABEL059
ANSIPOS 5,23
LET VAR046=MINLEFT()
LET VAR049=VAR046
INPUTSTR "@X0EYou have "+VAR049+" available. Input Time amount you wish to Deposit@X07 ",VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to deposit "+VAR054+" Time@X07 ",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL058
LET VAR055=VAR054
LET VAR046=MINLEFT()
IF (!(VAR055>VAR046)) GOTO LABEL057
ANSIPOS 5,23
INPUTSTR "Value entered is more than the time remaining. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL043
:LABEL057
LET VAR021=DATE()
LET VAR023=VAR054
LET VAR025="TIME"
LET VAR027=VAR027+VAR023
LET VAR055=VAR055*(-1)
ADJTIME VAR055
LET VAR060=VAR060-VAR023
CLS
GOSUB LABEL088
:LABEL058
GOTO LABEL050
:LABEL059
ANSIPOS 13,23
INPUTSTR "Withdraw @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ",VAR054,3,1,"BTQbtq",ERASELINE
IF (UPPER(VAR054)="Q") GOTO LABEL043
IF (!(UPPER(VAR054)="B")) GOTO LABEL066
ANSIPOS 15,23
INPUTSTR "@X0EInput Byte amount you wish to Withdraw@X07 ",VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to withdraw "+VAR054+" Bytes@X07 ",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL065
LET VAR055=VAR054
IF (!(VAR055>VAR028)) GOTO LABEL060
ANSIPOS 5,23
INPUTSTR "Value entered is more than Bytes saved. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL060
IF (!(VAR055>VAR010)) GOTO LABEL061
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Bytes allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL061
LET VAR046=VAR059+VAR055
IF (!(VAR046>VAR010)) GOTO LABEL062
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Bytes allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL062
LET VAR022=DATE()
LET VAR024=VAR055
LET VAR026="BYTE"
LET VAR028=VAR028-VAR024
LET VAR046=VAR024*(-1)
LET VAR059=VAR059+VAR024
LET VAR033=PPEPATH()
LET VAR033=VAR033+"USysUpd.Exe"
WRUSYS
SHELL 1,VAR056,VAR033,VAR046
RDUSYS
PUTUSER
GETUSER
IF (!(VAR002="UNLIMITED")) GOTO LABEL063
LET VAR003=VAR002
GOTO LABEL064
:LABEL063
LET VAR046=VAR002
LET VAR046=VAR046-U_BDLDAY()
LET VAR003=VAR046
:LABEL064
GOSUB LABEL088
:LABEL065
GOTO LABEL059
:LABEL066
IF (!(UPPER(VAR054)="T")) GOTO LABEL071
ANSIPOS 5,23
LET VAR046=MINLEFT()
LET VAR049=VAR046
INPUTSTR "@X0EInput Time amount you wish to Withdraw@X07 ",VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to withdraw "+VAR054+" Time@X07 ",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL070
LET VAR055=VAR054
IF (!(VAR027<VAR055)) GOTO LABEL067
ANSIPOS 5,23
INPUTSTR "Value entered is more than time saved. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL067
IF (!(VAR055>VAR009)) GOTO LABEL068
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Time allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL068
LET VAR046=VAR060+VAR055
IF (!(VAR046>VAR009)) GOTO LABEL069
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Time allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL069
LET VAR022=DATE()
LET VAR024=VAR054
LET VAR026="TIME"
LET VAR027=VAR027-VAR024
ADJTIME VAR024
LET VAR060=VAR060+VAR024
CLS
GOSUB LABEL088
:LABEL070
GOTO LABEL059
:LABEL071
GOTO LABEL059
:LABEL072
ANSIPOS 13,23
INPUTSTR "Exchange @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ",VAR054,3,1,"BTQbtq",ERASELINE
IF (UPPER(VAR054)="Q") GOTO LABEL043
IF (!(UPPER(VAR054)="B")) GOTO LABEL077
ANSIPOS 10,23
LET VAR049=VAR012
INPUTSTR "@X0EInput Byte amount to Exchange, in increments of@X07 "+VAR049,VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to exchange "+VAR054+" Bytes@X07 ",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL076
LET VAR055=VAR054
IF (!(VAR055>VAR028)) GOTO LABEL073
ANSIPOS 5,23
INPUTSTR "Value entered is more than Bytes saved. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL072
:LABEL073
IF (!(VAR055>VAR010)) GOTO LABEL074
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Bytes allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL074
IF (!(VAR055<VAR012)) GOTO LABEL075
ANSIPOS 1,23
INPUTSTR "Value entered is less than then minimum value of "+VAR049+". Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL075
LET VAR022=DATE()
LET VAR024=VAR055
LET VAR026="BYTE"
LET VAR028=VAR028-VAR024
LET VAR046=VAR055/VAR012
LET VAR046=VAR046*VAR011
LET VAR021=DATE()
LET VAR023=VAR046
LET VAR025="TIME"
LET VAR027=VAR027+VAR023
GOSUB LABEL088
:LABEL076
GOTO LABEL072
:LABEL077
IF (!(UPPER(VAR054)="T")) GOTO LABEL082
ANSIPOS 15,23
LET VAR049=VAR011
INPUTSTR "@X0EInput Time amount you wish to Exchange, in increments of@X07 "+VAR049,VAR054,4,10,"9876543210",ERASELINE
ANSIPOS 15,23
INPUTSTR "@X0EAre you sure you wish to exchange "+VAR054+" Minutes@X07",VAR057,4,1,"YyNn",ERASELINE
IF (!(UPPER(VAR057)="Y")) GOTO LABEL081
LET VAR055=VAR054
IF (!(VAR055>VAR027)) GOTO LABEL078
ANSIPOS 5,23
INPUTSTR "Value entered is more than Time saved. Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL072
:LABEL078
IF (!(VAR055>VAR009)) GOTO LABEL079
ANSIPOS 1,23
INPUTSTR "Value entered is more than Maximum Time allowed . Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL079
IF (!(VAR055<VAR011)) GOTO LABEL080
ANSIPOS 1,23
INPUTSTR "Value entered is less than then minimum value of "+VAR049+". Hit enter to continue.",VAR054,9,1,"",ERASELINE
GOTO LABEL059
:LABEL080
LET VAR022=DATE()
LET VAR024=VAR055
LET VAR026="TIME"
LET VAR027=VAR027-VAR024
LET VAR046=VAR055/VAR011
LET VAR046=VAR046*VAR012
LET VAR021=DATE()
LET VAR023=VAR046
LET VAR025="BYTE"
LET VAR028=VAR028+VAR023
GOSUB LABEL088
:LABEL081
GOTO LABEL072
:LABEL082
GOTO LABEL072
:LABEL083
LET VAR030=U_NAME()
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.dat"
FOPEN 2,VAR053,O_RD,S_DN
LET VAR052=0
LET VAR040=1
:LABEL084
IF (!(VAR052=0)) GOTO LABEL087
FGET 2,VAR032
IF (!(VAR032="")) GOTO LABEL085
LET VAR052=1
GOTO LABEL086
:LABEL085
LET VAR040=VAR040+1
:LABEL086
GOTO LABEL084
:LABEL087
FCLOSE 2
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.ndx"
FAPPEND 1,VAR053,O_RW,S_DN
LET VAR031=VAR040
LET VAR049=VAR031
FPUTLN 1,VAR030,"/",VAR049
FCLOSE 1
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.dat"
FAPPEND 2,VAR053,O_RW,S_DN
LET VAR019=U_NAME()
LET VAR020="00-00-00"
LET VAR021="00-00-00"
LET VAR022="00-00-00"
LET VAR023=0
LET VAR024=0
LET VAR025="NA"
LET VAR026="NA"
LET VAR027=0
LET VAR028=0
LET VAR059=0
LET VAR060=0
FPUTLN 2,VAR019
FPUTLN 2,DATE()
FPUTLN 2,VAR021
FPUTLN 2,VAR022
FPUTLN 2,VAR023
FPUTLN 2,VAR024
FPUTLN 2,VAR025
FPUTLN 2,VAR026
FPUTLN 2,VAR027
FPUTLN 2,VAR028
FPUTLN 2,VAR059
FPUTLN 2,VAR060
FCLOSE 2
RETURN
:LABEL088
LET VAR034=0
CLS
LET VAR033=PPEPATH()
LET VAR033=VAR033+"UserMnu.pcb"
LET VAR037=1
LET VAR036(VAR037)=VAR033
GOSUB LABEL089
DISPFILE VAR036(VAR037),DEFS
LET VAR039=GETX()
LET VAR038=GETY()
ANSIPOS 46,2
PRINT "@X71"+VAR029+"@X07"
ANSIPOS 17,6
PRINT "@X70"+U_NAME()+"@X07"
ANSIPOS 66,6
PRINT "@X70"+VAR001+"@X07"
ANSIPOS 24,7
LET VAR049=MINLEFT()
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 70,7
PRINT "@X70"+VAR002+"@X07"
ANSIPOS 26,8
PRINT "@X70"+VAR007+"@X07"
ANSIPOS 70,8
LET VAR049=U_BDLDAY()
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 26,9
PRINT "@X70"+VAR006+"@X07"
ANSIPOS 70,9
PRINT "@X70"+VAR003+"@X07"
ANSIPOS 25,14
LET VAR015=VAR021
PRINT "@X70"+VAR015+"@X07"
ANSIPOS 56,14
LET VAR049=VAR023
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 72,14
PRINT "@X70"+VAR025+"@X07"
ANSIPOS 25,15
LET VAR016=VAR022
PRINT "@X70"+VAR016+"@X07"
ANSIPOS 56,15
LET VAR049=VAR024
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 72,15
PRINT "@X70"+VAR026+"@X07"
ANSIPOS 25,16
LET VAR049=VAR027
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 59,16
LET VAR049=VAR028
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 25,17
LET VAR014=VAR020
PRINT "@X70"+VAR014+"@X07"
ANSIPOS 28,18
LET VAR049=VAR009
PRINT "@X70"+VAR049+"@X07"
ANSIPOS 61,18
LET VAR049=VAR010
PRINT "@X70"+VAR049+"@X07"
ANSIPOS VAR039,VAR038
RETURN
:LABEL089
IF (EXIST(VAR036(VAR037))) RETURN
WAIT
PRINTLN SPACE(17)+"*********************************************"
PRINTLN SPACE(17)+"* *"
PRINTLN SPACE(17)+"* FILE ERROR *"
PRINTLN SPACE(17)+"* *"
PRINTLN SPACE(17)+"* Please tell Sysop that the following file *"
PRINTLN SPACE(17)+"* did not exist or is not in correct path : *"
PRINTLN SPACE(17)+"* "+VAR036(VAR037)+SPACE(20)+"*"
PRINTLN SPACE(17)+"*********************************************"
PRINTLN SPACE(1)
WAIT
GOTO LABEL049
:LABEL090
LET VAR035=1
LET VAR053=PPEPATH()
LET VAR053=VAR053+"DEPOSIT.tmp"
LET VAR020=DATE()
FCREATE 2,VAR053,O_RW,S_DN
FPUTLN 2,VAR031
FPUTLN 2,VAR019
FPUTLN 2,VAR020
FPUTLN 2,VAR021
FPUTLN 2,VAR022
FPUTLN 2,VAR023
FPUTLN 2,VAR024
FPUTLN 2,VAR025
FPUTLN 2,VAR026
FPUTLN 2,VAR027
FPUTLN 2,VAR028
FPUTLN 2,VAR059
FPUTLN 2,VAR060
FCLOSE 2
LET VAR033=PPEPATH()
LET VAR058=PPEPATH()
LET VAR033=VAR033+"DataUPD.Exe"
LET VAR058=VAR058
SHELL 1,VAR056,VAR033,VAR058
RETURN
;------------------------------------------------------------------------------
;Statements used:
;
; 1 END
; 7 CLS
; 2 WAIT
; 117 GOTO
; 238 LET
; 22 PRINT
; 11 PRINTLN
; 76 IF
; 2 DISPFILE
; 1 FCREATE
; 7 FOPEN
; 2 FAPPEND
; 19 FCLOSE
; 21 FGET
; 26 FPUTLN
; 5 GETUSER
; 3 PUTUSER
; 2 ADJTIME
; 5 LOG
; 31 INPUTSTR
; 16 GOSUB
; 4 RETURN
; 1 CDCHKON
; 1 DELAY
; 3 SHELL
; 3 STOP
; 1 BYE
; 55 ANSIPOS
; 2 WRUSYS
; 2 RDUSYS
;
;Functions used:
;
; 2 -
; 5 *
; 5 /
; 111 +
; 16 -
; 44 =
; 3 <>
; 9 <
; 2 <=
; 17 >
; 65 !
; 2 LEN
; 19 UPPER
; 11 MID
; 10 SPACE
; 4 INSTR
; 11 DATE
; 4 U_NAME
; 1 U_FUL
; 1 U_FDL
; 5 U_BDLDAY
; 13 PPEPATH
; 6 MINLEFT
; 2 GETENV
; 3 EXIST
; 1 GETX
; 1 GETY
;
;------------------------------------------------------------------------------
;Thank you for using PPLD T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------
