home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / IKC-5LC.ZIP / IKC-MAKE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-08-19  |  2KB  |  169 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     If (Exist(PPEPath() + "IKC-LST.DAT")) Goto LABEL001
  48.     End
  49.     :LABEL001
  50.     FOpen 1, PPEPath() + "IKC-LST.DAT", 2, 0
  51.     FGet 1, STRING001
  52.     FGet 1, STRING002
  53.     FGet 1, STRING003
  54.     FGet 1, STRING004
  55.     FGet 1, STRING005
  56.     FGet 1, STRING006
  57.     FGet 1, STRING007
  58.     FGet 1, STRING008
  59.     FGet 1, STRING009
  60.     FGet 1, STRING010
  61.     FGet 1, STRING011
  62.     FGet 1, STRING012
  63.     FGet 1, STRING013
  64.     FGet 1, STRING014
  65.     FGet 1, STRING015
  66.     FGet 1, STRING016
  67.     FGet 1, STRING017
  68.     FGet 1, STRING018
  69.     FGet 1, STRING019
  70.     FGet 1, STRING020
  71.     FGet 1, STRING021
  72.     FGet 1, STRING022
  73.     FGet 1, STRING023
  74.     FGet 1, STRING024
  75.     FGet 1, STRING025
  76.     FClose 1
  77.     Delete PPEPath() + "IKC-LST.DAT"
  78.     FCreate 1, PPEPath() + "IKC-LST.DAT", 2, 0
  79.     FPutLn 1, STRING006
  80.     FPutLn 1, STRING007
  81.     FPutLn 1, STRING008
  82.     FPutLn 1, STRING009
  83.     FPutLn 1, STRING010
  84.     FPutLn 1, STRING011
  85.     FPutLn 1, STRING012
  86.     FPutLn 1, STRING013
  87.     FPutLn 1, STRING014
  88.     FPutLn 1, STRING015
  89.     FPutLn 1, STRING016
  90.     FPutLn 1, STRING017
  91.     FPutLn 1, STRING018
  92.     FPutLn 1, STRING019
  93.     FPutLn 1, STRING020
  94.     FPutLn 1, STRING021
  95.     FPutLn 1, STRING022
  96.     FPutLn 1, STRING023
  97.     FPutLn 1, STRING024
  98.     FPutLn 1, STRING025
  99.     GetUser
  100.     STRING001 = ""
  101.     STRING002 = ""
  102.     STRING003 = ""
  103.     STRING004 = ""
  104.     STRING005 = ""
  105.     STRING001 = U_Name()
  106.     STRING002 = Carrier()
  107.     STRING003 = U_City
  108.     STRING004 = MinOn()
  109.     STRING005 = PcbNode()
  110.     FPutLn 1, STRING001
  111.     FPutLn 1, STRING002
  112.     FPutLn 1, STRING003
  113.     FPutLn 1, STRING004
  114.     If (STRING005 == "0") Goto LABEL002
  115.     FPutLn 1, STRING005
  116.     FClose 1
  117.     End
  118.     :LABEL002
  119.     FPutLn 1, "1"
  120.     FClose 1
  121.     End
  122.  
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Usage report (before postprocessing)
  126. ;
  127. ; ■ Statements used :
  128. ;
  129. ;    3       End
  130. ;    5       Goto 
  131. ;    10      Let 
  132. ;    2       If 
  133. ;    1       FCreate 
  134. ;    1       FOpen 
  135. ;    3       FClose 
  136. ;    25      FGet 
  137. ;    26      FPutLn 
  138. ;    1       GetUser
  139. ;    1       Delete 
  140. ;
  141. ;
  142. ; ■ Functions used :
  143. ;
  144. ;    4       +
  145. ;    1       ==
  146. ;    1       U_Name()
  147. ;    4       PPEPath()
  148. ;    1       PcbNode()
  149. ;    1       MinOn()
  150. ;    1       Exist()
  151. ;    1       Carrier()
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Analysis flags : No flag
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Postprocessing report
  160. ;
  161. ;    0       For/Next
  162. ;    0       While/EndWhile
  163. ;    0       If/Then or If/Then/Else
  164. ;    0       Select Case
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;                 AEGiS Corp - Break the routines, code against the machines!
  168. ;------------------------------------------------------------------------------
  169.