home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / BULLCHK3.ZIP / BULLCHK5.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-07  |  2KB  |  170 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.     String   STRING006
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     STRING006 = PPEPath() + "BULLCHK.CFG"
  36.     STRING003 = PPEPath() + "ALLBULL.TXT"
  37.     INTEGER002 = 0
  38.     INTEGER003 = 0
  39.     INTEGER005 = 0
  40.     If (TokCount() == 0) Then
  41.         Log "Did not detect a bulletin # (BULLCHK.PPE)!", 1
  42.         End
  43.     Endif
  44.     STRING004 = GetToken()
  45.     If (Exist(STRING006)) Then
  46.         FOpen 1, STRING006, 0, 0
  47.         Newlines 2
  48.         SPrintLn "...Loading BULLCHK Records..."
  49.         Newline
  50.         FGet 1, INTEGER008
  51.         FGet 1, INTEGER006
  52.         FGet 1, INTEGER007
  53.         FClose 1
  54.     Else
  55.         Log "Can't find file bullchk.cfg file!", 1
  56.         Newline
  57.         PrintLn "@X0D....TELL SYSOP BullChk.cfg file is missing!@X0E"
  58.         Newlines 2
  59.         End
  60.     Endif
  61.     GetUser
  62.     INTEGER003 = U_Sec
  63.     If (INTEGER003 > INTEGER006) End
  64.     INTEGER002 = U_Cmnt1
  65.     INTEGER004 = U_ExpDate
  66.     INTEGER005 = S2I(STRING004, 10)
  67.     STRING002 = I2S(INTEGER002, 2)
  68.     STRING005 = Right(STRING002, INTEGER005)
  69.     STRING005 = Left(STRING005, 1)
  70.     If (STRING005 == 1) End
  71.     Newlines 2
  72.     PrintLn "@X0F..Performing Automatic Bulletin Read Update...Please Standby!@X07"
  73.     PrintLn "@X0CUNREGISTERED Version  @X0B(c) Copyright 1994 @X0Aby Al Segura@X07"
  74.     Newlines 2
  75.     Select Case (INTEGER005)
  76.         Case 5
  77.             INTEGER002 = INTEGER002 + 16
  78.             Goto LABEL001
  79.         Case 4
  80.             INTEGER002 = INTEGER002 + 8
  81.             Goto LABEL001
  82.         Case 3
  83.             INTEGER002 = INTEGER002 + 4
  84.             Goto LABEL001
  85.         Case 2
  86.             INTEGER002 = INTEGER002 + 2
  87.             Goto LABEL001
  88.         Case 1
  89.             INTEGER002 = INTEGER002 + 1
  90.             Goto LABEL001
  91.     End Select
  92.     Log ".Bulletin # invalid (BULLCHK.PPE)!", 1
  93.     End
  94.     :LABEL001
  95.     U_Cmnt1 = INTEGER002
  96.     If (INTEGER002 == 31) Then
  97.         If (Exist(STRING003)) Then
  98.             DispFile STRING003, 0
  99.             Goto LABEL002
  100.         Endif
  101.         Log "Could not find All_Bulletin Read file (BULLCHK.PPE)!", 1
  102.         :LABEL002
  103.         INTEGER004 = INTEGER004 + INTEGER008
  104.         DATE002 = INTEGER004
  105.         U_ExpDate = DATE002
  106.         U_Sec = INTEGER007
  107.     Endif
  108.     PutUser
  109.     End
  110.  
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Usage report (before postprocessing)
  114. ;
  115. ; ■ Statements used :
  116. ;
  117. ;    6       End
  118. ;    20      Goto 
  119. ;    23      Let 
  120. ;    3       PrintLn 
  121. ;    11      If 
  122. ;    1       DispFile 
  123. ;    1       FOpen 
  124. ;    1       FClose 
  125. ;    3       FGet 
  126. ;    1       GetUser
  127. ;    1       PutUser
  128. ;    4       Log 
  129. ;    2       Newline
  130. ;    4       Newlines 
  131. ;    1       SPrintLn 
  132. ;
  133. ;
  134. ; ■ Functions used :
  135. ;
  136. ;    8       +
  137. ;    8       ==
  138. ;    1       >
  139. ;    9       !
  140. ;    1       Left()
  141. ;    1       Right()
  142. ;    2       PPEPath()
  143. ;    1       GetToken()
  144. ;    2       Exist()
  145. ;    1       I2S()
  146. ;    1       S2I()
  147. ;    1       TokCount()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : W
  152. ;
  153. ; W - Write user ■ 5
  154. ;     Program writes a user record. Although this may be normal for a
  155. ;     User Editor, it may also be a way to modify an account level.
  156. ;     ■ Search for : PUTUSER
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Postprocessing report
  161. ;
  162. ;    0       For/Next
  163. ;    0       While/EndWhile
  164. ;    4       If/Then or If/Then/Else
  165. ;    1       Select Case
  166. ;
  167. ;------------------------------------------------------------------------------
  168. ;                 AEGiS Corp - Break the routines, code against the machines!
  169. ;------------------------------------------------------------------------------
  170.