home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / IZ_FL_10.ZIP / FLIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-15  |  3KB  |  189 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     STRING016 = "v1.00"
  48.     INTEGER002 = Date()
  49.     STRING001 = Date()
  50.     GetToken STRING002
  51.     GetToken STRING003
  52.     GetToken STRING004
  53.     STRING005 = STRING002
  54.     STRING006 = STRING003
  55.     STRING007 = STRING004
  56.     INTEGER003 = INTEGER002 - STRING002
  57.     STRING008 = ToDate(INTEGER003)
  58.     STRING009 = Left(STRING008, 2) + Mid(STRING008, 4, 2) + Right(STRING008, 2)
  59.     FOpen 1, PPEPath() + "FLIST.CFG", 0, 2
  60.     FGet 1, STRING010
  61.     FGet 1, INTEGER004
  62.     FGet 1, STRING011
  63.     FClose 1
  64.     ShowOff
  65.     KbdStuff Chr(13)
  66.     Cls
  67.     GetUser
  68.     U_Sec = SysopSec()
  69.     Join STRING003
  70.     Goto LABEL002
  71.     :LABEL001
  72.     Newline
  73.     Newline
  74.     PrintLn "@X0E  FList is working hard ....."
  75.     Newline
  76.     ShowOff
  77.     OpenCap STRING007, BOOLEAN001
  78.     If (STRING011 == "YES-YES") DispFile PPEPath() + "HEADR", 2 + 4
  79.     If (STRING011 == "YES-NO") DispFile PPEPath() + "HEADR", 2 + 4
  80.     If (STRING012 == "N") PrintLn "             FList ", STRING016, " (c) 1995 ■ By: Tim Miller  [UNREGISTERED]"
  81.     Newline
  82.     KbdStuff Chr(13)
  83.     ShowOff
  84.     PutUser
  85.     Dir "N A " + STRING009 + " NS"
  86.     If (STRING011 == "YES-YES") DispFile PPEPath() + "FOOTR", 2 + 4
  87.     If (STRING011 == "NO-YES") DispFile PPEPath() + "FOOTR", 2 + 4
  88.     Newline
  89.     If (STRING012 == "N") PrintLn "            FList ", STRING016, " (c) 1995 ■ By: Tim Miller  [UNREGISTERED]"
  90.     CloseCap 
  91.     ShowOn
  92.     Cls
  93.     Newlines 3
  94.     PrintLn "                    @X0E  ┌─────────────────────────────┐"
  95.     PrintLn "@X0E                    @X0E  │   Conference scanned: " + STRING003 + "@POS:52@ │"
  96.     PrintLn "@X0E                    @X0E  │   # of days included: " + STRING002 + "@POS:52@ │"
  97.     PrintLn "                    @X0E  └─────────────────────────────┘"
  98.     PrintLn "                     @X0FThank you for using FList " + STRING016
  99.     Newlines 2
  100.     Delay 60
  101.     End
  102.     :LABEL002
  103.     STRING012 = "N"
  104.     STRING013 = Left(STRING010, 1)
  105.     STRING014 = Right(STRING010, 1)
  106.     STRING015 = Mid(STRING010, 5, 1)
  107.     INTEGER005 = Asc(STRING013)
  108.     INTEGER006 = Asc(STRING014)
  109.     INTEGER007 = Asc(STRING015)
  110.     INTEGER009 = 133
  111.     INTEGER008 = (Asc(STRING013) * Asc(STRING014)) * Asc(STRING015) - INTEGER009
  112.     If (INTEGER004 == INTEGER008) STRING012 = "Y"
  113.     Goto LABEL001
  114.  
  115. ;------------------------------------------------------------------------------
  116. ;
  117. ; Usage report (before postprocessing)
  118. ;
  119. ; ■ Statements used :
  120. ;
  121. ;    1       End
  122. ;    2       Cls
  123. ;    3       Goto 
  124. ;    20      Let 
  125. ;    8       PrintLn 
  126. ;    7       If 
  127. ;    4       DispFile 
  128. ;    1       FOpen 
  129. ;    1       FClose 
  130. ;    3       FGet 
  131. ;    1       GetUser
  132. ;    1       PutUser
  133. ;    1       Delay 
  134. ;    5       Newline
  135. ;    2       Newlines 
  136. ;    3       GetToken 
  137. ;    2       KbdStuff 
  138. ;    1       Join 
  139. ;    1       Dir 
  140. ;    1       OpenCap 
  141. ;    1       CloseCap 
  142. ;    1       ShowOn
  143. ;    3       ShowOff
  144. ;
  145. ;
  146. ; ■ Functions used :
  147. ;
  148. ;    2       *
  149. ;    18      +
  150. ;    2       -
  151. ;    7       ==
  152. ;    2       Mid()
  153. ;    2       Left()
  154. ;    2       Right()
  155. ;    2       Chr()
  156. ;    6       Asc()
  157. ;    2       Date()
  158. ;    5       PPEPath()
  159. ;    1       SysopSec()
  160. ;    1       ToDate()
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;
  164. ; Analysis flags : Ws
  165. ;
  166. ; W - Write user ■ 5
  167. ;     Program writes a user record. Although this may be normal for a
  168. ;     User Editor, it may also be a way to modify an account level.
  169. ;     ■ Search for : PUTUSER
  170. ;
  171. ; s - Sysop level access ■ 5
  172. ;     Program is reading the sysop access level, this may be normal
  173. ;     but still it is very suspect. It is the best way to give a user
  174. ;     all priviledges. Check!
  175. ;     ■ Search for : SYSOPSEC()
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Postprocessing report
  180. ;
  181. ;    0       For/Next
  182. ;    0       While/EndWhile
  183. ;    0       If/Then or If/Then/Else
  184. ;    0       Select Case
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;                 AEGiS Corp - Break the routines, code against the machines!
  188. ;------------------------------------------------------------------------------
  189.