home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CLCB_100.ZIP / CLCB.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-22  |  2KB  |  143 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.     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.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     STRING006 = TokenStr()
  40.     STRING002 = "C"
  41.     STRING003 = "L"
  42.     STRING004 = "C"
  43.     STRING005 = "B"
  44.     STRING001 = STRING002 + STRING003 + STRING004 + STRING005
  45.     STRING008 = "v"
  46.     STRING009 = "1"
  47.     STRING010 = "."
  48.     STRING011 = "0"
  49.     STRING012 = "0"
  50.     STRING007 = STRING008 + STRING009 + STRING010 + STRING011 + STRING012
  51.     If (Psa(5)) Goto LABEL001
  52.     Newline
  53.     PrintLn STRING001 + " " + STRING007 + " Error: PSA: PCBSTAT is not present in user file!"
  54.     Log "" + STRING001 + " " + STRING007 + " [PSA Error]", 0
  55.     Goto LABEL003
  56.     :LABEL001
  57.     STRING013 = STRING001 + "TEMP." + String(PcbNode())
  58.     STRING014 = PPEPath() + STRING001 + ".BLT"
  59.     STRING015 = PPEPath() + STRING001 + ".TOP"
  60.     STRING016 = PPEPath() + STRING001 + ".BOT"
  61.     GetUser
  62.     If (Exist(STRING013)) Then
  63.         FOpen 1, STRING013, 0, 0
  64.         FGet 1, STRING017
  65.         FClose 1
  66.         If (STRING017 == U_Name()) Goto LABEL002
  67.     Endif
  68.     FCreate 1, STRING013, 1, 0
  69.     FPutLn 1, U_Name()
  70.     FPutLn 1, U_Ful()
  71.     FPutLn 1, U_Fdl()
  72.     FPutLn 1, U_MsgWr()
  73.     FPutLn 1, U_MsgRd()
  74.     FPutLn 1, U_Stat(2)
  75.     FPutLn 1, U_Stat(3)
  76.     FPutLn 1, Time()
  77.     FClose 1
  78.     :LABEL002
  79.     If (STRING006 == "/" + "N" + "O" + "SH" + "OW") Goto LABEL003
  80.     If (Exist(STRING015)) DispFile STRING015, 1
  81.     If (Exist(STRING014)) DispFile STRING014, 1
  82.     If (Exist(STRING016)) DispFile STRING016, 1
  83.     :LABEL003
  84.     End
  85.  
  86. ;------------------------------------------------------------------------------
  87. ;
  88. ; Usage report (before postprocessing)
  89. ;
  90. ; ■ Statements used :
  91. ;
  92. ;    1       End
  93. ;    5       Goto 
  94. ;    16      Let 
  95. ;    1       PrintLn 
  96. ;    7       If 
  97. ;    3       DispFile 
  98. ;    1       FCreate 
  99. ;    1       FOpen 
  100. ;    2       FClose 
  101. ;    1       FGet 
  102. ;    8       FPutLn 
  103. ;    1       GetUser
  104. ;    1       Log 
  105. ;    1       Newline
  106. ;
  107. ;
  108. ; ■ Functions used :
  109. ;
  110. ;    26      +
  111. ;    2       ==
  112. ;    2       !
  113. ;    1       Time()
  114. ;    2       U_Name()
  115. ;    1       U_Ful()
  116. ;    1       U_Fdl()
  117. ;    1       String()
  118. ;    3       PPEPath()
  119. ;    1       U_MsgRd()
  120. ;    1       U_MsgWr()
  121. ;    1       PcbNode()
  122. ;    4       Exist()
  123. ;    1       TokenStr()
  124. ;    2       U_Stat()
  125. ;    1       Psa()
  126. ;
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Analysis flags : No flag
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Postprocessing report
  134. ;
  135. ;    0       For/Next
  136. ;    0       While/EndWhile
  137. ;    1       If/Then or If/Then/Else
  138. ;    0       Select Case
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;                 AEGiS Corp - Break the routines, code against the machines!
  142. ;------------------------------------------------------------------------------
  143.