home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / S!STAT.ZIP / S!STAT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-23  |  4KB  |  163 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.O1 (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.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     GetUser
  29.     STRING003 = "@FILERATIO@"
  30.     STRING005 = "@BYTERATIO@"
  31.     FOpen 1, PPEPath() + "XSTAT.CFG", 0, 0
  32.     FGet 1, STRING001
  33.     FClose 1
  34.     If (STRING003 == "1:12.5") Goto LABEL001
  35.     If (STRING005 == "1:15.3") Goto LABEL002
  36.     :LABEL001
  37.     STRING002 = "3/1"
  38.     Goto LABEL003
  39.     :LABEL002
  40.     STRING004 = "3/1"
  41.     :LABEL003
  42.     Cls
  43.     PrintLn "                @X03/X-STaT @X07V0.1 @X03BY @X07SToNe & CoSMiC BaBY @X03for @X05PC-BOARD"
  44.     PrintLn "@X01.-----------------------------------------------------------------------------."
  45.     PrintLn "| @X03uR NaMe  :                         @X03LoCaTioN :                               @X01|"
  46.     PrintLn "@X01)-----------------------------------------------------------------------------("
  47.     PrintLn "| @X03uR SYSoP :                         @X03BBS-NaMe :                               @X01|"
  48.     PrintLn ")-----------------------------------------------------------------------------("
  49.     PrintLn "|  @X03uPLoaDS  (FiLeS) :                         uPLoaDS  (BYTeS) :              @X01|"
  50.     PrintLn "| @X03DoWNLoaDS (FiLeS) :                        DoWNLoaDs (BYTeS) :              @X01|"
  51.     PrintLn "|  @X03DaiLY BYTe LiMiT :                        ToDaY'S BYTeS DLD :              @X01|"
  52.     PrintLn "|     @X03CaLLeR NuMBeR :                            # oF MeSSaGeS :              @X01|"
  53.     PrintLn "|       @X03eXPeRT MoDe :                         CLeaR aFTeR MSG. :              @X01|"
  54.     PrintLn "|  @X03FuLL SiZe eDiToR :                         SCRoLL LoNG MSG. :              @X01|"
  55.     PrintLn "|    @X03SeCuRiTY LeVeL :                              CoNF NuMBeR :              @X01|"
  56.     PrintLn "|  @X03LaST TiMe oNLiNe :                           # TiMeS oNLiNe :              @X01|"
  57.     PrintLn "|        @X03TiMe LiMiT :                                TiMe uSeD :              @X01|"
  58.     PrintLn "|     @X03CuRReNT CoNF. :                               LiNeLeNGTH :              @X01|"
  59.     PrintLn "|       @X03oNLiNe BauD :                               NoDeNuMBeR :              @X01|"
  60.     PrintLn "`-----------------------------------------------------------------------------`"
  61.     AnsiPos 14, 3
  62.     Print "@X05@FIRST@"
  63.     AnsiPos 49, 3
  64.     Print "@X05@CITY@"
  65.     AnsiPos 14, 5
  66.     Print "@X04" + STRING001
  67.     AnsiPos 49, 5
  68.     Print "@X04@BOARDNAME@"
  69.     AnsiPos 23, 7
  70.     Print "@X05@UPFILES@"
  71.     AnsiPos 66, 7
  72.     Print "@X05@UPBYTES@"
  73.     AnsiPos 23, 8
  74.     Print "@X05@DLFILES@"
  75.     AnsiPos 66, 8
  76.     Print "@X05@DLBYTES@"
  77.     AnsiPos 23, 9
  78.     Print "@X05@BYTELIMIT@"
  79.     AnsiPos 66, 9
  80.     Print "@X05@DAYBYTES@"
  81.     AnsiPos 23, 10
  82.     Print "@X05@NUMCALLS@"
  83.     AnsiPos 66, 10
  84.     Print "@X05@LMR@"
  85.     AnsiPos 23, 11
  86.     STRING006 = "N"
  87.     If (U_Expert) STRING006 = "Y"
  88.     Print "@X05" + STRING006
  89.     AnsiPos 66, 11
  90.     STRING006 = "N"
  91.     If (U_Cls) STRING006 = "Y"
  92.     Print "@X05" + STRING006
  93.     AnsiPos 23, 12
  94.     STRING006 = "N"
  95.     If (U_FSE) STRING006 = "Y"
  96.     Print "@X05" + STRING006
  97.     AnsiPos 66, 12
  98.     STRING006 = "N"
  99.     If (U_Scroll) STRING006 = "Y"
  100.     Print "@X05" + STRING006
  101.     AnsiPos 23, 13
  102.     Print "@X05@SECURITY@"
  103.     AnsiPos 66, 13
  104.     Print "@X05@CONFNUM@"
  105.     AnsiPos 23, 14
  106.     Print "@X05@LASTDATEON@ , @LASTTIMEON@"
  107.     AnsiPos 66, 14
  108.     Print "@X05@NUMTIMESON@"
  109.     AnsiPos 23, 15
  110.     Print "@X05@TIMELIMIT@"
  111.     AnsiPos 66, 15
  112.     Print "@X05@TIMEUSED@"
  113.     AnsiPos 23, 16
  114.     Print "@X05@CONFNAME@"
  115.     AnsiPos 66, 16
  116.     Print "@X05" + U_PageLen
  117.     AnsiPos 23, 17
  118.     Print "@X05@BPS@"
  119.     AnsiPos 66, 17
  120.     Print "@X05@NODE@"
  121.  
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Usage report (before postprocessing)
  125. ;
  126. ; ■ Statements used :
  127. ;
  128. ;    1       Cls
  129. ;    5       Goto 
  130. ;    12      Let 
  131. ;    26      Print 
  132. ;    18      PrintLn 
  133. ;    6       If 
  134. ;    1       FOpen 
  135. ;    1       FClose 
  136. ;    1       FGet 
  137. ;    1       GetUser
  138. ;    26      AnsiPos 
  139. ;
  140. ;
  141. ; ■ Functions used :
  142. ;
  143. ;    7       +
  144. ;    2       ==
  145. ;    1       PPEPath()
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;
  149. ; Analysis flags : No flag
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;
  153. ; Postprocessing report
  154. ;
  155. ;    0       For/Next
  156. ;    0       While/EndWhile
  157. ;    0       If/Then or If/Then/Else
  158. ;    0       Select Case
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;                 AEGiS Corp - Break the routines, code against the machines!
  162. ;------------------------------------------------------------------------------
  163.