home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / VOTE207.ZIP / NEWBOOTH.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-02  |  3KB  |  185 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   TSTRING006(1)
  34.     String   STRING007
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     GetUser
  39.     FOpen 1, PPEPath() + "vote.CFG", 0, 0
  40.     FDefIn 1
  41.     FDGet TSTRING006(1)
  42.     TSTRING006(1) = RTrim(Left(TSTRING006(1), 29), " ")
  43.     FClose 1
  44.     INTEGER006 = TSTRING006(1)
  45.     INTEGER009 = 0
  46.     StartDisp 1
  47.     Color DefColor()
  48.     Cls
  49.     PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  50.     PrintLn "@X10│··@X1EVoter++@X10···@X1CThese are Booths you have not voted on yet!@X10···@X1B(c)94 Bill Marcy@X10··@X19│@X0F"
  51.     PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  52.     For INTEGER001 = 1 To INTEGER006
  53.         If (INTEGER001 <= 1) Gosub LABEL002
  54.         STRING001 = INTEGER001
  55.         STRING003 = ReadLine(PPEPath() + "VOTE" + STRING001 + ".QUE", 1)
  56.         INTEGER002 = 72 - Len(STRING003)
  57.         Gosub LABEL001
  58.         If ((INTEGER001 <= 9) && (STRING002 == "N")) Then
  59.             PrintLn "@X10│@X1C ", INTEGER001, "@X16) @X1B", STRING003 + Space(INTEGER002), "@X19│@X0F"
  60.             Dec INTEGER009
  61.         Endif
  62.         If ((INTEGER001 >= 10) && (STRING002 == "N")) Then
  63.             PrintLn "@X10│@X1C", INTEGER001, "@X16)@X1B ", STRING003 + Space(INTEGER002), "@X19│@X0F"
  64.             Dec INTEGER009
  65.         Endif
  66.         INTEGER009 = INTEGER009 + 1
  67.         If (INTEGER009 == S2I(TSTRING006(1), 10)) Then
  68.             PrintLn "@X10│···@X1AYou voted on everything, you should create a booth for everyone else!@X10····@X19│@X0F"
  69.             PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  70.             End
  71.         Endif
  72.     Next
  73.     PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
  74.     Print "     @X09Would you like to @X0AVOTE@X09 on any of these @X06(@X0CY@X0E/@X0Cn@X06)"
  75.     STRING007 = ""
  76.     While (STRING007 == "") Do
  77.         Gosub LABEL003
  78.         STRING007 = Inkey()
  79.     EndWhile
  80.     If (Upper(STRING007) == "Y") Then
  81.         Call PPEPath() + "vote.ppe"
  82.         Cls
  83.         End
  84.     Endif
  85.     :LABEL001
  86.     STRING004 = PPEPath() + "vote" + STRING001 + ".nam"
  87.     INTEGER003 = FileInf(STRING004, 4)
  88.     INTEGER004 = INTEGER003 / 50
  89.     If (INTEGER004 == 0) Then
  90.         STRING002 = "N"
  91.         Return
  92.     Endif
  93.     For INTEGER005 = 1 To INTEGER004
  94.         STRING005 = ReadLine(STRING004, INTEGER005)
  95.         If (U_Name() == Left(STRING005, Len(U_Name()))) Then
  96.             STRING002 = "Y"
  97.             Return
  98.         Endif
  99.         STRING002 = "N"
  100.     Next
  101.     Return
  102.     :LABEL002
  103.     PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  104.     Return
  105.     :LABEL003
  106.     Inc INTEGER007
  107.     For INTEGER008 = 1 To 45
  108.     Next
  109.     If (INTEGER007 >= 200) End
  110.     Return
  111.  
  112. ;------------------------------------------------------------------------------
  113. ;
  114. ; Usage report (before postprocessing)
  115. ;
  116. ; ■ Statements used :
  117. ;
  118. ;    3       End
  119. ;    2       Cls
  120. ;    1       Color 
  121. ;    14      Goto 
  122. ;    22      Let 
  123. ;    1       Print 
  124. ;    9       PrintLn 
  125. ;    12      If 
  126. ;    1       FOpen 
  127. ;    1       FClose 
  128. ;    1       StartDisp 
  129. ;    1       GetUser
  130. ;    3       Gosub 
  131. ;    5       Return
  132. ;    1       Inc 
  133. ;    2       Dec 
  134. ;    1       Call 
  135. ;    1       FDefIn 
  136. ;    1       FDGet 
  137. ;
  138. ;
  139. ; ■ Functions used :
  140. ;
  141. ;    1       /
  142. ;    14      +
  143. ;    1       -
  144. ;    7       ==
  145. ;    3       <
  146. ;    5       <=
  147. ;    8       >=
  148. ;    10      !
  149. ;    8       &&
  150. ;    3       ||
  151. ;    2       Len(
  152. ;    1       Upper()
  153. ;    2       Left()
  154. ;    2       Space()
  155. ;    1       RTrim()
  156. ;    2       U_Name()
  157. ;    1       Inkey()
  158. ;    4       PPEPath()
  159. ;    2       ReadLine()
  160. ;    1       S2I()
  161. ;    1       DefColor()
  162. ;    1       FileInf()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : C
  167. ;
  168. ; C - Call child PPE ■ 3
  169. ;     This is usually normal, but may be a tricky way to launch some
  170. ;     sysop-only commands.
  171. ;     ■ Search for : CALL
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Postprocessing report
  176. ;
  177. ;    3       For/Next
  178. ;    1       While/EndWhile
  179. ;    6       If/Then or If/Then/Else
  180. ;    0       Select Case
  181. ;
  182. ;------------------------------------------------------------------------------
  183. ;                 AEGiS Corp - Break the routines, code against the machines!
  184. ;------------------------------------------------------------------------------
  185.