home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TBS!NFS2.ZIP / NEWFS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-17  |  10KB  |  420 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.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   STRING018
  47.  
  48. ;------------------------------------------------------------------------------
  49.  
  50.     STRING016 = "N"
  51.     BOOLEAN002 = 0
  52.     INTEGER007 = CurConf()
  53.     If (TokCount() <> 0) BOOLEAN002 = 1
  54.     While (TokCount() > 0) Do
  55.         STRING016 = STRING016 + " "
  56.         STRING016 = STRING016 + GetToken()
  57.     EndWhile
  58.     If (BOOLEAN002 == 1) Then
  59.         KbdStuff STRING016 + Chr(13)
  60.     Else
  61.         GetUser
  62.         FOpen 1, PPEPath() + "NFS.CFG", 0, 0
  63.         FGet 1, INTEGER005
  64.         FGet 1, INTEGER006
  65.         FGet 1, STRING006
  66.         FGet 1, STRING007
  67.         FGet 1, STRING008
  68.         FGet 1, STRING009
  69.         FGet 1, STRING010
  70.         FGet 1, STRING011
  71.         FGet 1, STRING015
  72.         FGet 1, INTEGER008
  73.         If (STRING006 == "Y") BOOLEAN001 = 1
  74.         If (STRING006 == "N") BOOLEAN001 = 0
  75.         If ((STRING006 <> "Y") && (STRING006 <> "N")) Then
  76.             PrintLn "@X04 FEHLER IN @X09NFS.CFG@X04 !!!"
  77.             Sound 400
  78.             Delay 5
  79.             Sound 0
  80.             Delay 15
  81.         Else
  82.             If ((STRING007 == "Y") || (STRING007 == "y")) Then
  83.                 Cls
  84.             Else
  85.                 PrintLn 
  86.             Endif
  87.             If (INTEGER008 == 2) Goto LABEL001
  88.             If (INTEGER008 == 3) Goto LABEL002
  89.             If (INTEGER008 == 4) Goto LABEL003
  90.             PrintLn 
  91.             PrintLn "@X02 scanning New Files since@X08"
  92.             PrintLn "@X08 ╔── ─────════════────  ──┴══════════──── ─ ────═════════───══──╗"
  93.             PrintLn " ¡    ■@X0F@X40 LAST CALL @X08·■·@X0F @X0BT@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit  @X08  ¡"
  94.             PrintLn " ╚── ──══════───═══────═══  ─═════────═════ ─ ────═══════───══──╝"
  95.             Goto LABEL004
  96.             :LABEL001
  97.             PrintLn "@X03 scan@X0Bnin@X03g Ne@X0Bw Fil@X03es si@X0Bnce"
  98.             PrintLn "@X09 ╔── ─────════════─────  ─┴══════════──── ─ ───═════════────══──╗"
  99.             PrintLn " ¡@X01    ■@X20 LAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit   @X09 ¡"
  100.             PrintLn " ╚── ──══════───═══────═══  ─═════────═════ ─ ────═══════───══──╝"
  101.             Goto LABEL004
  102.             :LABEL002
  103.             PrintLn "@X02 sca@X0Annin@X02g Ne@X0Aw Fi@X02les si@X0Ance"
  104.             PrintLn "@X0A ╔── ─────════════─────  ─┴══════════──── ─ ───═════════────══──╗"
  105.             PrintLn " ¡@X07    ■@X1F LAST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit   @X0A ¡"
  106.             PrintLn " ╚── ──══════───═══────═══  ─═════────═════ ─ ────═══════───══──╝"
  107.             Goto LABEL004
  108.             :LABEL003
  109.             PrintLn "@X05 scan@X0Dning Ne@X05w Fi@X0Dles s@X05in@X0Dce"
  110.             PrintLn "@X0D +------------------------^---------------------^^---------------+"
  111.             PrintLn " (   @X01 |@X0A LAST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit@X01 |@X0D   )"
  112.             PrintLn " +----+------------+---------+--------------+--------+-----------+"
  113.             :LABEL004
  114.             AnsiPos 40, GetY() - 4
  115.             Print "@X08coded by [.Magic Walker.]"
  116.             AnsiPos 40, GetY()
  117.             Delay 3
  118.             Print "@X08coded by [@X07.Magic Walker.@X08]"
  119.             AnsiPos 40, GetY()
  120.             Delay 2
  121.             Print "@X08coded by [@X07.@X0FMagic Walker@X07.@X08]"
  122.             AnsiPos 40, GetY()
  123.             Delay 2
  124.             Print "@X08coded by [@X07.@X03Magic Walker@X07.@X08]"
  125.             AnsiPos 40, GetY()
  126.             Delay 2
  127.             Print "@X08coded by [@X07.@X08Magic Walker@X07.@X08]"
  128.             AnsiPos 40, GetY()
  129.             Delay 2
  130.             Print "@X08coded by [@X07.@X08Mc Walker@X07.@X08]   "
  131.             AnsiPos 40, GetY()
  132.             Delay 2
  133.             Print "@X08coded by [@X07.@X08McW@X07.@X08]       "
  134.             For INTEGER003 = 40 To 50
  135.                 AnsiPos INTEGER003, GetY()
  136.                 Print " @X08coded by [@X07.@X08McW@X07.@X08]"
  137.                 Delay 1
  138.             Next
  139.             PrintLn 
  140.             KeyFlush
  141.             AnsiPos 7, GetY() + 1
  142.             INTEGER004 = 0
  143.             STRING002 = Left(U_LDir(), 2) + Mid(U_LDir(), 4, 2) + Right(U_LDir(), 2)
  144.             STRING003 = Left(Date(), 2) + Mid(Date(), 4, 2) + Right(Date(), 2)
  145.             STRING012 = Day(Date() - 5)
  146.             STRING013 = Month(Date() - 5)
  147.             STRING014 = Right(Date(), 2)
  148.             If (STRING012 < 10) STRING012 = "0" + STRING012
  149.             If (STRING013 < 10) STRING013 = "0" + STRING013
  150.             If (STRING014 < 10) STRING014 = "0" + STRING014
  151.             STRING004 = STRING012 + STRING013 + STRING014
  152.             INTEGER002 = U_RecNum(U_Name())
  153.             INTEGER001 = INTEGER005
  154.             ShowOff
  155.             Join INTEGER005
  156.             PrintLn "@CONFNAME@"
  157.             Wait
  158.             ShowOn
  159.             :LABEL005
  160.             STRING001 = Inkey()
  161.             If (STRING001 == "RIGHT") Then
  162.                 INTEGER004 = INTEGER004 + 1
  163.                 If (INTEGER004 == 5) INTEGER004 = 0
  164.                 Gosub LABEL006
  165.             Endif
  166.             If (STRING001 == "LEFT") Then
  167.                 INTEGER004 = INTEGER004 - 1
  168.                 If (INTEGER004 == -1) INTEGER004 = 4
  169.                 Gosub LABEL006
  170.             Endif
  171.             If (Upper(STRING001) == "Q") Goto LABEL019
  172.             If (Upper(STRING001) == "L") Goto LABEL008
  173.             If (Upper(STRING001) == "T") Goto LABEL010
  174.             If (STRING001 == "5") Goto LABEL012
  175.             If (Upper(STRING001) == "D") Then
  176.                 INTEGER004 = 3
  177.             Else
  178.                 If (STRING001 == Chr(13)) Goto LABEL007
  179.                 Goto LABEL005
  180.                 :LABEL006
  181.                 If ((INTEGER004 == 0) && (INTEGER008 == 1)) Print "@X08■@X0F@X40 LAST CALL @X08·■·@X0F @X0BT@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit  @X08  ¡"
  182.                 If ((INTEGER004 == 1) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X40 Today @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X07"
  183.                 If ((INTEGER004 == 2) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■·@X40 5 Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■· @X0BQ@X0Fuit @X07"
  184.                 If ((INTEGER004 == 3) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X40 Date @X08·■· @X0BQ@X0Fuit @X07"
  185.                 If ((INTEGER004 == 4) && (INTEGER008 == 1)) Print "@X08■@X0B L@X0FAST CALL @X08·■·@X0B T@X0Foday @X08·■· @X0B5@X0F Days ago @X08·■·@X0F @X0BD@X0Fate @X08·■·@X40 Quit @X07"
  186.                 If ((INTEGER004 == 0) && (INTEGER008 == 2)) Print "@X01■@X20 LAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit   @X09 ¡ "
  187.                 If ((INTEGER004 == 1) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X20 Today @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit"
  188.                 If ((INTEGER004 == 2) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■·@X20 5 Days ago @X01·■· @X0FD@X0Bate @X01·■· @X0FQ@X0Buit"
  189.                 If ((INTEGER004 == 3) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■·@X20 Date @X01·■· @X0FQ@X0Buit"
  190.                 If ((INTEGER004 == 4) && (INTEGER008 == 2)) Print "@X01■@X0F L@X0BAST CALL @X21@X01·■·@X0F T@X0Boday @X01·■· @X0F5@X0B Days ago @X01·■· @X0FD@X0Bate @X01·■·@X20 Quit@X07"
  191.                 If ((INTEGER004 == 0) && (INTEGER008 == 3)) Print "@X07■@X1F LAST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit   @X0A ¡"
  192.                 If ((INTEGER004 == 1) && (INTEGER008 == 3)) Print "@X07■@X0A L@X02AST CALL @X07·■·@X1F Today @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit"
  193.                 If ((INTEGER004 == 2) && (INTEGER008 == 3)) Print "@X07■@X0A L@X02AST CALL @X07·■· @X0AT@X02oday @X07·■·@X1F 5 Days ago @X07·■· @X0AD@X02ate @X07·■· @X0AQ@X02uit"
  194.                 If ((INTEGER004 == 3) && (INTEGER008 == 3)) Print "@X07■ @X0AL@X02AST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■·@X1F Date @X07·■· @X0AQ@X02uit"
  195.                 If ((INTEGER004 == 4) && (INTEGER008 == 3)) Print "@X07■ @X0AL@X02AST CALL @X07·■· @X0AT@X02oday @X07·■· @X0A5 @X02Days ago @X07·■· @X0AD@X02ate @X07·■·@X1F Quit@X07 "
  196.                 If ((INTEGER004 == 0) && (INTEGER008 == 4)) Print "@X01|@X0A LAST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D   )"
  197.                 If ((INTEGER004 == 1) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A Today @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D"
  198.                 If ((INTEGER004 == 2) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Q@X02uit @X01|@X0D"
  199.                 If ((INTEGER004 == 3) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A Date @X01·|·@X0A Q@X02uit @X01|@X0D"
  200.                 If ((INTEGER004 == 4) && (INTEGER008 == 4)) Print "@X01|@X0A L@X02AST CALL@X01 ·|·@X0A T@X02oday @X01·|·@X0A 5@X02 Days ago @X01·|·@X0A D@X02ate @X01·|·@X0A Quit @X01|@X0D "
  201.                 AnsiPos 7, GetY()
  202.                 Return
  203.             Endif
  204.             :LABEL007
  205.             If (INTEGER004 == 4) Goto LABEL019
  206.             If (INTEGER004 == 0) Goto LABEL008
  207.             If (INTEGER004 == 1) Goto LABEL010
  208.             If (INTEGER004 == 2) Goto LABEL012
  209.             If (INTEGER004 == 3) Then
  210.                 AnsiPos 2, GetY() + 2
  211.                 STRING017 = "DDMMYY"
  212.                 InputStr STRING015, STRING017, 1, 6, "1234567890", 2 + 32
  213.                 If (STRING017 == "DDMMYY") Goto LABEL019
  214.                 If (ValDate(STRING017) == 0) Goto LABEL018
  215.                 STRING005 = Left(STRING017, 2) + Mid(STRING017, 4, 2) + Right(STRING017, 2)
  216.             Else
  217.                 Goto LABEL019
  218.                 :LABEL008
  219.                 If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
  220.                 Gosub LABEL016
  221.                 If (Upper(STRING008) <> "Y") Goto LABEL009
  222.                 Cls
  223.                 Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
  224.                 Delay 1
  225.                 Print "."
  226.                 Delay 1
  227.                 Print "."
  228.                 Delay 1
  229.                 Print "."
  230.                 Delay 1
  231.                 Print "."
  232.                 Delay 2
  233.                 Print "@X0Fdone"
  234.                 Delay 3
  235.                 :LABEL009
  236.                 Dir "N;S;" + STRING002 + ";A"
  237.                 Goto LABEL008
  238.                 :LABEL010
  239.                 If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
  240.                 Gosub LABEL016
  241.                 If (Upper(STRING008) <> "Y") Goto LABEL011
  242.                 Cls
  243.                 Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
  244.                 Delay 1
  245.                 Print "."
  246.                 Delay 1
  247.                 Print "."
  248.                 Delay 1
  249.                 Print "."
  250.                 Delay 1
  251.                 Print "."
  252.                 Delay 2
  253.                 Print "@X0Fdone"
  254.                 Delay 3
  255.                 :LABEL011
  256.                 Dir "N;S;" + STRING003 + ";A"
  257.                 Goto LABEL010
  258.                 :LABEL012
  259.                 If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
  260.                 Gosub LABEL016
  261.                 If (Upper(STRING008) <> "Y") Goto LABEL013
  262.                 Cls
  263.                 Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
  264.                 Delay 1
  265.                 Print "."
  266.                 Delay 1
  267.                 Print "."
  268.                 Delay 1
  269.                 Print "."
  270.                 Delay 1
  271.                 Print "."
  272.                 Delay 2
  273.                 Print "@X0Fdone"
  274.                 Delay 3
  275.                 :LABEL013
  276.                 Dir "N;S;" + STRING004 + ";A"
  277.                 Goto LABEL012
  278.             Endif
  279.             :LABEL014
  280.             If (INTEGER001 == INTEGER006 + 1) Goto LABEL019
  281.             Gosub LABEL016
  282.             If (Upper(STRING008) <> "Y") Goto LABEL015
  283.             Cls
  284.             Print STRING009 + "scanning Conference :" + STRING010 + "@CONFNAME@ "
  285.             Delay 1
  286.             Print "."
  287.             Delay 1
  288.             Print "."
  289.             Delay 1
  290.             Print "."
  291.             Delay 1
  292.             Print "."
  293.             Delay 2
  294.             Print "@X0Fdone"
  295.             Delay 3
  296.             :LABEL015
  297.             Dir "N;S;" + STRING017 + ";A"
  298.             Goto LABEL014
  299.             :LABEL016
  300.             STRING018 = Inkey()
  301.             If (Upper(STRING018) == "A") Goto LABEL019
  302.             If (INTEGER001 == INTEGER006) Goto LABEL019
  303.             If (ConfReg(INTEGER001) == 0) Goto LABEL017
  304.             ShowOff
  305.             Join INTEGER001 + ";Q"
  306.             ShowOn
  307.             INTEGER001 = INTEGER001 + 1
  308.             Return
  309.             :LABEL017
  310.             INTEGER001 = INTEGER001 + 1
  311.             If (INTEGER001 == INTEGER006) Goto LABEL019
  312.             Goto LABEL016
  313.             :LABEL018
  314.             AnsiPos 1, GetY()
  315.             Print "@X04Wrong Date !"
  316.             Delay 3
  317.             AnsiPos 1, GetY()
  318.             Print "@X0CWrong Date !"
  319.             Delay 5
  320.             AnsiPos 1, GetY()
  321.             Print "@X04Wrong Date !"
  322.             Delay 3
  323.             AnsiPos 1, GetY()
  324.             Print "@X08Wrong Date !"
  325.             Delay 3
  326.             AnsiPos 1, GetY()
  327.             Print "                "
  328.             Delay 2
  329.         Endif
  330.         :LABEL019
  331.         ShowOff
  332.         Join INTEGER007
  333.         ShowOn
  334.         AnsiPos 1, GetY() + 2
  335.         PrintLn STRING011
  336.     Endif
  337.     End
  338.  
  339. ;------------------------------------------------------------------------------
  340. ;
  341. ; Usage report (before postprocessing)
  342. ;
  343. ; ■ Statements used :
  344. ;
  345. ;    1       End
  346. ;    5       Cls
  347. ;    1       Wait
  348. ;    52      Goto 
  349. ;    33      Let 
  350. ;    57      Print 
  351. ;    22      PrintLn 
  352. ;    63      If 
  353. ;    1       FOpen 
  354. ;    10      FGet 
  355. ;    1       GetUser
  356. ;    1       InputStr 
  357. ;    6       Gosub 
  358. ;    2       Return
  359. ;    38      Delay 
  360. ;    1       KbdStuff 
  361. ;    3       Join 
  362. ;    4       Dir 
  363. ;    17      AnsiPos 
  364. ;    2       Sound 
  365. ;    3       ShowOn
  366. ;    3       ShowOff
  367. ;    1       KeyFlush
  368. ;
  369. ;
  370. ; ■ Functions used :
  371. ;
  372. ;    1       -
  373. ;    48      +
  374. ;    4       -
  375. ;    73      ==
  376. ;    7       <>
  377. ;    4       <
  378. ;    1       <=
  379. ;    1       >
  380. ;    2       >=
  381. ;    9       !
  382. ;    23      &&
  383. ;    2       ||
  384. ;    9       Upper()
  385. ;    3       Mid()
  386. ;    3       Left()
  387. ;    4       Right()
  388. ;    2       Chr()
  389. ;    6       Date()
  390. ;    1       U_Name()
  391. ;    3       U_LDir()
  392. ;    1       Month()
  393. ;    1       Day()
  394. ;    2       Inkey()
  395. ;    1       CurConf()
  396. ;    1       PPEPath()
  397. ;    1       ValDate()
  398. ;    1       GetToken()
  399. ;    17      GetY()
  400. ;    2       TokCount()
  401. ;    1       U_RecNum()
  402. ;    1       ConfReg()
  403. ;
  404. ;------------------------------------------------------------------------------
  405. ;
  406. ; Analysis flags : No flag
  407. ;
  408. ;------------------------------------------------------------------------------
  409. ;
  410. ; Postprocessing report
  411. ;
  412. ;    1       For/Next
  413. ;    1       While/EndWhile
  414. ;    7       If/Then or If/Then/Else
  415. ;    0       Select Case
  416. ;
  417. ;------------------------------------------------------------------------------
  418. ;                 AEGiS Corp - Break the routines, code against the machines!
  419. ;------------------------------------------------------------------------------
  420.