home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / RUN.ZIP / RUN.PPX < prev   
Text File  |  1997-01-26  |  5KB  |  135 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING007
  22.     Declare  Function FUNCTION001(String STRING002, Integer INTEGER002, Integer INTEGER003, Integer INTEGER004, String STRING003, String STRING004, String STRING005, String STRING006) String
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     INTEGER001 = FlagCnt()
  27.     PrintLn "@X08@CLS@------@X07░@X08-------------------------------------------------------@X07░@X08----------------"
  28.     PrintLn "@X08 @X09PPE Path/Name @X03[@X07·····························································@X03]"
  29.     PrintLn "@X08----@X07░@X08----------------------------------------------------@X07░@X08---------------------"
  30.     AnsiPos 15, 2
  31.     STRING001 = FUNCTION001(STRING001, 17, 2, 61, "@X0F", "@X07", "", "·")
  32.     Call STRING001
  33.     newline
  34.     End
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     Function FUNCTION001(String STRING002, Integer INTEGER002, Integer INTEGER003, Integer INTEGER004, String STRING003, String STRING004, String STRING005, String STRING006) String
  39.  
  40.     String   STRING008
  41.     Integer  INTEGER005
  42.     Integer  INTEGER006
  43.  
  44.     INTEGER005 = INTEGER002
  45.     INTEGER006 = INTEGER003
  46.     AnsiPos INTEGER005, INTEGER006
  47.     Print STRING003 + STRING002
  48.     INTEGER005 = GetX()
  49.     While (STRING008 <> Chr(13)) Do
  50.         AnsiPos INTEGER005, INTEGER006
  51.         STRING008 = ""
  52.         While (STRING008 == "") Do
  53.             STRING008 = Inkey()
  54.         EndWhile
  55.         if ((string008 == "UP") || (string008 == "DOWN") || (string008 == "LEFT") || (string008 == "RIGHT") || (string008 == "DEL") || (string008 == "BADKEY")) then
  56.             string008 = ""
  57.         endif        
  58.         If (((Asc(STRING008) > 31) && (Asc(STRING008) < 128)) && (INTEGER005 < INTEGER002 + INTEGER004)) Then
  59.             Print STRING003 + STRING008
  60.             STRING002 = STRING002 + STRING008
  61.             Inc INTEGER005
  62.         Endif
  63.         If ((Asc(STRING008) == 8) && (INTEGER005 > INTEGER002)) Then
  64.             AnsiPos INTEGER005 - 1, INTEGER006
  65.             Print STRING004 + STRING006
  66.             STRING002 = Mid(STRING002, 1, Len(STRING002) - 1)
  67.             Dec INTEGER005
  68.         Endif
  69.     EndWhile
  70.     FUNCTION001 = STRING002
  71.  
  72.     EndFunc
  73.  
  74.  
  75. ;------------------------------------------------------------------------------
  76. ;
  77. ; Usage report (before postprocessing)
  78. ;
  79. ; ■ Statements used :
  80. ;
  81. ;    1       End
  82. ;    6       Goto 
  83. ;    10      Let 
  84. ;    3       Print 
  85. ;    4       PrintLn 
  86. ;    4       If 
  87. ;    1       Inc 
  88. ;    1       Dec 
  89. ;    1       Call 
  90. ;    4       AnsiPos 
  91. ;    1       SaveScrn
  92. ;    1       RestScrn
  93. ;    1       EndFunc
  94. ;
  95. ;
  96. ; ■ Functions used :
  97. ;
  98. ;    5       +
  99. ;    2       -
  100. ;    2       ==
  101. ;    1       <>
  102. ;    2       <
  103. ;    2       >
  104. ;    4       !
  105. ;    3       &&
  106. ;    1       Len(
  107. ;    1       Mid()
  108. ;    1       Chr()
  109. ;    3       Asc()
  110. ;    1       Inkey()
  111. ;    1       GetX()
  112. ;    1       FlagCnt()
  113. ;
  114. ;------------------------------------------------------------------------------
  115. ;
  116. ; Analysis flags : C
  117. ;
  118. ; C - Call child PPE ■ 3
  119. ;     This is usually normal, but may be a tricky way to launch some
  120. ;     sysop-only commands.
  121. ;     ■ Search for : CALL
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    0       For/Next
  128. ;    2       While/EndWhile
  129. ;    2       If/Then or If/Then/Else
  130. ;    0       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.