home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / USERV1_3.ZIP / USER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-02  |  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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING001 = ReadLine(PCBDat(), 29)
  35.     INTEGER003 = FileInf(STRING001, 4)
  36.     INTEGER002 = INTEGER003 / 400
  37.     STRING002 = ReadLine(PPEPath() + "USER.CFG", 1)
  38.     STRING003 = ReadLine(PPEPath() + "USER.CFG", 2)
  39.     STRING004 = ReadLine(PPEPath() + "USER.CFG", 3)
  40.     STRING005 = ReadLine(PPEPath() + "USER.CFG", 4)
  41.     STRING006 = ReadLine(PPEPath() + "USER.CFG", 5)
  42.     STRING007 = ReadLine(PPEPath() + "USER.CFG", 6)
  43.     STRING008 = ReadLine(PPEPath() + "USER.CFG", 7)
  44.     STRING009 = ReadLine(PPEPath() + "USER.CFG", 8)
  45.     GetUser
  46.     If (STRING008 == "ULDL") Goto LABEL001
  47.     If (STRING008 == "LDATE") Goto LABEL002
  48.     If (Exist(PPEPath() + "HEADER1")) DispFile PPEPath() + "HEADER1", 4 + 2 + 1
  49.     For INTEGER001 = 1 To INTEGER002
  50.         GetAltUser INTEGER001
  51.         PrintLn STRING009 + "│@POS:3@" + STRING002 + String(U_Name()) + "@POS:28@" + STRING009 + "│@POS:30@" + STRING003 + String(U_City) + "@POS:54@" + STRING009 + "│@POS:56@  " + STRING004 + String(U_Logons()) + "@POS:64@" + STRING009 + "│@POS:66@" + STRING005 + String(U_LDate()) + "@POS:75@" + STRING009 + " │"
  52.     Next
  53.     Newline
  54.     Goto LABEL003
  55.     :LABEL001
  56.     If (Exist(PPEPath() + "HEADER2")) DispFile PPEPath() + "HEADER2", 4 + 2 + 1
  57.     For INTEGER001 = 1 To INTEGER002
  58.         GetAltUser INTEGER001
  59.         PrintLn STRING009 + "│@POS:3@" + STRING002 + String(U_Name()) + "@POS:28@" + STRING009 + "│@POS:30@" + STRING003 + String(U_City) + "@POS:54@" + STRING009 + "│@POS:56@  " + STRING004 + String(U_Logons()) + "@POS:64@" + STRING009 + "│@POS:66@" + STRING005 + String(U_Ful()) + STRING006 + " / " + STRING007 + String(U_Fdl()) + "@POS:75@" + STRING009 + " │"
  60.     Next
  61.     Newline
  62.     Goto LABEL003
  63.     :LABEL002
  64.     If (Exist(PPEPath() + "HEADER3")) DispFile PPEPath() + "HEADER3", 4 + 2 + 1
  65.     For INTEGER001 = 1 To INTEGER002
  66.         GetAltUser INTEGER001
  67.         PrintLn STRING009 + "│@POS:3@" + STRING002 + String(U_Name()) + "@POS:28@" + STRING009 + "│@POS:30@" + STRING003 + String(U_City) + "@POS:54@" + STRING009 + "│@POS:56@  " + STRING004 + String(U_Logons()) + "@POS:64@" + STRING009 + "│@POS:66@" + STRING005 + String(U_LDate()) + "@POS:75@" + STRING009 + " │"
  68.     Next
  69.     Newline
  70.     :LABEL003
  71.     End
  72.  
  73. ;------------------------------------------------------------------------------
  74. ;
  75. ; Usage report (before postprocessing)
  76. ;
  77. ; ■ Statements used :
  78. ;
  79. ;    1       End
  80. ;    10      Goto 
  81. ;    17      Let 
  82. ;    3       PrintLn 
  83. ;    8       If 
  84. ;    3       DispFile 
  85. ;    1       GetUser
  86. ;    3       Newline
  87. ;    3       GetAltUser 
  88. ;
  89. ;
  90. ; ■ Functions used :
  91. ;
  92. ;    1       /
  93. ;    90      +
  94. ;    2       ==
  95. ;    3       <
  96. ;    3       <=
  97. ;    6       >=
  98. ;    3       !
  99. ;    6       &&
  100. ;    3       ||
  101. ;    3       U_Name()
  102. ;    2       U_LDate()
  103. ;    3       U_Logons()
  104. ;    1       U_Ful()
  105. ;    1       U_Fdl()
  106. ;    13      String()
  107. ;    1       PCBDat()
  108. ;    14      PPEPath()
  109. ;    9       ReadLine()
  110. ;    3       Exist()
  111. ;    1       FileInf()
  112. ;
  113. ;------------------------------------------------------------------------------
  114. ;
  115. ; Analysis flags : Rd
  116. ;
  117. ; R - Read user ■ 5
  118. ;     User records are read, this may signify that someone wants to get
  119. ;     various informations about a user (for example his password), but
  120. ;     this may also be normal for a program accessing user records (for
  121. ;     example a User Editor)
  122. ;     ■ Search for : GETALTUSER
  123. ;
  124. ; d - Access PCBOARD.DAT ■ 2
  125. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  126. ;     for many PPE so they can find various informations on the system
  127. ;     (system paths, max number of lines in messages, ...) but it may also
  128. ;     be a way to gather vital informations.
  129. ;     ■ Search for : PCBDAT()
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Postprocessing report
  134. ;
  135. ;    3       For/Next
  136. ;    0       While/EndWhile
  137. ;    0       If/Then or If/Then/Else
  138. ;    0       Select Case
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;                 AEGiS Corp - Break the routines, code against the machines!
  142. ;------------------------------------------------------------------------------
  143.