home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TSCV06.ZIP
/
NUPCHECK.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-04-06
|
4KB
|
261 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
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
;------------------------------------------------------------------------------
STRING001 = "0.6"
STRING008 = ReadLine(PPEPath() + "GENEREL.CFG", 3)
STRING009 = ReadLine(PPEPath() + "GENEREL.CFG", 4)
If (Upper(STRING008) == "Y") Then
Print "@QOFF@"
Endif
If (Upper(STRING009) == "Y") Then
Print "@POFF@"
Endif
FOpen 5, PPEPath() + "NUPMAIN.CFG", 0, 0
FGet 5, STRING002
FGet 5, INTEGER001
FGet 5, STRING004
Tokenize STRING004
GetToken INTEGER003
GetToken INTEGER004
FClose 5
PrintLn "@X0ENup'n'vote v" + STRING001 + " - [UNREGISTRED]"
DispFile PPEPath() + "NUPMAIN.", 0
:LABEL001
AnsiPos INTEGER003, INTEGER004
Print " "
AnsiPos INTEGER003, INTEGER004
InputStr "_", STRING003, 9, 16, Mask_Ascii(), 1
FAppend 3, PPEPath() + "TSC.LOG", 2, 0
FPutLn 3, U_Name() + " has tried with [" + Upper(STRING003) + "]"
FClose 3
INTEGER002 = INTEGER002 + 1
If (Upper(STRING002) == Upper(STRING003)) Then
Goto LABEL002
Endif
If (INTEGER002 < INTEGER001) Then
Goto LABEL001
Endif
Goto LABEL003
:LABEL002
Cls
DispFile PPEPath() + "WELCOME.", 0
FAppend 3, PPEPath() + "TSC.LOG", 2, 0
FPutLn 3, U_Name() + " has been cleared!"
FClose 3
Goto LABEL004
:LABEL003
Cls
DispFile PPEPath() + "FUCKOFF.", 0
FAppend 3, PPEPath() + "TSC.LOG", 2, 0
FPutLn 3, U_Name() + " has achieved total lameness!"
FClose 3
Hangup
Return
:LABEL004
Cls
DispFile PPEPath() + "SYS-ONLY.", 0
FOpen 5, PPEPath() + "SYS-ONLY.CFG", 0, 0
FGet 5, INTEGER006
FAppend 4, PPEPath() + "USERS.APL", 2, 3
FPutLn 4, Upper(U_Name())
FClose 4
Tokenize U_Name()
STRING005 = GetToken()
STRING005 = STRING005 + GetToken()
FCreate 4, PPEPath() + Left(STRING005, 8) + ".SYS", 1, 3
For INTEGER008 = 1 To INTEGER006
FGet 5, STRING004
Tokenize STRING004
GetToken INTEGER003
GetToken INTEGER004
GetToken INTEGER007
AnsiPos INTEGER003, INTEGER004
STRING011 = ""
InputStr "_", STRING011, 8, INTEGER007, Mask_Ascii(), 0
FPutLn 4, STRING011
Next
FClose 5
FClose 4
Cls
DispFile PPEPath() + "ELITEZ.", 0
FOpen 5, PPEPath() + "ELITEZ.CFG", 0, 0
FGet 5, INTEGER006
Tokenize U_Name()
STRING005 = GetToken()
STRING005 = STRING005 + GetToken()
FCreate 4, PPEPath() + Left(STRING005, 8) + ".ALL", 1, 3
For INTEGER008 = 1 To INTEGER006
FGet 5, STRING004
Tokenize STRING004
GetToken INTEGER003
GetToken INTEGER004
GetToken INTEGER007
AnsiPos INTEGER003, INTEGER004
STRING011 = ""
InputStr "_", STRING011, 8, INTEGER007, Mask_Ascii(), 0
FPutLn 4, STRING011
Next
FClose 5
FClose 4
FOpen 5, PPEPath() + "MESSAGE.CFG", 0, 0
FGet 5, INTEGER005
FGet 5, STRING006
FGet 5, STRING007
FClose 5
If (Upper(ReadLine(PPEPath() + "GENEREL.CFG", 11)) == "Y") Then
Message INTEGER005, "All", STRING006, "New user " + U_Name(), "N", 0, 0, 1, PPEPath() + STRING007
Endif
If (Upper(ReadLine(PPEPath() + "GENEREL.CFG", 9)) == "Y") Then
FOpen 5, PPEPath() + "ONELINER.DAT", 0, 0
FCreate 4, PPEPath() + "ONELINER.$$$", 2, 3
FGet 5, STRING010
If (Upper((ReadLine(PPEPath() + "ONELINER.CNF", 3) == "Y"))) Then
FAppend 3, PPEPath() + "ONELINER.OLD", 2, 3
FPutLn 3, STRING010
FClose 3
Endif
FGet 5, STRING010
:LABEL005
If (Ferr(5)) Goto LABEL006
FPutLn 4, STRING010
FGet 5, STRING010
Goto LABEL005
:LABEL006
FClose 5
FPutLn 4, U_Name() + " has applied for access"
FClose 4
Delete PPEPath() + "ONELINER.DAT"
Rename PPEPath() + "ONELINER.$$$", PPEPath() + "ONELINER.DAT"
FOpen 5, PPEPath() + "ONELINER.JOK", 0, 0
FCreate 4, PPEPath() + "ONELINER.$$$", 2, 3
FGet 5, STRING010
If (Upper((ReadLine(PPEPath() + "ONELINER.CNF", 2) == "Y"))) Then
FAppend 3, PPEPath() + "ONELINER.JOL", 2, 3
FPutLn 3, STRING010
FClose 3
Endif
FGet 5, STRING010
:LABEL007
If (Ferr(5)) Goto LABEL008
FPutLn 4, STRING010
FGet 5, STRING010
Goto LABEL007
:LABEL008
FClose 5
FPutLn 4, "@X09/\/\-> @X0FN@X07up'@X0DN'@X0FV@X07ote"
FClose 4
Delete PPEPath() + "ONELINER.JOK"
Rename PPEPath() + "ONELINER.$$$", PPEPath() + "ONELINER.JOK"
Endif
AnsiPos 1, 25
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 4 Cls
; 20 Goto
; 14 Let
; 3 Print
; 1 PrintLn
; 12 If
; 5 DispFile
; 4 FCreate
; 6 FOpen
; 6 FAppend
; 16 FClose
; 16 FGet
; 12 FPutLn
; 1 Hangup
; 2 Delete
; 3 InputStr
; 1 Return
; 5 Tokenize
; 8 GetToken
; 5 AnsiPos
; 1 Message
; 2 Rename
;
;
; ■ Functions used :
;
; 50 +
; 7 ==
; 3 <
; 2 <=
; 4 >=
; 12 !
; 4 &&
; 2 ||
; 10 Upper()
; 2 Left()
; 2 Ferr()
; 8 U_Name()
; 3 Mask_Ascii()
; 34 PPEPath()
; 6 ReadLine()
; 4 GetToken()
;
;------------------------------------------------------------------------------
;
; Analysis flags : B
;
; 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
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 8 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------