home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / Q-ENSE99.ZIP / CHECK.PPE (.txt) next >
PCBoard Programming Language Executable  |  1995-06-06  |  3KB  |  164 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.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     GetUser
  32.     INTEGER003 = 1
  33.     INTEGER002 = 1
  34.     INTEGER004 = 1
  35.     INTEGER001 = CurSec()
  36.     If (INTEGER001 == 10) Then
  37.         INTEGER002 = 2
  38.         STRING005 = " NEW"
  39.     Endif
  40.     If (INTEGER001 == 20) Then
  41.         INTEGER002 = 13
  42.         STRING005 = "LAMA"
  43.     Endif
  44.     If (INTEGER001 == 30) Then
  45.         INTEGER002 = 16
  46.         STRING005 = "Okay"
  47.     Endif
  48.     If (INTEGER001 == 40) Then
  49.         INTEGER002 = 19
  50.         STRING005 = "Good"
  51.     Endif
  52.     If (INTEGER001 == 50) Then
  53.         INTEGER002 = 22
  54.         STRING005 = "Well"
  55.     Endif
  56.     If (INTEGER001 == 60) Then
  57.         INTEGER002 = 25
  58.         STRING005 = "Kewl"
  59.     Endif
  60.     If (INTEGER001 == 70) Then
  61.         INTEGER002 = 28
  62.         STRING005 = "Rule"
  63.     Endif
  64.     If (INTEGER001 == 80) Then
  65.         INTEGER002 = 32
  66.         STRING005 = "CSys"
  67.     Endif
  68.     If (INTEGER001 == 90) Then
  69.         INTEGER002 = 36
  70.         STRING005 = "!!!!"
  71.     Endif
  72.     Cls
  73.     DispFile PPEPath() + "gfx\enh_sec.mid", 7
  74.     AnsiPos 40, 5
  75.     :LABEL001
  76.     STRING001 = "@X04░"
  77.     If (INTEGER003 > 14) STRING001 = "@X04▒"
  78.     If (INTEGER003 > 26) STRING001 = "@X04▓"
  79.     If (INTEGER003 > 33) STRING001 = "@X04█"
  80.     Print STRING001
  81.     If (INTEGER003 == INTEGER002) Goto LABEL002
  82.     Inc INTEGER003
  83.     Delay 1
  84.     Goto LABEL001
  85.     Stop
  86.     :LABEL002
  87.     AnsiPos 47, 19
  88.     Print "@X07" + STRING005
  89.     AnsiPos 73, 19
  90.     Print "@X07" + INTEGER001
  91.     AnsiPos 47, 20
  92.     Print "@X07" + U_Name()
  93.     AnsiPos 39, 11
  94.     STRING004 = INTEGER001
  95.     FOpen 1, PPEPath() + "infos\sec." + STRING004, 0, 0
  96.     :LABEL003
  97.     FGet 1, STRING003
  98.     Print "@X07" + STRING003
  99.     If (STRING003 == "") Goto LABEL004
  100.     If (INTEGER004 == 6) Goto LABEL004
  101.     AnsiPos 39, 11 + INTEGER004
  102.     Inc INTEGER004
  103.     Goto LABEL003
  104.     Stop
  105.     :LABEL004
  106.     STRING002 = Inkey()
  107.     If (STRING002 > "") Goto LABEL005
  108.     Goto LABEL004
  109.     Stop
  110.     :LABEL005
  111.     Cls
  112.     PrintLn "@X07Thanks for using Enhanced Security Show V.99 by Cosmic.Qtip"
  113.     Stop
  114.  
  115. ;------------------------------------------------------------------------------
  116. ;
  117. ; Usage report (before postprocessing)
  118. ;
  119. ; ■ Statements used :
  120. ;
  121. ;    2       Cls
  122. ;    16      Goto 
  123. ;    28      Let 
  124. ;    5       Print 
  125. ;    1       PrintLn 
  126. ;    16      If 
  127. ;    1       DispFile 
  128. ;    1       FOpen 
  129. ;    1       FGet 
  130. ;    1       GetUser
  131. ;    1       Delay 
  132. ;    2       Inc 
  133. ;    4       Stop
  134. ;    6       AnsiPos 
  135. ;
  136. ;
  137. ; ■ Functions used :
  138. ;
  139. ;    8       +
  140. ;    12      ==
  141. ;    4       >
  142. ;    9       !
  143. ;    1       U_Name()
  144. ;    1       Inkey()
  145. ;    2       PPEPath()
  146. ;    1       CurSec()
  147. ;
  148. ;------------------------------------------------------------------------------
  149. ;
  150. ; Analysis flags : No flag
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Postprocessing report
  155. ;
  156. ;    0       For/Next
  157. ;    0       While/EndWhile
  158. ;    9       If/Then or If/Then/Else
  159. ;    0       Select Case
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;                 AEGiS Corp - Break the routines, code against the machines!
  163. ;------------------------------------------------------------------------------
  164.