home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / bcon110.zip / LC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-19  |  2KB  |  172 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.     Boolean  BOOLEAN004
  23.     Date     DATE001
  24.     Integer  INTEGER001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Integer  INTEGER006
  30.     Integer  INTEGER007
  31.     Integer  INTEGER008
  32.     Integer  INTEGER009
  33.     Integer  INTEGER010
  34.     String   STRING001
  35.     String   STRING002
  36.     String   STRING003
  37.     String   STRING004
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   STRING009
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     GetUser
  47.     Tokenize TokenStr()
  48.     BOOLEAN002 = 0
  49.     BOOLEAN004 = 0
  50.     If (TokCount() == 1) Then
  51.         STRING009 = GetToken()
  52.         If (Upper(STRING009) == "SHOW") Then
  53.             BOOLEAN002 = 1
  54.             Goto LABEL001
  55.         Endif
  56.         If (Upper(STRING009) == "NOSHOW") Then
  57.             BOOLEAN004 = 1
  58.         Endif
  59.     Endif
  60.     :LABEL001
  61.     BOOLEAN003 = 0
  62.     BOOLEAN001 = 0
  63.     DATE001 = Date()
  64.     STRING003 = Left(DATE001, 5)
  65.     INTEGER001 = PcbNode()
  66.     INTEGER002 = U_Stat(2)
  67.     STRING001 = Left(U_Name(), 16)
  68.     STRING002 = Left(Time(), 5)
  69.     INTEGER003 = U_MsgWr()
  70.     INTEGER004 = U_MsgRd()
  71.     INTEGER005 = U_Ful()
  72.     INTEGER006 = U_Fdl()
  73.     STRING006 = PPEPath() + "lc.cfg"
  74.     INTEGER009 = U_Stat(10)
  75.     INTEGER010 = U_Stat(3)
  76.     Tokenize ReadLine(STRING006, 3)
  77.     If (GetToken() == "YES") BOOLEAN003 = 1
  78.     If (U_Sec < GetToken()) BOOLEAN004 = 1
  79.     INTEGER007 = ReadLine(STRING006, 5)
  80.     INTEGER008 = Random(INTEGER007 - 1) + 1
  81.     STRING004 = PPEPath() + "graph\lcdat" + String(INTEGER008)
  82.     STRING007 = PPEPath() + "graph\lchdr" + String(INTEGER008)
  83.     STRING008 = PPEPath() + "graph\lcftr" + String(INTEGER008)
  84.     STRING005 = PPEPath() + "work\whotmp"
  85.     If (BOOLEAN004) Goto LABEL002
  86.     DispFile STRING007, 1 + 4
  87.     DispFile STRING004, 1 + 4
  88.     DispFile STRING008, 1 + 4
  89.     If (BOOLEAN003) Wait
  90.     :LABEL002
  91.     If (BOOLEAN002) End
  92.     FCreate 1, STRING005 + "." + String(INTEGER001), 1, 0
  93.     FPutLn 1, STRING002
  94.     FPutLn 1, INTEGER003
  95.     FPutLn 1, INTEGER004
  96.     FPutLn 1, INTEGER010
  97.     FPutLn 1, INTEGER002
  98.     FPutLn 1, INTEGER005
  99.     FPutLn 1, INTEGER006
  100.     FPutLn 1, STRING003
  101.     FPutLn 1, String(U_Name())
  102.     FPutLn 1, String(U_Stat(10))
  103.     FPutLn 1, String(U_Bdl() / 1024)
  104.     FPutLn 1, String(U_Bul() / 1024)
  105.     FClose 1
  106.     End
  107.  
  108. ;------------------------------------------------------------------------------
  109. ;
  110. ; Usage report (before postprocessing)
  111. ;
  112. ; ■ Statements used :
  113. ;
  114. ;    2       End
  115. ;    1       Wait
  116. ;    5       Goto 
  117. ;    28      Let 
  118. ;    8       If 
  119. ;    3       DispFile 
  120. ;    1       FCreate 
  121. ;    1       FClose 
  122. ;    12      FPutLn 
  123. ;    1       GetUser
  124. ;    2       Tokenize 
  125. ;
  126. ;
  127. ; ■ Functions used :
  128. ;
  129. ;    2       /
  130. ;    14      +
  131. ;    1       -
  132. ;    4       ==
  133. ;    1       <
  134. ;    4       !
  135. ;    2       Upper()
  136. ;    3       Left()
  137. ;    1       Random()
  138. ;    1       Date()
  139. ;    1       Time()
  140. ;    2       U_Name()
  141. ;    1       U_Ful()
  142. ;    1       U_Fdl()
  143. ;    1       U_Bdl()
  144. ;    1       U_Bul()
  145. ;    8       String()
  146. ;    5       PPEPath()
  147. ;    1       U_MsgRd()
  148. ;    1       U_MsgWr()
  149. ;    1       PcbNode()
  150. ;    2       ReadLine()
  151. ;    3       GetToken()
  152. ;    1       TokenStr()
  153. ;    4       U_Stat()
  154. ;    1       TokCount()
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Analysis flags : No flag
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Postprocessing report
  163. ;
  164. ;    0       For/Next
  165. ;    0       While/EndWhile
  166. ;    3       If/Then or If/Then/Else
  167. ;    0       Select Case
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;                 AEGiS Corp - Break the routines, code against the machines!
  171. ;------------------------------------------------------------------------------
  172.