home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR2
/
BULLCHK3.ZIP
/
BULLCHKF.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-01-07
|
2KB
|
144 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
;------------------------------------------------------------------------------
Date DATE002
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING002
String STRING003
String STRING004
String STRING005
;------------------------------------------------------------------------------
STRING003 = PPEPath() + "ALLBULL.TXT"
INTEGER002 = 0
INTEGER003 = 0
INTEGER005 = 0
INTEGER008 = 0
INTEGER006 = 10
INTEGER007 = 15
If (TokCount() == 0) Then
Log "Did not detect a bulletin # (BULLCHK.PPE)!", 1
End
Endif
STRING004 = GetToken()
GetUser
INTEGER003 = U_Sec
If (INTEGER003 > INTEGER006) End
INTEGER002 = U_Cmnt1
INTEGER004 = U_ExpDate
INTEGER005 = S2I(STRING004, 10)
STRING002 = I2S(INTEGER002, 2)
STRING005 = Right(STRING002, INTEGER005)
STRING005 = Left(STRING005, 1)
If (STRING005 == 1) End
Newlines 2
PrintLn "@X0F..Performing Automatic Bulletin Read Update...Please Standby!@X07"
PrintLn "@X0CUNREGISTERED Version @X0B(c) Copyright 1994 @X0Aby Al Segura@X07"
Newlines 2
Select Case (INTEGER005)
Case 3
INTEGER002 = INTEGER002 + 4
Goto LABEL001
Case 2
INTEGER002 = INTEGER002 + 2
Goto LABEL001
Case 1
INTEGER002 = INTEGER002 + 1
Goto LABEL001
End Select
Log ".Bulletin # invalid (BULLCHK.PPE)!", 1
End
:LABEL001
U_Cmnt1 = INTEGER002
If (INTEGER002 == 7) Then
If (Exist(STRING003)) Then
DispFile STRING003, 0
Goto LABEL002
Endif
Log "Could not find All_Bulletin Read file (BULLCHK.PPE)!", 1
:LABEL002
INTEGER004 = INTEGER004 + INTEGER008
DATE002 = INTEGER004
U_ExpDate = DATE002
U_Sec = INTEGER007
Endif
PutUser
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 5 End
; 12 Goto
; 23 Let
; 2 PrintLn
; 8 If
; 1 DispFile
; 1 GetUser
; 1 PutUser
; 3 Log
; 2 Newlines
;
;
; ■ Functions used :
;
; 5 +
; 6 ==
; 1 >
; 6 !
; 1 Left()
; 1 Right()
; 1 PPEPath()
; 1 GetToken()
; 1 Exist()
; 1 I2S()
; 1 S2I()
; 1 TokCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : W
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------