home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTTP2B3.ZIP / DNCR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-07-26  |  2KB  |  164 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     CdChkOff
  34.     STRING005 = GetEnv("DSZLOG")
  35.     If (!Exist(STRING005)) Stop
  36.     FCreate 1, PPEPath() + PPEName() + "run." + String(PcbNode()), 1, 0
  37.     FClose 1
  38.     FOpen 1, STRING005, 0, 0
  39.     :LABEL001
  40.     If (Ferr(1)) Goto LABEL005
  41.     :LABEL002
  42.     FGet 1, STRING002
  43.     STRING002 = Replace(STRING002, "/", "\")
  44.     If (STRING002 == "") Then
  45.         Goto LABEL004
  46.     Endif
  47.     If ((Mid(STRING002, 1, 1) == "S") || (Mid(STRING002, 1, 1) == "E")) Goto LABEL003
  48.     If (Mid(STRING002, 1, 1) == Upper(Mid(STRING002, 1, 1))) Goto LABEL002
  49.     :LABEL003
  50.     Tokenize STRING002
  51.     GetToken STRING003
  52.     GetToken INTEGER002
  53.     INTEGER003 = INTEGER003 + INTEGER002
  54.     GetToken STRING004
  55.     GetToken STRING004
  56.     GetToken STRING004
  57.     GetToken STRING004
  58.     GetToken STRING004
  59.     GetToken STRING004
  60.     GetToken STRING007
  61.     If ((STRING003 == "H") && (STRING007 <> 0)) Then
  62.         Print ""
  63.     Else
  64.         GetToken STRING004
  65.         GetToken STRING001
  66.         If (STRING003 == "E") Then
  67.             INTEGER001 = FileInf(STRING001, 4)
  68.             If (INTEGER002 <> INTEGER001) Then
  69.                 INTEGER003 = INTEGER003 - INTEGER002
  70.                 Goto LABEL002
  71.             Endif
  72.         Endif
  73.         STRING001 = FileInf(STRING001, 8)
  74.     Endif
  75.     If (FileInf(STRING001, 9) == "") Then
  76.         STRING001 = STRING001 + ".ZIP"
  77.     Endif
  78.     Inc STRING006
  79.     :LABEL004
  80.     Goto LABEL001
  81.     :LABEL005
  82.     If (STRING006 == 0) Goto LABEL006
  83.     If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) Then
  84.         FOpen 3, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 0, 0
  85.         FGet 3, STRING002
  86.         Tokenize STRING002
  87.         GetToken INTEGER002
  88.         GetToken INTEGER004
  89.         INTEGER002 = INTEGER002 + INTEGER003
  90.         INTEGER004 = INTEGER004 + STRING006
  91.         FClose 3
  92.         FCreate 3, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0
  93.         FPutLn 3, String(INTEGER002) + " " + String(INTEGER004)
  94.         FClose 3
  95.     Else
  96.         FCreate 3, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0
  97.         FPutLn 3, String(INTEGER003) + " " + String(STRING006)
  98.         FClose 3
  99.     Endif
  100.     :LABEL006
  101.     If (STRING006 == 0) Delete PPEPath() + PPEName() + "run." + String(PcbNode())
  102.     Stop
  103.  
  104. ;------------------------------------------------------------------------------
  105. ;
  106. ; Usage report (before postprocessing)
  107. ;
  108. ; ■ Statements used :
  109. ;
  110. ;    15      Goto 
  111. ;    9       Let 
  112. ;    1       Print 
  113. ;    12      If 
  114. ;    3       FCreate 
  115. ;    2       FOpen 
  116. ;    4       FClose 
  117. ;    2       FGet 
  118. ;    2       FPutLn 
  119. ;    1       Delete 
  120. ;    1       CdChkOff
  121. ;    1       Inc 
  122. ;    2       Tokenize 
  123. ;    13      GetToken 
  124. ;    2       Stop
  125. ;
  126. ;
  127. ; ■ Functions used :
  128. ;
  129. ;    26      +
  130. ;    1       -
  131. ;    9       ==
  132. ;    2       <>
  133. ;    8       !
  134. ;    1       &&
  135. ;    1       ||
  136. ;    1       Upper()
  137. ;    4       Mid()
  138. ;    1       Ferr()
  139. ;    1       Replace()
  140. ;    10      String()
  141. ;    6       PPEPath()
  142. ;    6       PcbNode()
  143. ;    1       GetEnv()
  144. ;    2       Exist()
  145. ;    3       FileInf()
  146. ;    6       PPEName()
  147. ;
  148. ;------------------------------------------------------------------------------
  149. ;
  150. ; Analysis flags : No flag
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Postprocessing report
  155. ;
  156. ;    0       For/Next
  157. ;    0       While/EndWhile
  158. ;    6       If/Then or If/Then/Else
  159. ;    0       Select Case
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;                 AEGiS Corp - Break the routines, code against the machines!
  163. ;------------------------------------------------------------------------------
  164.