home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TSCV06.ZIP / VOTEINFO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-06  |  3KB  |  196 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  TINTEGER001(3)
  21.     Integer  INTEGER002
  22.     Integer  TINTEGER003(8)
  23.     Integer  TINTEGER004(8)
  24.     Integer  TINTEGER005(8)
  25.     Integer  INTEGER006
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING007 = ReadLine(PPEPath() + "USERS.APL", 1)
  37.     Tokenize STRING007
  38.     If (TokCount() == 0) Then
  39.         PrintLn 
  40.         PrintLn "@X00@X0ENup'n'Vote v0.6 - [UNREGISTRED]"
  41.         PrintLn "@X0FThere's no applying users.@XFF"
  42.         PrintLn 
  43.         Delay 45
  44.         Stop
  45.     Endif
  46.     For INTEGER002 = 1 To 8
  47.         STRING001 = ReadLine(PPEPath() + "INFO.CFG", INTEGER002)
  48.         Tokenize STRING001
  49.         If (INTEGER002 == 6) Then
  50.             TINTEGER003(INTEGER002) = STRING001
  51.             Continue
  52.         Endif
  53.         TINTEGER003(INTEGER002) = GetToken()
  54.         TINTEGER004(INTEGER002) = GetToken()
  55.         TINTEGER005(INTEGER002) = GetToken()
  56.     Next
  57.     PrintLn "@CLS@@X0ENup'n'vote v0.6 - [UNREGISTRED]"
  58.     DispFile PPEPath() + "INFO.", 0
  59.     AnsiPos TINTEGER003(7), TINTEGER004(7)
  60.     Print ReadLine(PPEPath() + "GENEREL.CFG", 1)
  61.     AnsiPos TINTEGER003(8), TINTEGER004(8)
  62.     Print ReadLine(PPEPath() + "GENEREL.CFG", 2)
  63.     If (FileInf(PPEPath() + "USERS.APL", 1) == 0) Then
  64.         Goto LABEL007
  65.     Endif
  66.     FOpen 5, PPEPath() + "USERS.APL", 0, 0
  67.     INTEGER006 = -1
  68.     FGet 5, STRING001
  69.     :LABEL001
  70.     If (Ferr(5)) Goto LABEL006
  71.     TINTEGER001(1) = 0
  72.     TINTEGER001(2) = 0
  73.     TINTEGER001(3) = 0
  74.     If (STRING001 == "") Then
  75.         Goto LABEL005
  76.     Endif
  77.     Inc INTEGER006
  78.     STRING006 = STRING001
  79.     Tokenize STRING006
  80.     STRING005 = GetToken()
  81.     While (TokCount() > 0) Do
  82.         STRING005 = STRING005 + " " + GetToken()
  83.     EndWhile
  84.     AnsiPos TINTEGER003(1), TINTEGER004(1) + INTEGER006
  85.     Print Left(STRING005, TINTEGER005(1))
  86.     Tokenize STRING001
  87.     STRING002 = GetToken()
  88.     STRING002 = STRING002 + GetToken()
  89.     STRING002 = Left(STRING002, 8)
  90.     DATE001 = FileInf(PPEPath() + STRING002 + ".ALL", 2)
  91.     AnsiPos TINTEGER003(5), TINTEGER004(5) + INTEGER006
  92.     Print DATE001
  93.     For INTEGER002 = 1 To 3
  94.         AnsiPos TINTEGER003(INTEGER002 + 1), TINTEGER004(INTEGER002 + 1) + INTEGER006
  95.         Print TINTEGER001(INTEGER002)
  96.     Next
  97.     If (FileInf(PPEPath() + STRING002 + ".VOT", 1) == 0) Then
  98.         Goto LABEL004
  99.     Endif
  100.     FOpen 4, PPEPath() + STRING002 + ".VOT", 0, 0
  101.     FGet 4, STRING003
  102.     :LABEL002
  103.     If (Ferr(4)) Goto LABEL003
  104.     Tokenize STRING003
  105.     While (TokCount() > 0) Do
  106.         STRING004 = GetToken()
  107.     EndWhile
  108.     If (Upper(STRING004) == "Y") Then
  109.         Inc TINTEGER001(1)
  110.     Endif
  111.     If (Upper(STRING004) == "N") Then
  112.         Inc TINTEGER001(2)
  113.     Endif
  114.     If (Upper(STRING004) == "B") Then
  115.         Inc TINTEGER001(3)
  116.     Endif
  117.     For INTEGER002 = 1 To 3
  118.         AnsiPos TINTEGER003(INTEGER002 + 1), TINTEGER004(INTEGER002 + 1) + INTEGER006
  119.         Print TINTEGER001(INTEGER002)
  120.     Next
  121.     FGet 4, STRING003
  122.     Goto LABEL002
  123.     :LABEL003
  124.     FClose 4
  125.     :LABEL004
  126.     If (INTEGER006 + 1 == TINTEGER005(6)) Then
  127.         Goto LABEL007
  128.     Endif
  129.     :LABEL005
  130.     FGet 5, STRING001
  131.     Goto LABEL001
  132.     :LABEL006
  133.     FClose 5
  134.     :LABEL007
  135.     AnsiPos 1, 22
  136.  
  137. ;------------------------------------------------------------------------------
  138. ;
  139. ; Usage report (before postprocessing)
  140. ;
  141. ; ■ Statements used :
  142. ;
  143. ;    28      Goto 
  144. ;    24      Let 
  145. ;    6       Print 
  146. ;    5       PrintLn 
  147. ;    16      If 
  148. ;    1       DispFile 
  149. ;    2       FOpen 
  150. ;    2       FClose 
  151. ;    4       FGet 
  152. ;    1       Delay 
  153. ;    4       Inc 
  154. ;    5       Tokenize 
  155. ;    1       Stop
  156. ;    7       AnsiPos 
  157. ;
  158. ;
  159. ; ■ Functions used :
  160. ;
  161. ;    1       -
  162. ;    28      +
  163. ;    9       ==
  164. ;    3       <
  165. ;    3       <=
  166. ;    2       >
  167. ;    6       >=
  168. ;    16      !
  169. ;    6       &&
  170. ;    3       ||
  171. ;    3       Upper()
  172. ;    2       Left()
  173. ;    2       Ferr()
  174. ;    10      PPEPath()
  175. ;    4       ReadLine()
  176. ;    8       GetToken()
  177. ;    3       FileInf()
  178. ;    3       TokCount()
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Analysis flags : No flag
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;
  186. ; Postprocessing report
  187. ;
  188. ;    3       For/Next
  189. ;    2       While/EndWhile
  190. ;    9       If/Then or If/Then/Else
  191. ;    0       Select Case
  192. ;
  193. ;------------------------------------------------------------------------------
  194. ;                 AEGiS Corp - Break the routines, code against the machines!
  195. ;------------------------------------------------------------------------------
  196.