home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCUMPC10.ZIP / PREVIOUS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-08-09  |  2KB  |  156 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.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   TSTRING001(25)
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     INTEGER002 = ReadLine(PPEPath() + "PREVIOUS.CNF", 1)
  40.     STRING003 = ReadLine(PPEPath() + "PREVIOUS.CNF", 2)
  41.     STRING011 = ReadLine(PPEPath() + "PREVIOUS.CNF", 3)
  42.     If (Exist(PPEPath() + "PREVIOUS.DAT")) Goto LABEL001
  43.     FCreate 2, PPEPath() + "PREVIOUS.DAT", 1, 0
  44.     STRING005 = " " + STRING011 + "  1     John Doe          Hereville                00:00:00    1     115200" + STRING011 + ""
  45.     For INTEGER001 = 1 To INTEGER002
  46.         FPutLn 2, STRING005
  47.     Next
  48.     FClose 2
  49.     :LABEL001
  50.     If (Upper(STRING003) == "NAME") Then
  51.         STRING002 = U_Name()
  52.     Else
  53.         STRING002 = U_Alias
  54.         Goto LABEL002
  55.         If (Len(STRING002) > 15) Then
  56.             STRING002 = Left(STRING002, 15)
  57.         Endif
  58.     Endif
  59.     :LABEL002
  60.     GetUser
  61.     STRING010 = Carrier()
  62.     STRING007 = PcbNode()
  63.     STRING008 = U_Logons()
  64.     STRING004 = U_City
  65.     STRING009 = U_LTime()
  66.     INTEGER003 = 5 - Len(STRING008)
  67.     INTEGER004 = 18 - Len(STRING002)
  68.     INTEGER005 = 25 - Len(STRING004)
  69.     INTEGER006 = 11 - Len(STRING010)
  70.     FOpen 3, PPEPath() + "PREVIOUS.DAT", 0, 0
  71.     INTEGER001 = 1
  72.     For INTEGER001 = 1 To INTEGER002
  73.         FGet 3, TSTRING001(INTEGER001)
  74.     Next
  75.     FClose 3
  76.     FCreate 4, PPEPath() + "PREVIOUS.DAT", 1, 0
  77.     For INTEGER001 = 2 To INTEGER002
  78.         FPutLn 4, TSTRING001(INTEGER001)
  79.     Next
  80.     STRING006 = STRING011 + Space(INTEGER003) + STRING008 + "     " + STRING002 + Space(INTEGER004) + STRING004 + Space(INTEGER005) + STRING009 + "    " + STRING007 + Space(INTEGER006) + STRING010
  81.     FPutLn 4, STRING006
  82.     FClose 4
  83.     Cls
  84.     StartDisp 1
  85.     DispFile PPEPath() + "BORDER1.TOP", 1
  86.     DispFile PPEPath() + "PREVIOUS.DAT", 1
  87.     DispFile PPEPath() + "BORDER1.BOT", 1
  88.     AnsiPos 29, 21
  89.     Wait
  90.     End
  91.  
  92. ;------------------------------------------------------------------------------
  93. ;
  94. ; Usage report (before postprocessing)
  95. ;
  96. ; ■ Statements used :
  97. ;
  98. ;    1       End
  99. ;    1       Cls
  100. ;    1       Wait
  101. ;    11      Goto 
  102. ;    24      Let 
  103. ;    6       If 
  104. ;    3       DispFile 
  105. ;    2       FCreate 
  106. ;    1       FOpen 
  107. ;    3       FClose 
  108. ;    1       FGet 
  109. ;    3       FPutLn 
  110. ;    1       StartDisp 
  111. ;    1       GetUser
  112. ;    1       AnsiPos 
  113. ;
  114. ;
  115. ; ■ Functions used :
  116. ;
  117. ;    29      +
  118. ;    4       -
  119. ;    1       ==
  120. ;    3       <
  121. ;    3       <=
  122. ;    1       >
  123. ;    6       >=
  124. ;    5       !
  125. ;    6       &&
  126. ;    3       ||
  127. ;    5       Len(
  128. ;    1       Upper()
  129. ;    1       Left()
  130. ;    4       Space()
  131. ;    1       U_Name()
  132. ;    1       U_LTime()
  133. ;    1       U_Logons()
  134. ;    10      PPEPath()
  135. ;    1       PcbNode()
  136. ;    3       ReadLine()
  137. ;    1       Exist()
  138. ;    1       Carrier()
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Analysis flags : No flag
  143. ;
  144. ;------------------------------------------------------------------------------
  145. ;
  146. ; Postprocessing report
  147. ;
  148. ;    3       For/Next
  149. ;    0       While/EndWhile
  150. ;    2       If/Then or If/Then/Else
  151. ;    0       Select Case
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;                 AEGiS Corp - Break the routines, code against the machines!
  155. ;------------------------------------------------------------------------------
  156.