home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / FLYDIR.ZIP / FLYDIR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-09  |  2KB  |  138 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     Int      INT001
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     INTEGER004 = GetToken()
  35.     If (INTEGER004 == "") Then
  36.         PrintLn "Please inform your System Operator there is a configuration error."
  37.         PrintLn "File Directories are not available at this time."
  38.         End
  39.     Endif
  40.     STRING004 = ReadLine(PCBDat(), 31) + ".@@@"
  41.     FOpen 1, STRING004, 0, 0
  42.     FRead 1, INT001, 2
  43.     FSeek 1, INT001 * CurConf() + 484, 0
  44.     FRead 1, STRING001, 33
  45.     FClose 1
  46.     FOpen 1, STRING001, 0, 0
  47.     FSeek 1, (INTEGER004 - 1) * 96, 0
  48.     FRead 1, STRING002, 30
  49.     FRead 1, STRING003, 30
  50.     FRead 1, STRING006, 35
  51.     FRead 1, INTEGER001, 1
  52.     STRING003 = Strip(STRING003, " ")
  53.     PrintLn "    File Category: ", STRING006
  54.     PrintLn ""
  55.     STRING005 = FindFirst(STRING003 + "*.*")
  56.     INTEGER003 = 1
  57.     STRING007 = "@X0E" + Left(STRING005, 12) + "@X0A" + Right(String(FileInf(STRING003 + STRING005, 4)), 9) + Space(2) + "@X0B" + String(FileInf(STRING003 + STRING005, 2))
  58.     INTEGER002 = FileInf(STRING003 + STRING005, 4)
  59.     PrintLn STRING007
  60.     While (STRING005 <> "") Do
  61.         STRING005 = FindNext()
  62.         STRING007 = "@X0E" + Left(STRING005, 12) + "@X0A" + Right(String(FileInf(STRING003 + STRING005, 4)), 9) + Space(2) + "@X0B" + String(FileInf(STRING003 + STRING005, 2))
  63.         If (STRING005 <> "") PrintLn STRING007
  64.         Inc INTEGER003
  65.         INTEGER002 = INTEGER002 + FileInf(STRING003 + STRING005, 4)
  66.     EndWhile
  67.     PrintLn ""
  68.     PrintLn "     Total files: ", String(INTEGER003), "  Total files size: ", String(INTEGER002)
  69.     End
  70.  
  71. ;------------------------------------------------------------------------------
  72. ;
  73. ; Usage report (before postprocessing)
  74. ;
  75. ; ■ Statements used :
  76. ;
  77. ;    2       End
  78. ;    3       Goto 
  79. ;    10      Let 
  80. ;    8       PrintLn 
  81. ;    3       If 
  82. ;    2       FOpen 
  83. ;    1       FClose 
  84. ;    1       Inc 
  85. ;    2       FSeek 
  86. ;    6       FRead 
  87. ;
  88. ;
  89. ; ■ Functions used :
  90. ;
  91. ;    2       *
  92. ;    22      +
  93. ;    1       -
  94. ;    1       ==
  95. ;    2       <>
  96. ;    2       !
  97. ;    2       Left()
  98. ;    2       Right()
  99. ;    2       Space()
  100. ;    1       Strip()
  101. ;    6       String()
  102. ;    1       CurConf()
  103. ;    1       PCBDat()
  104. ;    1       ReadLine()
  105. ;    1       GetToken()
  106. ;    6       FileInf()
  107. ;    1       FindFirst()
  108. ;    1       FindNext()
  109. ;
  110. ;------------------------------------------------------------------------------
  111. ;
  112. ; Analysis flags : di
  113. ;
  114. ; d - Access PCBOARD.DAT ■ 2
  115. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  116. ;     for many PPE so they can find various informations on the system
  117. ;     (system paths, max number of lines in messages, ...) but it may also
  118. ;     be a way to gather vital informations.
  119. ;     ■ Search for : PCBDAT()
  120. ;
  121. ; i - Sequencially read files in directory ■ 3
  122. ;     Program is reading files in directory sequencially, maybe to get
  123. ;     a DIR image, but this can be to look for targets to destroy
  124. ;     ■ Search for : FINDFIRST(), FINDNEXT()
  125. ;
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ; Postprocessing report
  129. ;
  130. ;    0       For/Next
  131. ;    1       While/EndWhile
  132. ;    1       If/Then or If/Then/Else
  133. ;    0       Select Case
  134. ;
  135. ;------------------------------------------------------------------------------
  136. ;                 AEGiS Corp - Break the routines, code against the machines!
  137. ;------------------------------------------------------------------------------
  138.