home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TICKLE10.ZIP
/
EDITOR.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-01-03
|
15KB
|
901 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
Boolean BOOLEAN014
Boolean BOOLEAN015
Boolean BOOLEAN016
Boolean BOOLEAN017
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
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 STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
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
;------------------------------------------------------------------------------
BOOLEAN008 = 1
BOOLEAN007 = 1
STRING016 = PPEPath() + "TKLTEXT"
Gosub LABEL039
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING016, 2)
Newline
PrintLn ReadLine(STRING016, 3)
Newline
Log "Cannot open TICKLE.DBF (DataBase) - Aborting", 0
Else
Gosub LABEL019
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING016, 4)
Newline
PrintLn ReadLine(STRING016, 3)
Newline
Log "Cannot open TICKLE.NDX (Index) - Aborting", 0
Else
Newlines 3
PrintLn ReadLine(STRING016, 41)
Newlines 2
Gosub LABEL011
Gosub LABEL016
Goto LABEL017
:LABEL001
If ((InStr(STRING005, "-") == 0) || (InStr(STRING005, "-") == 1)) Return
STRING014 = STRING005
STRING005 = ""
Tokenize STRING014
If (TokCount() == 0) Return
For INT006 = 1 To Len(STRING014)
STRING015 = GetToken()
If (STRING015 == "") Break
If (InStr(STRING015, "-") == 0) Then
STRING005 = STRING005 + STRING015 + " "
Continue
Endif
STRING009 = Mid(STRING015, 1, InStr(STRING015, "-") - 1)
If (STRING009 <> "") STRING010 = Mid(STRING015, InStr(STRING015, "-") + 1, Len(STRING015))
INT007 = S2I(STRING009, 10)
INT008 = S2I(STRING010, 10)
If (INT007 < 1) Then
If (INT007 == 0) STRING009 = STRING015
Newline
PrintLn ReadLine(STRING016, 26), STRING009, ReadLine(STRING016, 27)
Newline
Continue
Endif
If (INT008 > 24) Then
Newline
PrintLn ReadLine(STRING016, 26), INT008, ReadLine(STRING016, 27)
Newline
Continue
Endif
If (INT008 >= INT007) Then
For INT003 = INT007 To INT008
STRING005 = STRING005 + LTrim(I2S(INT003, 10), " ") + " "
Next
Continue
Endif
Newline
PrintLn ReadLine(STRING016, 5), STRING015, ReadLine(STRING016, 6)
Next
Return
:LABEL002
INT002 = 0
For INT005 = 2 To 25
If (DGet(0, DName(0, INT005)) == " ") Then
INT002 = INT005 - 1
Break
Endif
Next
Return
:LABEL003
If (DTop(0) == 0) Then
Newline
SPrintLn ReadLine(STRING016, 42)
Newline
Wait
Goto LABEL017
Else
For INT004 = 1 To DRecCount(0)
DGo 0, INT004
STRING009 = DGet(0, DName(0, 1))
If (BOOLEAN012) Goto LABEL004
If (InStr(STRING009, STRING005) > 0) Then
BOOLEAN013 = 1
Newline
PrintLn ReadLine(STRING016, 43), STRING009
Newline
STRING004 = ReadLine(STRING016, 44)
InputStr STRING004, STRING013, 14, 1, Mask_Alpha(), 8 + 16384 + 256
If ((STRING013 == "") || (STRING013 == "N")) Then
BOOLEAN009 = 1
Break
Endif
Endif
Continue
:LABEL004
If (INT004 < 10) Print " "
Print " @X0F", INT004, ". @X03", STRING009
Print Space(8)
If (INT004 % 2) Goto LABEL005
Newline
Inc INT009
:LABEL005
If (INT009 == 20) Then
STRING004 = ReadLine(STRING016, 45)
InputStr STRING004, STRING013, 14, 1, Mask_Alpha(), 8 + 16384 + 256
If (STRING013 == "N") Then
Break
Continue
Endif
INT009 = 0
Endif
Next
If (!BOOLEAN009) DGo 0, 1
Newline
Endif
Return
:LABEL006
DSeek 0, STRING006
If (DChkStat(0) == 0) Then
Newline
PrintLn ReadLine(STRING016, 46)
Newline
Gosub LABEL002
Else
Newline
PrintLn ReadLine(STRING016, 47)
Newline
Delay 18
INT002 = 32000
Endif
Return
DispFile PPEPath() + "info", 4
BOOLEAN001 = 1
Return
:LABEL007
Newline
DispFile PPEPath() + "help", 4
BOOLEAN005 = 1
Return
:LABEL008
If (BOOLEAN002) Goto LABEL009
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL010
:LABEL009
Newline
:LABEL010
STRING005 = ""
STRING004 = ReadLine(STRING016, 8)
InputStr STRING004, STRING005, 14, 2, Mask_Ascii(), 256 + 8
If (STRING005 == "") Then
Newline
Return
Endif
INT006 = S2I(STRING005, 10)
STRING005 = String(INT006)
If ((INT006 > 24) || (INT006 < 1)) Then
Newline
PrintLn ReadLine(STRING016, 9)
Newline
Return
Else
STRING011 = "desc" + Trim(STRING005, " ")
STRING009 = "file" + Trim(STRING005, " ")
Endif
If (DGet(0, STRING009) <> " ") Then
BOOLEAN006 = 1
Gosub LABEL023
BOOLEAN006 = 0
Else
Newline
PrintLn ReadLine(STRING016, 58)
Endif
Newline
Return
:LABEL011
BOOLEAN009 = 0
BOOLEAN010 = 0
BOOLEAN011 = 0
BOOLEAN012 = 0
BOOLEAN013 = 0
STRING005 = ""
DispFile PPEPath() + "USRMENU", 4 + 1
STRING004 = ReadLine(STRING016, 48)
InputStr STRING004, STRING005, 14, 1, Mask_Alpha(), 256 + 8 + 4 + 2
Select Case (STRING005)
Case "A"
BOOLEAN010 = 1
Case "B"
BOOLEAN011 = 1
Case "C"
BOOLEAN012 = 1
Case Else
Goto LABEL017
End Select
Newline
If (BOOLEAN012) Goto LABEL012
STRING005 = ""
If (BOOLEAN011) Then
STRING004 = ReadLine(STRING016, 49)
ElseIf (BOOLEAN010) Then
STRING004 = ReadLine(STRING016, 50)
Endif
InputStr STRING004, STRING005, 14, 25, Mask_Ascii(), 256 + 8 + 4 + 2
If (STRING005 == "") Then
Newline
Goto LABEL011
Return
Endif
:LABEL012
If (BOOLEAN010) Then
STRING005 = Trim(STRING005, " ")
Gosub LABEL003
ElseIf (BOOLEAN011) Then
STRING006 = STRING005 + Space(25 - Len(STRING005))
Gosub LABEL006
If (INT002 == 32000) Then
Return
Else
BOOLEAN009 = 1
Endif
ElseIf (BOOLEAN012) Then
StartDisp 1
INT009 = 0
Gosub LABEL003
StartDisp 2
Goto LABEL011
Endif
If (BOOLEAN009) Then
If (BOOLEAN011) Then
PrintLn ReadLine(STRING016, 51), STRING006
Else
If (BOOLEAN013) Goto LABEL013
PrintLn ReadLine(STRING016, 51), STRING009
Endif
:LABEL013
If (BOOLEAN013) Goto LABEL014
STRING010 = RTrim(STRING006, " ") + "'s"
STRING004 = ReadLine(STRING016, 52) + STRING010 + ReadLine(STRING016, 53)
Goto LABEL015
:LABEL014
STRING010 = RTrim(STRING009, " ") + "'s"
STRING004 = ReadLine(STRING016, 52) + STRING010 + ReadLine(STRING016, 53)
:LABEL015
InputStr STRING004, STRING005, 10, 1, Mask_Alpha(), 8 + 16384
If (STRING005 == "Y") Then
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL016
Else
Newline
Endif
Else
If (BOOLEAN013) Then
Newline
PrintLn ReadLine(STRING016, 54), STRING005
Newline
Else
Newline
PrintLn ReadLine(STRING016, 55), STRING005
Newline
Endif
Goto LABEL011
Endif
Newline
Return
:LABEL016
STRING005 = ""
STRING004 = ReadLine(STRING016, 56)
InputStr STRING004, STRING005, 14, 1, Mask_Alpha(), 256 + 8
If (STRING005 == "A") Then
Gosub LABEL026
If (STRING003 <> "") Goto LABEL017
If (STRING005 == "") Goto LABEL016
Endif
If (STRING005 == "") Goto LABEL017
If ((BOOLEAN002 && (STRING005 <> "D")) && (STRING005 <> "F")) BOOLEAN002 = 0
If (STRING005 == "D") Gosub LABEL034
If (STRING005 == "E") Gosub LABEL008
If (STRING005 == "H") Gosub LABEL007
If (STRING005 == "L") Then
Gosub LABEL037
BOOLEAN002 = 1
Endif
If (STRING005 == "W") Gosub LABEL038
If (STRING005 == "U") Then
Newline
Gosub LABEL011
Endif
Goto LABEL016
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(STRING016, 12)
Log "Too few or too many parameters in TKL.PPE Command Line", 0
INT001 = 1
End Select
Return
Endif
Endif
:LABEL017
DnCloseAll 0
DClose 0
Gosub LABEL018
If (BOOLEAN014) Then
Newline
PrintLn "@X0ERegistered to: @X0A", STRING005, "@X07"
Else
Newline
PrintLn " *************************************************"
Newline
PrintLn " [Unregistered Version] - Pausing for 5 Seconds"
Newline
PrintLn " Support the Shareware Concept and Register Today"
Newline
PrintLn " *************************************************"
Delay 90
Endif
End
:LABEL018
FOpen 3, PPEPath() + "TKL.KEY", 0, 0
FGet 3, STRING009
FGet 3, STRING012
STRING009 = RTrim(STRING009, " ")
STRING009 = Mid(STRING009, InStr(STRING009, ":") + 1, Len(STRING009) - InStr(STRING009, ":"))
STRING005 = Trim(STRING009, " ")
STRING009 = Mid(STRING012, 3, Len(STRING012) - 2)
STRING012 = Trim(STRING009, " ")
For INT004 = 1 To Len(STRING005)
INTEGER004 = S2I(Mid(STRING005, INT004, 1), 36) - 9
INTEGER003 = INTEGER003 + INTEGER004
Next
If (INTEGER003 < 0) INTEGER003 = INTEGER003 * -1
If (INTEGER003 == 0) INTEGER003 = INTEGER003 + 384
INTEGER003 = INTEGER003 * 7914
STRING009 = LTrim(String(INTEGER003), " ")
If (STRING009 == STRING012) BOOLEAN014 = 1
FClose 3
Return
:LABEL019
If (Exist(PPEPath() + "tickle.ndx")) Goto LABEL020
DnCreate 0, PPEPath() + "tickle", "usr_name"
Goto LABEL021
:LABEL020
DnOpen 0, PPEPath() + "tickle"
:LABEL021
Return
:LABEL022
STRING008 = LTrim(String(INT002), " ")
STRING007 = "file" + STRING008
STRING011 = "desc" + STRING008
Return
:LABEL023
If (BOOLEAN006) Goto LABEL024
STRING013 = ""
STRING004 = ReadLine(STRING016, 13)
InputStr STRING004, STRING013, 14, 1, "YN", 8192 + 16384 + 256 + 8
Goto LABEL025
:LABEL024
STRING013 = "Y"
:LABEL025
If (STRING013 == "Y") Then
STRING013 = ""
Newline
STRING004 = ReadLine(STRING016, 14)
InputStr STRING004, STRING013, 14, 15, Mask_Ascii(), 4 + 2
If (STRING013 == "") Return
DPut 0, STRING011, STRING013
Newline
Endif
Return
:LABEL026
If (STRING005 <> "ADD VIOLATION") Then
Gosub LABEL002
If (INT002 == 0) Then
Newline
PrintLn ReadLine(STRING016, 15)
Newline
Return
Endif
Endif
If (BOOLEAN007) Then
INT003 = 0
If (STRING005 <> "ADD VIOLATION") Then
Newline
STRING005 = ""
STRING004 = ReadLine(STRING016, 16)
InputStr STRING004, STRING005, 14, 100, Mask_Ascii(), 256 + 8
Newline
If (STRING005 == "") Return
Tokenize STRING005
INT003 = TokCount()
Goto LABEL027
Endif
STRING005 = STRING002
:LABEL027
If (INT003 > 0) Then
STRING013 = ""
STRING004 = ReadLine(STRING016, 30)
InputStr STRING004, STRING013, 14, 5, Mask_Num(), 256 + 8 + 4 + 2
Newline
If (STRING013 == "") STRING013 = "0"
STRING010 = Trim(STRING013, " ")
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
BOOLEAN015 = 1
Endif
BOOLEAN016 = 0
For INT004 = 1 To INT003
STRING002 = GetToken()
STRING002 = Trim(STRING002, " ")
If (Len(STRING002) > 12) Then
PrintLn ReadLine(STRING016, 17), STRING002
PrintLn ReadLine(STRING016, 18)
Continue
Endif
If (BOOLEAN015) Then
Frewind 3
STRING018 = Left(STRING002, 1)
BOOLEAN016 = 0
Gosub LABEL030
Goto LABEL028
Endif
BOOLEAN016 = 1
:LABEL028
If (BOOLEAN016) Then
STRING007 = "file" + LTrim(String(INT002), " ")
STRING011 = "desc" + LTrim(String(INT002), " ")
DPut 0, STRING007, STRING002
PrintLn ReadLine(STRING016, 19), STRING002
Gosub LABEL023
Newline
INT006 = INT002
Gosub LABEL002
If ((INT002 == 0) && (INT006 == 24)) Then
Newline
PrintLn ReadLine(STRING016, 20)
Newline
Break
Endif
Continue
Endif
PrintLn ReadLine(STRING016, 21), STRING002, ReadLine(STRING016, 22)
Newline
Next
If (BOOLEAN015) FClose 3
INT003 = 0
Goto LABEL029
Endif
STRING007 = "file" + LTrim(String(INT002), " ")
STRING011 = "desc" + LTrim(String(INT002), " ")
DPut 0, STRING007, STRING005
Gosub LABEL023
:LABEL029
Log "User added file(s) to database", 0
Endif
Newline
Return
:LABEL030
FGet 3, STRING019
If (Ferr(3)) Return
If (Left(STRING019, 1) <> "%") Then
STRING009 = STRING019 + STRING002
If (Exist(STRING009)) Then
BOOLEAN016 = 1
Return
Endif
Else
STRING019 = Mid(STRING019, 2, Len(STRING019))
FOpen 4, STRING019, 0, 0
FRead 4, INT010, 2
If (STRING018 < "A") STRING018 = "A"
If (STRING018 > "Z") STRING018 = "Z"
INT011 = S2I(STRING018, 36) - 9
For INT012 = 1 To 26
FRead 4, INT013, 2
If (INT011 == INT012) Then
FRead 4, INT014, 2
Break
Endif
Next
If (STRING018 == "Z") INT014 = INT010 + 1
If (STRING018 == "A") INT013 = 0
BOOLEAN017 = 0
BOOLEAN016 = 0
INT017 = INT014
INT016 = INT013 - 1
:LABEL031
If (BOOLEAN017) Goto LABEL032
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, " ")
STRING020 = STRING021 + "." + STRING022
If (STRING020 == STRING002) Then
BOOLEAN016 = 1
BOOLEAN017 = 1
ElseIf (INT017 - INT016 < 2) Then
BOOLEAN017 = 1
ElseIf (STRING020 < STRING002) Then
INT016 = INT015
ElseIf (STRING020 > STRING002) Then
INT017 = INT015
Endif
Goto LABEL031
:LABEL032
FClose 4
Endif
If (BOOLEAN016) Goto LABEL033
Goto LABEL030
Goto LABEL034
:LABEL033
Return
:LABEL034
If (BOOLEAN002) Goto LABEL035
Gosub LABEL037
BOOLEAN002 = 1
Goto LABEL036
:LABEL035
Newline
:LABEL036
STRING005 = ""
PrintLn ReadLine(STRING016, 23)
PrintLn ReadLine(STRING016, 24)
STRING004 = ReadLine(STRING016, 25)
InputStr STRING004, STRING005, 14, 50, Mask_Ascii(), 256
If (STRING005 == "") Then
Newline
Return
Endif
Gosub LABEL001
Tokenize STRING005
INT003 = TokCount()
Newline
For INT005 = 1 To INT003
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(STRING016, 26), STRING010, ReadLine(STRING016, 27)
Next
If (BOOLEAN003) Gosub LABEL042
Newline
Return
:LABEL037
StartDisp 1
Newlines 2
PrintLn ReadLine(STRING016, 31)
PrintLn ReadLine(STRING016, 32)
PrintLn ReadLine(STRING016, 33)
STRING009 = DGet(0, DName(0, 1))
PrintLn ReadLine(STRING016, 57), STRING009
Newline
PrintLn ReadLine(STRING016, 34)
PrintLn ReadLine(STRING016, 35)
For INT005 = 1 To 24
STRING009 = DGet(0, DName(0, INT005 + 1))
STRING011 = DGet(0, DName(0, INT005 + 25))
If (INT005 < 10) Print " "
Print "@X0F", INT005, ". @X03", STRING009
Print Space(2)
Print "@X02", STRING011
Print Space(2)
If (!INT005 % 2) Newline
Next
Newlines 2
StartDisp 2
BOOLEAN002 = 1
Return
:LABEL038
STRING005 = ""
Newline
STRING004 = ReadLine(STRING016, 36)
InputStr STRING004, STRING005, 14, 1, "YN", 8192 + 16384 + 256 + 8
If (STRING005 == "Y") Then
INT002 = 1
For INT005 = 1 To 24
Gosub LABEL022
DPut 0, STRING007, " "
DPut 0, STRING011, " "
Inc INT002
Next
Newline
PrintLn ReadLine(STRING016, 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(STRING016, 38)
BOOLEAN004 = 0
For INT005 = 2 To 25
STRING009 = DGet(0, DName(0, INT005))
If (STRING009 == " ") Then
For INT004 = INT005 + 1 To 25
STRING009 = DGet(0, DName(0, INT004))
STRING011 = DGet(0, DName(0, INT004 + 24))
If (STRING009 <> " ") Then
DPut 0, DName(0, INT005), STRING009
DPut 0, DName(0, INT005 + 24), STRING011
DPut 0, DName(0, INT004), " "
DPut 0, DName(0, INT005 + 25), " "
BOOLEAN004 = 1
Break
Continue
Endif
STRING015 = DName(0, INT005 + 25)
DPut 0, DName(0, INT005 + 25), " "
Next
Endif
If ((STRING009 == " ") && !BOOLEAN004) Break
Next
PrintLn ReadLine(STRING016, 39)
:LABEL043
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Wait
; 163 Goto
; 236 Let
; 9 Print
; 39 PrintLn
; 116 If
; 3 DispFile
; 4 FOpen
; 4 FClose
; 4 FGet
; 4 StartDisp
; 5 Log
; 13 InputStr
; 28 Gosub
; 32 Return
; 3 Delay
; 2 Inc
; 64 Newline
; 4 Newlines
; 3 Tokenize
; 2 SPrintLn
; 1 Frewind
; 1 FSeek
; 5 FRead
; 1 DCreate
; 1 DOpen
; 1 DClose
; 1 DnCreate
; 1 DnOpen
; 1 DnCloseAll
; 2 DGo
; 1 DSeek
; 12 DPut
;
;
; ■ Functions used :
;
; 1 -
; 3 *
; 2 /
; 2 %
; 91 +
; 10 -
; 49 ==
; 9 <>
; 21 <
; 12 <=
; 8 >
; 25 >=
; 88 !
; 29 &&
; 15 ||
; 10 Len(
; 6 Mid()
; 2 Left()
; 4 Space()
; 1 Ferr()
; 8 InStr()
; 8 LTrim()
; 5 RTrim()
; 11 Trim()
; 8 String()
; 5 Mask_Alpha()
; 1 Mask_Num()
; 5 Mask_Ascii()
; 12 PPEPath()
; 59 ReadLine()
; 8 GetToken()
; 4 Exist()
; 1 I2S()
; 8 S2I()
; 4 TokCount()
; 2 DErr()
; 14 DName()
; 2 DRecCount()
; 1 DTop()
; 9 DGet()
; 1 DChkStat()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 12 For/Next
; 0 While/EndWhile
; 54 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------