home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTMT312.ZIP
/
MATRIX.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-16
|
53KB
|
2,750 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
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
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
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 TSTRING067(10)
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 STRING101
String STRING102
String STRING103
String STRING104
String STRING105
String STRING106
String STRING107
String STRING108
String STRING109
String STRING110
String STRING111
String STRING112
String STRING113
String STRING114
String STRING115
String STRING116
String STRING117
String STRING118
String STRING119
String STRING120
String STRING121
String STRING122
String STRING123
String STRING124
String STRING125
String STRING126
String STRING127
String STRING128
String STRING129
String STRING130
String STRING131
String STRING132
String STRING133
String STRING134
String STRING135
String STRING136
String STRING137
String TSTRING138(1)
String STRING139
String STRING140
String STRING141
String STRING142
String STRING143
String STRING144
String STRING145
String STRING146
String STRING147
String TSTRING148(50,7)
String TSTRING149(50)
String TSTRING150(50)
String TSTRING151(50)
String TSTRING152(50)
String STRING153
String STRING154
String STRING155
String STRING156
String STRING157
String STRING158
Time TIME001
Time TIME002
RdUNet PcbNode()
WrUNet PcbNode(), "O", "Matrix", "THT", "", ""
STRING146 = Chr(48) + Chr(51) + "-" + Chr(49) + Chr(54) + "-" + Chr(57) + Chr(52)
STRING123 = Chr(51) + Chr(46) + Chr(49) + Chr(50)
STRING136 = Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(67) + Chr(111) + Chr(100) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(48) + Chr(52) + " " + Chr(66) + Chr(121) + Chr(64) + Chr(88) + Chr(48) + "B " + Chr(84) + Chr(104) + Chr(101) + Chr(64) + Chr(88) + Chr(48) + Chr(49) + " " + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114)
STRING090 = Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(77) + Chr(97) + Chr(116) + Chr(114) + Chr(105) + Chr(120) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(118) + STRING123 + " " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING146 + Chr(64) + Chr(88) + Chr(48) + Chr(55)
STRING134 = Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)
STRING032 = Chr(50) + Chr(46) + Chr(49) + Chr(51)
STRING033 = Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + STRING032 + " " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING146 + Chr(64) + Chr(88) + Chr(48) + Chr(55)
BOOLEAN002 = 0
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
If (STRING090 <> Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(77) + Chr(97) + Chr(116) + Chr(114) + Chr(105) + Chr(120) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(118) + STRING123 + " " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING146 + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
PrintLn "Hacked Copy"
Delay 30
Else
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".mal")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".mal"
TSTRING138(0) = Upper(ReadLine(PCBDat(), 2))
TSTRING138(1) = Upper(ReadLine(PCBDat(), 94))
Cls
STRING052 = ""
FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
FGet 1, INTEGER010
FGet 1, STRING065
FGet 1, STRING058
FGet 1, INTEGER008
FGet 1, STRING066
FGet 1, STRING074
FGet 1, STRING096
FGet 1, STRING098
FGet 1, STRING100
FGet 1, STRING097
FGet 1, STRING099
FGet 1, STRING130
FGet 1, STRING101
FGet 1, STRING079
FGet 1, STRING108
FGet 1, STRING109
FGet 1, STRING110
FGet 1, STRING111
FGet 1, STRING112
FGet 1, STRING113
FGet 1, STRING114
FGet 1, STRING107
FGet 1, STRING080
FGet 1, STRING081
FGet 1, STRING092
FGet 1, STRING093
FGet 1, STRING082
FGet 1, STRING083
FGet 1, STRING094
FGet 1, STRING127
FGet 1, STRING126
FGet 1, STRING128
FGet 1, STRING129
FGet 1, STRING131
FGet 1, STRING132
FGet 1, STRING133
FGet 1, STRING142
FGet 1, STRING143
FGet 1, STRING145
FGet 1, STRING039
FGet 1, STRING063
FGet 1, STRING064
FGet 1, STRING026
FGet 1, STRING031
FGet 1, INTEGER017
For STRING060 = 1 To INTEGER017
FGet 1, TSTRING067(STRING060)
Next
FClose 1
PrintLn "@X0ELoading " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + " @X0EMatrix @X0F!"
STRING158 = 0
For STRING158 = 0 To 1
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "1")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "2")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "3")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "4")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "5")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "6")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "7")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "8")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "9")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "0")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "=")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "-")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), " ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), " ")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "<")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ">")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "*")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ")")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "(")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "{")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "}")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "[")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "]")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "~")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "!")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "@")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "#")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "$")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "%")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "^")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "&")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ":")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ";")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ".")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ",")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "?")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "/")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "|")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "\")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "+")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "=")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "-")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), ".")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "«")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "»")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ü")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┤")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "│")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╡")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), " ")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ç")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "É")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "á")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "░")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ü")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "æ")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "í")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▒")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "é")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Æ")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ó")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▓")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "â")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ô")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ú")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "│")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ä")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ö")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ñ")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┤")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "à")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ò")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ñ")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╡")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "å")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "û")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ª")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╢")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ç")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ù")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "º")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╖")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ê")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ÿ")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¿")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╕")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ë")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ö")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "⌐")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╣")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "è")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ü")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¬")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "║")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ï")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¢")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "½")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╗")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "î")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "£")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¼")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╝")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ì")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¥")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "¡")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╜")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ä")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "₧")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "«")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╛")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Å")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ƒ")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "»")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┐")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), " ")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "└")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╨")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "α")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "≡")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┴")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╤")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ß")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "±")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┬")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╥")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Γ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "≥")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "├")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╙")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "π")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "≤")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "─")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╘")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Σ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "⌠")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┼")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╒")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "σ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "⌡")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╞")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╓")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "µ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "÷")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╟")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╫")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "τ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "≈")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╚")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╪")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Φ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "°")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╔")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┘")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Θ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "∙")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╩")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "┌")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Ω")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "·")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╦")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "█")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "δ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "√")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╠")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▄")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "∞")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ⁿ")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "═")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▌")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "φ")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "²")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╬")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▐")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "ε")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "■")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "╧")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "▀")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "U")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "V")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "W")
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "X")
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Y")
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), "Z")
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(44))
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(0))
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(7))
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(8))
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(10))
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(117))
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(118))
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(119))
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(120))
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(121))
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(122))
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(86))
AnsiPos 28, 1
Print "@X0F/"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(87))
AnsiPos 28, 1
Print "@X0E-"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(88))
AnsiPos 28, 1
Print "@X0F\"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(89))
AnsiPos 28, 1
Print "@X0E|"
TSTRING138(STRING158) = Strip(TSTRING138(STRING158), Chr(90))
AnsiPos 28, 1
Print "@X0F/"
Next
INTEGER024 = Len(TSTRING138(0))
If (INTEGER024 < 2) TSTRING138(0) = Chr(109) + Chr(101)
TSTRING138(0) = Right(TSTRING138(0), 2)
INTEGER023 = Len(TSTRING138(1))
If (INTEGER023 < 2) TSTRING138(1) = Chr(109) + Chr(101)
TSTRING138(1) = Right(TSTRING138(1), 2)
STRING140 = TSTRING138(0) + TSTRING138(1) + Chr(65) + Chr(77)
If (STRING134 <> Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)) Then
Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
Delay 90
Else
FOpen 1, PPEPath() + "Check.cnf", 0, 0
FGet 1, STRING095
FGet 1, STRING050
FGet 1, STRING051
FGet 1, STRING049
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING027
FClose 1
STRING061 = STRING074
:LABEL001
BOOLEAN002 = 0
BOOLEAN001 = 0
STRING074 = STRING061
StartDisp 1
:LABEL002
If (BOOLEAN001) Goto LABEL104
If (Upper(STRING074) == "D") Goto LABEL006
If (Upper(STRING074) == "L") Goto LABEL004
If (Upper(STRING074) == "B") Then
:LABEL003
STRING115 = Random(5)
If (STRING115 == "1") Goto LABEL004
If (STRING115 == "2") Goto LABEL006
If (STRING115 == "3") Goto LABEL004
If (STRING115 == "4") Goto LABEL006
If (STRING115 == "5") Goto LABEL004
If (STRING115 == "0") Goto LABEL006
If (STRING115 < "0") Goto LABEL003
Endif
:LABEL004
FClose 1
FOpen 1, PPEPath() + PPEName() + "1.cfg", 2, 0
FGet 1, INTEGER021
STRING074 = "L"
:LABEL005
INTEGER026 = Random(INTEGER021 + 1)
If (INTEGER026 == 0) Goto LABEL005
If (INTEGER026 > INTEGER021) Goto LABEL005
For STRING060 = 1 To INTEGER026
FGet 1, STRING105
FGet 1, INTEGER018
FGet 1, INTEGER019
FGet 1, STRING086
FGet 1, STRING106
Next
FClose 1
Goto LABEL012
:LABEL006
DefColor
Cls
STRING085 = ""
:LABEL007
DefColor
FreshLine
DispFile PPEPath() + "menu.ans", 4 + 2
AnsiPos 1, 1
Print STRING090 + " " + STRING136
If (INTEGER010 == S2I(STRING140, 34)) Goto LABEL008
AnsiPos 60, 1
Print STRING134
:LABEL008
INTEGER018 = 23
:LABEL009
If (BOOLEAN001) Goto LABEL011
:LABEL010
DefColor
Inc INTEGER018
AnsiPos 1, INTEGER018
InputStr STRING094 + String(PcbNode()) + ">_", STRING087, "", 13, Mask_Ascii(), 1024 + 8
If ((STRING087 == "DIR") || (STRING087 == "DIR/P")) Goto LABEL007
If (STRING087 == "DIR/W") Goto LABEL011
If (STRING087 == "REGIT") Goto LABEL106
If (STRING087 == "FORMAT") Then
FreshLine
DispFile PPEPath() + "format", 0
Goto LABEL010
Endif
If (STRING087 == "") Then
STRING085 = ScrText(1, INTEGER018, 15, 1)
FreshLine
Inc INTEGER018
Goto LABEL010
Endif
If (STRING087 == "VER") Then
FreshLine
DispFile PPEPath() + "VER", 0
Goto LABEL010
Endif
If (STRING087 == "HELP") Then
FreshLine
DispFile PPEPath() + "help", 0
Goto LABEL010
Endif
If (STRING087 == "CHAT") Then
Goto LABEL103
Endif
If (STRING087 == "WHO") Then
Cls
FreshLine
Call PPEPath() + "who.ppe"
AnsiPos 1, 20
Wait
Cls
DefColor
FreshLine
Goto LABEL010
Endif
If (STRING087 == "CLS") Then
Cls
INTEGER018 = 0
Goto LABEL010
Endif
If (STRING087 == "SYSTEM") Then
Goto LABEL016
Endif
Select Case (STRING087)
Case "CHECK"
STRING087 = 2
Case "APPLY"
STRING087 = 3
If (((STRING087 == "LOGOFF") || (STRING087 == "G")) || (STRING087 == "BYE")) Then
Goto LABEL097
Endif
If (STRING087 == "FEEDBACK") Then
Goto LABEL099
Endif
If ((STRING087 == "PAGE") && (STRING130 == YesChar())) Then
Goto LABEL103
Else
Inc INTEGER018
Print STRING085
FreshLine
PrintLn "@X0FUnknown Command" + " " + """" + STRING087 + """"
Newline
Goto LABEL010
Endif
Goto LABEL009
:LABEL011
DispFile PPEPath() + "menuw.ans", 4 + 2
Goto LABEL010
:LABEL012
STRING089 = 1
STRING087 = ""
STRING085 = ""
DefColor
Cls
DispFile PPEPath() + STRING105, 4
AnsiPos 1, 1
Print STRING090 + " " + STRING136
If (INTEGER010 == S2I(STRING140, 34)) Goto LABEL013
AnsiPos 60, 1
Print STRING134
:LABEL013
INTEGER022 = INTEGER019
AnsiPos INTEGER018, INTEGER019
Print STRING096
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING098
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING100
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING097
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING099
If ("" == YesChar()) Then
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print ""
Endif
If (STRING130 == YesChar()) Then
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING101
Endif
If (STRING093 == YesChar()) Then
Inc INTEGER019
Inc STRING089
AnsiPos INTEGER018, INTEGER019
Print STRING082
Endif
INTEGER019 = INTEGER022
KbdStuff Chr(32)
:LABEL014
If (BOOLEAN001) Goto LABEL016
STRING084 = Upper(Inkey())
If (STRING084 == Chr(13)) Then
STRING087 = INTEGER019 - INTEGER022
If (STRING087 == 1) Goto LABEL016
If (STRING087 == 2) Goto LABEL018
If (STRING087 == 3) Goto LABEL018
If (STRING087 == 4) Goto LABEL099
If (STRING087 == 5) Goto LABEL097
If ((STRING087 == 6) && ("" == YesChar())) Goto LABEL098
If (((STRING087 == 6) && (STRING130 == YesChar())) && (STRING093 == NoChar())) Goto LABEL103
If ((((STRING087 == 6) && (STRING130 == YesChar())) && (STRING093 == YesChar())) && ("" == NoChar())) Goto LABEL103
If ((((STRING087 == 7) && (STRING130 == YesChar())) && (STRING093 == YesChar())) && ("" == NoChar())) Goto LABEL106
If (((STRING087 == 7) && (STRING130 == YesChar())) && (STRING093 == YesChar())) Goto LABEL103
If ((STRING087 == 7) && (STRING130 == NoChar())) Goto LABEL106
If ((STRING087 == 7) && (STRING093 == YesChar())) Goto LABEL106
If (((STRING087 == 6) && (STRING130 == NoChar())) && ("" == NoChar())) Goto LABEL106
If ((STRING087 == 7) && (STRING130 == YesChar())) Goto LABEL106
If (STRING087 == 8) Goto LABEL106
Endif
If (((((STRING084 == Chr(32)) || (STRING084 == "DOWN")) || (STRING084 == "LEFT")) || (STRING084 == "RIGHT")) || (STRING084 == "Z")) Then
AnsiPos INTEGER018, INTEGER019
AnsiPos INTEGER018, INTEGER019
If (INTEGER019 == INTEGER022) Then
Print STRING085
AnsiPos INTEGER018, INTEGER019
Goto LABEL015
Endif
AnsiPos INTEGER018, INTEGER019 - 1
Print STRING085
:LABEL015
If (INTEGER019 == INTEGER022 + STRING089) INTEGER019 = INTEGER019 - STRING089
AnsiPos INTEGER018, INTEGER019
STRING085 = ScrText(INTEGER018, INTEGER019, STRING086, 1)
Print STRING107 + ScrText(INTEGER018, INTEGER019, STRING086, 0)
Inc INTEGER019
Endif
Goto LABEL014
:LABEL016
INTEGER006 = 0
DefColor
Cls
If (STRING074 == "L") Then
DispFile PPEPath() + PPEName() + ".dsp", 0
If (INTEGER010 == S2I(STRING140, 34)) Goto LABEL017
AnsiPos 31, 3
Print STRING134
:LABEL017
AnsiPos 6, 4
Endif
InputStr STRING058, STRING052, 0, 13, Mask_Pwd(), 1024 + 1 + 8
Case STRING065
BOOLEAN002 = 1
Case Else
INTEGER006 = INTEGER006 + 1
If (INTEGER006 > STRING092) Hangup
Goto LABEL001
End Select
:LABEL018
RdUNet PcbNode()
WrUNet PcbNode(), "O", "Matrix", "THT", "", ""
STRING139 = ReadLine(PCBDat(), 94)
STRING125 = ReadLine(PCBDat(), 35)
DefColor
If (STRING074 == "L") Then
If (BOOLEAN002 == 0) Cls
If (BOOLEAN002 == 0) DispFile PPEPath() + PPEName() + ".dsp", 0
If (INTEGER010 == S2I(STRING140, 34)) Goto LABEL019
AnsiPos 31, 3
Print STRING134
:LABEL019
AnsiPos 6, 4
Print Space(40)
AnsiPos 7, 4
INTEGER025 = GetY()
Else
FreshLine
Endif
STRING075 = ""
STRING103 = ""
STRING076 = ""
InputStr STRING108, STRING075, "", 30, Mask_Ascii(), 8
If (STRING075 == "") Goto LABEL001
Tokenize STRING075
If (TokCount() == 1) Then
If (STRING087 == 3) Gosub LABEL022
Else
If (TokCount() == 4) Then
GetToken STRING069
GetToken STRING070
GetToken STRING071
GetToken STRING072
STRING103 = STRING069 + " " + STRING070 + " " + STRING071
STRING068 = STRING072
If (STRING087 == 3) Gosub LABEL022
If (STRING087 == 3) Gosub LABEL027
Gosub LABEL020
Endif
If (TokCount() == 3) Then
STRING103 = STRING075
Gosub LABEL020
GetToken STRING069
GetToken STRING070
GetToken STRING072
STRING103 = STRING069 + " " + STRING070
STRING068 = STRING072
If (STRING087 == 3) Gosub LABEL022
If (STRING087 == 3) Gosub LABEL027
Gosub LABEL020
STRING103 = STRING069 + " " + STRING070 + " " + STRING071
Endif
If (TokCount() == 2) Then
STRING103 = STRING075
Gosub LABEL020
GetToken STRING069
GetToken STRING072
If (STRING087 == 3) Gosub LABEL022
If (STRING087 == 3) Gosub LABEL027
STRING103 = STRING069
STRING068 = STRING072
Gosub LABEL020
Endif
Goto LABEL021
:LABEL020
INTEGER020 = U_RecNum(STRING103)
If (INTEGER020 <> -1) Then
Goto LABEL079
Endif
Return
Endif
:LABEL021
If (STRING074 == "L") Then
AnsiPos 7, INTEGER025 + 1
Inc INTEGER025
Else
FreshLine
Endif
If (TokCount() <> 1) Goto LABEL030
STRING076 = ""
InputStr STRING109, STRING076, "", 30, Mask_Ascii(), 8
Tokenize STRING076
If (TokCount() <> 1) Then
GetToken STRING077
GetToken STRING078
Endif
If (STRING087 == 3) Gosub LABEL022
Goto LABEL030
:LABEL022
FClose 1
FOpen 1, STRING125, 0, 0
:LABEL023
If (Ferr(1)) Goto LABEL026
FGet 1, STRING062
If (STRING062 == "") Goto LABEL025
If ((((((((STRING062 == STRING075) || (STRING062 == STRING076)) || (STRING062 == STRING069)) || (STRING062 == STRING070)) || (STRING062 == STRING071)) || (STRING077 == STRING062)) || (STRING078 == STRING062)) || (STRING072 == STRING062)) Then
If (STRING074 == "L") Then
AnsiPos 7, INTEGER025 + 4
PrintLn "@X0C " + STRING062 + " " + STRING063
Goto LABEL024
Endif
FreshLine
PrintLn "@X0C " + STRING062 + " " + STRING063
:LABEL024
FreshLine
Wait
FClose 1
Goto LABEL018
Endif
:LABEL025
Goto LABEL023
:LABEL026
FClose 1
Return
Goto LABEL030
:LABEL027
If (!Exist(PPEPath() + "black.lst")) Return
FClose 1
FOpen 1, PPEPath() + "black.lst", 0, 0
:LABEL028
If (Ferr(1)) Goto LABEL029
FGet 1, STRING030
Select Case (STRING030)
Case ""
Print ""
Case STRING103
AnsiPos 15, 15
PrintLn STRING031
Delay 25
Hangup
End Select
Goto LABEL028
:LABEL029
FClose 1
Return
:LABEL030
If (TokCount() <= 2) Then
STRING103 = STRING075 + " " + STRING076
Else
STRING103 = STRING075
Endif
INTEGER020 = U_RecNum(STRING103)
If (INTEGER020 <> -1) Then
Goto LABEL079
Else
If (STRING074 == "L") Then
AnsiPos 7, 7
If (STRING142 == YesChar()) Then
InputStr STRING145, STRING144, "", 30, Mask_Ascii(), 8 + 1
If (STRING144 <> STRING143) Then
Goto LABEL001
Endif
Endif
FreshLine
Gosub LABEL022
Gosub LABEL027
PromptStr 53, STRING102, 1, "CR", 0 + 8
If (STRING102 == "C") Goto LABEL032
If (STRING102 == "R") Goto LABEL001
Else
FreshLine
If (STRING142 == YesChar()) Then
InputStr STRING145, STRING144, "", 30, Mask_Ascii(), 8 + 1
If (STRING144 <> STRING143) Then
Goto LABEL001
Endif
Endif
FreshLine
Gosub LABEL022
Gosub LABEL027
PromptStr 53, STRING102, 1, "CR", 0 + 8
If (STRING102 == "C") Goto LABEL032
If (STRING102 == "R") Goto LABEL001
Endif
If ((STRING087 == 2) && (STRING074 == "L")) Then
AnsiPos 7, 7
PrintLn "@X0CYou Are not a USER "
AnsiPos 7, 8
If (STRING142 == YesChar()) Then
InputStr STRING145, STRING144, "", 30, Mask_Ascii(), 8 + 1
If (STRING144 <> STRING143) Goto LABEL001
Endif
STRING104 = YesChar()
If (STRING142 == YesChar()) AnsiPos 7, 9
InputYN "@X0CDo you Wish to Apply", STRING104, ""
If (STRING104 == YesChar()) Then
Goto LABEL032
Goto LABEL031
Endif
Goto LABEL001
Endif
:LABEL031
If ((STRING087 == 2) && (STRING074 <> "L")) Then
If (STRING142 == YesChar()) Then
FreshLine
InputStr STRING145, STRING144, "", 30, Mask_Ascii(), 8 + 1
If (STRING144 <> STRING143) Goto LABEL001
Endif
FreshLine
PrintLn "@X0CYou Are not a USER "
FreshLine
STRING104 = YesChar()
InputYN "@X0CDo you Wish to Apply", STRING104, ""
If (STRING104 == YesChar()) Then
Goto LABEL032
Goto LABEL032
Endif
Goto LABEL001
Endif
:LABEL032
RdUNet PcbNode()
WrUNet PcbNode(), "S", STRING103, "THT", PPEName(), ""
AdjTime 5
DispFile PPEPath() + PPEName() + ".NEW", 0
STRING087 = 3
FCreate 5, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0
:LABEL033
INTEGER018 = 3
DefColor
INTEGER013 = ReadLine(PCBDat(), 265)
STRING122 = INTEGER013
STRING068 = ""
AnsiPos 13, INTEGER018
InputStr "_", STRING068, "", 12, Mask_Pwd(), 8 + 1
AnsiPos 4, 20
Print Space(76)
INTEGER014 = Len(STRING068)
AnsiPos 13 + INTEGER014, INTEGER018
If (INTEGER014 < INTEGER013) Then
AnsiPos 5, 20
ClrEol
PrintLn "Password has to be " + STRING122 + " Charcters Long"
Goto LABEL033
Endif
If (Exist(PPEPath() + "pwdcan")) FOpen 1, PPEPath() + "pwdcan", 0, 0
:LABEL034
If (Ferr(1)) Goto LABEL035
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X0FO"
FGet 1, STRING073
If (STRING073 == "") Goto LABEL035
If (STRING073 == STRING068) Then
AnsiPos 5, 20
PrintLn "@X0F" + STRING068 + STRING064
FreshLine
Wait
FClose 1
Goto LABEL033
Endif
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X0C@"
Goto LABEL034
:LABEL035
FClose 1
For STRING060 = 3 To 8
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X0FO"
If (Right(STRING068, STRING060) == Right(STRING103, STRING060)) Then
AnsiPos 4, 20
DispText 709, 2048
Goto LABEL033
Endif
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X0E*"
If (Left(STRING068, STRING060) == Left(STRING103, STRING060)) Then
AnsiPos 4, 20
DispText 709, 2048
Goto LABEL033
Endif
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X09@"
If (Left(STRING068, STRING060) == Right(STRING103, STRING060)) Then
AnsiPos 4, 20
DispText 709, 2048
Goto LABEL033
Endif
AnsiPos 15 + INTEGER014, INTEGER018
Print "@X0Co"
If (Right(STRING068, STRING060) == Left(STRING103, STRING060)) Then
AnsiPos 4, 20
DispText 709, 2048
Goto LABEL033
Endif
Next
AnsiPos 15 + INTEGER014, INTEGER018
Print " "
Inc INTEGER018
AnsiPos 13, INTEGER018
InputStr "_", STRING121, "", 12, Mask_Pwd(), 8 + 1
If (STRING068 <> STRING121) Then
AnsiPos 5, 20
ClrEol
PrintLn STRING127
Goto LABEL033
Endif
FPut 5, Chr(13) + Chr(10)
FPut 5, Chr(13) + Chr(10)
FPutLn 5, STRING068
FPutLn 5, STRING121
Inc INTEGER018
:LABEL036
STRING116 = ""
AnsiPos 13, INTEGER018
InputStr "_", STRING116, "", 24, Mask_Ascii(), 4
If (STRING116 == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL036
Endif
FPutLn 5, STRING116
Inc INTEGER018
:LABEL037
STRING117 = ""
AnsiPos 13, INTEGER018
InputStr "_", STRING117, "", 15, "1234567890-", 4
If (STRING117 == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL037
Endif
FPutLn 5, STRING117
Inc INTEGER018
:LABEL038
STRING118 = ""
AnsiPos 14, INTEGER018
InputStr "_", STRING118, "", 15, "1234567890-", 4
If (STRING118 == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL038
Endif
FPutLn 5, STRING118
Inc INTEGER018
:LABEL039
STRING120 = ""
AnsiPos 2, INTEGER018
InputStr STRING133, STRING120, "", 20, Mask_Ascii(), 4
If (STRING120 == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL039
Endif
FPutLn 5, STRING120
Inc INTEGER018
:LABEL040
STRING119 = ""
AnsiPos 29, INTEGER018
InputYN "", STRING119, 1
If (STRING119 == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL040
Endif
FPutLn 5, STRING119
AnsiPos 78, 11
SaveScrn
Cls
GetToken STRING147
If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL041
Newline
Print "@X0CError reading PCBPROT.DAT! Aborting ... @X07"
Delay 50
Log "Error reading PCBPROT.DAT!", 0
FreshLine
End
Goto LABEL044
:LABEL041
STRING157 = "N"
FOpen 1, ReadLine(PCBDat(), 45), 0, 0
:LABEL042
If (Ferr(1)) Goto LABEL043
FGet 1, STRING153
If (Len(STRING153)) Then
STRING153 = Replace(STRING153, Chr(32), Chr(255))
Inc INTEGER028
STRING153 = Replace(STRING153, ",", ";")
Tokenize STRING153
While (TokCount() > 0) Do
Inc INTEGER027
GetToken TSTRING148(INTEGER028, INTEGER027)
EndWhile
TSTRING149(INTEGER028) = TSTRING148(INTEGER028, 1)
TSTRING151(INTEGER028) = TSTRING148(INTEGER028, 2)
TSTRING152(INTEGER028) = Replace(TSTRING148(INTEGER028, 4), Chr(255), Chr(32))
TSTRING150(INTEGER028) = TSTRING148(INTEGER028, 5)
Endif
INTEGER027 = 0
Goto LABEL042
:LABEL043
FClose 1
If (Right(STRING128, (1 <> "\"))) STRING128 = STRING128 + "\"
STRING155 = STRING128 + "PCBS"
STRING156 = STRING128 + "PCBR"
If (Strip(STRING147, Chr(32)) <> "") Then
STRING147 = Strip(STRING147, Chr(32))
For STRING060 = 1 To INTEGER028
STRING154 = STRING154 + TSTRING149(STRING060)
Next
INTEGER029 = InStr(STRING154, STRING147)
If (STRING147 == "N") Goto LABEL050
Gosub LABEL048
Endif
Gosub LABEL045
:LABEL044
Goto LABEL050
:LABEL045
Newline
PrintLn "@POS:10@@X70┌────────────────────────────────────────────────────────@X7F┐@X07"
PrintLn "@POS:10@@X70│ @X7BP R O T O C O L S A V A I L A B L E@POS:67@@X7F│@X07"
PrintLn "@POS:10@@X70└@X7F────────────────────────────────────────────────────────┘@X07"
Newline
PrintLn "@POS:10@@X70┌@X7F────────────────────────────────────────────────────────┐@X07"
For STRING060 = 1 To INTEGER028
If (((TSTRING151(STRING060) <> "I") && !Exist(STRING155 + TSTRING149(STRING060) + ".BAT")) && !Exist(STRING156 + TSTRING149(STRING060) + ".BAT")) BOOLEAN003 = 1
If (!BOOLEAN003 || (TSTRING149(STRING060) == "N")) Then
STRING154 = STRING154 + TSTRING149(STRING060)
If (TSTRING149(STRING060) == U_Trans) Then
PrintLn "@POS:10@@X70│ @XF4=> @X71(@X7E" + TSTRING149(STRING060) + "@X71) " + TSTRING152(STRING060) + "@POS:67@@X7F│@X07"
Goto LABEL046
Endif
PrintLn "@POS:10@@X70│ @X71(@X7E" + TSTRING149(STRING060) + "@X71) " + TSTRING152(STRING060) + "@POS:67@@X7F│@X07"
Endif
:LABEL046
BOOLEAN003 = 0
Next
PrintLn "@POS:10@@X70└────────────────────────────────────────────────────────@X7F┘@X07"
PromptStr 198, STRING157, 1, STRING154, 2 + 4 + 8 + 128 + 256 + 8192
If (Len(STRING157) && (STRING157 <> U_Trans)) Then
STRING147 = Left(STRING157, 1)
If (STRING147 == "N") Goto LABEL050
INTEGER029 = InStr(STRING154, STRING147)
Goto LABEL048
Goto LABEL047
Endif
:LABEL047
Return
:LABEL048
If (((TSTRING151(INTEGER029) <> "I") && !Exist(STRING155 + TSTRING149(INTEGER029) + ".BAT")) && !Exist(STRING156 + TSTRING149(INTEGER029) + ".BAT")) BOOLEAN003 = 1
If ((STRING147 == TSTRING149(INTEGER029)) && !BOOLEAN003) Then
If (TSTRING150(INTEGER029) == YesChar()) Then
If (ErrCorrect()) Goto LABEL049
Newlines 2
PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!"
End
Endif
:LABEL049
Else
Return
Endif
:LABEL050
If (Strip(STRING147, Chr(32)) <> "") Then
Endif
FPutLn 5, STRING147
RestScrn
If (Psa(3)) Then
Inc INTEGER018
Inc INTEGER018
AnsiPos 1, INTEGER018
DispFile PPEPath() + PPEName() + "1.NEW", 0
Inc INTEGER018
Inc INTEGER018
:LABEL051
AnsiPos 17, INTEGER018
InputStr "_", U_Addr(0), "", 25, Mask_Ascii(), 4
If (U_Addr(0) == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL051
Endif
FPutLn 5, U_Addr(0)
Inc INTEGER018
AnsiPos 17, INTEGER018
InputStr "_", U_Addr(1), "", 25, Mask_Ascii(), 4
FPutLn 5, U_Addr(1)
Inc INTEGER018
:LABEL052
AnsiPos 8, INTEGER018
InputStr "_", U_Addr(2), "", 15, Mask_Ascii(), 4
If (U_Addr(2) == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL052
Endif
FPutLn 5, U_Addr(2)
Inc INTEGER018
:LABEL053
AnsiPos 9, INTEGER018
InputStr "_", U_Addr(3), "", 15, Mask_Ascii(), 4
If (U_Addr(3) == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL053
Endif
FPutLn 5, U_Addr(3)
Inc INTEGER018
:LABEL054
AnsiPos 12, INTEGER018
InputStr "_", U_Addr(4), "", 15, "1234567890-", 4
If (U_Addr(4) == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL054
Endif
FPutLn 5, U_Addr(4)
Inc INTEGER018
:LABEL055
AnsiPos 11, INTEGER018
InputStr "_", U_Addr(5), "", 15, Mask_Ascii(), 4
If (U_Addr(5) == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL055
Endif
FPutLn 5, U_Addr(5)
Endif
If (Psa(2)) Then
Inc INTEGER018
AnsiPos 1, INTEGER018
DispFile PPEPath() + PPEName() + ".als", 0
:LABEL056
U_Ver = ""
AnsiPos 2, INTEGER018
InputStr STRING132, U_Ver, "", 25, Mask_Ascii(), 4
If (U_Ver == "") Then
AnsiPos 5, 20
ClrEol
Gosub LABEL105
Goto LABEL056
Endif
FPutLn 5, U_Ver
Endif
FClose 5
Goto LABEL057
Goto LABEL057
Goto LABEL001
Endif
:LABEL057
AdjTime 5
If (STRING026 == NoChar()) Goto LABEL108
STRING025 = STRING103
STRING008 = Carrier()
STRING009 = Time()
STRING010 = Date()
FClose 1
FDefIn 1
FOpen 1, PPEPath() + "tht-info" + ".LVL", 0, 0
FDGet STRING049
FDGet STRING135
FDGet INTEGER005
FDGet STRING012
FDGet STRING011
FDGet STRING013
FClose 1
FClose 1
StartDisp 1
DispFile PPEPath() + "dsclm.pcb", 0
STRING014 = YesChar()
InputYN " Do You Agree To This@X0F ???", STRING014, 9
If (STRING014 == "N") Then
Hangup
Goto LABEL058
Endif
:LABEL058
Cls
StartDisp 1
RestScrn
STRING007 = 10
STRING020 = 1
AnsiPos 18, 1
PrintLn STRING033
AnsiPos 23, 2
PrintLn "@X0F┌──────────────────────────────┐@X07"
AnsiPos 23, 3
PrintLn "@X07│@X1F ∙ New User InfoForms ∙ @X07│@X07"
AnsiPos 23, 4
PrintLn "@X08└──────────────────────────────┘@X07"
AnsiPos 2, 5
PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0
AnsiPos 2, 6
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
AnsiPos 2, 7
PrintLn "@X0F█@X71 @X08█@X07"
AnsiPos 2, 8
PrintLn "@X0F█@X71 No. InfoForm Title Status Req'd @X08█ @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
AnsiPos 2, 9
PrintLn "@X0F█@X71─────────────────────────────────────────────────@X08█ @X0F█@X71 @X08█@X07"
FClose 1
FOpen 1, PPEPath() + "tht-info" + ".cfg", 0, 0
FDGet STRING034
For STRING006 = 1 To STRING034
Delete STRING006 + ".lck"
Next
For STRING006 = 1 To STRING034
Delete STRING006 + ".YES"
Next
For INTEGER004 = 1 To STRING034
AnsiPos 2, STRING007
PrintLn "@X0F█@X71 @X08█ @X0F█@X71 @X08█@X07"
FOpen 2, PPEPath() + "infocfg." + STRING020, 0, 0
FGet 2, STRING104
FGet 1, STRING015
Gosub LABEL064
If (!Exist(STRING020 + ".lck") && (STRING104 == "YES")) FCreate 3, STRING020 + "." + STRING104, 1, 0
FClose 3
If (Exist(STRING020 + ".lck")) Then
AnsiPos 3, STRING007
PrintLn "@X79(@X7E" + STRING020 + "@X79)@X78 " + STRING015 + "@POS:32@@X74Completed@X71" + "@POS:46@" + STRING104
AnsiPos 3 + 53, STRING007
PrintLn "@X71" + STRING011 + STRING020
Else
AnsiPos 3, STRING007
PrintLn "@X79(@X7E" + STRING020 + "@X79)@X78 " + STRING015 + "@POS:32@@X71InCompleted@X74" + "@POS:46@" + STRING104
AnsiPos 3 + 53, STRING007
PrintLn "@X71" + STRING011 + STRING020
Endif
Inc STRING007
Inc STRING020
FClose 2
Next
FClose 1
AnsiPos 2, STRING007
PrintLn "@X0F█@X71 @X08█ @X0F█@X71Quit Infoform Booth @X08█@X07"
Inc STRING007
AnsiPos 2, STRING007
PrintLn "@X0F█@X71 @X08█ @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
Inc STRING007
AnsiPos 2, STRING007
PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
Inc STRING007
Inc STRING007
Inc STRING007
If (INTEGER010 == S2I(STRING140, 34)) Goto LABEL059
AnsiPos 20, 7
Print STRING134
AnsiPos 58, 9
Print STRING134
:LABEL059
STRING085 = ""
RestScrn
AnsiPos 2, STRING007 - 2
STRING016 = GetY()
INTEGER011 = STRING016 - 3
KbdStuff Chr(32)
:LABEL060
If (FALSE) Goto LABEL062
STRING084 = Inkey()
If (STRING084 == Chr(13)) Then
STRING017 = Left(ScrText(58, INTEGER011 + 1, 22, 0), 1)
STRING017 = STRING017 + RTrim(ScrText(58, INTEGER011 + 1, 22, 0), " ")
STRING017 = STRING017 + Right(STRING017, 1)
STRING017 = Right(STRING017, 1)
Else
If (((((((((STRING084 == Chr(32)) || (STRING084 == "UP")) || (STRING084 == "DOWN")) || (STRING084 == "LEFT")) || (STRING084 == "RIGHT")) || (STRING084 == "z")) || (STRING084 == "Z")) || (STRING084 == "a")) || (STRING084 == "A")) Then
AnsiPos 55, INTEGER011
If (INTEGER011 == STRING016 - 3) Then
Print STRING085
Goto LABEL061
Endif
AnsiPos 55, INTEGER011 + 1
Print STRING085
:LABEL061
AnsiPos 55, INTEGER011
If (INTEGER011 == 9) INTEGER011 = INTEGER011 + STRING034 + 1
AnsiPos 55, INTEGER011
STRING085 = ScrText(55, INTEGER011, 25, 1) + "@X08"
Color 78
AnsiPos 55, INTEGER011
Print ScrText(55, INTEGER011, 25, 0) + "@X08"
Dec INTEGER011
Endif
Goto LABEL060
Endif
:LABEL062
If (Exist(STRING017 + ".lck")) Then
Inc STRING007
AnsiPos 15, 21
PrintLn "@X0EYou have Already Filled Out that One@X07"
Dec STRING007
Wait
Goto LABEL058
ElseIf ((STRING017 <= STRING034) && (STRING017 <> "h")) Then
FCreate 1, STRING017 + ".lck", 1, 0
FClose 1
Goto LABEL070
ElseIf (!Exist("*.YES") && (STRING017 == "h")) Then
Goto LABEL074
Else
Goto LABEL063
Endif
FClose 1
:LABEL063
Inc STRING007
AnsiPos 15, STRING007
For STRING006 = 1 To STRING034
FreshLine
If (Exist(STRING006 + ".YES")) PrintLn "@X0EInfoForm @X8C" + STRING006 + "@X0E is Required!!!"
Next
Wait
AnsiPos 15, STRING007
For STRING006 = 1 To STRING034
FreshLine
If (Exist(STRING006 + ".YES")) PrintLn " "
Next
Dec STRING007
Goto LABEL058
End
:LABEL064
Tokenize STRING103
If (TokCount() == 3) Then
GetToken STRING003
GetToken STRING004
GetToken STRING005
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING005, " ")
STRING003 = Strip(STRING003, ".")
STRING004 = Strip(STRING005, ".")
STRING003 = Left(STRING003, 3)
STRING004 = Right(STRING005, 4)
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
If (Exist(PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + STRING020)) Then
Gosub LABEL066
If (STRING018 == NoChar()) FCreate 5, STRING020 + ".lck", 1, 0
FClose 5
Endif
ElseIf (TokCount() <= 2) Then
GetToken STRING003
GetToken STRING004
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
STRING003 = Strip(STRING003, ".")
STRING004 = Strip(STRING004, ".")
STRING003 = Left(STRING003, 3)
STRING004 = Right(STRING004, 4)
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
If (Exist(PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + STRING020)) Then
Gosub LABEL066
If (STRING018 == NoChar()) FCreate 5, STRING020 + ".lck", 1, 0
FClose 5
If (Exist(PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + ".grp")) Goto LABEL065
FCreate 5, PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + ".GRP", 1, 0
FPutLn 5, STRING116
FClose 5
Endif
Endif
:LABEL065
Return
:LABEL066
STRING018 = NoChar()
INTEGER003 = 0
INTEGER002 = ReadLine(PPEPath() + "infocfg." + STRING020, 2)
FOpen 5, PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + STRING020, 0, 0
:LABEL067
If (Ferr(5)) Goto LABEL069
FGet 5, STRING019
If (STRING019 == "") Goto LABEL068
Inc INTEGER003
:LABEL068
Goto LABEL067
:LABEL069
FClose 5
If (INTEGER003 < INTEGER002 + 6) Then
Delete PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + STRING020
STRING018 = YesChar()
Endif
Return
:LABEL070
FClose 2
Newline
StartDisp 1
FCreate 5, PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + "vot", 1, 0
FClose 5
DispFile PPEPath() + "tht-info" + "." + STRING017, 0
FAppend 3, PPEPath() + "APPS\" + STRING003 + "_" + STRING004 + "." + STRING017, 1, 0
FAppend 4, PPEPath() + "APPS\answers." + STRING017, 1, 0
FOpen 2, PPEPath() + "infocfg." + STRING017, 0, 0
FGet 2, STRING104
FGet 2, STRING021
FreshLine
FPutLn 3, "─────────────────────────────────────────"
FPutLn 4, "─────────────────────────────────────────"
STRING134 = StripAtx(STRING134)
If (!(INTEGER010 == S2I(STRING140, 34))) FPutLn 4, " " + STRING134
FPutLn 3, " InfoForm PPE " + STRING010 + " " + STRING009
FPutLn 4, " InfoForm PPE " + STRING010 + " " + STRING009
FPutLn 3, " "
FPutLn 4, " "
FPutLn 3, "User: " + STRING025 + " " + "City " + STRING116
FPutLn 4, "User: " + STRING025 + " " + "City " + STRING116
FPutLn 3, "Connected @ " + STRING008 + " To Node " + String(PcbNode())
FPutLn 4, "Connected @ " + STRING008 + " To Node " + String(PcbNode())
FPutLn 3, "─────────────────────────────────────────"
FPutLn 4, "─────────────────────────────────────────"
For INTEGER004 = 1 To STRING021
FGet 2, STRING088
Tokenize STRING088
GetToken INTEGER018
GetToken INTEGER019
GetToken STRING086
AnsiPos INTEGER018, INTEGER019
:LABEL071
STRING022 = ""
InputStr "_", STRING022, 14, STRING086, Mask_Ascii(), 0
If (STRING022 == "") Goto LABEL071
FPutLn 3, STRING022
FPutLn 4, STRING022
Next
Newline
Wait
FClose 4
FClose 3
FClose 2
STRING007 = 1
For INTEGER004 = 1 To STRING034
FOpen 2, PPEPath() + "infocfg." + STRING007, 0, 0
FGet 2, STRING104
If (Exist(STRING007 + "." + STRING104) && Exist(STRING007 + ".lck")) Delete STRING007 + "." + STRING104
Inc STRING007
FClose 2
Next
FClose 1
If (!Exist(PPEPath() + "APPS\WAITING.app")) FCreate 1, PPEPath() + "APPS\WAITING.app", 1, 0
FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
:LABEL072
If (Ferr(1)) Goto LABEL073
FGet 1, STRING042
If (STRING042 == STRING025) Then
FClose 1
Goto LABEL058
Endif
Goto LABEL072
:LABEL073
FClose 1
Goto LABEL058
:LABEL074
Cls
FClose 1
INTEGER015 = 1
STRING023 = 1
FClose 1
FCreate 1, "MESS.TMP", 1, 0
DispFile PPEPath() + "goodbye.pcb", 0
:LABEL075
If (Abort()) Goto LABEL076
STRING024 = ""
FreshLine
InputStr STRING023 + " >_", STRING024, 9, 74, Mask_Ascii(), 512 + 2 + 4 + 256
If ((INTEGER015 == 1) && (STRING024 == "")) Goto LABEL074
If (STRING024 == "") Goto LABEL076
FPutLn 1, STRING024
Inc INTEGER015
Inc STRING023
Goto LABEL075
:LABEL076
FClose 1
Message INTEGER005, "SYSOP", U_Name(), "Validation Please!!!", "R", 0, 0, 0, "MESS.TMP"
FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
FGet 1, STRING049
FClose 1
FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
:LABEL077
If (Ferr(1)) Goto LABEL078
FGet 1, STRING042
If (STRING042 == STRING025) Then
FClose 1
Else
Goto LABEL077
:LABEL078
FClose 1
FClose 4
FAppend 4, PPEPath() + "APPS\WAITING.app", 1, 0
FPutLn 4, STRING025
FClose 4
Endif
FClose 1
FClose 1
For STRING006 = 1 To STRING034
If ((STRING013 == NoChar()) && (INTEGER010 == S2I(STRING140, 34))) Delete PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING006
If (((STRING013 == NoChar()) && Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".grp")) && (INTEGER010 == S2I(STRING140, 34))) Delete PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".grp"
Delete STRING006 + ".lck"
Next
For STRING006 = 1 To STRING034
Delete STRING006 + ".YES"
Next
Goto LABEL108
:LABEL079
GetAltUser INTEGER020
If (U_Sec == "0") Then
AnsiPos 5, 20
PrintLn STRING126
WaitFor "shit", STRING059, 3
Hangup
Endif
:LABEL080
Select Case (STRING074)
Case "L"
AnsiPos 7, 3
Print STRING039 + STRING139
AnsiPos 7, INTEGER025 + 1
Print " "
AnsiPos 7, INTEGER025 + 2
Print " "
AnsiPos 7, INTEGER025 + 1
If (STRING072 == "") InputStr STRING129, STRING068, "", 12, Mask_Pwd() , 8 + 1
Case "D"
FreshLine
InputStr STRING129, STRING068, "", 12, Mask_Pwd(), 8 + 1
End Select
If ((STRING068 <> U_Pwd) && (STRING074 == "L")) Then
AnsiPos 7, 8
DispText 92, 2048
INTEGER007 = INTEGER007 + 1
If (INTEGER007 == 3) Then
If (ReadLine(PCBDat(), 196) == -1) Then
DispText 595, 2048 + 64
PromptStr 596, STRING104, 1, "YyNy", 4 + 8
If (STRING104 == YesChar()) Then
STRING141 = YesChar()
Goto LABEL100
Goto LABEL081
Endif
Hangup
:LABEL081
Goto LABEL082
Endif
Hangup
Endif
:LABEL082
Goto LABEL080
Endif
If ((STRING068 <> U_Pwd) && (STRING074 <> "L")) Then
FreshLine
DispText 92, 2048
INTEGER007 = INTEGER007 + 1
If (INTEGER007 == 3) Then
If (ReadLine(PCBDat(), 196) == -1) Then
DispText 595, 0 + 64
PromptStr 596, STRING104, 1, "YyNy", 4 + 8
If (STRING104 == YesChar()) Then
STRING141 = YesChar()
Goto LABEL100
Goto LABEL083
Endif
Hangup
:LABEL083
Goto LABEL084
Endif
Hangup
Endif
:LABEL084
Goto LABEL080
Endif
If ((STRING087 == 6) && (U_Sec < STRING079)) Then
Goto LABEL108
Endif
If (STRING095 == NoChar()) Goto LABEL095
If (U_Sec >= STRING079) Goto LABEL095
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
FGet 1, STRING034
STRING035 = STRING034
FClose 1
Tokenize U_Name()
If (TokCount() == 3) Then
GetToken STRING046
GetToken STRING047
GetToken STRING048
STRING046 = Strip(STRING046, " ")
STRING048 = Strip(STRING048, " ")
STRING046 = Strip(STRING046, ".")
STRING048 = Strip(STRING048, ".")
STRING046 = Left(STRING046, 3)
STRING047 = Right(STRING048, 4)
Else
GetToken STRING046
GetToken STRING047
STRING046 = Strip(STRING046, " ")
STRING047 = Strip(STRING047, " ")
STRING046 = Strip(STRING046, ".")
STRING047 = Strip(STRING047, ".")
STRING046 = Left(STRING046, 3)
STRING047 = Right(STRING047, 4)
Endif
If (Exist(PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".vot")) Then
FOpen 2, PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".vot", 0, 0
:LABEL085
If (Ferr(2)) Goto LABEL086
FGet 2, STRING041
Tokenize STRING041
If (TokCount() == 4) Then
GetToken STRING042
GetToken STRING043
GetToken STRING044
GetToken STRING045
If (STRING045 == "Y") Inc INTEGER011
If (STRING045 == "N") Inc INTEGER012
If (INTEGER011 >= STRING050) Goto LABEL086
If (INTEGER012 >= STRING051) Goto LABEL086
Endif
If (TokCount() == 3) Then
GetToken STRING042
GetToken STRING043
GetToken STRING044
If (STRING044 == "Y") Inc INTEGER011
If (STRING044 == "N") Inc INTEGER012
If (INTEGER011 >= STRING050) Goto LABEL086
If (INTEGER012 >= STRING051) Goto LABEL086
Endif
If (TokCount() == 2) Then
GetToken STRING042
GetToken STRING043
If (STRING043 == "Y") Inc INTEGER011
If (STRING043 == "N") Inc INTEGER012
If (INTEGER011 >= STRING050) Goto LABEL086
If (INTEGER012 >= STRING051) Goto LABEL086
Endif
Goto LABEL085
:LABEL086
FClose 2
STRING037 = INTEGER011
STRING038 = INTEGER012
AnsiPos 7, 4
PrintLn Space(43)
AnsiPos 7, 5
PrintLn Space(43)
AnsiPos 7, 6
PrintLn Space(43)
AnsiPos 7, 7
PrintLn Space(43)
AnsiPos 7, 8
PrintLn Space(43)
AnsiPos 7, 5
PrintLn "" + U_Name() + "@POS:25@" + "Your Current Stats"
AnsiPos 7, 6
PrintLn "You Need " + STRING050 + " Votes to gain Access to the Board"
AnsiPos 7, 7
PrintLn " Votes for You> " + STRING037
AnsiPos 7, 8
PrintLn " Votes against You> " + STRING038
Newlines 4
If (INTEGER011 >= STRING050) Goto LABEL087
If (INTEGER012 >= STRING051) Goto LABEL091
Goto LABEL095
:LABEL087
U_Sec = STRING049
PutUser
AnsiPos 6, 14
PrintLn "@X0EYou have been accepted as a @X0CUSER @X0Eon this Board@X07"
Newlines 4
Wait
FClose 1
FClose 2
FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
:LABEL088
If (Ferr(1)) Goto LABEL090
FGet 1, STRING036
If (STRING036 == "") Goto LABEL090
If (STRING036 == U_Name()) Then
FAppend 3, PPEPath() + "accept.log", 1, 0
FPutLn 3, STRING036
FClose 3
Goto LABEL089
Endif
FPutLn 2, STRING036
:LABEL089
Goto LABEL088
:LABEL090
FClose 1
FClose 2
Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
Delete PPEPath() + "APPS\waiting.tmp"
If (Exist(PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".vot")) Delete PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".vot"
If (Exist(PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".grp")) Delete PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".grp"
If (Exist(PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".cmt")) Delete PPEPath() + "apps\" + STRING046 + "_" + STRING047 + ".cmt"
For STRING060 = STRING035 To 1 Step -1
If (Exist(PPEPath() + "apps\" + STRING046 + "_" + STRING047 + "." + STRING060)) Delete PPEPath() + "apps\" + STRING046 + "_" + STRING047 + "." + STRING060
Next
Goto LABEL095
:LABEL091
AnsiPos 8, 9
PrintLn "@X0CSorry but your Application has been Refused@X8C!!!!@X07"
Newlines 5
Wait
FClose 1
FClose 2
FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
:LABEL092
If (Ferr(1)) Goto LABEL094
FGet 1, STRING036
If (STRING036 == "") Goto LABEL094
If (STRING036 == U_Name()) Then
FAppend 3, PPEPath() + "reject.log", 1, 0
FPutLn 3, STRING036
FClose 3
Goto LABEL093
Endif
FPutLn 2, STRING036
:LABEL093
Goto LABEL092
:LABEL094
FClose 2
FClose 1
Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
Delete PPEPath() + "APPS\waiting.tmp"
If (STRING028 == YesChar()) DelUser
U_Sec = STRING029
PutUser
If (STRING027 == YesChar()) Hangup
Endif
:LABEL095
If (STRING095 == NoChar()) Goto LABEL096
If (U_Sec < STRING079) Then
AnsiPos 8, 9
PrintLn STRING111
Newlines 7
Wait
Goto LABEL001
Endif
:LABEL096
If (STRING074 == "L") Then
AnsiPos 7, 4
If (BOOLEAN002 == 0) PrintLn Space(47)
AnsiPos 7, 4
If (BOOLEAN002 == 0) PrintLn STRING110
AnsiPos 7, 5
If (BOOLEAN002 == 0) PrintLn Space(47)
AnsiPos 7, 6
If (BOOLEAN002 == 0) PrintLn Space(47)
AnsiPos 7, 6
If (BOOLEAN002 == 0) PrintLn STRING112 + " " + STRING065 + "@X07"
AnsiPos 7, 7
If (BOOLEAN002 == 0) PrintLn Space(47)
AnsiPos 7, 8
If (BOOLEAN002 == 0) PrintLn Space(47)
AnsiPos 20, 20
Wait
STRING087 = ""
Goto LABEL108
Else
FreshLine
If (BOOLEAN002 == 0) PrintLn STRING110
FreshLine
If (BOOLEAN002 == 0) PrintLn STRING112 + " " + STRING065 + "@X07"
Newline
Wait
Goto LABEL108
:LABEL097
DefColor
Cls
PrintLn "@X0EGoodbye from " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + "@X0F Matrix!"
Log " User logged out via MATRIX at " + Time(), 0
Hangup
:LABEL098
STRING040 = YesChar()
Gosub LABEL018
:LABEL099
RdUNet PcbNode()
WrUNet PcbNode(), "E", "Unknown", "THT", PPEName(), ""
DefColor
Cls
If (INTEGER017 == 1) Then
KbdStuff "1" + Chr(13)
Else
DispFile PPEPath() + "sysops.dsp", 0
PrintLn " @X08 D@X07e@X0Ffault will Be (@X071@X08)"
For STRING060 = 1 To INTEGER017
PrintLn "@X0F" + STRING060 + "@X08. @X0F" + TSTRING067(STRING060)
Next
Endif
STRING053 = 1
Input "@X0F[@X0C@SYSTIME@@X0F] @X0EMATRIX Mail Command? _", STRING053
If ((STRING053 < 1) || (STRING053 > INTEGER017)) Goto LABEL099
Newlines 2
STRING054 = ""
InputStr STRING080, STRING054, "", 20, Mask_Ascii(), 2 + 8
If (STRING054 == "") Goto LABEL001
STRING055 = ""
Newlines 2
InputStr STRING081, STRING055, "", 20, Mask_Ascii(), 2
If (STRING055 == "") Goto LABEL001
:LABEL100
If (STRING141 == YesChar()) Then
STRING053 = "1"
STRING054 = STRING103
STRING055 = "Forgot My Passsword"
Endif
Cls
RdUNet PcbNode()
WrUNet PcbNode(), "E", STRING054, "THT", PPEName(), ""
STRING091 = ReadLine(PCBDat(), 109)
DispFile PPEPath() + "message.dsp", 0
AnsiPos 3, 2
PrintLn "@X04To : " + "@X0E" + """" + TSTRING067(STRING053) + """"
AnsiPos 32, 2
PrintLn "@X0F" + STRING091
AnsiPos 3, 3
PrintLn "@X04From @X0F: " + """" + STRING054 + """"
AnsiPos 32, 3
PrintLn "@X0ESubject @X0F: " + STRING055
FClose 1
FAppend 1, PPEPath() + PPEName() + String(PcbNode()) + ".mal", 1, 0
BOOLEAN001 = 0
AnsiPos 1, 6
INTEGER016 = 6
:LABEL101
If (BOOLEAN001) Goto LABEL102
STRING056 = ""
InputStr "_", STRING056, "", 78, Mask_Ascii(), 512 + 256
Inc INTEGER016
If (INTEGER016 >= 23) Then
Gosub LABEL107
Endif
If (Upper(STRING056) == "/A") Then
BOOLEAN001 = 1
FClose 1
Endif
If (Upper(STRING056) == "/S") Then
BOOLEAN001 = 1
PrintLn "Sending Message to " + TSTRING067(STRING053)
FClose 1
Message INTEGER008, TSTRING067(STRING053), STRING054, STRING055, "R", 0, 0, 0, PPEPath() + PPEName() + String(PcbNode()) + ".mal"
Endif
FPutLn 1, STRING056
Goto LABEL101
:LABEL102
If (STRING141 == YesChar()) Hangup
Goto LABEL001
:LABEL103
TIME001 = ReadLine(PCBDat(), 189)
TIME002 = ReadLine(PCBDat(), 190)
If ((Time() > TIME001) || (Time() < TIME002)) Then
INTEGER007 = INTEGER007 + 1
If (INTEGER007 > STRING092) Then
PrintLn
PrintLn STRING066
Hangup
Endif
DefColor
If (STRING074 == "L") Then
Cls
DispFile PPEPath() + PPEName() + ".dsp", 0
AnsiPos 7, 4
STRING057 = ""
Input STRING114, STRING057
If (STRING057 == "") Goto LABEL001
RdUNet PcbNode()
WrUNet PcbNode(), "P", "UnKnown", "THT", PPEName(), ""
PageOn
AnsiPos 7, 6
Print "Page ends in 10 seconds"
Else
FreshLine
STRING057 = ""
Input STRING114, STRING057
If (STRING057 == "") Goto LABEL001
PageOn
FreshLine
Print "Page ends in 10 seconds"
Endif
For STRING060 = 1 To 10
Print "."
Sound 110
Delay 2
Sound 220
Delay 2
Sound 440
Delay 2
Sound 880
Delay 2
Sound 110
Delay 2
Sound 220
Delay 2
Sound 440
Delay 2
Sound 880
Delay 2
Sound 0
Delay 10
If (Inkey() == " ") Then
Chat
Goto LABEL001
Endif
Next
INTEGER006 = INTEGER006 + 1
If (INTEGER006 > STRING092) BOOLEAN001 = 1
Else
DefColor
Cls
DispText 128, 0 + 64
PromptStr 571, STRING104, 1, "YyNy", 4 + 8
If (STRING104 == YesChar()) Goto LABEL099
Endif
Endif
Goto LABEL002
:LABEL104
Goto LABEL001
:LABEL105
DispText 117, 2048
Return
:LABEL106
Call STRING083
Wait
Goto LABEL001
:LABEL107
INTEGER015 = 7
For STRING060 = 1 To 17
STRING124 = ScrText(1, INTEGER015, 78, 1)
AnsiPos 1, INTEGER015 - 1
Print STRING124
Inc INTEGER015
Next
AnsiPos 1, INTEGER015 - 2
Print Space(77) + Chr(13)
Return
:LABEL108
If (!(INTEGER010 == S2I(STRING140, 34))) Delay 30
Tokenize STRING103
INTEGER009 = ReadLine(PCBDat(), 195)
If (INTEGER009 == -1) Then
If (STRING087 == 3) Then
KbdStuff STRING103 + Chr(13) + Chr(13) + Chr(13)
Newline
Wait
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
Goto LABEL109
Endif
If (TokCount() == 1) Then
KbdStuff STRING103 + Chr(13) + Chr(13) + Chr(13)
Newline
Wait
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
Goto LABEL109
Endif
KbdStuff STRING103 + Chr(13) + Chr(13) + STRING068 + Chr(13)
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
Endif
:LABEL109
If (INTEGER009 == 0) Then
If (STRING087 == 3) Then
KbdStuff STRING103 + Chr(13) + Chr(13)
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
Goto LABEL110
Endif
If (TokCount() == 1) Then
KbdStuff STRING103 + Chr(13) + Chr(13)
If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
Endif
Endif
:LABEL110
If (STRING087 <> 3) Then
KbdStuff STRING103 + Chr(13) + STRING068 + Chr(13)
Endif
STRING137 = " <<THT>> Compressed PPE / Max (c) THT SoftWare 1994 "
Endif
Endif
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 16 Cls
; 13 ClrEol
; 14 Wait
; 1 Color
; 392 Goto
; 445 Let
; 260 Print
; 71 PrintLn
; 301 If
; 17 DispFile
; 3 Input
; 9 FCreate
; 20 FOpen
; 8 FAppend
; 60 FClose
; 77 FGet
; 2 FPut
; 38 FPutLn
; 4 StartDisp
; 12 Hangup
; 2 PutUser
; 12 DefColor
; 18 Delete
; 1 DelUser
; 2 AdjTime
; 2 Log
; 28 InputStr
; 4 InputYN
; 35 Gosub
; 10 Return
; 6 PromptStr
; 14 Delay
; 58 Inc
; 3 Dec
; 9 Newline
; 7 Newlines
; 8 Tokenize
; 35 GetToken
; 10 DispText
; 9 KbdStuff
; 2 Call
; 5 KbdFile
; 1 WaitFor
; 6 RdUNet
; 6 WrUNet
; 357 AnsiPos
; 30 FreshLine
; 2 Message
; 1 SaveScrn
; 3 RestScrn
; 9 Sound
; 1 Chat
; 2 PageOn
; 1 FDefIn
; 7 FDGet
; 2 Copy
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 8 -
; 776 +
; 8 -
; 236 ==
; 23 <>
; 28 <
; 22 <=
; 7 >
; 48 >=
; 185 !
; 74 &&
; 44 ||
; 5 Len(
; 8 Upper()
; 10 Left()
; 13 Right()
; 13 Space()
; 10 Ferr()
; 331 Chr()
; 2 InStr()
; 1 Abort()
; 1 RTrim()
; 2 Random()
; 1 Date()
; 4 Time()
; 5 U_Name()
; 14 NoChar()
; 36 YesChar()
; 1 StripAtx()
; 3 Replace()
; 241 Strip()
; 3 Inkey()
; 20 String()
; 5 Mask_Pwd()
; 20 Mask_Ascii()
; 13 PCBDat()
; 91 PPEPath()
; 32 PcbNode()
; 14 ReadLine()
; 32 Exist()
; 9 S2I()
; 1 Carrier()
; 2 GetY()
; 2 Psa()
; 32 PPEName()
; 16 TokCount()
; 2 U_RecNum()
; 8 ScrText()
; 1 ErrCorrect()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WRDABCdH
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; D - Delete user ■ 5
; Program is deleting account(s)... Check!
; ■ Search for : DELUSER
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
; B - Brute hangup ■ 1
; Program hangup without notification. This may be a good way to
; disconnect a user, but if used randomly, may be very nasty
; ■ Search for : HANGUP, DTROFF
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
; 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()
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 19 For/Next
; 1 While/EndWhile
; 122 If/Then or If/Then/Else
; 3 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
(.txt)
(.txt)