home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / hacking / internet / ftp.ppe (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-01-12  |  2.9 KB  |  165 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   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + "ftp.cfg", 2, 3
  35.     FGet 1, INTEGER001
  36.     FGet 1, INTEGER002
  37.     FClose 1
  38.     While (1 == 1) Do
  39.         Cls
  40.         INTEGER003 = 15
  41.         INTEGER004 = 15
  42.         INTEGER005 = 44
  43.         INTEGER006 = 60
  44.         STRING001 = ""
  45.         STRING002 = ""
  46.         STRING003 = ""
  47.         STRING004 = ""
  48.         DispFile PPEPath() + "ftpMnu", 1
  49.         While ((((STRING001 <> "V") && (STRING001 <> "A")) && (STRING001 <> "R")) && (STRING001 <> "Q")) Do
  50.             STRING001 = ""
  51.             STRING001 = Inkey()
  52.             STRING001 = Upper(STRING001)
  53.         EndWhile
  54.         AnsiPos INTEGER001, INTEGER002
  55.         STRING001 = Upper(STRING001)
  56.         Color 7
  57.         If (STRING001 == "V") Then
  58.             Print "View"
  59.             Delay 5
  60.             Cls
  61.             DispFile PPEPath() + "ftp.top", 1
  62.             DispFile PPEPath() + "ftp.dat", 1
  63.             DispFile PPEPath() + "ftp.bot", 1
  64.             Wait
  65.         Endif
  66.         If (STRING001 == "A") Then
  67.             Print "Add"
  68.             FreshLine
  69.             InputStr "@X0FF@X07T@X08P @X0FN@X07am@X08e : _", STRING002, 15, INTEGER003, Mask_Ascii(), 0
  70.             Newline
  71.             InputStr "@X0FIn@X07fo@X08rmation : _", STRING003, 15, INTEGER004, Mask_Ascii(), 0
  72.             Newline
  73.             InputStr "@X0FAd@X07re@X08ss : _", STRING005, 15, INTEGER005, Mask_Ascii(), 0
  74.             Newline
  75.             InputStr "@X0FDi@X07re@X08ctory : _", STRING006, 15, INTEGER006, Mask_Ascii(), 0
  76.             Newline
  77.             InputStr "@X0FS@X07av@X08e @X0FT@X07hi@X08s : _", STRING004, 15, 1, "YNyn", 0
  78.             STRING002 = STRING002 + "                                               "
  79.             STRING003 = STRING003 + "                                               "
  80.             STRING006 = STRING006 + "                                                                             "
  81.             STRING005 = STRING005 + "                                                                                   "
  82.             STRING004 = Upper(STRING004)
  83.             STRING002 = Left(STRING002, INTEGER003)
  84.             STRING003 = Left(STRING003, INTEGER004)
  85.             STRING005 = Left(STRING005, INTEGER005)
  86.             STRING006 = Left(STRING006, INTEGER006)
  87.             If ((STRING004 == "Y") && (STRING002 <> "                    ")) Then
  88.                 FAppend 1, PPEPath() + "ftp.dat", 2, 3
  89.                 FPutLn 1, "@X08φ @X0F" + STRING002 + " " + STRING003 + " " + STRING005
  90.                 FPutLn 1, "@X08∙ @X07" + STRING006
  91.                 FClose 1
  92.             Endif
  93.         Endif
  94.         If (STRING001 == "R") Then
  95.             Print "Removal"
  96.             Delay 5
  97.             KbdStuff "Q" + "E" + Chr(13) + "SYSOP" + Chr(13) + "Requesting Removal of FTP" + Chr(13) + "R" + Chr(13)
  98.         Endif
  99.         If (STRING001 == "Q") Then
  100.             Print "Quit"
  101.             Delay 5
  102.             Cls
  103.             End
  104.         Endif
  105.     EndWhile
  106.  
  107. ;------------------------------------------------------------------------------
  108. ;
  109. ; Usage report (before postprocessing)
  110. ;
  111. ; ■ Statements used :
  112. ;
  113. ;    1       End
  114. ;    3       Cls
  115. ;    1       Wait
  116. ;    1       Color 
  117. ;    9       Goto 
  118. ;    21      Let 
  119. ;    4       Print 
  120. ;    7       If 
  121. ;    4       DispFile 
  122. ;    1       FOpen 
  123. ;    1       FAppend 
  124. ;    2       FClose 
  125. ;    2       FGet 
  126. ;    2       FPutLn 
  127. ;    5       InputStr 
  128. ;    3       Delay 
  129. ;    4       Newline
  130. ;    1       KbdStuff 
  131. ;    1       AnsiPos 
  132. ;    1       FreshLine
  133. ;
  134. ;
  135. ; ■ Functions used :
  136. ;
  137. ;    24      +
  138. ;    6       ==
  139. ;    5       <>
  140. ;    7       !
  141. ;    4       &&
  142. ;    3       Upper()
  143. ;    4       Left()
  144. ;    4       Chr()
  145. ;    1       Inkey()
  146. ;    4       Mask_Ascii()
  147. ;    6       PPEPath()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : No flag
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Postprocessing report
  156. ;
  157. ;    0       For/Next
  158. ;    2       While/EndWhile
  159. ;    5       If/Then or If/Then/Else
  160. ;    0       Select Case
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;                 AEGiS Corp - Break the routines, code against the machines!
  164. ;------------------------------------------------------------------------------
  165.