home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CNFS_100.ZIP / CNFS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-25  |  4KB  |  165 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.     Date     DATE001
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.     String   STRING018
  39.     String   STRING019
  40.     String   STRING020
  41.     String   STRING021
  42.     String   STRING022
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING001 = TokenStr()
  47.     STRING003 = "C"
  48.     STRING004 = "N"
  49.     STRING005 = "F"
  50.     STRING006 = "S"
  51.     STRING002 = STRING003 + STRING004 + STRING005 + STRING006
  52.     STRING008 = "v"
  53.     STRING009 = "1"
  54.     STRING010 = "."
  55.     STRING011 = "0"
  56.     STRING012 = "0"
  57.     STRING007 = STRING008 + STRING009 + STRING010 + STRING011 + STRING012
  58.     STRING021 = PPEPath() + "C" + "N" + "F" + "S.D" + "AT"
  59.     STRING014 = "A"
  60.     STRING015 = "@X" + "08"
  61.     STRING016 = "@X" + "0B"
  62.     STRING017 = "@X" + "03"
  63.     STRING018 = "@X" + "07"
  64.     If (Exist(STRING021)) Then
  65.         FOpen 1, STRING021, 0, 0
  66.         FGet 1, STRING013
  67.         STRING014 = STRING013
  68.         FGet 1, STRING013
  69.         If (Left(STRING013, 1) == "@") STRING015 = STRING013
  70.         FGet 1, STRING013
  71.         If (Left(STRING013, 1) == "@") STRING016 = STRING013
  72.         FGet 1, STRING013
  73.         If (Left(STRING013, 1) == "@") STRING017 = STRING013
  74.         FGet 1, STRING013
  75.         If (Left(STRING013, 1) == "@") STRING018 = STRING013
  76.         FClose 1
  77.     Endif
  78.     If (STRING001 == "") Then
  79.         Newline
  80.         PrintLn STRING015 + "┌ " + STRING016 + "P" + "r" + "es" + "s" + " [" + "E" + "n" + "te" + "r" + "] " + "t" + "o" + " " + "sc" + "an" + " s" + "in" + "ce" + " l" + "a" + "st " + "sc" + "an" + " d" + "at" + "e (" + String(U_LDir()) + ") o" + "r" + STRING015 + " ┐"
  81.         PrintLn STRING015 + "└ " + STRING017 + "I" + "n" + "p" + "ut" + " t" + "h" + "e" + " " + "nu" + "mb" + "e" + "r " + "o" + "f" + " " + "da" + "y" + "s" + " " + "t" + "o" + " " + "s" + "c" + "a" + "n" + " " + "o" + "n" + "l" + "i" + "n" + "e" + " " + "f" + "i" + "l" + "e" + " " + "d" + "i" + "r" + "e" + "c" + "t" + "o" + "r" + "i" + "es" + STRING015 + " ┘"
  82.         PrintLn STRING015 + "│"
  83.         InputStr STRING015 + "└ " + STRING018 + "N" + "u" + "m" + "be" + "r " + "o" + "f " + "d" + "a" + "ys" + " " + "t" + "o " + "s" + "ca" + "n: _", STRING019, 15, 2, Mask_Num() + "Qq", 64
  84.         Newline
  85.         If (STRING019 == "") Then
  86.             Log "" + STRING002 + Space(1) + STRING007 + Space(1) + "S" + "c" + "an" + "" + "ne" + "r -" + "-" + "--" + "--" + "--", 0
  87.             PrintLn "@X08[" + STRING002 + " " + STRING007 + "]" + " N" + "e" + "w" + " " + "F" + "i" + "l" + "e " + "S" + "c" + "a" + "n @X08..."
  88.             KbdStuff "N " + STRING014 + Chr(13) + Chr(13)
  89.         ElseIf (Upper(STRING019) == "Q") Then
  90.             End
  91.         Else
  92.             Log "" + STRING002 + Space(1) + STRING007 + Space(1) + "S" + "c" + "a" + "n" + "ne" + "r -" + "--" + "--" + "--" + "-", 0
  93.             PrintLn "@X08[" + STRING002 + " " + STRING007 + "] " + STRING019 + " D" + "a" + "y " + "S" + "c" + "a" + "n @X08..."
  94.             STRING020 = Date()
  95.             INTEGER001 = Date() - STRING019
  96.             DATE001 = INTEGER001
  97.             KbdStuff "N " + STRING014 + Chr(13) + Left(DATE001, 2) + Right(Left(DATE001, 5), 2) + Right(DATE001, 2) + Chr(13)
  98.         Endif
  99.     Else
  100.         If (IsNonStop()) Then
  101.             KbdStuff "N " + STRING001 + " NS" + Chr(13)
  102.         Else
  103.             KbdStuff "N " + STRING001 + Chr(13)
  104.         Endif
  105.     Endif
  106.     End
  107.     STRING022 = "    ■ Custom Encrypt-O-Matic PPE Compression v2.15 * [/Minimum Encryption] ■     "
  108.  
  109. ;------------------------------------------------------------------------------
  110. ;
  111. ; Usage report (before postprocessing)
  112. ;
  113. ; ■ Statements used :
  114. ;
  115. ;    2       End
  116. ;    9       Goto 
  117. ;    27      Let 
  118. ;    5       PrintLn 
  119. ;    9       If 
  120. ;    1       FOpen 
  121. ;    1       FClose 
  122. ;    5       FGet 
  123. ;    2       Log 
  124. ;    1       InputStr 
  125. ;    2       Newline
  126. ;    4       KbdStuff 
  127. ;
  128. ;
  129. ; ■ Functions used :
  130. ;
  131. ;    192     +
  132. ;    1       -
  133. ;    7       ==
  134. ;    5       !
  135. ;    1       Upper()
  136. ;    6       Left()
  137. ;    2       Right()
  138. ;    4       Space()
  139. ;    6       Chr()
  140. ;    2       Date()
  141. ;    1       U_LDir()
  142. ;    1       String()
  143. ;    1       Mask_Num()
  144. ;    1       PPEPath()
  145. ;    1       Exist()
  146. ;    1       TokenStr()
  147. ;    1       IsNonStop()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : No flag
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Postprocessing report
  156. ;
  157. ;    0       For/Next
  158. ;    0       While/EndWhile
  159. ;    5       If/Then or If/Then/Else
  160. ;    0       Select Case
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;                 AEGiS Corp - Break the routines, code against the machines!
  164. ;------------------------------------------------------------------------------
  165.