home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / BULLCHK3.ZIP / BULLCHK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-07  |  2KB  |  164 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 3
  77.             INTEGER002 = INTEGER002 + 4
  78.             Goto LABEL001
  79.         Case 2
  80.             INTEGER002 = INTEGER002 + 2
  81.             Goto LABEL001
  82.         Case 1
  83.             INTEGER002 = INTEGER002 + 1
  84.             Goto LABEL001
  85.     End Select
  86.     Log ".Bulletin # invalid (BULLCHK.PPE)!", 1
  87.     End
  88.     :LABEL001
  89.     U_Cmnt1 = INTEGER002
  90.     If (INTEGER002 == 7) Then
  91.         If (Exist(STRING003)) Then
  92.             DispFile STRING003, 0
  93.             Goto LABEL002
  94.         Endif
  95.         Log "Could not find All_Bulletin Read file (BULLCHK.PPE)!", 1
  96.         :LABEL002
  97.         INTEGER004 = INTEGER004 + INTEGER008
  98.         DATE002 = INTEGER004
  99.         U_ExpDate = DATE002
  100.         U_Sec = INTEGER007
  101.     Endif
  102.     PutUser
  103.     End
  104.  
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Usage report (before postprocessing)
  108. ;
  109. ; ■ Statements used :
  110. ;
  111. ;    6       End
  112. ;    14      Goto 
  113. ;    21      Let 
  114. ;    3       PrintLn 
  115. ;    9       If 
  116. ;    1       DispFile 
  117. ;    1       FOpen 
  118. ;    1       FClose 
  119. ;    3       FGet 
  120. ;    1       GetUser
  121. ;    1       PutUser
  122. ;    4       Log 
  123. ;    2       Newline
  124. ;    4       Newlines 
  125. ;    1       SPrintLn 
  126. ;
  127. ;
  128. ; ■ Functions used :
  129. ;
  130. ;    6       +
  131. ;    6       ==
  132. ;    1       >
  133. ;    7       !
  134. ;    1       Left()
  135. ;    1       Right()
  136. ;    2       PPEPath()
  137. ;    1       GetToken()
  138. ;    2       Exist()
  139. ;    1       I2S()
  140. ;    1       S2I()
  141. ;    1       TokCount()
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Analysis flags : W
  146. ;
  147. ; W - Write user ■ 5
  148. ;     Program writes a user record. Although this may be normal for a
  149. ;     User Editor, it may also be a way to modify an account level.
  150. ;     ■ Search for : PUTUSER
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Postprocessing report
  155. ;
  156. ;    0       For/Next
  157. ;    0       While/EndWhile
  158. ;    4       If/Then or If/Then/Else
  159. ;    1       Select Case
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;                 AEGiS Corp - Break the routines, code against the machines!
  163. ;------------------------------------------------------------------------------
  164.