home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / AGSTUT1.ZIP / AGSTUT1.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-04  |  2KB  |  195 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     Declare  Procedure PROC001(String STRING002)
  28.     Declare  Procedure PROC002(String STRING003)
  29.     Declare  Procedure PROC003()
  30.     Declare  Procedure PROC004()
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     Cls
  35.     Print "@X0F"
  36.     PROC002("This is a string printed with the PrintScramble() Procedure")
  37.     PrintLn 
  38.     PROC001("This is a string printed with the PrintFade() Procedure")
  39.     End
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     Procedure PROC003()
  44.  
  45.     AnsiPos 1, 23
  46.     Color 0
  47.     Print " "
  48.     Backup 1
  49.  
  50.     EndProc
  51.  
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     Procedure PROC004()
  56.  
  57.     While (OutBytes() > 0) Do
  58.     EndWhile
  59.  
  60.     EndProc
  61.  
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     Procedure PROC001(String STRING002)
  66.  
  67.     For INTEGER001 = 1 To Len(STRING002)
  68.         If (Mid(STRING002, INTEGER001, 1) == " ") Then
  69.             Print "@X0F "
  70.             Continue
  71.         Endif
  72.         Print "@X08" + Mid(STRING002, INTEGER001, 1)
  73.         INTEGER002 = GetX()
  74.         INTEGER003 = GetY()
  75.         PROC003()
  76.         Delay 1
  77.         AnsiPos INTEGER002, INTEGER003
  78.         Backup 1
  79.         Print "@X07" + Mid(STRING002, INTEGER001, 1)
  80.         INTEGER002 = GetX()
  81.         INTEGER003 = GetY()
  82.         PROC003()
  83.         Delay 1
  84.         AnsiPos INTEGER002, INTEGER003
  85.         Backup 1
  86.         Print "@X0F" + Mid(STRING002, INTEGER001, 1)
  87.         INTEGER002 = GetX()
  88.         INTEGER003 = GetY()
  89.         PROC003()
  90.         Delay 1
  91.         PROC004()
  92.         AnsiPos INTEGER002, INTEGER003
  93.     Next
  94.  
  95.     EndProc
  96.  
  97.  
  98. ;------------------------------------------------------------------------------
  99.  
  100.     Procedure PROC002(String STRING003)
  101.  
  102.     INTEGER004 = GetX()
  103.     INTEGER005 = GetY()
  104.     INTEGER007 = CurColor()
  105.     INTEGER002 = Len(STRING003)
  106.     While (1) Do
  107.         INTEGER001 = Random(INTEGER002 - 1) + 1
  108.         INTEGER003 = 0
  109.         INTEGER006 = 0
  110.         While (1) Do
  111.             Inc INTEGER003
  112.             STRING001 = ScrText(INTEGER004 + INTEGER003 - 1, INTEGER005, 1, 0)
  113.             If (STRING001 == " ") Inc INTEGER006
  114.             If (INTEGER006 == INTEGER001) Break
  115.         EndWhile
  116.         AnsiPos INTEGER004 + INTEGER003 - 1, INTEGER005
  117.         STRING001 = Mid(STRING003, INTEGER003, 1)
  118.         If (STRING001 <> " ") Then
  119.             Print STRING001
  120.         Else
  121.             Print Chr(255)
  122.         Endif
  123.         Dec INTEGER002
  124.         If (INTEGER002 == 0) Break
  125.         PROC003()
  126.         Delay 1
  127.         PROC004()
  128.         Color INTEGER007
  129.     EndWhile
  130.  
  131.     EndProc
  132.  
  133.  
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Usage report (before postprocessing)
  137. ;
  138. ; ■ Statements used :
  139. ;
  140. ;    1       End
  141. ;    1       Cls
  142. ;    2       Color 
  143. ;    15      Goto 
  144. ;    17      Let 
  145. ;    8       Print 
  146. ;    1       PrintLn 
  147. ;    9       If 
  148. ;    4       Delay 
  149. ;    2       Inc 
  150. ;    1       Dec 
  151. ;    5       AnsiPos 
  152. ;    3       Backup 
  153. ;    4       EndProc
  154. ;
  155. ;
  156. ; ■ Functions used :
  157. ;
  158. ;    7       +
  159. ;    3       -
  160. ;    4       ==
  161. ;    1       <>
  162. ;    1       <
  163. ;    1       <=
  164. ;    1       >
  165. ;    2       >=
  166. ;    6       !
  167. ;    2       &&
  168. ;    1       ||
  169. ;    3       Len(
  170. ;    5       Mid()
  171. ;    1       Chr()
  172. ;    1       Random()
  173. ;    4       GetX()
  174. ;    4       GetY()
  175. ;    1       CurColor()
  176. ;    1       ScrText()
  177. ;    1       OutBytes()
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;
  181. ; Analysis flags : No flag
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;
  185. ; Postprocessing report
  186. ;
  187. ;    1       For/Next
  188. ;    3       While/EndWhile
  189. ;    2       If/Then or If/Then/Else
  190. ;    0       Select Case
  191. ;
  192. ;------------------------------------------------------------------------------
  193. ;                 AEGiS Corp - Break the routines, code against the machines!
  194. ;------------------------------------------------------------------------------
  195.