home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SAC-QBUL.ZIP / CQBULLS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-27  |  3KB  |  187 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     String   STRING001
  27.     String   TSTRING002(9)
  28.     String   TSTRING003(9)
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     INTEGER004 = 0
  33.     INTEGER002 = 0
  34.     PrintLn "@CLS@@POFF@"
  35.     StartDisp 1
  36.     AnsiPos 1, 1
  37.     DispFile PPEPath() + "CSB.DAT", 0
  38.     PrintLn 
  39.     FOpen 1, PPEPath() + "CSB.CFG", 0, 0
  40.     FGet 1, INTEGER003
  41.     INTEGER004 = 0
  42.     :LABEL001
  43.     If (Ferr(1)) Goto LABEL002
  44.     Inc INTEGER004
  45.     FGet 1, TSTRING002(INTEGER004)
  46.     Goto LABEL001
  47.     :LABEL002
  48.     FClose 1
  49.     FOpen 2, PPEPath() + "BULLS.DAT", 2, 0
  50.     INTEGER005 = 0
  51.     BOOLEAN001 = 0
  52.     :LABEL003
  53.     If (BOOLEAN001) Goto LABEL004
  54.     Inc INTEGER005
  55.     FGet 2, TSTRING003(INTEGER005)
  56.     If (INTEGER005 == INTEGER004) BOOLEAN001 = 1
  57.     Goto LABEL003
  58.     :LABEL004
  59.     FClose 2
  60.     BOOLEAN001 = 0
  61.     AnsiPos 1, INTEGER003
  62.     PrintLn "@X08┌────────────────────────────────────────────────────────────────────────────┐"
  63.     INTEGER001 = GetY()
  64.     INTEGER005 = 0
  65.     INTEGER002 = 0
  66.     :LABEL005
  67.     If (INTEGER002 == 1) Goto LABEL006
  68.     Inc INTEGER005
  69.     If (INTEGER005 == INTEGER004) Goto LABEL006
  70.     PrintLn "@POS:1@@X08│@POS:9@@X01(@X0F", INTEGER005, "@X01)", "@POS:30@", TSTRING002(INTEGER005), "@POS:78@@X08│"
  71.     Goto LABEL005
  72.     :LABEL006
  73.     PrintLn "@X08└────────────────────────────────────────────────────────────────────────────┘"
  74.     Print "@POS:1@@X07 ·■ @X08(@X0F@X08·@X0F@X08) @X07u@X08p/@X07d@X08own @X07■ @X08(@X0FESC@X08) @X07q@X08uit @X07■ @X08(@X07ENTER@X08) @X07s@X08elect @X07■·      @X08quick bulls by ROY/SAC"
  75.     INTEGER006 = 1
  76.     Dec INTEGER004
  77.     AnsiPos 3, INTEGER001
  78.     Print "@POS:5@@X04░▒▓", "@X4E", "@POS:9@(", INTEGER006, ")@POS:30@", StripAtx(TSTRING002(INTEGER006)), "@X4E", "@POS:72@@X04▓▒░@X08"
  79.     :LABEL007
  80.     If (BOOLEAN001) Goto LABEL008
  81.     STRING001 = Upper(Inkey())
  82.     Select Case (STRING001)
  83.         Case "UP"
  84.             If (INTEGER006 > 1) Then
  85.                 AnsiPos 1, INTEGER001
  86.                 PrintLn "@POS:1@@X08│@POS:9@@X01(@X0F", INTEGER006, "@X01)", "@POS:30@", TSTRING002(INTEGER006), "@X07@POS:78@@X08│"
  87.                 Dec INTEGER006
  88.                 Dec INTEGER001
  89.                 AnsiPos 3, INTEGER001
  90.                 Print "@POS:5@@X04░▒▓", "@X4E", "@POS:9@(", INTEGER006, ")@POS:30@", StripAtx(TSTRING002(INTEGER006)), "@X4E", "@POS:72@@X04▓▒░@X08"
  91.             Endif
  92.         Case "DOWN"
  93.             If (INTEGER006 < INTEGER004) Then
  94.                 AnsiPos 1, INTEGER001
  95.                 PrintLn "@POS:1@@X08│@POS:9@@X01(@X0F", INTEGER006, "@X01)", "@POS:30@", TSTRING002(INTEGER006), "@X07@POS:78@@X08│"
  96.                 Inc INTEGER006
  97.                 Inc INTEGER001
  98.                 AnsiPos 3, INTEGER001
  99.                 Print "@POS:5@@X04░▒▓", "@X4E", "@POS:9@(", INTEGER006, ")@POS:30@", StripAtx(TSTRING002(INTEGER006)), "@X4E", "@POS:72@@X04▓▒░@X08"
  100.             Endif
  101.         Case Chr(13)
  102.             Goto LABEL008
  103.         Case Chr(27)
  104.             Goto LABEL011
  105.     End Select
  106.     BOOLEAN001 = 0
  107.     Goto LABEL007
  108.     :LABEL008
  109.     Print "@X07@CLS@"
  110.     DispFile String(TSTRING003(INTEGER006)), 0
  111.     Print "@WAIT@@POFF@"
  112.     StartDisp 1
  113.     AnsiPos 1, 1
  114.     DispFile PPEPath() + "CSB.DAT", 0
  115.     AnsiPos 1, INTEGER003
  116.     PrintLn "@X08┌────────────────────────────────────────────────────────────────────────────┐"
  117.     INTEGER005 = 0
  118.     :LABEL009
  119.     Inc INTEGER005
  120.     If (INTEGER005 == INTEGER004 + 1) Goto LABEL010
  121.     PrintLn "@POS:1@@X08│@POS:9@@X01(@X0F", INTEGER005, "@X01)", "@POS:30@", TSTRING002(INTEGER005), "@POS:78@@X08│"
  122.     Goto LABEL009
  123.     :LABEL010
  124.     PrintLn "@X08└────────────────────────────────────────────────────────────────────────────┘"
  125.     Print "@POS:1@@X07 ·■ @X08(@X0F@X08·@X0F@X08) @X07u@X08p/@X07d@X08own @X07■ @X08(@X0FESC@X08) @X07q@X08uit @X07■ @X08(@X07ENTER@X08) @X07s@X08elect @X07■·      @X08quick bulls by ROY/SAC"
  126.     AnsiPos 3, INTEGER001
  127.     Print "@POS:5@@X04░▒▓", "@X4E", "@POS:9@(", INTEGER006, ")@POS:30@", StripAtx(TSTRING002(INTEGER006)), "@X4E", "@POS:72@@X04▓▒░@X08"
  128.     Goto LABEL007
  129.     :LABEL011
  130.     PrintLn "@X07@CLS@"
  131.     End
  132.  
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Usage report (before postprocessing)
  136. ;
  137. ; ■ Statements used :
  138. ;
  139. ;    1       End
  140. ;    24      Goto 
  141. ;    14      Let 
  142. ;    8       Print 
  143. ;    11      PrintLn 
  144. ;    13      If 
  145. ;    3       DispFile 
  146. ;    2       FOpen 
  147. ;    2       FClose 
  148. ;    3       FGet 
  149. ;    2       StartDisp 
  150. ;    6       Inc 
  151. ;    3       Dec 
  152. ;    10      AnsiPos 
  153. ;
  154. ;
  155. ; ■ Functions used :
  156. ;
  157. ;    5       +
  158. ;    8       ==
  159. ;    1       <
  160. ;    1       >
  161. ;    9       !
  162. ;    1       Upper()
  163. ;    1       Ferr()
  164. ;    2       Chr()
  165. ;    4       StripAtx()
  166. ;    1       Inkey()
  167. ;    1       String()
  168. ;    4       PPEPath()
  169. ;    1       GetY()
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;
  173. ; Analysis flags : No flag
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Postprocessing report
  178. ;
  179. ;    0       For/Next
  180. ;    0       While/EndWhile
  181. ;    2       If/Then or If/Then/Else
  182. ;    1       Select Case
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;                 AEGiS Corp - Break the routines, code against the machines!
  186. ;------------------------------------------------------------------------------
  187.