home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ALF-LOGN.ZIP
/
LOGIN.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-07-26
|
2KB
|
131 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 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
;------------------------------------------------------------------------------
GetToken INTEGER001
FOpen 1, PPEPath() + "LOGIN.CNF", 2, 0
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, INTEGER004
FGet 1, INTEGER005
FGet 1, INTEGER006
FGet 1, INTEGER007
FGet 1, INTEGER008
FGet 1, INTEGER009
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, INTEGER010
FClose 1
Select Case (INTEGER001)
Case 76
AnsiPos INTEGER002, INTEGER003
Print STRING003
Delay INTEGER010
End
Case 92
AnsiPos INTEGER002, INTEGER003
Print STRING002
Delay INTEGER010
End
Case 148
AnsiPos INTEGER008, INTEGER009
Print STRING001 + "@CITY@"
AnsiPos INTEGER002, INTEGER003
Print "@CLREOL@"
AnsiPos INTEGER002, INTEGER003
Print STRING005
AnsiPos INTEGER006, INTEGER007
Print " "
AnsiPos INTEGER006, INTEGER007
End
Case 259
DispFile PPEPath() + "LOGIN.PCB", 0
AnsiPos INTEGER002, INTEGER003
Print STRING004
AnsiPos INTEGER004, INTEGER005
End
Case 260
KbdStuff Chr(13)
End
End Select
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 5 End
; 9 Goto
; 7 Print
; 5 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 14 FGet
; 2 Delay
; 1 GetToken
; 1 KbdStuff
; 9 AnsiPos
;
;
; ■ Functions used :
;
; 3 +
; 5 ==
; 5 !
; 1 Chr()
; 2 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------