home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FOOD_PBL.ZIP / BBSLIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-04-27  |  10KB  |  543 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.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   TSTRING001(2)
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   TSTRING007(108)
  30.     String   TSTRING008(108)
  31.     String   TSTRING009(108)
  32.     String   TSTRING010(108)
  33.     String   TSTRING011(108)
  34.     String   TSTRING012(108)
  35.     String   TSTRING013(20)
  36.     Int      INT001
  37.     Int      INT002
  38.     Int      INT003
  39.     Int      INT004
  40.     Int      INT005
  41.     Int      INT006
  42.     Declare  Procedure PROC001(String STRING014)
  43.     Declare  Procedure PROC002()
  44.     Declare  Procedure PROC003()
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     FOpen 1, PPEPath() + PPEName() + ".cfg", 2, 0
  49.     For INT006 = 1 To 40
  50.         FGet 1, TSTRING013(INT006)
  51.     Next
  52.     If (Exist(PPEPath() + PPEName() + ".dbf")) Then
  53.         Goto LABEL002
  54.     Else
  55.         Goto LABEL001
  56.     Endif
  57.     :LABEL001
  58.     TSTRING001(0) = "BOARDN,C,25,0"
  59.     TSTRING001(1) = "PHONEN,N,19,0"
  60.     TSTRING001(2) = "SYSOP,C,22,0"
  61.     DCreate 1, PPEPath() + PPEName(), 0, TSTRING001(BOOLEAN000)
  62.     DClose 1
  63.     :LABEL002
  64.     Cls
  65.     DispFile PPEPath() + PPEName() + ".pcb", 0
  66.     :LABEL003
  67.     Gosub LABEL038
  68.     DOpen 1, PPEPath() + PPEName(), 0
  69.     INT002 = DRecCount(1)
  70.     :LABEL004
  71.     INT005 = 0
  72.     Gosub LABEL038
  73.     Goto LABEL014
  74.     :LABEL005
  75.     INT005 = 9
  76.     Gosub LABEL038
  77.     Goto LABEL014
  78.     :LABEL006
  79.     INT005 = 18
  80.     Gosub LABEL038
  81.     Goto LABEL014
  82.     :LABEL007
  83.     INT005 = 27
  84.     Gosub LABEL038
  85.     Goto LABEL014
  86.     :LABEL008
  87.     INT005 = 36
  88.     Gosub LABEL038
  89.     Goto LABEL014
  90.     :LABEL009
  91.     INT005 = 45
  92.     Gosub LABEL038
  93.     Goto LABEL014
  94.     :LABEL010
  95.     INT005 = 54
  96.     Gosub LABEL038
  97.     Goto LABEL014
  98.     :LABEL011
  99.     INT005 = 63
  100.     Gosub LABEL038
  101.     Goto LABEL014
  102.     :LABEL012
  103.     INT005 = 70
  104.     Gosub LABEL038
  105.     Goto LABEL014
  106.     :LABEL013
  107.     INT005 = 79
  108.     Gosub LABEL038
  109.     :LABEL014
  110.     For INT001 = 1 To INT002
  111.         DGo 1, INT001
  112.         DGet 1, "BOARDN", TSTRING007(INT001)
  113.         DGet 1, "PHONEN", TSTRING009(INT001)
  114.         DGet 1, "SYSOP", TSTRING011(INT001)
  115.         INTEGER001 = 11
  116.         AnsiPos 3, INTEGER001
  117.         Print "@POS:3@" + TSTRING007(1 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(1 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(1 + INT005)
  118.         Inc INTEGER001
  119.         AnsiPos 3, INTEGER001
  120.         Print "@POS:3@" + TSTRING007(2 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(2 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(2 + INT005)
  121.         Inc INTEGER001
  122.         AnsiPos 3, INTEGER001
  123.         Print "@POS:3@" + TSTRING007(3 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(3 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(3 + INT005)
  124.         Inc INTEGER001
  125.         AnsiPos 3, INTEGER001
  126.         Print "@POS:3@" + TSTRING007(4 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(4 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(4 + INT005)
  127.         Inc INTEGER001
  128.         AnsiPos 3, INTEGER001
  129.         Print "@POS:3@" + TSTRING007(5 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(5 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(5 + INT005)
  130.         Inc INTEGER001
  131.         AnsiPos 3, INTEGER001
  132.         Print "@POS:3@" + TSTRING007(6 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(6 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(6 + INT005)
  133.         Inc INTEGER001
  134.         AnsiPos 3, INTEGER001
  135.         Print "@POS:3@" + TSTRING007(7 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(7 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(7 + INT005)
  136.         Inc INTEGER001
  137.         AnsiPos 3, INTEGER001
  138.         Print "@POS:3@" + TSTRING007(8 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(8 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(8 + INT005)
  139.         Inc INTEGER001
  140.         AnsiPos 3, INTEGER001
  141.         Print "@POS:3@" + TSTRING007(9 + INT005) + "@POS:28@" + "@X02|@X07" + "@POS:29@" + TSTRING009(9 + INT005) + "@POS:56@" + "@X02|@X07" + "@POS:57@" + TSTRING011(9 + INT005)
  142.         Inc INTEGER001
  143.         Continue
  144.     Next
  145.     :LABEL015
  146.     AnsiPos 3, 21
  147.     Print "                                                                 "
  148.     AnsiPos 2, 22
  149.     Print TSTRING013(7) + " ADD ENTRY " + TSTRING013(8) + "  DELETE ENTRY@X07 " + TSTRING013(8) + "  DOWNLOAD LIST " + TSTRING013(8) + "  NEXT PAGE " + TSTRING013(8) + "  PREVIOUS PAGE " + TSTRING013(8) + "  QUIT!@X07"
  150.     :LABEL016
  151.     STRING002 = Inkey()
  152.     If (STRING002 == "LEFT") Goto LABEL025
  153.     If (STRING002 == "RIGHT") Goto LABEL017
  154.     If (STRING002 == Chr(13)) Goto LABEL027
  155.     Goto LABEL016
  156.     :LABEL017
  157.     AnsiPos 3, 21
  158.     Print "                                                                 "
  159.     AnsiPos 2, 22
  160.     Print TSTRING013(8) + " ADD ENTRY " + TSTRING013(7) + "  DELETE ENTRY@X07 " + TSTRING013(8) + "  DOWNLOAD LIST " + TSTRING013(8) + "  NEXT PAGE " + TSTRING013(8) + "  PREVIOUS PAGE " + TSTRING013(8) + "  QUIT!@X07"
  161.     :LABEL018
  162.     STRING002 = Inkey()
  163.     If (STRING002 == "LEFT") Goto LABEL015
  164.     If (STRING002 == "RIGHT") Goto LABEL019
  165.     If (STRING002 == Chr(13)) Goto LABEL031
  166.     Goto LABEL018
  167.     :LABEL019
  168.     AnsiPos 2, 22
  169.     Print TSTRING013(8) + " ADD ENTRY " + TSTRING013(8) + "  DELETE ENTRY@X07 " + TSTRING013(7) + "  DOWNLOAD LIST " + TSTRING013(8) + "  NEXT PAGE " + TSTRING013(8) + "  PREVIOUS PAGE " + TSTRING013(8) + "  QUIT!@X07"
  170.     :LABEL020
  171.     STRING002 = Inkey()
  172.     If (STRING002 == "LEFT") Goto LABEL017
  173.     If (STRING002 == "RIGHT") Goto LABEL021
  174.     If (STRING002 == Chr(13)) Goto LABEL034
  175.     Goto LABEL020
  176.     :LABEL021
  177.     AnsiPos 2, 22
  178.     Print TSTRING013(8) + " ADD ENTRY " + TSTRING013(8) + "  DELETE ENTRY@X07 " + TSTRING013(8) + "  DOWNLOAD LIST " + TSTRING013(7) + "  NEXT PAGE " + TSTRING013(8) + "  PREVIOUS PAGE " + TSTRING013(8) + "  QUIT!@X07"
  179.     :LABEL022
  180.     STRING002 = Inkey()
  181.     If (STRING002 == "LEFT") Goto LABEL019
  182.     If (STRING002 == "RIGHT") Goto LABEL023
  183.     If (STRING002 == Chr(13)) Goto LABEL035
  184.     Goto LABEL022
  185.     :LABEL023
  186.     AnsiPos 2, 22
  187.     Print TSTRING013(8) + " ADD ENTRY " + TSTRING013(8) + "  DELETE ENTRY@X07 " + TSTRING013(8) + "  DOWNLOAD LIST " + TSTRING013(8) + "  NEXT PAGE " + TSTRING013(7) + "  PREVIOUS PAGE " + TSTRING013(8) + "  QUIT!@X07"
  188.     :LABEL024
  189.     STRING002 = Inkey()
  190.     If (STRING002 == "LEFT") Goto LABEL021
  191.     If (STRING002 == "RIGHT") Goto LABEL025
  192.     If (STRING002 == Chr(13)) Goto LABEL036
  193.     Goto LABEL024
  194.     :LABEL025
  195.     AnsiPos 2, 22
  196.     Print TSTRING013(8) + " ADD ENTRY " + TSTRING013(8) + "  DELETE ENTRY@X07 " + TSTRING013(8) + "  DOWNLOAD LIST " + TSTRING013(8) + "  NEXT PAGE " + TSTRING013(8) + "  PREVIOUS PAGE " + TSTRING013(7) + "  QUIT!@X07"
  197.     :LABEL026
  198.     STRING002 = Inkey()
  199.     If (STRING002 == "LEFT") Goto LABEL023
  200.     If (STRING002 == "RIGHT") Goto LABEL015
  201.     If (STRING002 == Chr(13)) Goto LABEL037
  202.     Goto LABEL026
  203.     :LABEL027
  204.     If (TSTRING013(1) <= CurSec()) Then
  205.         Goto LABEL028
  206.     Else
  207.         AnsiPos 27, 21
  208.         PROC001("U'r 2 lAME tO aDD eNTRY")
  209.         Delay 15
  210.         Goto LABEL015
  211.     Endif
  212.     :LABEL028
  213.     STRING003 = ""
  214.     STRING004 = ""
  215.     STRING005 = ""
  216.     AnsiPos 3, 21
  217.     Print TSTRING013(3) + TSTRING013(4) + " : "
  218.     InputStr "_", STRING003, 0, 25, Mask_Alpha() + " ", 8
  219.     If ((STRING003 == "") || (STRING003 == " ")) Goto LABEL015
  220.     If (Exist(PPEPath() + "bbsl.ndx")) Delete PPEPath() + "bbsl.ndx"
  221.     DOpen 7, PPEPath() + PPEName(), 0
  222.     DnCreate 7, PPEPath() + "bbsl", "BOARDN"
  223.     DnOpen 7, PPEPath() + "bbsl"
  224.     DTag 7, "bbsl"
  225.     DSeek 7, STRING003
  226.     If (DSeek(7, STRING003)) Then
  227.         Goto LABEL029
  228.     Else
  229.         Goto LABEL030
  230.         :LABEL029
  231.         AnsiPos 3, 21
  232.         Print "                                                           "
  233.         AnsiPos 3, 21
  234.         PROC001("That board already exist")
  235.         DnCloseAll 7
  236.         DClose 7
  237.         Goto LABEL015
  238.     Endif
  239.     :LABEL030
  240.     DnCloseAll 7
  241.     DClose 7
  242.     AnsiPos 3, 21
  243.     Print "                                                            "
  244.     AnsiPos 3, 21
  245.     Print TSTRING013(3) + TSTRING013(5) + " : "
  246.     InputStr "_", STRING004, 0, 35, Mask_Num() + " " + "-" + "+" + "(" + ")", 8192
  247.     If ((STRING004 == "") || (STRING004 == " ")) Goto LABEL015
  248.     AnsiPos 3, 21
  249.     Print "                                                           "
  250.     AnsiPos 3, 21
  251.     Print TSTRING013(3) + TSTRING013(6) + " : "
  252.     InputStr "_", STRING005, 0, 21, Mask_Alpha() + " " + "/", 8192
  253.     If ((STRING005 == "") || (STRING005 == " ")) Goto LABEL015
  254.     AnsiPos 3, 21
  255.     Print "                                                           "
  256.     DOpen 0, PPEPath() + PPEName(), 0
  257.     DNew 0
  258.     DPut 0, "BOARDN", STRING003
  259.     DPut 0, "PHONEN", STRING004
  260.     DPut 0, "SYSOP", STRING005
  261.     DAdd 0
  262.     DClose 0
  263.     DClose 1
  264.     Goto LABEL002
  265.     :LABEL031
  266.     AnsiPos 3, 21
  267.     Print "                                                           "
  268.     If (TSTRING013(2) <= CurSec()) Then
  269.         Goto LABEL032
  270.     Else
  271.         AnsiPos 3, 21
  272.         PROC001("U'r 2 lAME tO dELETE eNTRY")
  273.         Delay 10
  274.         Goto LABEL017
  275.     Endif
  276.     :LABEL032
  277.     AnsiPos 3, 21
  278.     Print "                                                           "
  279.     AnsiPos 3, 21
  280.     Print TSTRING013(3) + "Enter Board Name (2 char.minimum) : "
  281.     InputStr "_", STRING006, 0, 24, Mask_Alpha() + " ", 8
  282.     If (STRING006 == "") Goto LABEL015
  283.     If (Exist(PPEPath() + "bbsl.ndx")) Delete PPEPath() + "bbsl.ndx"
  284.     DOpen 5, PPEPath() + PPEName(), 0
  285.     DnCreate 5, PPEPath() + "bbsl", "BOARDN"
  286.     DnOpen 5, PPEPath() + "bbsl"
  287.     DTag 5, "bbsl"
  288.     DSeek 5, STRING006
  289.     If (DSeek(5, STRING006)) Then
  290.         Goto LABEL033
  291.     Else
  292.         AnsiPos 3, 21
  293.         Print "                                                           "
  294.         AnsiPos 3, 21
  295.         PROC001("tHAT bOARD dOESN noT eXIST")
  296.         Goto LABEL015
  297.     Endif
  298.     :LABEL033
  299.     DDelete 5
  300.     DnCloseAll 5
  301.     DPack 5
  302.     Gosub LABEL038
  303.     DClose 5
  304.     DClose 1
  305.     Goto LABEL003
  306.     :LABEL034
  307.     If (Exist(PPEPath() + PPEName() + ".LST")) Delete PPEPath() + PPEName() + ".LST"
  308.     FCreate 2, PPEPath() + PPEName() + ".LST", 2, 0
  309.     DOpen 3, PPEPath() + PPEName(), 0
  310.     INT004 = DRecCount(3)
  311.     FPutLn 2, ".-------------------------+---------------------------+----------------------."
  312.     FPutLn 2, "| bOARD nAME              | pHONE nUMBER              | sYSOP                |"
  313.     FPutLn 2, "`-------------------------+---------------------------+----------------------'"
  314.     For INT003 = 1 To INT004
  315.         DGo 3, INT003
  316.         DGet 3, "BOARDN", TSTRING008(INT003)
  317.         DGet 3, "PHONEN", TSTRING010(INT003)
  318.         DGet 3, "SYSOP", TSTRING012(INT003)
  319.         FPutLn 2, "   " + TSTRING008(INT003) + TSTRING010(INT003) + "         " + TSTRING012(INT003)
  320.     Next
  321.     FPutLn 2, ".----------------------------------------------------------------------------."
  322.     FPutLn 2, "|     !#:.fUCK OFf Or Die.:#:.bBS.lISTER.:#:.cODED.bY.<pUBLIC.eNEMY>.:#!     |"
  323.     FPutLn 2, "`----------------------------------------------------------------------------'"
  324.     FClose 2
  325.     DClose 3
  326.     Cls
  327.     Flag PPEPath() + PPEName() + ".LST"
  328.     Download ""
  329.     Wait
  330.     DClose 1
  331.     Goto LABEL002
  332.     :LABEL035
  333.     If (INT005 == 0) Goto LABEL005
  334.     If (INT005 == 9) Goto LABEL006
  335.     If (INT005 == 18) Goto LABEL007
  336.     If (INT005 == 27) Goto LABEL008
  337.     If (INT005 == 36) Goto LABEL009
  338.     If (INT005 == 45) Goto LABEL010
  339.     If (INT005 == 54) Goto LABEL011
  340.     If (INT005 == 63) Goto LABEL012
  341.     If (INT005 == 70) Goto LABEL013
  342.     If (INT005 == 79) Goto LABEL004
  343.     Goto LABEL015
  344.     :LABEL036
  345.     If (INT005 == 0) Goto LABEL013
  346.     If (INT005 == 9) Goto LABEL004
  347.     If (INT005 == 18) Goto LABEL005
  348.     If (INT005 == 27) Goto LABEL006
  349.     If (INT005 == 36) Goto LABEL007
  350.     If (INT005 == 45) Goto LABEL008
  351.     If (INT005 == 54) Goto LABEL009
  352.     If (INT005 == 63) Goto LABEL010
  353.     If (INT005 == 70) Goto LABEL011
  354.     If (INT005 == 79) Goto LABEL012
  355.     Goto LABEL023
  356.     :LABEL037
  357.     AnsiPos 34, 21
  358.     PROC001("fUCK oFF Or dIE")
  359.     Delay 5
  360.     AnsiPos 34, 21
  361.     Print "                      "
  362.     AnsiPos 25, 21
  363.     Print "@X08Coded By Public Enemy [@X0Ctly@X08.@X0Csvn@X08.@X0Cfood@X08]"
  364.     Delay 15
  365.     Cls
  366.     End
  367.     :LABEL038
  368.     AnsiPos 3, 11
  369.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  370.     AnsiPos 3, 12
  371.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  372.     AnsiPos 3, 13
  373.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  374.     AnsiPos 3, 14
  375.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  376.     AnsiPos 3, 15
  377.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  378.     AnsiPos 3, 16
  379.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  380.     AnsiPos 3, 17
  381.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  382.     AnsiPos 3, 18
  383.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  384.     AnsiPos 3, 19
  385.     Print "@POS:3@" + "                         " + "@POS:28@" + "@X02|@X07" + "@POS:29@" + "                           " + "@POS:56@" + "@X02|@X07" + "@POS:57@" + "                    "
  386.     Return
  387.     End
  388.  
  389. ;------------------------------------------------------------------------------
  390.  
  391.     Procedure PROC002()
  392.  
  393.     AnsiPos 1, 21
  394.     Color 0
  395.     Print " "
  396.     Backup 1
  397.  
  398.     EndProc
  399.  
  400.  
  401. ;------------------------------------------------------------------------------
  402.  
  403.     Procedure PROC003()
  404.  
  405.     While (OutBytes() > 0) Do
  406.     EndWhile
  407.  
  408.     EndProc
  409.  
  410.  
  411. ;------------------------------------------------------------------------------
  412.  
  413.     Procedure PROC001(String STRING014)
  414.  
  415.     For INTEGER002 = 1 To Len(STRING014)
  416.         If (Mid(STRING014, INTEGER002, 1) == " ") Then
  417.             Print TSTRING013(7) + " "
  418.             Continue
  419.         Endif
  420.         Print TSTRING013(7) + "" + Mid(STRING014, INTEGER002, 1)
  421.         INTEGER003 = GetX()
  422.         INTEGER004 = GetY()
  423.         PROC002()
  424.         Delay 1
  425.         AnsiPos INTEGER003, INTEGER004
  426.         Backup 1
  427.         Print "@X07" + Mid(STRING014, INTEGER002, 1)
  428.         INTEGER003 = GetX()
  429.         INTEGER004 = GetY()
  430.         PROC002()
  431.         Delay 1
  432.         AnsiPos INTEGER003, INTEGER004
  433.         Backup 1
  434.         Print "@X08" + Mid(STRING014, INTEGER002, 1)
  435.         INTEGER003 = GetX()
  436.         INTEGER004 = GetY()
  437.         PROC002()
  438.         Delay 1
  439.         PROC003()
  440.         AnsiPos INTEGER003, INTEGER004
  441.     Next
  442.  
  443.     EndProc
  444.  
  445.  
  446. ;------------------------------------------------------------------------------
  447. ;
  448. ; Usage report (before postprocessing)
  449. ;
  450. ; ■ Statements used :
  451. ;
  452. ;    2       End
  453. ;    3       Cls
  454. ;    1       Wait
  455. ;    1       Color 
  456. ;    99      Goto 
  457. ;    39      Let 
  458. ;    44      Print 
  459. ;    56      If 
  460. ;    1       DispFile 
  461. ;    1       FCreate 
  462. ;    1       FOpen 
  463. ;    1       FClose 
  464. ;    1       FGet 
  465. ;    7       FPutLn 
  466. ;    3       Delete 
  467. ;    4       InputStr 
  468. ;    12      Gosub 
  469. ;    1       Return
  470. ;    7       Delay 
  471. ;    9       Inc 
  472. ;    48      AnsiPos 
  473. ;    3       Backup 
  474. ;    1       Flag 
  475. ;    1       Download 
  476. ;    3       EndProc
  477. ;    1       DCreate 
  478. ;    5       DOpen 
  479. ;    9       DClose 
  480. ;    1       DPack 
  481. ;    2       DnCreate 
  482. ;    2       DnOpen 
  483. ;    3       DnCloseAll 
  484. ;    1       DNew 
  485. ;    1       DAdd 
  486. ;    2       DGo 
  487. ;    1       DDelete 
  488. ;    2       DTag 
  489. ;    2       DSeek 
  490. ;    6       DGet 
  491. ;    3       DPut 
  492. ;
  493. ;
  494. ; ■ Functions used :
  495. ;
  496. ;    312     +
  497. ;    46      ==
  498. ;    4       <
  499. ;    6       <=
  500. ;    1       >
  501. ;    8       >=
  502. ;    11      !
  503. ;    8       &&
  504. ;    7       ||
  505. ;    2       Len(
  506. ;    4       Mid()
  507. ;    6       Chr()
  508. ;    6       Inkey()
  509. ;    3       Mask_Alpha()
  510. ;    1       Mask_Num()
  511. ;    21      PPEPath()
  512. ;    2       CurSec()
  513. ;    4       Exist()
  514. ;    3       GetX()
  515. ;    3       GetY()
  516. ;    13      PPEName()
  517. ;    1       OutBytes()
  518. ;    2       DRecCount()
  519. ;    2       DSeek()
  520. ;
  521. ;------------------------------------------------------------------------------
  522. ;
  523. ; Analysis flags : f
  524. ;
  525. ; f - Flag files for download ■ 3
  526. ;     This may be normal if a PPE needs to send some files, but since
  527. ;     this statement allows flagging of any file on the hard disk, you
  528. ;     have to be carefull. Check!
  529. ;     ■ Search for : FLAG
  530. ;
  531. ;------------------------------------------------------------------------------
  532. ;
  533. ; Postprocessing report
  534. ;
  535. ;    4       For/Next
  536. ;    1       While/EndWhile
  537. ;    6       If/Then or If/Then/Else
  538. ;    0       Select Case
  539. ;
  540. ;------------------------------------------------------------------------------
  541. ;                 AEGiS Corp - Break the routines, code against the machines!
  542. ;------------------------------------------------------------------------------
  543.