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