home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
SAT-0597.ZIP
/
SAT_LAM.ZIP
/
MV_LAM.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-03-18
|
14KB
|
920 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String TSTRING018(100)
Int INT001
Int INT002
Int INT003
Int INT004
Int INT005
Int INT006
Int INT007
Int INT008
Int INT009
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "MV_LAM.CFG", 0, 2
FGet 1, STRING001
FGet 1, STRING002
FGet 1, INTEGER001
FGet 1, STRING003
FClose 1
STRING001 = Upper(STRING001)
STRING003 = Upper(STRING003)
:LABEL001
If (STRING001 == "ASCII") Then
Cls
DispFile PPEPath() + "LAM_ASK.ANS", 0
Else
If (STRING001 == "ANSI") Then
Cls
DispFile PPEPath() + "LAM_OLD.ANS", 0
Goto LABEL002
Endif
Print "@XF1"
Cls
Print "@X01"
Cls
AnsiPos 1, 1
Print "Error in line of CFG file .. contacted Sysop..."
Delay 10
Cls
End
Endif
STRING005 = "@X0B"
STRING006 = "@X03"
STRING007 = "@X08"
Goto LABEL003
:LABEL002
STRING005 = "@X0A"
STRING006 = "@X02"
STRING007 = "@X08"
:LABEL003
AnsiPos 15, 21
Print STRING005 + "[add lamer]" + STRING007 + " [view lamers]" + STRING007 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 1
:LABEL004
STRING008 = Inkey()
If ((STRING008 == "UP") || (STRING008 == "LEFT")) Then
Goto LABEL005
Endif
If ((STRING008 == "DOWN") || (STRING008 == "RIGHT")) Then
Goto LABEL006
Endif
If (STRING008 == Chr(13)) Then
Goto LABEL007
Endif
If (!(STRING008 == Chr(27))) Goto LABEL004
Goto LABEL067
:LABEL005
If (INTEGER009 == 1) Then
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING007 + " [view lamers]" + STRING007 + " [remove]" + STRING005 + " [quit]"
INTEGER009 = 4
Goto LABEL004
Endif
If (INTEGER009 == 2) Then
AnsiPos 15, 21
Print STRING005 + "[add lamer]" + STRING007 + " [view lamers]" + STRING007 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 1
Goto LABEL004
Endif
If (INTEGER009 == 3) Then
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING005 + " [view lamers]" + STRING007 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 2
Goto LABEL004
Endif
If (!(INTEGER009 == 4)) Goto LABEL005
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING007 + " [view lamers]" + STRING005 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 3
Goto LABEL004
:LABEL006
If (INTEGER009 == 1) Then
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING005 + " [view lamers]" + STRING007 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 2
Goto LABEL004
Endif
If (INTEGER009 == 2) Then
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING007 + " [view lamers]" + STRING005 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 3
Goto LABEL004
Endif
If (INTEGER009 == 3) Then
AnsiPos 15, 21
Print STRING007 + "[add lamer]" + STRING007 + " [view lamers]" + STRING007 + " [remove]" + STRING005 + " [quit]"
INTEGER009 = 4
Goto LABEL004
Endif
If (!(INTEGER009 == 4)) Goto LABEL006
AnsiPos 15, 21
Print STRING005 + "[add lamer]" + STRING007 + " [view lamers]" + STRING007 + " [remove]" + STRING007 + " [quit]"
INTEGER009 = 1
Goto LABEL004
:LABEL007
INT001 = 0
INT002 = 0
If (INTEGER009 == 2) Then
FOpen 1, PPEPath() + "mv_lam.dat", 0, 0
:LABEL008
FGet 1, TSTRING018(INT001)
If (Len(TSTRING018(INT001)) == 0) Then
FClose 1
INT002 = INT001
Goto LABEL009
Endif
Inc INT001
Goto LABEL008
:LABEL009
INT001 = 0
Cls
Print "@POFF@"
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
While (INT002 <= 20) Do
If (INT001 == INT002) Goto LABEL023
PrintLn TSTRING018(INT001)
Inc INT001
EndWhile
:LABEL010
AnsiPos 1, 23
Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page"
AnsiPos 1, 2
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
:LABEL011
If (INT001 == 20) Goto LABEL012
PrintLn TSTRING018(INT001)
Inc INT001
Goto LABEL011
:LABEL012
STRING009 = Inkey()
If (STRING009 == "PGDN") Then
If ((INT001 >= 20) && (INT001 < 40)) Then
Goto LABEL015
Endif
:LABEL013
If ((INT001 >= 40) && (INT001 < 60)) Then
Goto LABEL017
Endif
If ((INT001 >= 60) && (INT001 < 80)) Then
Goto LABEL019
Endif
If (!((INT001 >= 80) && (INT001 <= 100))) Goto LABEL013
Goto LABEL021
Endif
If (STRING009 == Chr(27)) Then
Goto LABEL023
Endif
If (!(STRING009 == "PGUP")) Goto LABEL012
If ((INT001 <= 40) && (INT001 >= 20)) Then
INT001 = 0
Cls
Goto LABEL010
Endif
If ((INT001 <= 60) && (INT001 > 40)) Then
INT001 = 20
Cls
Goto LABEL015
Endif
:LABEL014
If ((INT001 <= 80) && (INT001 > 60)) Then
INT001 = 40
Cls
Goto LABEL017
Endif
If (!((INT001 <= 100) && (INT001 > 80))) Goto LABEL014
INT001 = 60
Cls
Goto LABEL019
:LABEL015
Cls
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
AnsiPos 1, 23
Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + " [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
AnsiPos 1, 2
:LABEL016
If (INT001 == 40) Goto LABEL012
Print STRING007
PrintLn TSTRING018(INT001)
Inc INT001
Goto LABEL016
:LABEL017
Cls
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
AnsiPos 1, 23
Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + " [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
AnsiPos 1, 2
:LABEL018
If (INT001 == 60) Goto LABEL012
Print STRING007
PrintLn TSTRING018(INT001)
Inc INT001
Goto LABEL018
:LABEL019
Cls
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
AnsiPos 1, 23
Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + " [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
AnsiPos 1, 2
:LABEL020
If (INT001 == 80) Goto LABEL012
Print STRING007
PrintLn TSTRING018(INT001)
Inc INT001
Goto LABEL020
:LABEL021
Cls
AnsiPos 1, 1
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 22
PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
AnsiPos 1, 2
AnsiPos 1, 23
Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + " [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
AnsiPos 1, 2
:LABEL022
If (INT001 == 100) Goto LABEL012
Print STRING007
PrintLn TSTRING018(INT001)
Inc INT001
Goto LABEL022
:LABEL023
AnsiPos 1, 23
Wait
Goto LABEL001
Endif
If (INTEGER009 == 1) Then
If (INTEGER001 == U_Sec) Then
AnsiPos 1, 21
PrintLn Space(80)
AnsiPos 1, 21
PrintLn " Yo no have level to axx this function!"
Delay 40
Goto LABEL001
Endif
STRING012 = ""
STRING011 = ""
STRING013 = ""
AnsiPos 1, 21
PrintLn Space(80)
AnsiPos 8, 17
Print STRING005 + "Name o" + STRING006 + "f la" + STRING007 + "mer : [···················]"
AnsiPos 2, 18
Print STRING005 + "Reason o" + STRING006 + "f ad" + STRING007 + "d : [················································]"
AnsiPos 2, 19
Print STRING005 + "Your fak" + STRING006 + "e name to che" + STRING007 + "at lamer : [···················]"
AnsiPos 2, 22
Print STRING005 + "pres" + STRING006 + "s [+]" + STRING007 + " to save!"
:LABEL024
AnsiPos 18, 18
Print STRING007 + "[···················································]"
AnsiPos 19, 18
Print STRING007 + STRING012
AnsiPos 34, 19
Print STRING007 + "[···················]"
AnsiPos 36, 19
Print STRING007 + STRING013
AnsiPos 24, 17
Print STRING005 + "[···················]"
AnsiPos 25, 17
Print STRING007 + STRING011
INTEGER005 = 25
INTEGER004 = 17
INTEGER006 = 25
INTEGER007 = 44
INTEGER010 = 1
AnsiPos 25, 17
Goto LABEL027
:LABEL025
AnsiPos 18, 18
Print STRING005 + "[···················································]"
AnsiPos 19, 18
Print STRING007 + STRING012
AnsiPos 34, 19
Print STRING007 + "[···················]"
AnsiPos 36, 19
Print STRING007 + STRING013
AnsiPos 24, 17
Print STRING007 + "[···················]"
AnsiPos 25, 17
Print STRING007 + STRING011
INTEGER005 = 19
INTEGER004 = 18
INTEGER006 = 19
INTEGER007 = 70
INTEGER010 = 2
AnsiPos 19, 18
Goto LABEL027
:LABEL026
AnsiPos 18, 18
Print STRING007 + "[···················································]"
AnsiPos 19, 18
Print STRING007 + STRING012
AnsiPos 34, 19
Print STRING005 + "[···················]"
AnsiPos 37, 19
Print STRING007 + STRING013
AnsiPos 24, 17
Print STRING007 + "[···················]"
AnsiPos 25, 17
Print STRING007 + STRING011
INTEGER005 = 35
INTEGER004 = 19
INTEGER006 = 35
INTEGER007 = 54
INTEGER010 = 3
AnsiPos 35, 19
:LABEL027
If (INTEGER010 == 1) Then
If (STRING011 == "") Goto LABEL028
INTEGER008 = Len(STRING011)
STRING014 = STRING011
INTEGER005 = INTEGER005 + INTEGER008
AnsiPos INTEGER005, INTEGER004
Goto LABEL029
Endif
If (INTEGER010 == 2) Then
If (STRING012 == "") Goto LABEL028
INTEGER008 = Len(STRING012)
STRING014 = STRING012
INTEGER005 = INTEGER005 + INTEGER008
AnsiPos INTEGER005, INTEGER004
Goto LABEL029
Endif
If (INTEGER010 == 3) Then
If (STRING013 == "") Goto LABEL028
INTEGER008 = Len(STRING013)
STRING014 = STRING013
INTEGER005 = INTEGER005 + INTEGER008
AnsiPos INTEGER005, INTEGER004
Goto LABEL029
:LABEL028
STRING014 = ""
Endif
:LABEL029
STRING010 = Inkey()
If (STRING010 == "") Goto LABEL029
If (STRING010 == " ") Goto LABEL031
If (STRING010 == "@") Goto LABEL032
If (STRING010 == "LEFT") Goto LABEL030
If (STRING010 == "RIGHT") Goto LABEL031
If (STRING010 == "DOWN") Goto LABEL033
If (STRING010 == "DEL") Goto LABEL027
If (STRING010 == "UP") Goto LABEL034
If (STRING010 == Chr(8)) Goto LABEL030
If (STRING010 == Chr(13)) Goto LABEL035
If (STRING010 == Chr(43)) Goto LABEL036
If (INTEGER005 == INTEGER007) Goto LABEL029
AnsiPos INTEGER005, INTEGER004
Print STRING005 + STRING010
Delay 1
AnsiPos INTEGER005, INTEGER004
Print STRING006 + STRING010
Delay 1
AnsiPos INTEGER005, INTEGER004
Print STRING007 + STRING010
Delay 1
STRING014 = STRING014 + STRING010
Inc INTEGER005
Goto LABEL029
:LABEL030
If (INTEGER005 == INTEGER006) Goto LABEL029
INTEGER011 = Len(STRING014)
Dec INTEGER011
STRING014 = Left(STRING014, INTEGER011)
Backup 1
Print STRING005 + "·"
Backup 1
Dec INTEGER005
Goto LABEL029
:LABEL031
If (INTEGER005 == INTEGER007) Goto LABEL029
AnsiPos INTEGER005, INTEGER004
Print " "
STRING014 = STRING014 + " "
Inc INTEGER005
Goto LABEL029
:LABEL032
AnsiPos 9, 21
Print "@X08Maybe i can accept in next time.. =) !"
Delay 30
AnsiPos 1, 21
Print Space(80)
Goto LABEL029
:LABEL033
If (INTEGER010 == 1) Then
STRING011 = STRING014
Goto LABEL025
Endif
If (INTEGER010 == 2) Then
STRING012 = STRING014
Goto LABEL026
Endif
If (!(INTEGER010 == 3)) Goto LABEL033
STRING013 = STRING014
Goto LABEL024
:LABEL034
If (INTEGER010 == 1) Then
STRING011 = STRING014
Goto LABEL026
Endif
If (INTEGER010 == 2) Then
STRING012 = STRING014
Goto LABEL024
Endif
If (!(INTEGER010 == 3)) Goto LABEL034
STRING013 = STRING014
Goto LABEL025
:LABEL035
If (INTEGER010 == 1) Then
STRING011 = STRING014
Goto LABEL025
Endif
If (INTEGER010 == 2) Then
STRING012 = STRING014
Goto LABEL026
Endif
If (!(INTEGER010 == 3)) Goto LABEL035
STRING013 = STRING014
:LABEL036
AnsiPos 10, 21
Print STRING007 + "Save this shit ?!" + STRING006 + " yeah!" + STRING007 + " no!"
INTEGER010 = 1
:LABEL037
STRING010 = Inkey()
If ((STRING010 == "DOWN") || (STRING010 == "RIGHT")) Then
:LABEL038
If (INTEGER010 == 1) Then
AnsiPos 10, 21
Print STRING007 + "Save this shit ?!" + STRING007 + " yeah!" + STRING006 + " no!"
INTEGER010 = 2
Goto LABEL037
Endif
If (!(INTEGER010 == 2)) Goto LABEL038
AnsiPos 10, 21
Print STRING007 + "Save this shit ?!" + STRING006 + " yeah!" + STRING007 + " no!"
INTEGER010 = 1
Goto LABEL037
Endif
If ((STRING010 == "UP") || (STRING010 == "LEFT")) Then
If (INTEGER010 == 1) Then
AnsiPos 10, 21
Print STRING007 + "Save this shit ?!" + STRING007 + " yeah!" + STRING006 + " no!"
INTEGER010 = 2
Goto LABEL037
Endif
If (!(INTEGER010 == 2)) Goto LABEL037
AnsiPos 10, 21
Print STRING007 + "Save this shit ?!" + STRING006 + " yeah!" + STRING007 + " no!"
INTEGER010 = 1
Goto LABEL037
Endif
If (!(STRING010 == Chr(13))) Goto LABEL037
If (INTEGER010 == 1) Then
If (STRING011 == "") Goto LABEL039
If (STRING013 == "") Goto LABEL039
If (STRING012 == "") Goto LABEL039
FAppend 1, PPEPath() + "MV_LAM.DAT", 1, 0
FPutLn 1, STRING005 + STRING011 + STRING007 + "@POS:26@" + STRING012
FClose 1
FAppend 1, PPEPath() + "mv_find.nam", 0, 0
FPutLn 1, STRING011
FClose 1
FAppend 1, PPEPath() + "MV_LAM.NAM", 0, 0
FPutLn 1, STRING006 + STRING013
FClose 1
AnsiPos 1, 21
PrintLn Space(80)
AnsiPos 20, 21
PrintLn STRING005 + "Succe" + STRING006 + "ssful Sa" + STRING007 + "ved!!"
Delay 20
Goto LABEL001
Endif
:LABEL039
AnsiPos 1, 21
PrintLn Space(80)
AnsiPos 25, 21
PrintLn STRING005 + "Ab" + STRING006 + "ort S" + STRING007 + "ave"
Delay 20
Goto LABEL001
Endif
If (INTEGER009 == 3) Then
INT001 = 0
INT002 = 0
INT003 = 0
INT004 = 0
INT005 = 0
INT006 = 0
INT007 = 0
INT008 = 0
INT009 = 0
STRING014 = ""
STRING015 = ""
AnsiPos 1, 21
PrintLn Space(80)
AnsiPos 11, 17
Print STRING005 + "you" + STRING006 + "r han" + STRING007 + "dle : [····················]"
INTEGER005 = 26
INTEGER004 = 17
INTEGER006 = 26
INTEGER007 = 45
:LABEL040
STRING010 = Inkey()
If (STRING010 == "") Goto LABEL040
If (STRING010 == " ") Goto LABEL042
If (STRING010 == "@") Goto LABEL043
If (STRING010 == "LEFT") Goto LABEL040
If (STRING010 == "RIGHT") Goto LABEL040
If (STRING010 == "DOWN") Goto LABEL040
If (STRING010 == "DEL") Goto LABEL040
If (STRING010 == "UP") Goto LABEL040
If (STRING010 == Chr(8)) Goto LABEL041
If (STRING010 == Chr(13)) Goto LABEL044
If (INTEGER005 == INTEGER007) Goto LABEL040
AnsiPos INTEGER005, INTEGER004
Print STRING005 + STRING010
Delay 1
AnsiPos INTEGER005, INTEGER004
Print STRING006 + STRING010
Delay 1
AnsiPos INTEGER005, INTEGER004
Print STRING007 + STRING010
Delay 1
STRING014 = STRING014 + STRING010
Inc INTEGER005
Goto LABEL040
:LABEL041
If (INTEGER005 == INTEGER006) Goto LABEL040
INTEGER011 = Len(STRING014)
Dec INTEGER011
STRING014 = Left(STRING014, INTEGER011)
Backup 1
Print STRING005 + "·"
Backup 1
Dec INTEGER005
Goto LABEL040
:LABEL042
If (INTEGER005 == INTEGER007) Goto LABEL040
AnsiPos INTEGER005, INTEGER004
Print " "
STRING014 = STRING014 + " "
Inc INTEGER005
Goto LABEL040
:LABEL043
AnsiPos 9, 21
Print "@X08Maybe i can accept in next time.. =) !"
Delay 30
AnsiPos 1, 21
Print Space(80)
Goto LABEL040
:LABEL044
STRING015 = STRING014
AnsiPos 21, 19
Print STRING005 + "Compression 0%"
Delay 1
AnsiPos 21, 19
Print STRING006 + "Compression 0%"
Delay 1
AnsiPos 21, 19
Print STRING007 + "Compression 0%"
Delay 1
INTEGER003 = 0
If (STRING015 == "") Goto LABEL001
FOpen 1, PPEPath() + "mv_find.nam", 0, 0
:LABEL045
FGet 1, TSTRING018(INT001)
If (Len(TSTRING018(INT001)) == 0) Then
FClose 1
INT002 = INT001
Goto LABEL046
Endif
Inc INT001
Goto LABEL045
:LABEL046
INT001 = 0
:LABEL047
If (INT001 == INT002) Goto LABEL056
STRING015 = Upper(STRING015)
TSTRING018(INT001) = Upper(TSTRING018(INT001))
If (STRING015 == TSTRING018(INT001)) Goto LABEL048
Inc INT001
AnsiPos 33, 19
Print INT001
Print "%"
Goto LABEL047
:LABEL048
Inc INTEGER003
If (INT003 == 0) Goto LABEL050
If (INT004 == 0) Goto LABEL051
If (INT005 == 0) Goto LABEL052
If (INT006 == 0) Goto LABEL053
If (INT007 == 0) Goto LABEL054
If (INT008 == 0) Goto LABEL055
INT009 = INT001
:LABEL049
AnsiPos 22, 21
Print "Find "
Print INTEGER003
Print " adds"
Inc INT001
Goto LABEL047
:LABEL050
INT003 = INT001
Goto LABEL049
:LABEL051
INT004 = INT001
Goto LABEL049
:LABEL052
INT005 = INT001
Goto LABEL049
:LABEL053
INT006 = INT001
Goto LABEL049
:LABEL054
INT007 = INT001
Goto LABEL049
:LABEL055
INT008 = INT001
Goto LABEL049
:LABEL056
If (INT001 <= 10) Goto LABEL059
If (INT001 <= 20) Goto LABEL060
If (INT001 <= 30) Goto LABEL061
If (INT001 <= 40) Goto LABEL062
If (INT001 <= 50) Goto LABEL063
If (INT001 <= 60) Goto LABEL064
If (INT001 <= 80) Goto LABEL065
If (INT001 <= 90) Goto LABEL065
If (INTEGER003 == 0) Goto LABEL001
AnsiPos 53, 17
Print STRING005 + "Handles of adds"
Delay 1
AnsiPos 53, 17
Print STRING006 + "Handles of adds"
Delay 1
AnsiPos 53, 17
Print STRING007 + "Handles of adds"
Delay 1
INT001 = 0
FOpen 1, PPEPath() + "mv_lam.nam", 0, 0
:LABEL057
FGet 1, TSTRING018(INT001)
If (Len(TSTRING018(INT001)) == 0) Then
FClose 1
INT002 = INT001
Goto LABEL058
Endif
Inc INT001
Goto LABEL057
:LABEL058
AnsiPos 53, 18
Print TSTRING018(INT003)
If (INT004 == 0) Goto LABEL066
AnsiPos 53, 19
Print TSTRING018(INT004)
If (INT005 == 0) Goto LABEL066
AnsiPos 53, 20
Print TSTRING018(INT005)
If (INT006 == 0) Goto LABEL066
AnsiPos 53, 21
Print TSTRING018(INT006)
If (INT007 == 0) Goto LABEL066
AnsiPos 53, 21
Print TSTRING018(INT007)
If (INT008 == 0) Goto LABEL066
AnsiPos 53, 21
Print TSTRING018(INT008)
If (INT009 == 0) Goto LABEL066
AnsiPos 53, 21
Print TSTRING018(INT009)
Delay 30
Goto LABEL066
:LABEL059
AnsiPos 33, 19
Print "10%"
Delay 0.55
AnsiPos 33, 19
Print "15%"
Delay 0.55
AnsiPos 33, 19
Print "17%"
Delay 0.55
:LABEL060
AnsiPos 33, 19
Print "20%"
Delay 1
AnsiPos 33, 19
:LABEL061
Print "30%"
Delay 0.55
AnsiPos 33, 19
:LABEL062
Print "50%"
Delay 0.55
AnsiPos 33, 19
:LABEL063
Print "60%"
Delay 0.55
AnsiPos 33, 19
:LABEL064
Print "80%"
Delay 0.55
AnsiPos 33, 19
:LABEL065
Print "100%"
Delay 0.55
INT001 = 100
Goto LABEL056
:LABEL066
Delay 50
FAppend 1, PPEPath() + "MSG", 0, 2
FPutLn 1, "heyaa... a user : " + STRING015 + " request your remove of ya lamer list"
FPutLn 1, STRING015 + " laughts, because reason of ya handle is a Shit lie!"
FPutLn 1, ""
FPutLn 1, ""
FPutLn 1, ""
FPutLn 1, " Thx for cooperation!"
FClose 1
Message 0, STRING003, STRING015, "REmove my handle!", "R", 0, 0, 0, PPEPath() + "MSG."
Delete PPEPath() + "msg"
Goto LABEL001
Endif
:LABEL067
STRING016 = 1
STRING017 = 24
:LABEL068
If (STRING016 == 14) Goto LABEL069
AnsiPos 1, STRING016
Print STRING006 + "───────────────────────────────────────────────────────────────────────────────"
AnsiPos 1, STRING017
Print STRING006 + "───────────────────────────────────────────────────────────────────────────────"
Delay 1
AnsiPos 1, STRING016
Print Space(79)
AnsiPos 1, STRING017
Print Space(79)
Inc STRING016
Dec STRING017
Goto LABEL068
:LABEL069
INTEGER002 = 15
STRING004 = " [sarcastiC] m0dding division coded by maveriCk"
:LABEL070
If (Mid(STRING004, INTEGER002, 3) == " ") Goto LABEL071
AnsiPos INTEGER002 - "2", 13
Print " "
AnsiPos INTEGER002, 13
Print STRING007 + Mid(STRING004, INTEGER002, 1)
INTEGER002 = INTEGER002 + 1
AnsiPos INTEGER002, 13
Print STRING006 + Mid(STRING004, INTEGER002, 1)
INTEGER002 = INTEGER002 + 1
AnsiPos INTEGER002, 13
Print STRING005 + Mid(STRING004, INTEGER002, 2)
INTEGER002 = INTEGER002 + 1
AnsiPos INTEGER002, 13
Print STRING006 + Mid(STRING004, INTEGER002, 1)
INTEGER002 = INTEGER002 + 1
AnsiPos INTEGER002, 13
Print STRING007 + Mid(STRING004, INTEGER002, 1)
INTEGER002 = INTEGER002 - 3
Delay 2
Goto LABEL070
:LABEL071
AnsiPos INTEGER002 - "2", 13
Print " "
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 14 Cls
; 1 Wait
; 201 Goto
; 120 Let
; 102 Print
; 26 PrintLn
; 118 If
; 2 DispFile
; 4 FOpen
; 4 FAppend
; 8 FClose
; 7 FGet
; 9 FPutLn
; 1 Delete
; 31 Delay
; 17 Inc
; 5 Dec
; 128 AnsiPos
; 4 Backup
; 1 Message
;
;
; ■ Functions used :
;
; 356 +
; 3 -
; 105 ==
; 3 <
; 14 <=
; 3 >
; 5 >=
; 53 !
; 8 &&
; 4 ||
; 8 Len(
; 4 Upper()
; 6 Mid()
; 2 Left()
; 9 Space()
; 9 Chr()
; 5 Inkey()
; 12 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 40 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------