home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TICKLE10.ZIP
/
TKL.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-01-03
|
16KB
|
893 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Boolean BOOLEAN011
Boolean BOOLEAN012
Boolean BOOLEAN013
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Real REAL001
Real REAL002
Real REAL003
String TSTRING001(49)
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String TSTRING011(24)
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
Int INT001
Int INT002
Int INT003
Int INT004
Int INT005
Int INT006
Int INT007
Int INT008
Int INT009
Int INT010
Int INT011
Int INT012
Int INT013
Int INT014
Int INT015
Int INT016
Int INT017
Int INT018
;------------------------------------------------------------------------------
If ((STRING002 == "") || (STRING002 == "MENU")) BOOLEAN009 = 1
STRING009 = PPEPath() + LTrim(String(PcbNode()), " ") + ".FLG"
If (Exist(STRING009)) Delete STRING009
INT003 = 1
Gosub LABEL012
If (((U_BdlDay() == 0) && (FlagCnt() < 2)) && (STRING002 <> "MENU")) Then
Gosub LABEL005
End
Endif
STRING023 = PPEPath() + "TKLTEXT"
Gosub LABEL039
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING023, 2)
Newline
PrintLn ReadLine(STRING023, 3)
Newline
Log "Cannot open TICKLE.DBF (DataBase) - Aborting", 0
Wait
Else
Gosub LABEL015
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING023, 4)
Newline
PrintLn ReadLine(STRING023, 3)
Newline
Log "Cannot open TICKLE.NDX (Index) - Aborting", 0
Wait
Else
Gosub LABEL004
If (STRING003 == "") Log "'Tickle File' entered by user", 0
If ((STRING002 == "MENU") || (STRING003 <> "")) Gosub LABEL011
Goto LABEL013
:LABEL001
If ((InStr(STRING005, "-") == 0) || (InStr(STRING005, "-") == 1)) Return
STRING015 = STRING005
STRING005 = ""
Tokenize STRING015
If (TokCount() == 0) Return
For INT007 = 1 To Len(STRING015)
STRING016 = GetToken()
If (STRING016 == "") Break
If (InStr(STRING016, "-") == 0) Then
STRING005 = STRING005 + STRING016 + " "
Continue
Endif
STRING009 = Mid(STRING016, 1, InStr(STRING016, "-") - 1)
If (STRING009 <> "") STRING010 = Mid(STRING016, InStr(STRING016, "-") + 1, Len(STRING016))
INT008 = S2I(STRING009, 10)
INT009 = S2I(STRING010, 10)
If (INT008 < 1) Then
If (INT008 == 0) STRING009 = STRING016
Newline
PrintLn ReadLine(STRING023, 26), STRING009, ReadLine(STRING023, 27)
Newline
Continue
Endif
If (INT009 > 24) Then
Newline
PrintLn ReadLine(STRING023, 26), INT009, ReadLine(STRING023, 27)
Newline
Continue
Endif
If (INT009 >= INT008) Then
For INT004 = INT008 To INT009
STRING005 = STRING005 + LTrim(I2S(INT004, 10), " ") + " "
Next
Continue
Endif
Newline
PrintLn ReadLine(STRING023, 5), STRING016, ReadLine(STRING023, 6)
Next
Return
:LABEL002
STRING013 = PPEPath() + LTrim(String(PcbNode()), " ") + ".FLG"
If (Exist(STRING013)) Then
FOpen 1, STRING013, 1, 0
Else
FCreate 1, STRING013, 1, 0
Endif
BOOLEAN005 = 1
STRING009 = Chr(13) + "FLAG "
For INT006 = 1 To INT003 - 1
STRING009 = STRING009 + TSTRING011(INT006) + " "
BOOLEAN005 = 0
If (Len(STRING009) > 230) Then
FPutLn 1, STRING009
STRING009 = Chr(13) + "FLAG "
Endif
Next
FPutLn 1, STRING009
FClose 1
Return
:LABEL003
INT002 = 0
For INT006 = 2 To 25
If (DGet(0, DName(0, INT006)) == " ") Then
INT002 = INT006 - 1
Break
Endif
Next
Return
:LABEL004
STRING006 = Upper(RTrim(U_Name(), " "))
DSeek 0, STRING006
If (DChkStat(0) == 0) Then
Gosub LABEL003
Else
SPrintLn ReadLine(STRING023, 7)
DNew 0
DPut 0, "usr_name", STRING006
For INT006 = 1 To 24
STRING007 = "file" + Trim(String(INT006), " ")
STRING012 = "desc" + Trim(String(INT006), " ")
DPut 0, STRING007, " "
DPut 0, STRING012, " "
Next
DAdd 0
INT002 = 1
Endif
Return
:LABEL005
Newline
If (STRING003 == "138") Then
DispFile PPEPath() + "pcbt138", 4
Log "Insufficient time remaining to download (@OPTEXT@)", 0
Endif
If (STRING003 == "159") Then
DispFile PPEPath() + "pcbt159", 4
Log "(@OPTEXT@) Download bytes left available are @BYTESLEFT@", 0
Endif
If (STRING003 == "668") Then
DispFile PPEPath() + "pcbt668", 4
Log "Your Download:Upload ratio must remain below: @OPTEXT@", 0
Endif
If (STRING003 == "669") Then
DispFile PPEPath() + "pcbt669", 4
Log "Downloading @OPTEXT@ would exceed your file ratio.", 0
Endif
If (STRING003 == "670") Then
DispFile PPEPath() + "pcbt670", 4
Log "Downloading @OPTEXT@ would exceed your byte ratio.", 0
Endif
If (STRING003 == "674") Then
DispFile PPEPath() + "pcbt674", 4
Log "Downloading @OPTEXT@ would exceed your file limit.", 0
Endif
If (STRING003 == "675") Then
DispFile PPEPath() + "pcbt675", 4
Log "Downloading @OPTEXT@ would exceed your byte limit.", 0
Endif
Newline
Return
:LABEL006
DispFile PPEPath() + "info", 4
BOOLEAN001 = 1
Return
:LABEL007
Newline
DispFile PPEPath() + "help", 4
BOOLEAN007 = 1
Return
:LABEL008
If (BOOLEAN002) Goto LABEL009
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL010
:LABEL009
Newline
:LABEL010
STRING005 = ""
STRING004 = ReadLine(STRING023, 8)
InputStr STRING004, STRING005, 14, 2, Mask_Ascii(), 256 + 8
If (STRING005 == "") Then
Newline
Return
Endif
INT007 = S2I(STRING005, 10)
STRING005 = String(INT007)
If ((INT007 > 24) || (INT007 < 1)) Then
Newline
PrintLn ReadLine(STRING023, 9)
Newline
Return
Else
STRING012 = "desc" + Trim(STRING005, " ")
STRING009 = "file" + Trim(STRING005, " ")
Endif
If (DGet(0, STRING009) <> " ") Then
BOOLEAN008 = 1
Gosub LABEL019
BOOLEAN008 = 0
Else
Newline
PrintLn ReadLine(STRING023, 58)
Endif
Newline
Return
:LABEL011
STRING005 = ""
If (!BOOLEAN001 && (STRING003 <> "")) Then
Gosub LABEL003
If (INT002 == 0) Goto LABEL013
Gosub LABEL005
Gosub LABEL006
STRING004 = ReadLine(STRING023, 10)
InputStr STRING004, STRING005, 14, 1, Mask_Alpha(), 256 + 8
If (STRING005 == "Y") Then
STRING005 = "ADD VIOLATION"
BOOLEAN009 = 1
Gosub LABEL022
Endif
Else
If (!BOOLEAN007 && (STRING003 == "")) Gosub LABEL007
STRING004 = ReadLine(STRING023, 11)
InputStr STRING004, STRING005, 14, 1, Mask_Alpha(), 256 + 8
If (STRING005 == "A") Then
Gosub LABEL022
If (STRING003 <> "") Goto LABEL013
If (STRING005 == "") Goto LABEL011
Endif
If (STRING005 == "") Goto LABEL013
If (((BOOLEAN002 && (STRING005 <> "D")) && (STRING005 <> "F")) && (STRING005 <> "E")) BOOLEAN002 = 0
If (STRING005 == "D") Gosub LABEL030
If (STRING005 == "E") Gosub LABEL008
If (STRING005 == "F") Gosub LABEL033
If (STRING005 == "H") Gosub LABEL007
If (STRING005 == "L") Then
Gosub LABEL037
BOOLEAN002 = 1
Endif
If (STRING005 == "W") Gosub LABEL038
Goto LABEL011
:LABEL012
INT001 = TokCount()
Select Case (INT001)
Case 1
STRING002 = "MENU"
Case 2
STRING002 = GetToken()
STRING003 = GetToken()
Case 3
STRING002 = GetToken()
STRING003 = GetToken()
STRING009 = GetToken()
INTEGER001 = S2I(STRING009, 10)
Case Else
SPrintLn ReadLine(STRING023, 12)
Log "Too few or too many parameters in TKL.PPE Command Line", 0
INT001 = 1
End Select
Return
Endif
Endif
Endif
:LABEL013
If (BOOLEAN003 || BOOLEAN006) Gosub LABEL042
If (BOOLEAN006) Then
Gosub LABEL002
KbdFile STRING013
Log "User Flagged Files from TKL for D/L", 0
Endif
DnCloseAll 0
DClose 0
Gosub LABEL014
If (BOOLEAN013) Then
Newline
PrintLn "@X0ERegistered to: @X0E", STRING005, "@X07"
Else
PrintLn " **********************************************"
Newline
PrintLn " [Unregistered Version] - Pausing for 5 Seconds"
Newline
PrintLn " Help support the Shareware Concept"
Newline
PrintLn " Please ask your SysOp to Register Today"
Newline
PrintLn " **********************************************"
Delay 90
Endif
End
:LABEL014
FOpen 3, PPEPath() + "TKL.KEY", 0, 0
FGet 3, STRING009
FGet 3, STRING024
STRING009 = RTrim(STRING009, " ")
STRING009 = Mid(STRING009, InStr(STRING009, ":") + 1, Len(STRING009) - InStr(STRING009, ":"))
STRING005 = Trim(STRING009, " ")
STRING009 = Mid(STRING024, 3, Len(STRING024) - 2)
STRING024 = Trim(STRING009, " ")
For INT005 = 1 To Len(STRING005)
INT018 = S2I(Mid(STRING005, INT005, 1), 36) - 9
INTEGER003 = INTEGER003 + INT018
Next
If (INTEGER003 < 0) INTEGER003 = INTEGER003 * -1
If (INTEGER003 == 0) INTEGER003 = INTEGER003 + 384
INTEGER003 = INTEGER003 * 7914
STRING009 = LTrim(String(INTEGER003), " ")
If (STRING009 == STRING024) BOOLEAN013 = 1
FClose 3
Return
:LABEL015
If (Exist(PPEPath() + "tickle.ndx")) Goto LABEL016
DnCreate 0, PPEPath() + "tickle", "usr_name"
Goto LABEL017
:LABEL016
DnOpen 0, PPEPath() + "tickle"
:LABEL017
Return
:LABEL018
STRING008 = LTrim(String(INT002), " ")
STRING007 = "file" + STRING008
STRING012 = "desc" + STRING008
Return
:LABEL019
If (BOOLEAN008) Goto LABEL020
STRING014 = ""
STRING004 = ReadLine(STRING023, 13)
InputStr STRING004, STRING014, 14, 1, "YN", 8192 + 16384 + 256 + 8
Goto LABEL021
:LABEL020
STRING014 = "Y"
:LABEL021
If (STRING014 == "Y") Then
STRING014 = ""
Newline
STRING004 = ReadLine(STRING023, 14)
InputStr STRING004, STRING014, 14, 15, Mask_Ascii(), 4 + 2
If (STRING014 == "") Return
DPut 0, STRING012, STRING014
Newline
Endif
Return
:LABEL022
If (STRING005 <> "ADD VIOLATION") Then
Gosub LABEL003
If (INT002 == 0) Then
Newline
PrintLn ReadLine(STRING023, 15)
Newline
Return
Endif
Endif
If (BOOLEAN009) Then
INT004 = 0
If (STRING005 <> "ADD VIOLATION") Then
Newline
STRING005 = ""
STRING004 = ReadLine(STRING023, 16)
InputStr STRING004, STRING005, 14, 100, Mask_Ascii(), 256 + 8
Newline
If (STRING005 == "") Return
Tokenize STRING005
INT004 = TokCount()
Goto LABEL023
Endif
STRING005 = STRING002
:LABEL023
If (INT004 > 0) Then
INT012 = CurConf()
STRING010 = LTrim(String(INT012), " ")
STRING010 = PPEPath() + "TKL" + STRING010 + ".CFG"
If (Exist(STRING010)) Then
FOpen 3, STRING010, 0, 0
FGet 3, STRING017
FClose 3
STRING017 = Trim(STRING017, " ")
FOpen 3, STRING017, 0, 0
BOOLEAN011 = 1
Endif
BOOLEAN010 = 0
For INT005 = 1 To INT004
STRING002 = GetToken()
STRING002 = Trim(STRING002, " ")
If (Len(STRING002) > 12) Then
PrintLn ReadLine(STRING023, 17), STRING002
PrintLn ReadLine(STRING023, 18)
Continue
Endif
If (BOOLEAN011) Then
Frewind 3
STRING018 = Left(STRING002, 1)
BOOLEAN010 = 0
Gosub LABEL026
Goto LABEL024
Endif
BOOLEAN010 = 1
:LABEL024
If (BOOLEAN010) Then
STRING007 = "file" + LTrim(String(INT002), " ")
STRING012 = "desc" + LTrim(String(INT002), " ")
DPut 0, STRING007, STRING002
PrintLn ReadLine(STRING023, 19), STRING002
Gosub LABEL019
Newline
INT007 = INT002
Gosub LABEL003
If ((INT002 == 0) && (INT007 == 24)) Then
Newline
PrintLn ReadLine(STRING023, 20)
Newline
Break
Endif
Continue
Endif
PrintLn ReadLine(STRING023, 21), STRING002, ReadLine(STRING023, 22)
Newline
Next
If (BOOLEAN011) FClose 3
INT004 = 0
Log "User added file(s) to the TKL database", 0
Goto LABEL025
Endif
STRING007 = "file" + LTrim(String(INT002), " ")
STRING012 = "desc" + LTrim(String(INT002), " ")
DPut 0, STRING007, STRING002
Gosub LABEL019
Log "User added a file to the TKL database", 0
Endif
:LABEL025
Newline
Return
:LABEL026
FGet 3, STRING020
If (Ferr(3)) Return
If (Left(STRING020, 1) <> "%") Then
STRING009 = STRING020 + STRING002
If (Exist(STRING009)) Then
BOOLEAN010 = 1
Return
Endif
Else
STRING020 = Mid(STRING020, 2, Len(STRING020))
FOpen 4, STRING020, 0, 0
FRead 4, INT012, 2
If (STRING018 < "A") STRING018 = "A"
If (STRING018 > "Z") STRING018 = "Z"
INT010 = S2I(STRING018, 36) - 9
For INT011 = 1 To 26
FRead 4, INT013, 2
If (INT010 == INT011) Then
FRead 4, INT014, 2
Break
Endif
Next
If (STRING018 == "Z") INT014 = INT012 + 1
If (STRING018 == "A") INT013 = 0
BOOLEAN012 = 0
BOOLEAN010 = 0
INT017 = INT014
INT016 = INT013 - 1
:LABEL027
If (BOOLEAN012) Goto LABEL028
REAL001 = INT017
REAL002 = INT016
REAL001 = REAL001 / 2
REAL002 = REAL002 / 2
REAL003 = REAL001 + REAL002 + 0.5
INT015 = REAL003
INTEGER002 = (INT015 - 1) * 13 + 128
FSeek 4, INTEGER002, 0
FRead 4, STRING021, 8
FRead 4, STRING022, 3
STRING021 = RTrim(STRING021, " ")
STRING022 = RTrim(STRING022, " ")
STRING019 = STRING021 + "." + STRING022
If (STRING019 == STRING002) Then
BOOLEAN010 = 1
BOOLEAN012 = 1
ElseIf (INT017 - INT016 < 2) Then
BOOLEAN012 = 1
ElseIf (STRING019 < STRING002) Then
INT016 = INT015
ElseIf (STRING019 > STRING002) Then
INT017 = INT015
Endif
Goto LABEL027
:LABEL028
FClose 4
Endif
If (BOOLEAN010) Goto LABEL029
Goto LABEL026
Goto LABEL030
:LABEL029
Return
:LABEL030
If (BOOLEAN002) Goto LABEL031
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL032
:LABEL031
Newline
:LABEL032
STRING005 = ""
PrintLn ReadLine(STRING023, 23)
PrintLn ReadLine(STRING023, 24)
STRING004 = ReadLine(STRING023, 25)
InputStr STRING004, STRING005, 14, 50, Mask_Ascii(), 256
If (STRING005 == "") Then
Newline
Return
Endif
Gosub LABEL001
Tokenize STRING005
INT004 = TokCount()
Newline
For INT006 = 1 To INT004
STRING009 = GetToken()
STRING009 = Trim(STRING009, " ")
If ((S2I(STRING009, 10) < 25) && (S2I(STRING009, 10) > 0)) Then
STRING010 = STRING009
STRING009 = "file" + Trim(STRING009, " ")
STRING010 = "desc" + Trim(STRING010, " ")
DPut 0, STRING009, " "
DPut 0, STRING010, " "
BOOLEAN003 = 1
Continue
Endif
STRING010 = LTrim(String(STRING009), " ")
PrintLn ReadLine(STRING023, 26), STRING010, ReadLine(STRING023, 27)
Next
If (INT004 > 0) Log "User Deleted file(s) from 'Tickle File'", 0
Newline
Return
:LABEL033
If (BOOLEAN002) Goto LABEL034
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL035
:LABEL034
Newline
:LABEL035
STRING005 = ""
PrintLn ReadLine(STRING023, 23)
PrintLn ReadLine(STRING023, 24)
STRING004 = ReadLine(STRING023, 28)
InputStr STRING004, STRING005, 14, 100, Mask_Ascii(), 256
Newline
If (STRING005 == "") Return
Gosub LABEL001
Tokenize STRING005
INT004 = TokCount()
For INT006 = 1 To INT004
StartDisp 1
STRING009 = GetToken()
If ((S2I(STRING009, 10) < 25) && (S2I(STRING009, 10) > 0)) Then
STRING010 = STRING009
STRING009 = "file" + Trim(STRING009, " ")
STRING012 = "desc" + Trim(STRING010, " ")
If (DGet(0, STRING009) <> " ") Then
TSTRING011(INT003) = Trim(DGet(0, STRING009), " ")
DPut 0, STRING009, " "
DPut 0, STRING012, " "
Inc INT003
BOOLEAN006 = 1
Goto LABEL036
Endif
PrintLn ReadLine(STRING023, 40), STRING010
:LABEL036
Continue
Endif
STRING010 = LTrim(String(STRING009), " ")
PrintLn ReadLine(STRING023, 26), STRING010, ReadLine(STRING023, 27)
Next
If (BOOLEAN006) PrintLn ReadLine(STRING023, 29)
StartDisp 2
Newline
Return
:LABEL037
StartDisp 1
Newlines 2
PrintLn ReadLine(STRING023, 31)
PrintLn ReadLine(STRING023, 32)
PrintLn ReadLine(STRING023, 33)
Newlines 2
PrintLn ReadLine(STRING023, 34)
PrintLn ReadLine(STRING023, 35)
For INT006 = 1 To 24
STRING009 = DGet(0, DName(0, INT006 + 1))
STRING012 = DGet(0, DName(0, INT006 + 25))
If (INT006 < 10) Print " "
Print "@X0F", INT006, ". @X03", STRING009
Print Space(2)
Print "@X02", STRING012
Print Space(2)
If (!INT006 % 2) Newline
Next
Newlines 2
StartDisp 2
BOOLEAN002 = 1
Return
:LABEL038
STRING005 = ""
Newline
STRING004 = ReadLine(STRING023, 36)
InputStr STRING004, STRING005, 14, 1, "YN", 8192 + 16384 + 256 + 8
If (STRING005 == "Y") Then
INT002 = 1
For INT006 = 1 To 24
Gosub LABEL018
DPut 0, STRING007, " "
DPut 0, STRING012, " "
Inc INT002
Next
Newline
PrintLn ReadLine(STRING023, 37)
Log "User DELETED ENTIRE 'Tickle File'", 0
Delay 36
Endif
Newline
Return
:LABEL039
If (Exist(PPEPath() + "tickle.dbf")) Goto LABEL040
TSTRING001(0) = "usr_name,C,25,0"
TSTRING001(1) = "file1,C,12,0"
TSTRING001(2) = "file2,C,12,0"
TSTRING001(3) = "file3,C,12,0"
TSTRING001(4) = "file4,C,12,0"
TSTRING001(5) = "file5,C,12,0"
TSTRING001(6) = "file6,C,12,0"
TSTRING001(7) = "file7,C,12,0"
TSTRING001(8) = "file8,C,12,0"
TSTRING001(9) = "file9,C,12,0"
TSTRING001(10) = "file10,C,12,0"
TSTRING001(11) = "file11,C,12,0"
TSTRING001(12) = "file12,C,12,0"
TSTRING001(13) = "file13,C,12,0"
TSTRING001(14) = "file14,C,12,0"
TSTRING001(15) = "file15,C,12,0"
TSTRING001(16) = "file16,C,12,0"
TSTRING001(17) = "file17,C,12,0"
TSTRING001(18) = "file18,C,12,0"
TSTRING001(19) = "file19,C,12,0"
TSTRING001(20) = "file20,C,12,0"
TSTRING001(21) = "file21,C,12,0"
TSTRING001(22) = "file22,C,12,0"
TSTRING001(23) = "file23,C,12,0"
TSTRING001(24) = "file24,C,12,0"
TSTRING001(25) = "desc1,C,15,0"
TSTRING001(26) = "desc2,C,15,0"
TSTRING001(27) = "desc3,C,15,0"
TSTRING001(28) = "desc4,C,15,0"
TSTRING001(29) = "desc5,C,15,0"
TSTRING001(30) = "desc6,C,15,0"
TSTRING001(31) = "desc7,C,15,0"
TSTRING001(32) = "desc8,C,15,0"
TSTRING001(33) = "desc9,C,15,0"
TSTRING001(34) = "desc10,C,15,0"
TSTRING001(35) = "desc11,C,15,0"
TSTRING001(36) = "desc12,C,15,0"
TSTRING001(37) = "desc13,C,15,0"
TSTRING001(38) = "desc14,C,15,0"
TSTRING001(39) = "desc15,C,15,0"
TSTRING001(40) = "desc16,C,15,0"
TSTRING001(41) = "desc17,C,15,0"
TSTRING001(42) = "desc18,C,15,0"
TSTRING001(43) = "desc19,C,15,0"
TSTRING001(44) = "desc20,C,15,0"
TSTRING001(45) = "desc21,C,15,0"
TSTRING001(46) = "desc22,C,15,0"
TSTRING001(47) = "desc23,C,15,0"
TSTRING001(48) = "desc24,C,15,0"
DCreate 0, PPEPath() + "tickle", 0, TSTRING001(BOOLEAN000)
Goto LABEL041
:LABEL040
DOpen 0, PPEPath() + "tickle", 0
:LABEL041
Return
:LABEL042
Newline
If (BOOLEAN004) Goto LABEL043
Print ReadLine(STRING023, 38)
BOOLEAN004 = 0
For INT006 = 2 To 25
STRING009 = DGet(0, DName(0, INT006))
If (STRING009 == " ") Then
For INT005 = INT006 + 1 To 25
STRING009 = DGet(0, DName(0, INT005))
STRING012 = DGet(0, DName(0, INT005 + 24))
If (STRING009 <> " ") Then
DPut 0, DName(0, INT006), STRING009
DPut 0, DName(0, INT006 + 24), STRING012
DPut 0, DName(0, INT005), " "
DPut 0, DName(0, INT006 + 25), " "
BOOLEAN004 = 1
Break
Continue
Endif
STRING016 = DName(0, INT006 + 25)
DPut 0, DName(0, INT006 + 25), " "
Next
Endif
If ((STRING009 == " ") && !BOOLEAN004) Break
Next
PrintLn ReadLine(STRING023, 39)
:LABEL043
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Wait
; 141 Goto
; 233 Let
; 6 Print
; 36 PrintLn
; 116 If
; 9 DispFile
; 1 FCreate
; 5 FOpen
; 5 FClose
; 4 FGet
; 2 FPutLn
; 4 StartDisp
; 1 Delete
; 16 Log
; 9 InputStr
; 34 Gosub
; 32 Return
; 2 Delay
; 2 Inc
; 48 Newline
; 3 Newlines
; 4 Tokenize
; 1 KbdFile
; 2 SPrintLn
; 1 Frewind
; 1 FSeek
; 5 FRead
; 1 DCreate
; 1 DOpen
; 1 DClose
; 1 DnCreate
; 1 DnOpen
; 1 DnCloseAll
; 1 DNew
; 1 DAdd
; 1 DSeek
; 17 DPut
;
;
; ■ Functions used :
;
; 1 -
; 3 *
; 2 /
; 1 %
; 90 +
; 11 -
; 53 ==
; 14 <>
; 24 <
; 14 <=
; 10 >
; 29 >=
; 82 !
; 39 &&
; 19 ||
; 10 Len(
; 1 Upper()
; 6 Mid()
; 2 Left()
; 2 Space()
; 1 Ferr()
; 2 Chr()
; 7 InStr()
; 12 LTrim()
; 4 RTrim()
; 14 Trim()
; 1 U_Name()
; 1 U_BdlDay()
; 14 String()
; 2 Mask_Alpha()
; 5 Mask_Ascii()
; 1 CurConf()
; 20 PPEPath()
; 2 PcbNode()
; 48 ReadLine()
; 9 GetToken()
; 6 Exist()
; 1 I2S()
; 10 S2I()
; 5 TokCount()
; 1 FlagCnt()
; 2 DErr()
; 12 DName()
; 9 DGet()
; 1 DChkStat()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 14 For/Next
; 0 While/EndWhile
; 52 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------