home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT221.ZIP / PURGE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-14  |  4KB  |  228 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.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     FDefIn 1
  39.     FDefOut 2
  40.     :LABEL001
  41.     StartDisp 1
  42.     STRING001 = 3
  43.     INTEGER001 = 0
  44.     INTEGER002 = 0
  45.     INTEGER003 = 0
  46.     INTEGER004 = 0
  47.     INTEGER005 = 3
  48.     INTEGER006 = 2
  49.     FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  50.     FGet 1, STRING002
  51.     FClose 1
  52.     Cls
  53.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  54.     :LABEL002
  55.     If (Ferr(1)) Goto LABEL003
  56.     FGet 1, STRING005
  57.     AnsiPos INTEGER006, INTEGER005
  58.     PrintLn STRING005
  59.     Inc INTEGER005
  60.     If (INTEGER005 > 19) Then
  61.         INTEGER006 = INTEGER006 + 24
  62.         INTEGER005 = 3
  63.     Endif
  64.     Goto LABEL002
  65.     :LABEL003
  66.     FClose 1
  67.     STRING006 = ""
  68.     AnsiPos 5, 21
  69.     InputStr "@X0EWhich User to Purge", STRING006, 14, 45, Mask_Ascii(), 4 + 8
  70.     If (STRING006 == "") Goto LABEL009
  71.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  72.     :LABEL004
  73.     If (Ferr(1)) Goto LABEL005
  74.     FGet 1, STRING005
  75.     If (STRING006 == STRING005) Then
  76.         FClose 1
  77.     Else
  78.         Goto LABEL004
  79.         :LABEL005
  80.         Newlines 2
  81.         PrintLn "Did not Find " + STRING006 + " In the LIST !!!!"
  82.         FreshLine
  83.         Wait
  84.         FClose 1
  85.         Goto LABEL001
  86.     Endif
  87.     Tokenize STRING006
  88.     If (TokCount() == 3) Then
  89.         GetToken STRING007
  90.         GetToken STRING008
  91.         GetToken STRING009
  92.         STRING007 = Strip(STRING007, " ")
  93.         STRING008 = Strip(STRING008, " ")
  94.         STRING007 = Strip(STRING007, ".")
  95.         STRING008 = Strip(STRING008, ".")
  96.         STRING009 = Strip(STRING009, ".")
  97.         STRING009 = Strip(STRING009, " ")
  98.         STRING007 = Left(STRING007, 3)
  99.         STRING008 = Right(STRING009, 4)
  100.     Else
  101.         GetToken STRING007
  102.         GetToken STRING008
  103.         STRING007 = Strip(STRING007, " ")
  104.         STRING008 = Strip(STRING008, " ")
  105.         STRING007 = Strip(STRING007, ".")
  106.         STRING008 = Strip(STRING008, ".")
  107.         STRING007 = Left(STRING007, 3)
  108.         STRING008 = Right(STRING008, 4)
  109.     Endif
  110.     FClose 2
  111.     Cls
  112.     AnsiPos 7, 1
  113.     PrintLn "@X7ENew User@X7F'@X7Es Purge @X7Ffrom @X74Master Beta @X7F@ @X74<<@X7ETHT@X74>>@X07"
  114.     AnsiPos 30, 2
  115.     PrintLn "@X1Fv 1@X1F.@X1C00@X07"
  116.     AnsiPos 6, 3
  117.     PrintLn "@X34@X08╔════════════════════════════════════════════════════╗@X07"
  118.     AnsiPos 6, 4
  119.     PrintLn "@X08║  @X3E@X0E" + STRING006 + "@POS:25@" + "  " + "@POS:59@@X08║@X07"
  120.     AnsiPos 6, 5
  121.     PrintLn "@X34@X08╚════════════════════════════════════════════════════╝@X07"
  122.     FreshLine
  123.     STRING010 = ""
  124.     InputStr "@X0EAre you Sure ", STRING010, "", 1, "YyNn", 8 + 4
  125.     If (STRING010 == NoChar()) Goto LABEL001
  126.     If (STRING010 == YesChar()) Goto LABEL000
  127.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  128.     FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  129.     :LABEL006
  130.     If (Ferr(1)) Goto LABEL007
  131.     FGet 1, STRING004
  132.     If (STRING004 == "") Goto LABEL008
  133.     If (STRING004 == STRING006) Then
  134.         PrintLn 
  135.     Else
  136.         FDPutLn STRING004
  137.     Endif
  138.     Goto LABEL006
  139.     :LABEL007
  140.     FClose 2
  141.     :LABEL008
  142.     FClose 1
  143.     FClose 2
  144.     Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  145.     Delete PPEPath() + "APPS\waiting.tmp"
  146.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".vot"
  147.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".GRP"
  148.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".cmt"
  149.     For STRING003 = STRING002 To 1 Step -1
  150.         Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + "." + STRING003
  151.     Next
  152.     Goto LABEL001
  153.     :LABEL009
  154.     FClose 1
  155.     FClose 2
  156.     End
  157.  
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Usage report (before postprocessing)
  161. ;
  162. ; ■ Statements used :
  163. ;
  164. ;    1       End
  165. ;    2       Cls
  166. ;    1       Wait
  167. ;    22      Goto 
  168. ;    27      Let 
  169. ;    8       PrintLn 
  170. ;    12      If 
  171. ;    4       FOpen 
  172. ;    1       FAppend 
  173. ;    10      FClose 
  174. ;    4       FGet 
  175. ;    1       StartDisp 
  176. ;    5       Delete 
  177. ;    2       InputStr 
  178. ;    1       Inc 
  179. ;    1       Newlines 
  180. ;    1       Tokenize 
  181. ;    5       GetToken 
  182. ;    7       AnsiPos 
  183. ;    2       FreshLine
  184. ;    1       FDefIn 
  185. ;    1       FDefOut 
  186. ;    1       FDPutLn 
  187. ;    1       Copy 
  188. ;
  189. ;
  190. ; ■ Functions used :
  191. ;
  192. ;    3       -
  193. ;    39      +
  194. ;    7       ==
  195. ;    1       <
  196. ;    1       <=
  197. ;    1       >
  198. ;    2       >=
  199. ;    8       !
  200. ;    2       &&
  201. ;    1       ||
  202. ;    2       Left()
  203. ;    2       Right()
  204. ;    3       Ferr()
  205. ;    1       NoChar()
  206. ;    1       YesChar()
  207. ;    10      Strip()
  208. ;    1       Mask_Ascii()
  209. ;    12      PPEPath()
  210. ;    1       TokCount()
  211. ;
  212. ;------------------------------------------------------------------------------
  213. ;
  214. ; Analysis flags : No flag
  215. ;
  216. ;------------------------------------------------------------------------------
  217. ;
  218. ; Postprocessing report
  219. ;
  220. ;    1       For/Next
  221. ;    0       While/EndWhile
  222. ;    4       If/Then or If/Then/Else
  223. ;    0       Select Case
  224. ;
  225. ;------------------------------------------------------------------------------
  226. ;                 AEGiS Corp - Break the routines, code against the machines!
  227. ;------------------------------------------------------------------------------
  228.