home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1997 January / CD_shareware_1-97.iso / DOS / COMUNICA / BPC-SLOW.ZIP / SLOW.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-04-22  |  1.6 KB  |  140 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.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     STRING001 = Upper(GetToken())
  38.     For INTEGER001 = 1 To 999
  39.         STRING002 = ReadLine(PPEPath() + "slow.dat", INTEGER001)
  40.         If (Len(STRING002) < 1) Then
  41.             End
  42.         Endif
  43.         INTEGER002 = InStr(STRING002, STRING001)
  44.         If (INTEGER002 > 0) Then
  45.             Goto LABEL001
  46.         Endif
  47.     Next
  48.     End
  49.     :LABEL001
  50.     STRING003 = ReadLine(PPEPath() + "slow.cfg", 1)
  51.     STRING004 = ReadLine(PPEPath() + "slow.cfg", 2)
  52.     STRING005 = ReadLine(PPEPath() + "slow.cfg", 3)
  53.     STRING006 = ReadLine(PPEPath() + "slow.cfg", 4)
  54.     INTEGER004 = STRING006
  55.     INTEGER007 = STRING003
  56.     INTEGER008 = STRING004
  57.     INTEGER009 = STRING005
  58.     INTEGER003 = InStr(STRING002, ";")
  59.     STRING002 = Right(STRING002, Len(STRING002) - INTEGER003)
  60.     INTEGER003 = 1
  61.     INTEGER001 = 1
  62.     INTEGER006 = GetY()
  63.     INTEGER005 = Len(STRING002)
  64.     :LABEL002
  65.     If (INTEGER003 == INTEGER005 + 1) Then
  66.         End
  67.     Endif
  68.     STRING001 = Left(STRING002, INTEGER003)
  69.     STRING001 = Right(STRING001, 1)
  70.     Color INTEGER007
  71.     AnsiPos INTEGER001, INTEGER006
  72.     Print STRING001
  73.     Delay INTEGER004
  74.     Color INTEGER008
  75.     AnsiPos INTEGER001, INTEGER006
  76.     Print STRING001
  77.     Delay INTEGER004
  78.     Color INTEGER009
  79.     AnsiPos INTEGER001, INTEGER006
  80.     Print STRING001
  81.     Delay INTEGER004
  82.     INTEGER003 = INTEGER003 + 1
  83.     INTEGER001 = INTEGER001 + 1
  84.     Goto LABEL002
  85.  
  86. ;------------------------------------------------------------------------------
  87. ;
  88. ; Usage report (before postprocessing)
  89. ;
  90. ; ■ Statements used :
  91. ;
  92. ;    3       End
  93. ;    3       Color 
  94. ;    8       Goto 
  95. ;    23      Let 
  96. ;    3       Print 
  97. ;    4       If 
  98. ;    3       Delay 
  99. ;    3       AnsiPos 
  100. ;
  101. ;
  102. ; ■ Functions used :
  103. ;
  104. ;    9       +
  105. ;    1       -
  106. ;    1       ==
  107. ;    2       <
  108. ;    1       <=
  109. ;    1       >
  110. ;    2       >=
  111. ;    4       !
  112. ;    2       &&
  113. ;    1       ||
  114. ;    3       Len(
  115. ;    1       Upper()
  116. ;    1       Left()
  117. ;    2       Right()
  118. ;    2       InStr()
  119. ;    5       PPEPath()
  120. ;    5       ReadLine()
  121. ;    1       GetToken()
  122. ;    1       GetY()
  123. ;
  124. ;------------------------------------------------------------------------------
  125. ;
  126. ; Analysis flags : No flag
  127. ;
  128. ;------------------------------------------------------------------------------
  129. ;
  130. ; Postprocessing report
  131. ;
  132. ;    1       For/Next
  133. ;    0       While/EndWhile
  134. ;    3       If/Then or If/Then/Else
  135. ;    0       Select Case
  136. ;
  137. ;------------------------------------------------------------------------------
  138. ;                 AEGiS Corp - Break the routines, code against the machines!
  139. ;------------------------------------------------------------------------------
  140.