home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / FPSTATS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-30  |  5KB  |  218 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.     Integer  INTEGER010
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   STRING018
  47.     String   STRING019
  48.     String   STRING020
  49.  
  50. ;------------------------------------------------------------------------------
  51.  
  52.     FOpen 1, PPEPath() + "PCBFPS.CFG", 0, 0
  53.     FGet 1, STRING002
  54.     FGet 1, INTEGER009
  55.     FGet 1, STRING003
  56.     FGet 1, STRING004
  57.     FGet 1, STRING005
  58.     FClose 1
  59.     STRING017 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
  60.     STRING014 = 0
  61.     INTEGER004 = 0
  62.     INTEGER005 = 0
  63.     INTEGER006 = 0
  64.     STRING012 = 1
  65.     INTEGER002 = 1
  66.     INTEGER008 = 0
  67.     GetUser
  68.     STRING020 = U_Notes(3)
  69.     Tokenize STRING020
  70.     STRING007 = GetToken()
  71.     STRING009 = GetToken()
  72.     STRING010 = GetToken()
  73.     INTEGER001 = STRING009
  74.     INTEGER010 = 0
  75.     FOpen 1, STRING017, 0, 0
  76.     FDefIn 1
  77.     FSeek 1, 0, 0
  78.     For INTEGER002 = 1 To 100000
  79.         INTEGER001 = INTEGER002
  80.         FDRead STRING011, 66
  81.         If (Ferr(1)) Break
  82.         STRING011 = Trim(STRING011, " ")
  83.         DATE001 = FileInf(STRING011, 2)
  84.         FDRead STRING013, 13
  85.         FDRead STRING011, 4
  86.         STRING011 = Trim(STRING011, " ")
  87.         INTEGER004 = Asc(Left(STRING011, 1))
  88.         If (Len(STRING011) > 1) INTEGER005 = 256 * Asc(Mid(STRING011, 2, 1))
  89.         If (Len(STRING011) == 3) INTEGER006 = 65536 * Asc(Right(STRING011, 1))
  90.         STRING015 = INTEGER004 + INTEGER005 + INTEGER006
  91.         INTEGER003 = STRING015 / INTEGER009
  92.         INTEGER005 = 0
  93.         INTEGER006 = 0
  94.         FDRead STRING011, 3
  95.         STRING011 = Trim(STRING011, " ")
  96.         INTEGER004 = Asc(Left(STRING011, 1))
  97.         If (Len(STRING011) > 1) INTEGER005 = 256 * Asc(Mid(STRING011, 2, 1))
  98.         If (Len(STRING011) == 3) INTEGER006 = 65536 * Asc(Right(STRING011, 1))
  99.         STRING016 = INTEGER004 + INTEGER005 + INTEGER006
  100.         FSeek 1, 9, 1
  101.         FDRead STRING019, 1
  102.         If (Asc(STRING019) == 1) INTEGER003 = 0
  103.         INTEGER010 = INTEGER010 + INTEGER003
  104.         FDRead STRING018, 1
  105.         FDRead STRING011, 1
  106.         FSeek 1, 31, 1
  107.     Next
  108.     STRING008 = INTEGER010
  109.     DispStr "@CLS@"
  110.     DispStr "@X01╔════════════════[@X04 File Point System @X08by @X01-=\@X0BT@X03he @X0BL@X03iquidater@X01/=- ]══════════════╗"
  111.     Newline
  112.     DispStr "║                                                                           ║"
  113.     Newline
  114.     DispStr "║     @X03This board uses a FILE POINT / COMMISSION system to control the file  @X01║"
  115.     Newline
  116.     DispStr "║  @X03transfers. Files cost points to download, you earn file points when you  @X01║"
  117.     Newline
  118.     DispStr "║  @X03upload, but you earn most of your points when other users download the   @X01║"
  119.     Newline
  120.     DispStr "║  @X03files you have uploaded! So, it really pays to get the HOT files here    @X01║"
  121.     Newline
  122.     DispStr "║  @X03first so you can earn all the commission.                                @X01║"
  123.     Newline
  124.     DispStr "║                                                                           ║"
  125.     Newline
  126.     DispStr "╚═══════════════════════════════════════════════════════════════════════════╝"
  127.     Newline
  128.     DispStr "                             @X08[Current Settings]"
  129.     Newline
  130.     STRING010 = INTEGER009
  131.     DispStr "         @X02Downloading files cost you @X0B1 @X02file point per @X0B" + STRING010 + " @X02bytes."
  132.     Newline
  133.     DispStr "           You recieve @X0B1 @X02file point per @X0B" + STRING004 + " @X02bytes you upload."
  134.     Newline
  135.     DispStr "        @X02When your uploads are downloaded you recieve @X0B" + STRING005 + "@X02% commission."
  136.     Newline
  137.     DispStr "          @X02New Users are given @X0B" + STRING003 + " @X02file points to start them off."
  138.     Newline
  139.     Newline
  140.     DispStr "                    @X03You currently have : @X0C" + STRING009 + " @X03file points."
  141.     Newline
  142.     DispStr "                 @X03You have flagged files worth @X04@X0C" + STRING008 + " @X03file points."
  143.     Newline
  144.     INTEGER007 = STRING009
  145.     INTEGER001 = INTEGER007 - INTEGER010
  146.     STRING006 = INTEGER001
  147.     DispStr "                    @X03Leaving you @X0C" + STRING006 + " @X03available file points."
  148.     Newline
  149.     Newline
  150.     End
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    1       End
  159. ;    3       Goto 
  160. ;    39      Let 
  161. ;    7       If 
  162. ;    2       FOpen 
  163. ;    1       FClose 
  164. ;    5       FGet 
  165. ;    1       GetUser
  166. ;    19      Newline
  167. ;    1       Tokenize 
  168. ;    18      DispStr 
  169. ;    3       FSeek 
  170. ;    1       FDefIn 
  171. ;    7       FDRead 
  172. ;
  173. ;
  174. ; ■ Functions used :
  175. ;
  176. ;    4       *
  177. ;    1       /
  178. ;    24      +
  179. ;    1       -
  180. ;    3       ==
  181. ;    1       <
  182. ;    1       <=
  183. ;    2       >
  184. ;    2       >=
  185. ;    1       !
  186. ;    2       &&
  187. ;    1       ||
  188. ;    4       Len(
  189. ;    2       Mid()
  190. ;    2       Left()
  191. ;    2       Right()
  192. ;    1       Ferr()
  193. ;    7       Asc()
  194. ;    3       Trim()
  195. ;    1       String()
  196. ;    1       PPEPath()
  197. ;    1       PcbNode()
  198. ;    3       GetToken()
  199. ;    2       GetEnv()
  200. ;    1       FileInf()
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Analysis flags : No flag
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Postprocessing report
  209. ;
  210. ;    1       For/Next
  211. ;    0       While/EndWhile
  212. ;    0       If/Then or If/Then/Else
  213. ;    0       Select Case
  214. ;
  215. ;------------------------------------------------------------------------------
  216. ;                 AEGiS Corp - Break the routines, code against the machines!
  217. ;------------------------------------------------------------------------------
  218.