home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / POB605.ZIP / POB605.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-01-02  |  2KB  |  154 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.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     Goto LABEL001
  39.     End
  40.     If (0 == 0) PROCEDURE001 = "DUMMY"
  41.  
  42.     EndProc
  43.  
  44.     :LABEL001
  45.     STRING001 = YesChar()
  46.     STRING002 = Chr(13)
  47.     STRING003 = Chr(27)
  48.     STRING004 = Chr(7)
  49.     INTEGER002 = 10
  50.     STRING005 = PPEPath() + "CFG" + LangExt()
  51.     STRING006 = ReadLine(STRING005, 1)
  52.     STRING007 = ReadLine(STRING005, 2)
  53.     INTEGER003 = ReadLine(STRING005, 3)
  54.     INTEGER004 = ReadLine(STRING005, 4)
  55.     INTEGER005 = ReadLine(STRING005, 5)
  56.     INTEGER006 = ReadLine(STRING005, 6)
  57.     INTEGER007 = ReadLine(STRING005, 7)
  58.     STRING008 = ReadLine(STRING005, 8)
  59.     Cls
  60.     DispFile PPEPath() + PPEName(), 2 + 1 + 4
  61.     AnsiPos 50, 2
  62.     Print "@X08POB605 [PPE3] by POB(@X0Ac@X08)1995"
  63.     Print STRING008
  64.     AnsiPos INTEGER004, INTEGER005
  65.     Print STRING006
  66.     AnsiPos INTEGER006, INTEGER007
  67.     Print STRING007
  68.     AnsiPos 29, INTEGER003
  69.     Print "░░░░░░░░░░░░░░░░░░░░░░░░"
  70.     AnsiPos 29, INTEGER003
  71.     For INTEGER001 = 0 To INTEGER002
  72.         Print "████"
  73.         MPrint STRING004
  74.         Delay 20
  75.         Inc INTEGER001
  76.         STRING009 = Inkey()
  77.         If (STRING009 == STRING003) Goto LABEL003
  78.         If (STRING009 == STRING002) Goto LABEL002
  79.     Next
  80.     DefColor
  81.     Cls
  82.     :LABEL002
  83.     DefColor
  84.     Cls
  85.     KbdStuff YesChar() + STRING002
  86.     End
  87.     :LABEL003
  88.     DefColor
  89.     KbdStuff NoChar() + STRING002 + "MENU" + STRING002
  90.     End
  91.  
  92. ;------------------------------------------------------------------------------
  93. ;
  94. ; Usage report (before postprocessing)
  95. ;
  96. ; ■ Statements used :
  97. ;
  98. ;    3       End
  99. ;    3       Cls
  100. ;    5       Goto 
  101. ;    18      Let 
  102. ;    6       Print 
  103. ;    4       If 
  104. ;    1       DispFile 
  105. ;    3       DefColor
  106. ;    1       Delay 
  107. ;    1       Inc 
  108. ;    2       KbdStuff 
  109. ;    5       AnsiPos 
  110. ;    1       MPrint 
  111. ;    1       EndProc
  112. ;
  113. ;
  114. ; ■ Functions used :
  115. ;
  116. ;    10      +
  117. ;    3       ==
  118. ;    1       <
  119. ;    1       <=
  120. ;    2       >=
  121. ;    1       !
  122. ;    2       &&
  123. ;    1       ||
  124. ;    3       Chr()
  125. ;    1       NoChar()
  126. ;    2       YesChar()
  127. ;    1       Inkey()
  128. ;    2       PPEPath()
  129. ;    8       ReadLine()
  130. ;    1       LangExt()
  131. ;    1       PPEName()
  132. ;
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Analysis flags : M
  136. ;
  137. ; M - Send text to modem only ■ 4
  138. ;     Some informations are sent only to the modem, not to the local
  139. ;     screen, this is a well known way to make stealth backdoors, Check!
  140. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  141. ;
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Postprocessing report
  145. ;
  146. ;    1       For/Next
  147. ;    0       While/EndWhile
  148. ;    0       If/Then or If/Then/Else
  149. ;    0       Select Case
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;                 AEGiS Corp - Break the routines, code against the machines!
  153. ;------------------------------------------------------------------------------
  154.