home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / BULLCHK3.ZIP / BULLCHKF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-07  |  2KB  |  144 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE002
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING003 = PPEPath() + "ALLBULL.TXT"
  35.     INTEGER002 = 0
  36.     INTEGER003 = 0
  37.     INTEGER005 = 0
  38.     INTEGER008 = 0
  39.     INTEGER006 = 10
  40.     INTEGER007 = 15
  41.     If (TokCount() == 0) Then
  42.         Log "Did not detect a bulletin # (BULLCHK.PPE)!", 1
  43.         End
  44.     Endif
  45.     STRING004 = GetToken()
  46.     GetUser
  47.     INTEGER003 = U_Sec
  48.     If (INTEGER003 > INTEGER006) End
  49.     INTEGER002 = U_Cmnt1
  50.     INTEGER004 = U_ExpDate
  51.     INTEGER005 = S2I(STRING004, 10)
  52.     STRING002 = I2S(INTEGER002, 2)
  53.     STRING005 = Right(STRING002, INTEGER005)
  54.     STRING005 = Left(STRING005, 1)
  55.     If (STRING005 == 1) End
  56.     Newlines 2
  57.     PrintLn "@X0F..Performing Automatic Bulletin Read Update...Please Standby!@X07"
  58.     PrintLn "@X0CUNREGISTERED Version  @X0B(c) Copyright 1994 @X0Aby Al Segura@X07"
  59.     Newlines 2
  60.     Select Case (INTEGER005)
  61.         Case 3
  62.             INTEGER002 = INTEGER002 + 4
  63.             Goto LABEL001
  64.         Case 2
  65.             INTEGER002 = INTEGER002 + 2
  66.             Goto LABEL001
  67.         Case 1
  68.             INTEGER002 = INTEGER002 + 1
  69.             Goto LABEL001
  70.     End Select
  71.     Log ".Bulletin # invalid (BULLCHK.PPE)!", 1
  72.     End
  73.     :LABEL001
  74.     U_Cmnt1 = INTEGER002
  75.     If (INTEGER002 == 7) Then
  76.         If (Exist(STRING003)) Then
  77.             DispFile STRING003, 0
  78.             Goto LABEL002
  79.         Endif
  80.         Log "Could not find All_Bulletin Read file (BULLCHK.PPE)!", 1
  81.         :LABEL002
  82.         INTEGER004 = INTEGER004 + INTEGER008
  83.         DATE002 = INTEGER004
  84.         U_ExpDate = DATE002
  85.         U_Sec = INTEGER007
  86.     Endif
  87.     PutUser
  88.     End
  89.  
  90. ;------------------------------------------------------------------------------
  91. ;
  92. ; Usage report (before postprocessing)
  93. ;
  94. ; ■ Statements used :
  95. ;
  96. ;    5       End
  97. ;    12      Goto 
  98. ;    23      Let 
  99. ;    2       PrintLn 
  100. ;    8       If 
  101. ;    1       DispFile 
  102. ;    1       GetUser
  103. ;    1       PutUser
  104. ;    3       Log 
  105. ;    2       Newlines 
  106. ;
  107. ;
  108. ; ■ Functions used :
  109. ;
  110. ;    5       +
  111. ;    6       ==
  112. ;    1       >
  113. ;    6       !
  114. ;    1       Left()
  115. ;    1       Right()
  116. ;    1       PPEPath()
  117. ;    1       GetToken()
  118. ;    1       Exist()
  119. ;    1       I2S()
  120. ;    1       S2I()
  121. ;    1       TokCount()
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Analysis flags : W
  126. ;
  127. ; W - Write user ■ 5
  128. ;     Program writes a user record. Although this may be normal for a
  129. ;     User Editor, it may also be a way to modify an account level.
  130. ;     ■ Search for : PUTUSER
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;
  134. ; Postprocessing report
  135. ;
  136. ;    0       For/Next
  137. ;    0       While/EndWhile
  138. ;    3       If/Then or If/Then/Else
  139. ;    1       Select Case
  140. ;
  141. ;------------------------------------------------------------------------------
  142. ;                 AEGiS Corp - Break the routines, code against the machines!
  143. ;------------------------------------------------------------------------------
  144.