home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / FPFLAG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-25  |  3KB  |  182 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.     String   STRING017
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     STRING015 = PPEPath() + "FPFLAG.PCB"
  49.     FOpen 2, STRING015, 0, 0
  50.     FGet 2, STRING016
  51.     FGet 2, STRING017
  52.     FClose 2
  53.     If (Exist("SWAP.FPS")) Delete "SWAP.FPS"
  54.     STRING008 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
  55.     STRING005 = 0
  56.     INTEGER004 = 0
  57.     INTEGER005 = 0
  58.     INTEGER006 = 0
  59.     STRING003 = 1
  60.     INTEGER002 = 1
  61.     INTEGER008 = 0
  62.     INTEGER009 = ReadLine(PPEPath() + "PCBFPS.CFG", 2)
  63.     INTEGER007 = 0
  64.     FOpen 1, STRING008, 0, 0
  65.     FDefIn 1
  66.     FSeek 1, 0, 0
  67.     For INTEGER002 = 1 To 100000
  68.         INTEGER001 = INTEGER002
  69.         FDRead STRING002, 66
  70.         If (Ferr(1)) Break
  71.         STRING002 = Trim(STRING002, " ")
  72.         DATE001 = FileInf(STRING002, 2)
  73.         FDRead STRING004, 13
  74.         FDRead STRING002, 4
  75.         STRING002 = Trim(STRING002, " ")
  76.         INTEGER004 = Asc(Left(STRING002, 1))
  77.         If (Len(STRING002) > 1) INTEGER005 = 256 * Asc(Mid(STRING002, 2, 1))
  78.         If (Len(STRING002) == 3) INTEGER006 = 65536 * Asc(Right(STRING002, 1))
  79.         STRING006 = INTEGER004 + INTEGER005 + INTEGER006
  80.         INTEGER003 = STRING006 / INTEGER009
  81.         INTEGER005 = 0
  82.         INTEGER006 = 0
  83.         FDRead STRING002, 3
  84.         STRING002 = Trim(STRING002, " ")
  85.         INTEGER004 = Asc(Left(STRING002, 1))
  86.         If (Len(STRING002) > 1) INTEGER005 = 256 * Asc(Mid(STRING002, 2, 1))
  87.         If (Len(STRING002) == 3) INTEGER006 = 65536 * Asc(Right(STRING002, 1))
  88.         STRING007 = INTEGER004 + INTEGER005 + INTEGER006
  89.         FSeek 1, 9, 1
  90.         FDRead STRING013, 1
  91.         If (Asc(STRING013) == 1) INTEGER003 = 0
  92.         INTEGER007 = INTEGER007 + INTEGER003
  93.         FDRead STRING012, 1
  94.         FDRead STRING002, 1
  95.         FSeek 1, 31, 1
  96.     Next
  97.     FClose 6
  98.     FClose 1
  99.     GetUser
  100.     STRING014 = U_Notes(3)
  101.     Tokenize STRING014
  102.     STRING009 = GetToken()
  103.     STRING010 = GetToken()
  104.     STRING011 = GetToken()
  105.     INTEGER001 = STRING010
  106.     If (INTEGER007 > INTEGER001) Then
  107.         DispStr STRING016 + STRING004
  108.         Newline
  109.         DispStr STRING017
  110.         Newline
  111.     Endif
  112.     End
  113.  
  114. ;------------------------------------------------------------------------------
  115. ;
  116. ; Usage report (before postprocessing)
  117. ;
  118. ; ■ Statements used :
  119. ;
  120. ;    1       End
  121. ;    4       Goto 
  122. ;    36      Let 
  123. ;    9       If 
  124. ;    2       FOpen 
  125. ;    3       FClose 
  126. ;    2       FGet 
  127. ;    1       GetUser
  128. ;    1       Delete 
  129. ;    2       Newline
  130. ;    1       Tokenize 
  131. ;    2       DispStr 
  132. ;    3       FSeek 
  133. ;    1       FDefIn 
  134. ;    7       FDRead 
  135. ;
  136. ;
  137. ; ■ Functions used :
  138. ;
  139. ;    4       *
  140. ;    1       /
  141. ;    12      +
  142. ;    3       ==
  143. ;    1       <
  144. ;    1       <=
  145. ;    3       >
  146. ;    2       >=
  147. ;    2       !
  148. ;    2       &&
  149. ;    1       ||
  150. ;    4       Len(
  151. ;    2       Mid()
  152. ;    2       Left()
  153. ;    2       Right()
  154. ;    1       Ferr()
  155. ;    7       Asc()
  156. ;    3       Trim()
  157. ;    1       String()
  158. ;    2       PPEPath()
  159. ;    1       PcbNode()
  160. ;    1       ReadLine()
  161. ;    3       GetToken()
  162. ;    2       GetEnv()
  163. ;    1       Exist()
  164. ;    1       FileInf()
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;
  168. ; Analysis flags : No flag
  169. ;
  170. ;------------------------------------------------------------------------------
  171. ;
  172. ; Postprocessing report
  173. ;
  174. ;    1       For/Next
  175. ;    0       While/EndWhile
  176. ;    1       If/Then or If/Then/Else
  177. ;    0       Select Case
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;                 AEGiS Corp - Break the routines, code against the machines!
  181. ;------------------------------------------------------------------------------
  182.