home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTCK140.ZIP
/
UPCHK.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-06-18
|
21KB
|
1,186 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Date DATE001
Date DATE002
Date DATE003
Date DATE004
Date DATE005
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
String STRING069
String STRING070
String STRING071
String STRING072
String STRING073
String STRING074
String STRING075
String STRING076
String STRING077
String STRING078
String STRING079
String STRING080
String STRING081
String STRING082
String STRING083
String STRING084
String STRING085
String STRING086
String STRING087
String STRING088
String STRING089
String STRING090
String STRING091
String STRING092
String STRING093
String STRING094
String STRING095
String STRING096
String STRING097
String STRING098
String STRING099
String STRING100
String TSTRING101(65)
String TSTRING102(1)
String STRING103
String STRING104
String STRING105
String STRING106
String STRING107
String STRING108
String STRING109
String STRING110
String STRING111
;------------------------------------------------------------------------------
CdChkOff
INTEGER006 = 999999
FDefIn 1
FDefOut 3
If (Exist(TempPath() + "PCBFAIL.TXT")) Delete TempPath() + "PCBFAIL.TXT"
If (Exist(TempPath() + "PCBPASS.TXT")) Delete TempPath() + "PCBPASS.TXT"
If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBPASS.TXT")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBPASS.TXT"
If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBFAIL.TXT")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBFAIL.TXT"
STRING064 = Chr(49) + Chr(46) + Chr(52) + Chr(48)
STRING063 = Chr(64) + Chr(88) + Chr(52) + Chr(70) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(85) + Chr(80) + Chr(45) + Chr(67) + Chr(104) + Chr(101) + Chr(99) + Chr(107) + " " + Chr(64) + Chr(88) + Chr(52) + Chr(66) + Chr(118) + STRING064
INTEGER007 = CurConf()
STRING030 = CurConf()
StartDisp 1
If (Exist(PPEPath() + PPEName() + STRING030 + ".cnf")) Then
FOpen 1, PPEPath() + PPEName() + STRING030 + ".cnf", 0, 0
Else
FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
Endif
FDGet STRING081
FDGet STRING093
FDGet INTEGER005
FDGet STRING071
FDGet STRING072
FDGet STRING080
FDGet STRING073
FDGet STRING074
FDGet STRING067
FDGet STRING075
FDGet STRING083
FDGet STRING084
FDGet STRING085
FDGet STRING086
FDGet STRING087
FDGet STRING088
FDGet STRING089
FDGet STRING090
FDGet STRING091
FDGet STRING092
FDGet STRING082
FDGet STRING065
FDGet STRING066
FDGet STRING051
FDGet STRING053
FDGet STRING054
FDGet STRING055
FDGet STRING099
FDGet STRING100
FDGet STRING069
FDGet STRING070
FDGet STRING038
FDGet STRING029
FDGet STRING031
FDGet STRING026
FDGet STRING052
FDGet STRING027
FDGet STRING028
FDGet STRING035
FDGet STRING032
FDGet STRING007
FDGet STRING008
FDGet STRING009
FClose 1
FOpen 1, PPEPath() + PPEName() + "a.cnf", 0, 0
FDGet STRING011
FDGet STRING012
FDGet STRING013
FDGet STRING014
FDGet STRING015
FDGet STRING017
FDGet STRING018
FDGet STRING019
FDGet STRING020
FDGet STRING021
FDGet STRING022
FDGet STRING023
FDGet STRING033
FDGet STRING034
FClose 1
FOpen 1, PPEPath() + "error.msg", 0, 0
FDGet STRING003
FDGet STRING004
FDGet STRING005
FDGet STRING006
FClose 1
STRING056 = ""
STRING056 = TokenStr()
If (STRING056 <> "") Then
Tokenize STRING056
GetToken STRING056
GetToken STRING059
OpText STRING056
If (Upper(STRING059) == "LOCAL") STRING036 = STRING038
If (Upper(STRING059) == "TEST") Then
Gosub LABEL001
If (STRING056 == "") Then
DispText 326, 2048 + 64
DispStr "!" + PPEPath() + "test574.ppe"
Else
Goto LABEL005
:LABEL001
STRING037 = ReadLine(PCBDat(), 244)
FClose -1
FOpen 1, STRING037, 2, 0
:LABEL002
If (Ferr(1)) Goto LABEL003
FGet 1, STRING036
If (Exist(STRING036 + STRING056)) Then
FClose 1
Return
Endif
Goto LABEL002
:LABEL003
FClose 1
STRING056 = ""
Return
:LABEL004
GetToken STRING058
GetToken INTEGER009
AnsiPos STRING058, INTEGER009
Return
:LABEL005
DispFile PPEPath() + PPEName() + ".dsp", 0
AnsiPos 31, 2
Print STRING063
TSTRING102(0) = Upper(ReadLine(PCBDat(), 2))
TSTRING102(1) = Upper(ReadLine(PCBDat(), 94))
INTEGER021 = Len(TSTRING102(0))
If (INTEGER021 < 2) TSTRING102(0) = Chr(109) + Chr(101)
INTEGER020 = Len(TSTRING102(1))
If (INTEGER020 < 2) TSTRING102(1) = Chr(109) + Chr(101)
For INTEGER022 = 1 To INTEGER021
TSTRING101(INTEGER022) = Mid(TSTRING102(0), INTEGER022, 1) + I2S(11, 36) + I2S(13, 36) + I2S(15, 36)
STRING104 = STRING104 + S2I(TSTRING101(INTEGER022), 31) + S2I(TSTRING101(INTEGER022), 34)
STRING105 = STRING105 + I2S(S2I(TSTRING101(INTEGER022), 31), 28) + I2S(S2I(99, 29), 32)
Next
STRING104 = STRING104 + S2I(I2S(14, 36) + I2S(11, 36), 31)
STRING104 = STRING104 * INTEGER021
STRING105 = STRING105 + I2S(S2I(56, 31), 35)
For INTEGER022 = 1 To INTEGER020
TSTRING101(INTEGER022) = Mid(TSTRING102(1), INTEGER022, 1) + I2S(15, 36) + I2S(11, 36) + I2S(13, 36)
STRING106 = STRING106 + S2I(TSTRING101(INTEGER022), 35) + S2I(TSTRING101(INTEGER022), 32)
STRING107 = STRING107 + I2S(S2I(TSTRING101(INTEGER022), 31), 29) + I2S(S2I(79, 29), 36)
Next
STRING106 = STRING106 + S2I(I2S(11, 36) + I2S(14, 36), 31)
STRING106 = STRING106 * INTEGER020
STRING107 = STRING107 + I2S(S2I(65, 31), 32)
If (Exist(PPEPath() + PPEName() + ".key")) FOpen 1, PPEPath() + PPEName() + ".key", 0, 0
FGet 1, STRING108
FGet 1, STRING109
FGet 1, STRING110
FGet 1, STRING111
FClose 1
If (Exist(PPEPath() + PPEName() + ".key")) Then
If (((!(STRING104 == STRING108) || !(STRING105 == STRING109)) || !(STRING106 == STRING110)) || !(STRING107 == STRING111)) Then
PrintLn "@X8FInvalid @X0C" + PPEName() + "@X0F.KEY File has been found"
Delete PPEPath() + PPEName() + ".key"
Endif
Endif
STRING103 = Chr(64) + I2S(33, 36) + I2S(0, 36) + I2S(12, 36) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + I2S(0, 36) + I2S(12, 36) + I2S(30, 36) + I2S(23, 36) + I2S(27, 36) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + I2S(0, 36) + I2S(12, 36) + Chr(62) + Chr(62) + Chr(62)
If (((!(STRING104 == STRING108) || !(STRING105 == STRING109)) || !(STRING106 == STRING110)) || !(STRING107 == STRING111)) Then
Newline
AnsiPos 22, 3
Print STRING103
Print " " + Chr(64) + Chr(88) + Chr(48) + I2S(15, 36) + I2S(25, 36) + I2S(21, 26) + I2S(14, 36) + I2S(10, 36) + I2S(28, 36) + I2S(14, 36) + " " + I2S(27, 36) + I2S(14, 36) + I2S(16, 36) + I2S(18, 36) + I2S(28, 36) + I2S(29, 36) + I2S(14, 36) + I2S(27, 36) + " "
Endif
Tokenize STRING011
Gosub LABEL004
Print STRING082 + U_Name()
Tokenize STRING012
Gosub LABEL004
Print STRING055 + "@OPTEXT@"
STRING056 = ScrText(STRING058, INTEGER009, 12, 0)
STRING056 = RTrim(STRING056, " ")
If (FileInf(STRING056, 9) == "") Then
STRING010 = ReadLine(PCBDat(), 96)
STRING056 = STRING056 + STRING010
Endif
If ((Upper(STRING059) == "TEST") || (Upper(STRING059) == "LOCAL")) Then
STRING056 = STRING036 + STRING056
Else
If (INTEGER007 == 0) Then
INTEGER008 = 243
Else
INTEGER008 = INTEGER007 * 548 + 243
Endif
STRING045 = ReadLine(PCBDat(), 31)
FOpen 1, STRING045 + ".@@@", 0, 0
FSeek 1, INTEGER008, 0
FRead 1, STRING057, 25
FClose 1
STRING056 = STRING057 + STRING056
STRING059 = "Upload"
Endif
STRING041 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
STRING042 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FDESC." + String(PcbNode())
If (Exist(STRING042)) FOpen 6, STRING042, 2, 0
If (Exist(STRING041)) FOpen 5, STRING041, 0, 0
FSeek 5, 66, 0
FRead 5, STRING040, 12
FSeek 6, 0, 0
FRead 6, STRING039, 45
If (STRING040 == FileInf(STRING056, 8)) Then
FClose 5
FClose 6
AnsiPos 16, 10
Print "@X03" + STRING039
Endif
:LABEL006
If (Ferr(5)) Goto LABEL007
FSeek 5, 117, 1
FRead 5, STRING040, 12
If (Ferr(5)) Goto LABEL007
FSeek 6, 916, 1
FRead 6, STRING039, 45
If (Ferr(6)) Goto LABEL007
If (STRING040 == FileInf(STRING056, 8)) Then
FClose 5
FClose 6
AnsiPos 16, 10
Print "@X03" + STRING039
Endif
Goto LABEL006
:LABEL007
STRING039 = ""
FClose 5
FClose 6
If (Exist(STRING056)) Then
If ((Upper(STRING059) == "UPLOAD") || (Upper(STRING059) == "LOCAL")) Then
Tokenize STRING013
Gosub LABEL004
If (STRING081 == YesChar()) Print STRING051 + String(INTEGER005) + STRING029
Endif
Tokenize STRING014
Gosub LABEL004
If (Exist(STRING056)) Print STRING009 + FileInf(STRING056, 9)
Tokenize STRING015
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
Print STRING091
If (OnLocal()) AnsiPos 78, 21
If (OnLocal()) SaveScrn
If (Exist(STRING056)) Shell 1, INTEGER001, STRING071, STRING056
If (OnLocal()) RestScrn
If (Exist(STRING056)) Goto LABEL008
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING088
If (STRING031 == YesChar()) Message CurConf() , U_Name() , "THT-UP-CHECK", FileInf(STRING056, 8) , "R", 0, 0, 0, PPEPath() + "failed.vrf"
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING004 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
Goto LABEL058
Goto LABEL009
:LABEL008
If (OnLocal()) RestScrn
Gosub LABEL027
AnsiPos STRING058, INTEGER009
If (Exist(STRING056)) Print STRING087
:LABEL009
If (Upper(STRING059) == "TEST") Goto LABEL058
Tokenize STRING017
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
If (STRING081 <> YesChar()) Then
Print STRING007
Gosub LABEL027
Goto LABEL010
Endif
Print STRING091
:LABEL010
If ((STRING069 <> YesChar()) && (STRING081 <> YesChar())) Goto LABEL029
If (((FileInf(STRING056, 9) == "ZIP") || (FileInf(STRING056, 9) == "ARJ")) || (FileInf(STRING056, 9) == "LZH")) Then
FOpen 4, PPEPath() + "exclude", 0, 0
FOpen 1, "FILELIST.arc", 0, 0
Goto LABEL011
Goto LABEL011
Endif
Goto LABEL029
:LABEL011
If (Ferr(1)) Goto LABEL016
:LABEL012
FDGet STRING076
If ((Mid(STRING076, 1, 6) <> "======") && (BOOLEAN001 == 0)) Goto LABEL012
If ((Mid(STRING076, 1, 6) == "======") && (BOOLEAN001 == 0)) Then
BOOLEAN001 = 1
Goto LABEL012
Endif
If ((Mid(STRING076, 2, 6) == "======") && (BOOLEAN001 == 1)) Then
FDGet STRING076
Tokenize STRING076
GetToken STRING060
GetToken STRING060
GetToken STRING001
GetToken STRING060
If (FileInf(STRING056, 9) == "LZH") Then
GetToken STRING002
Goto LABEL013
Endif
GetToken STRING060
:LABEL013
GetToken STRING002
Goto LABEL016
Endif
If (STRING076 == "") Goto LABEL016
STRING079 = Mid(STRING076, 1, 12)
STRING079 = RTrim(STRING079, " ")
Inc STRING046
If (((STRING054 == YesChar()) && (FileInf(STRING079, 9) == "NFO")) || ((STRING054 == YesChar()) && (FileInf(STRING079, 9) == "DIZ"))) Then
Goto LABEL012
Endif
STRING068 = LTrim(Mid(STRING076, 15, 8), " ")
If (STRING068 == 0) Goto LABEL012
Gosub LABEL024
STRING078 = Mid(STRING076, 51, 9)
STRING049 = Mid(STRING078, 1, 2)
STRING047 = Upper(Mid(STRING078, 4, 3))
If (STRING047 == "JAN") Then
STRING047 = "01"
Goto LABEL014
Endif
If (STRING047 == "FEB") Then
STRING047 = "02"
Goto LABEL014
Endif
If (STRING047 == "MAR") Then
STRING047 = "03"
Goto LABEL014
Endif
If (STRING047 == "APR") Then
STRING047 = "04"
Goto LABEL014
Endif
If (STRING047 == "MAY") Then
STRING047 = "05"
Goto LABEL014
Endif
If (STRING047 == "JUN") Then
STRING047 = "06"
Goto LABEL014
Endif
If (STRING047 == "JUL") Then
STRING047 = "07"
Goto LABEL014
Endif
If (STRING047 == "AUG") Then
STRING047 = "08"
Goto LABEL014
Endif
If (STRING047 == "SEP") Then
STRING047 = "09"
Goto LABEL014
Endif
If (STRING047 == "OCT") Then
STRING047 = "10"
Goto LABEL014
Endif
If (STRING047 == "NOV") Then
STRING047 = "11"
Goto LABEL014
Endif
If (STRING047 == "DEC") Then
STRING047 = "12"
Endif
:LABEL014
STRING048 = Mid(STRING078, 8, 2)
DATE003 = STRING047 + "-" + STRING049 + "-" + STRING048
INTEGER011 = DATE003
If (((DATE003 > Date()) || (INTEGER011 == "0")) || (INTEGER011 == "29220")) Goto LABEL012
If (INTEGER011 < INTEGER006) Then
INTEGER019 = DATE003
DATE005 = INTEGER019
Endif
INTEGER006 = INTEGER011
If (INTEGER011 > INTEGER018) Then
INTEGER018 = DATE003
DATE004 = INTEGER018
Endif
If (Upper(STRING093) == "MORE") Then
If (Date() - INTEGER011 > INTEGER005) Then
Inc INTEGER016
Goto LABEL015
Endif
Inc INTEGER017
Endif
:LABEL015
If (Upper(STRING093) == "AVG") Then
INTEGER012 = INTEGER012 + DATE003
Inc INTEGER013
Endif
Goto LABEL011
:LABEL016
FClose 1
FClose 4
DATE001 = INTEGER018
DATE002 = INTEGER019
STRING043 = DATE001
STRING044 = DATE002
Tokenize STRING017
Gosub LABEL004
If (STRING081 <> YesChar()) Goto LABEL029
If (Upper(STRING093) == "AVG") Goto LABEL022
If (Upper(STRING093) == "MORE") Goto LABEL020
If (Upper(STRING093) == "NEW") Goto LABEL018
If (Upper(STRING093) == "OLD") Goto LABEL000
STRING050 = Date() - INTEGER019
If (STRING050 > INTEGER005) Then
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING089
INTEGER004 = Len(StripAtx(STRING089))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING053
Copy STRING056, STRING067 + FileInf(STRING056, 8)
Delete STRING056
FCreate 3, TempPath() + "PCBFAIL.TXT", 1, 0
FDPutLn STRING089
FClose 3
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING005 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
If (STRING031 == YesChar()) Gosub LABEL028
Goto LABEL058
Goto LABEL017
Endif
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING090
INTEGER004 = Len(StripAtx(STRING090))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING053
:LABEL017
Goto LABEL029
:LABEL018
STRING050 = Date() - INTEGER018
If (STRING050 > INTEGER005) Then
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING089
INTEGER004 = Len(StripAtx(STRING089))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING053
Copy STRING056, STRING067 + FileInf(STRING056, 8)
Delete STRING056
FCreate 3, TempPath() + "PCBFAIL.TXT", 1, 0
FDPutLn STRING089
FClose 3
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING005 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
If (STRING031 == YesChar()) Gosub LABEL028
Goto LABEL058
Goto LABEL019
Endif
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING090
INTEGER004 = Len(StripAtx(STRING090))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING053
:LABEL019
Goto LABEL029
:LABEL020
STRING050 = INTEGER017
If (INTEGER016 > INTEGER017) Then
STRING050 = INTEGER016
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING089
INTEGER004 = Len(StripAtx(STRING089))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING100
Copy STRING056, STRING067 + FileInf(STRING056, 8)
Delete STRING056
FCreate 3, TempPath() + "PCBFAIL.TXT", 1, 0
FDPutLn STRING089
FClose 3
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING005 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
If (STRING031 == YesChar()) Gosub LABEL028
Goto LABEL058
Goto LABEL021
Endif
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING090
INTEGER004 = Len(StripAtx(STRING090))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING082 + "(" + STRING051 + STRING050 + STRING082 + ")" + STRING099
:LABEL021
Goto LABEL029
:LABEL022
INTEGER014 = Date()
INTEGER015 = INTEGER012 / INTEGER013
STRING050 = INTEGER014 - INTEGER015
If (INTEGER014 - INTEGER015 > INTEGER005) Then
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING089
INTEGER004 = Len(StripAtx(STRING089))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING052 + "(" + STRING051 + STRING050 + STRING052 + ")" + STRING053
Copy STRING056, STRING067 + FileInf(STRING056, 8)
Delete STRING056
FCreate 3, TempPath() + "PCBFAIL.TXT", 1, 0
FDPutLn STRING089
FClose 3
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING005 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
If (STRING031 == YesChar()) Gosub LABEL028
Goto LABEL058
Goto LABEL023
Endif
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING090
INTEGER004 = Len(StripAtx(STRING090))
AnsiPos STRING058 + INTEGER004 + 1, INTEGER009
Print STRING082 + "(" + STRING051 + STRING050 + STRING082 + ")" + STRING053
:LABEL023
Goto LABEL029
:LABEL024
If (Ferr(4)) Goto LABEL025
FGet 4, STRING077
If (STRING077 == "") Goto LABEL025
If ((STRING077 == STRING079) || (STRING077 == FileInf(STRING079, 9))) Then
Frewind 4
Goto LABEL012
Endif
Goto LABEL024
:LABEL025
Frewind 4
Return
:LABEL026
AnsiPos STRING033, INTEGER009
Print STRING027 + STRING035
Return
:LABEL027
AnsiPos STRING033, INTEGER009
Print STRING028 + STRING035
AnsiPos STRING034, INTEGER009
Print STRING028 + STRING035
Return
:LABEL028
Message CurConf(), U_Name(), "THT-UP-CHECK", FileInf(STRING056, 8), "R", 0, 0, 0, PPEPath() + "failed.age"
Return
:LABEL029
Tokenize STRING018
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
Print STRING091
AnsiPos 1, 22
If (OnLocal()) AnsiPos 78, 21
If (OnLocal()) SaveScrn
If (Exist(STRING056)) Shell 1, INTEGER001, STRING072, STRING056
If (OnLocal()) RestScrn
If (Exist(STRING056)) Goto LABEL030
AnsiPos STRING058, INTEGER009
Print STRING032
If (STRING008 == YesChar()) Then
FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
FPutLn 3, FileInf(STRING056, 8) + " " + STRING006 + " " + STRING003 + " " + U_Name()
FClose 3
Endif
If (STRING031 == YesChar()) Message CurConf() , U_Name() , "THT-UP-CHECK", FileInf(STRING056, 8) , "R", 0, 0, 0, PPEPath() + "failed.vir"
Goto LABEL058
Goto LABEL031
:LABEL030
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print STRING087
:LABEL031
If (Exist(STRING042)) FOpen 6, STRING042, 2, 0
If (Exist(STRING041)) FOpen 5, STRING041, 0, 0
FSeek 5, 66, 0
FRead 5, STRING040, 12
FSeek 6, 0, 0
FRead 6, STRING039, 45
If (STRING040 == FileInf(STRING056, 8)) Then
FSeek 6, 0, 0
FWrite 6, " ", 1
FClose 5
FClose 6
Goto LABEL034
Endif
:LABEL032
If (Ferr(5)) Goto LABEL033
FSeek 5, 117, 1
FRead 5, STRING040, 12
If (Ferr(5)) Goto LABEL033
FSeek 6, 916, 1
FRead 6, STRING039, 45
If (Ferr(6)) Goto LABEL033
If (STRING040 == FileInf(STRING056, 8)) Then
FSeek 6, -1, 1
FWrite 6, " ", 1
FClose 5
FClose 6
Goto LABEL034
Endif
Goto LABEL032
:LABEL033
STRING039 = ""
FClose 5
FClose 6
:LABEL034
Tokenize STRING019
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
Print STRING084
FClose 6
INTEGER002 = Len(String(FileInf(STRING056, 4)))
STRING096 = 9 - INTEGER002
INTEGER003 = Len(String(FileInf(STRING056, 8)))
STRING097 = 12 - INTEGER003
STRING095 = ReadLine(PCBDat(), 179)
If (Exist("diz." + String(PcbNode()))) FOpen 1, "diz." + String(PcbNode()) , 0, 0
If (Exist("diz." + String(PcbNode()))) FCreate 4, "dizz." + String(PcbNode()) , 1, 0
FCreate 3, STRING095 + "updesc." + String(PcbNode()), 1, 0
FDGet STRING094
FPutLn 4, STRING094
If (!Exist("diz." + String(PcbNode()))) STRING094 = STRING075
If ((Mid(STRING039, 1, 1) == "/") && !Exist("diz." + String(PcbNode()))) Then
FDPutLn FileInf(STRING056, 8) + Space(STRING097) + Space(STRING096) + String(FileInf(STRING056, 4)) + " " + String(FileInf(STRING056, 2)) + " " + STRING039
FDPutLn Space(31) + "| " + STRING094
Goto LABEL035
Endif
If (Exist("diz." + String(PcbNode())) && (Mid(STRING039, 1, 1) == "/")) Then
FDPutLn FileInf(STRING056, 8) + Space(STRING097) + Space(STRING096) + String(FileInf(STRING056, 4)) + " " + String(FileInf(STRING056, 2)) + " " + STRING039
FDPutLn Space(31) + "| " + STRING094
Goto LABEL035
Endif
If (!Exist("diz." + String(PcbNode())) && (STRING039 == "")) Then
FDPutLn FileInf(STRING056, 8) + Space(STRING097) + Space(STRING096) + String(FileInf(STRING056, 4)) + " " + String(FileInf(STRING056, 2)) + " " + STRING094
Goto LABEL035
Endif
If (!Exist("diz." + String(PcbNode())) && (STRING039 <> "")) Then
FDPutLn FileInf(STRING056, 8) + Space(STRING097) + Space(STRING096) + String(FileInf(STRING056, 4)) + " " + String(FileInf(STRING056, 2)) + " " + STRING039
FDPutLn Space(31) + "| " + STRING094
Goto LABEL035
Endif
If (Exist("diz." + String(PcbNode())) && (Mid(STRING039, 1, 1) <> "/")) Then
FDPutLn FileInf(STRING056, 8) + Space(STRING097) + Space(STRING096) + String(FileInf(STRING056, 4)) + " " + String(FileInf(STRING056, 2)) + " " + STRING094
Endif
:LABEL035
If (Ferr(1)) Goto LABEL037
:LABEL036
FDGet STRING094
If (Ferr(1)) Goto LABEL037
STRING094 = ReplaceStr(STRING094, "@CLS@", "CLS")
STRING094 = ReplaceStr(STRING094, "@PAUSE@", "Pause")
STRING098 = STRING094
STRING016 = StripAtx(STRING094)
If (STRING094 == Space(0)) Goto LABEL036
If (STRING094 == Space(1)) Goto LABEL036
If (STRING094 == Space(2)) Goto LABEL036
If (STRING094 == Space(3)) Goto LABEL036
If (STRING094 == Space(4)) Goto LABEL036
If (STRING094 == Space(5)) Goto LABEL036
If (STRING094 == Space(6)) Goto LABEL036
If (STRING094 == Space(7)) Goto LABEL036
If (STRING094 == Space(8)) Goto LABEL036
If (STRING094 == Space(9)) Goto LABEL036
If (STRING094 == Space(10)) Goto LABEL036
If (STRING094 == Space(11)) Goto LABEL036
If (STRING094 == Space(12)) Goto LABEL036
If (STRING094 == Space(13)) Goto LABEL036
If (STRING094 == Space(14)) Goto LABEL036
If (STRING094 == Space(15)) Goto LABEL036
If (STRING094 == Space(16)) Goto LABEL036
If (STRING094 == Space(17)) Goto LABEL036
If (STRING094 == Space(18)) Goto LABEL036
If (STRING094 == Space(19)) Goto LABEL036
If (STRING094 == Space(20)) Goto LABEL036
If (STRING094 == Space(21)) Goto LABEL036
If (STRING094 == Space(22)) Goto LABEL036
If (STRING094 == Space(23)) Goto LABEL036
If (STRING094 == Space(24)) Goto LABEL036
If (STRING094 == Space(25)) Goto LABEL036
If (STRING094 == Space(26)) Goto LABEL036
If (STRING094 == Space(27)) Goto LABEL036
If (STRING094 == Space(28)) Goto LABEL036
If (STRING094 == Space(29)) Goto LABEL036
If (STRING094 == Space(30)) Goto LABEL036
If (STRING094 == Space(31)) Goto LABEL036
If (STRING094 == Space(32)) Goto LABEL036
If (STRING094 == Space(33)) Goto LABEL036
If (STRING094 == Space(34)) Goto LABEL036
If (STRING094 == Space(35)) Goto LABEL036
If (STRING094 == Space(36)) Goto LABEL036
If (STRING094 == Space(37)) Goto LABEL036
If (STRING094 == Space(38)) Goto LABEL036
If (STRING094 == Space(39)) Goto LABEL036
If (STRING094 == Space(40)) Goto LABEL036
If (STRING094 == Space(41)) Goto LABEL036
If (STRING094 == Space(42)) Goto LABEL036
If (STRING094 == Space(43)) Goto LABEL036
If (STRING094 == Space(44)) Goto LABEL036
If (STRING094 == Space(45)) Goto LABEL036
BOOLEAN002 = 0
Gosub LABEL040
FPutLn 4, STRING094
FDPutLn Space(31) + "| " + STRING094
Goto LABEL035
:LABEL037
FClose 1
FClose 4
STRING024 = U_Name()
If (STRING069 == YesChar()) FDPutLn Space(31) + "| Files: (" + STRING046 + ") Newest: " + STRING043 + " Oldest: " + STRING044
If (STRING065 == YesChar()) Then
If (Exist(STRING026)) Then
FOpen 1, STRING026, 0, 0
:LABEL038
If (Ferr(1)) Goto LABEL039
FDGet STRING025
If (STRING024 == STRING025) Then
FDGet STRING025
STRING024 = STRING025
Endif
Goto LABEL038
:LABEL039
FClose 1
Endif
FDPutLn Space(31) + "| " + STRING066 + " " + STRING024
Endif
FClose 3
Goto LABEL043
:LABEL040
FOpen 5, PPEPath() + PPEName() + ".rmv", 0, 0
:LABEL041
If (Ferr(5)) Goto LABEL042
FGet 5, STRING098
If (STRING098 == "") Goto LABEL042
SearchInit STRING098, 0
SearchFind STRING016, BOOLEAN002
If (BOOLEAN002 == 1) Then
Inc INTEGER010
If ((BOOLEAN002 == 1) && (INTEGER010 == 1)) Then
Tokenize STRING020
Gosub LABEL004
Print STRING083
Endif
Tokenize STRING021
Gosub LABEL004
Print Space(45)
AnsiPos STRING058, INTEGER009
Print "@X03" + STRING094
FClose 5
Goto LABEL036
Endif
Goto LABEL041
:LABEL042
FClose 5
Return
:LABEL043
INTEGER007 = Len(StripAtx(STRING084))
Tokenize STRING019
Gosub LABEL004
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print Space(INTEGER007)
AnsiPos STRING058, INTEGER009
Print STRING085
Tokenize STRING022
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
If (FileInf(STRING056, 9) <> "ZIP") Goto LABEL057
Print STRING092 + FileInf(STRING056, 8)
BOOLEAN003 = 0
FCreate 3, PPEPath() + PPEName() + ".cm" + String(PcbNode()), 1, 0
FOpen 1, PPEPath() + PPEName() + ".cmt", 0, 0
:LABEL044
If (Ferr(1)) Goto LABEL046
:LABEL045
FGet 1, STRING060
If (Ferr(1)) Goto LABEL046
Gosub LABEL050
If (BOOLEAN003 == 1) Then
BOOLEAN003 = 0
Goto LABEL045
Endif
FPutLn 3, STRING060
Goto LABEL044
:LABEL046
FClose 1
FClose 3
BOOLEAN003 = 0
FCreate 3, TempPath() + "pcbpass.txt", 1, 0
FOpen 1, PPEPath() + "pcbpass.msg", 0, 0
:LABEL047
If (Ferr(1)) Goto LABEL049
FGet 1, STRING060
If (Ferr(1)) Goto LABEL049
Gosub LABEL050
If (BOOLEAN003 == 1) Then
Print ""
Goto LABEL048
Endif
FPutLn 3, STRING060
:LABEL048
Goto LABEL047
:LABEL049
FClose 1
FClose 3
Goto LABEL056
:LABEL050
BOOLEAN002 = 0
FOpen 2, PPEPath() + PPEName() + ".mcr", 0, 0
:LABEL051
If (Ferr(2)) Goto LABEL055
FGet 2, STRING061
If (Ferr(2)) Goto LABEL055
SearchInit STRING061, 0
SearchFind STRING060, BOOLEAN002
If (BOOLEAN002 == 1) Then
If (STRING061 == "|fn") STRING060 = ReplaceStr(STRING060, "|fn", FileInf(STRING056, 8))
If (STRING061 == "|un") STRING060 = ReplaceStr(STRING060, "|un", String(PcbNode()))
If (STRING061 == "|ut") STRING060 = ReplaceStr(STRING060, "|ut", String(Time()))
If (STRING061 == "|ud") STRING060 = ReplaceStr(STRING060, "|ud", String(Date()))
If (STRING061 == "|fs") STRING060 = ReplaceStr(STRING060, "|fs", String(FileInf(STRING056, 4)))
If (STRING061 == "|us") STRING060 = ReplaceStr(STRING060, "|us", STRING001)
If (STRING061 == "|cr") STRING060 = ReplaceStr(STRING060, "|cr", STRING002)
If (STRING061 == "|#f") STRING060 = ReplaceStr(STRING060, "|#f", STRING046)
If (STRING061 == "|nf") STRING060 = ReplaceStr(STRING060, "|nf", STRING043)
If (STRING061 == "|of") STRING060 = ReplaceStr(STRING060, "|of", STRING044)
If (STRING061 == "|dd") STRING060 = ReplaceStr(STRING060, "|dd", "")
If (STRING061 == "|vs") STRING060 = ReplaceStr(STRING060, "|vs", "1.40")
If (STRING061 == "|dz") If !(STRING061 == "|dz") Goto LABEL054
If (STRING061 == "|dz") STRING060 = ReplaceStr(STRING060, "|dz", "")
BOOLEAN003 = 1
FPutLn 3, STRING060
If (Exist("dizz." + String(PcbNode()))) FOpen 4, "dizz." + String(PcbNode()) , 0, 0
:LABEL052
If (Ferr(4)) Goto LABEL053
FGet 4, STRING062
If (Ferr(4)) Goto LABEL053
FPutLn 3, Space(12), STRING062
Goto LABEL052
:LABEL053
FClose 4
Endif
:LABEL054
Goto LABEL051
:LABEL055
FClose 2
Return
:LABEL056
If (OnLocal()) AnsiPos 78, 21
If (OnLocal()) SaveScrn
If (Exist(STRING056)) Shell 1, INTEGER001, STRING074, STRING056
If (OnLocal()) RestScrn
Gosub LABEL027
AnsiPos STRING058, INTEGER009
:LABEL057
If (STRING080 <> YesChar()) Goto LABEL058
Tokenize STRING023
Gosub LABEL004
Gosub LABEL026
AnsiPos STRING058, INTEGER009
Print STRING086
If (OnLocal()) AnsiPos 1, 22
If (OnLocal()) SaveScrn
If (Exist(STRING056)) Shell 1, INTEGER001, STRING073, STRING056
If (OnLocal()) RestScrn
INTEGER008 = Len(StripAtx(STRING086))
Tokenize STRING023
Gosub LABEL004
Gosub LABEL027
AnsiPos STRING058, INTEGER009
Print Space(INTEGER008)
AnsiPos STRING058, INTEGER009
Print STRING070
Endif
Endif
Endif
Endif
:LABEL058
OpText ""
AnsiPos 1, 22
If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZ." + String(PcbNode()))) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZ." + String(PcbNode())
If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZZ." + String(PcbNode()))) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZZ." + String(PcbNode())
If (OnLocal()) RestScrn
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 218 Goto
; 127 Let
; 47 Print
; 1 PrintLn
; 211 If
; 1 DispFile
; 8 FCreate
; 20 FOpen
; 6 FAppend
; 45 FClose
; 11 FGet
; 12 FPutLn
; 1 StartDisp
; 11 Delete
; 45 Gosub
; 9 Return
; 1 CdChkOff
; 5 Inc
; 1 Newline
; 17 Tokenize
; 11 GetToken
; 4 Shell
; 1 DispText
; 2 OpText
; 1 DispStr
; 46 AnsiPos
; 3 Message
; 4 SaveScrn
; 6 RestScrn
; 2 Frewind
; 11 FSeek
; 9 FRead
; 2 FWrite
; 1 FDefIn
; 1 FDefOut
; 67 FDGet
; 15 FDPutLn
; 4 Copy
; 2 SearchInit
; 2 SearchFind
;
;
; ■ Functions used :
;
; 2 -
; 3 *
; 1 /
; 389 +
; 7 -
; 147 ==
; 10 <>
; 5 <
; 2 <=
; 7 >
; 4 >=
; 93 !
; 16 &&
; 16 ||
; 14 Len(
; 16 Upper()
; 14 Mid()
; 66 Space()
; 21 Ferr()
; 52 Chr()
; 1 LTrim()
; 2 RTrim()
; 6 Date()
; 1 Time()
; 11 U_Name()
; 22 YesChar()
; 11 StripAtx()
; 43 String()
; 5 CurConf()
; 6 PCBDat()
; 26 PPEPath()
; 27 PcbNode()
; 6 ReadLine()
; 14 OnLocal()
; 20 GetEnv()
; 33 Exist()
; 41 I2S()
; 12 S2I()
; 1 TokenStr()
; 47 FileInf()
; 20 PPEName()
; 9 TempPath()
; 1 ScrText()
; 15 ReplaceStr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Sd
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 64 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------