home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 019A / PCBDEMO.ZIP / PCBDISK1.EXE / RIP / PPE / LANGDEMO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-01-01  |  2KB  |  163 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     Int      INT001
  30.     Int      INT002
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING003 = Chr(8) + " " + Chr(8)
  35.     STRING004 = Chr(27)
  36.     BOOLEAN001 = 0
  37.     BOOLEAN002 = 0
  38.     BOOLEAN003 = 1
  39.     STRING006 = "Enter Language # to use (Enter)=no change"
  40.     If (OnLocal()) Goto LABEL001
  41.     MPrint STRING004 + "[!"
  42.     MPrint STRING003 + STRING003 + STRING003
  43.     MPrint STRING004 + " F"
  44.     MPrint STRING003 + STRING003 + STRING003
  45.     MPrint STRING004 + "[6n"
  46.     MPrint STRING003 + STRING003 + STRING003 + STRING003
  47.     STRING001 = Chr(MGetByte())
  48.     While ((STRING001 == "") && (INTEGER001 <= 36)) Do
  49.         STRING001 = Chr(MGetByte())
  50.         If (STRING001 == "") Then
  51.             Delay 2
  52.             INTEGER001 = INTEGER001 + 2
  53.         Endif
  54.     EndWhile
  55.     While (STRING001 <> "") Do
  56.         STRING002 = STRING002 + STRING001
  57.         STRING001 = Chr(MGetByte())
  58.         If (STRING001 == "") Then
  59.             Delay 2
  60.             STRING001 = Chr(MGetByte())
  61.         Endif
  62.     EndWhile
  63.     If (Left(STRING002, 8) == "RIPSCRIP") Then
  64.         BOOLEAN001 = 1
  65.         BOOLEAN002 = 1
  66.     Endif
  67.     If (BOOLEAN001) Then
  68.         FCreate 1, "CALR_HAS.RIP", 2, 0
  69.         FClose 1
  70.     Endif
  71.     :LABEL001
  72.     If (BOOLEAN001) Then
  73.         STRING005 = ReadLine(PCBDat(), 49)
  74.         FOpen 1, STRING005, 0, 0
  75.         FGet 1, STRING001
  76.         :LABEL002
  77.         If (Ferr(1)) Goto LABEL003
  78.         INT001 = INT001 + 1
  79.         If (InStr(STRING001, ".RIP")) Then
  80.             INT002 = INT001
  81.             If (BOOLEAN001) KbdStuff INT002
  82.         Endif
  83.         FGet 1, STRING001
  84.         Goto LABEL002
  85.         :LABEL003
  86.         FClose 1
  87.     Endif
  88.     If (PPLBufSize() == 0) Then
  89.         STRING002 = ""
  90.         InputStr STRING006, STRING002, 7, 2, Mask_Num(), 128 + 256
  91.         If (STRING002 == "") STRING002 = "1"
  92.         KbdStuff STRING002
  93.     Endif
  94.     End
  95.  
  96. ;------------------------------------------------------------------------------
  97. ;
  98. ; Usage report (before postprocessing)
  99. ;
  100. ; ■ Statements used :
  101. ;
  102. ;    1       End
  103. ;    14      Goto 
  104. ;    19      Let 
  105. ;    13      If 
  106. ;    1       FCreate 
  107. ;    1       FOpen 
  108. ;    2       FClose 
  109. ;    2       FGet 
  110. ;    1       InputStr 
  111. ;    2       Delay 
  112. ;    2       KbdStuff 
  113. ;    6       MPrint 
  114. ;
  115. ;
  116. ; ■ Functions used :
  117. ;
  118. ;    16      +
  119. ;    6       ==
  120. ;    1       <>
  121. ;    1       <=
  122. ;    10      !
  123. ;    1       &&
  124. ;    1       Left()
  125. ;    1       Ferr()
  126. ;    7       Chr()
  127. ;    1       InStr()
  128. ;    1       Mask_Num()
  129. ;    1       PCBDat()
  130. ;    1       ReadLine()
  131. ;    1       OnLocal()
  132. ;    4       MGetByte()
  133. ;    1       PPLBufSize()
  134. ;
  135. ;------------------------------------------------------------------------------
  136. ;
  137. ; Analysis flags : Md
  138. ;
  139. ; M - Send text to modem only ■ 4
  140. ;     Some informations are sent only to the modem, not to the local
  141. ;     screen, this is a well known way to make stealth backdoors, Check!
  142. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  143. ;
  144. ; d - Access PCBOARD.DAT ■ 2
  145. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  146. ;     for many PPE so they can find various informations on the system
  147. ;     (system paths, max number of lines in messages, ...) but it may also
  148. ;     be a way to gather vital informations.
  149. ;     ■ Search for : PCBDAT()
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;
  153. ; Postprocessing report
  154. ;
  155. ;    0       For/Next
  156. ;    2       While/EndWhile
  157. ;    7       If/Then or If/Then/Else
  158. ;    0       Select Case
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;                 AEGiS Corp - Break the routines, code against the machines!
  162. ;------------------------------------------------------------------------------
  163.