home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / IPADMGR.ZIP / SOURCE.ZIP / FILECHK.PRG < prev    next >
Text File  |  1996-05-01  |  73KB  |  2,711 lines
  1. *:*****************************************************************************
  2. *:
  3. *:        Program: D:\IPADMGR\SOURCE\FILECHK.PRG
  4. *:
  5. *:         System: IPADEDIT
  6. *:         Author: Jeff Johnson
  7. *:      Copyright (c) 1996, BBS Consultants, Inc.
  8. *:  Last modified: 05/01/96     22:36
  9. *:
  10. *:      Called by: IPADEDIT.PRG                      
  11. *:
  12. *:          Calls: INSTALL.PRG
  13. *:
  14. *:           Uses: TEMP.DBF           
  15. *:               : IPADCFG.DBF        
  16. *:               : IPADFEES.DBF       
  17. *:               : IPADMGR.DBF        
  18. *:               : IPADTEMP.DBF       
  19. *:               : PAYMENTS.DBF       
  20. *:               : TRASHCAN.DBF       
  21. *:               : STATS.DBF          
  22. *:
  23. *:        Indexes: IPADMGR.NX1        
  24. *:               : IPADMGR.NX2        
  25. *:               : IPADMGR.NX3        
  26. *:               : IPADMGR.NX4        
  27. *:               : IPADMGR.NX5        
  28. *:               : IPADMGR.NX6        
  29. *:               : PAYMENTS.NX1       
  30. *:               : PAYMENTS.NX2       
  31. *:               : PAYMENTS.NX3       
  32. *:               : PAYMENTS.NX4       
  33. *:               : PAYMENTS.NX5       
  34. *:               : TRASHCAN.NX1       
  35. *:               : TRASHCAN.NX2       
  36. *:               : STATS.NX1          
  37. *:
  38. *:      Documented 10/01/96 at 13:17                SNAP!  version 5.02
  39. *:*****************************************************************************
  40. STORE Space(8) TO Message
  41. SET EXCLUSIVE OFF
  42. *If .Not. File("Ipadcfg.dbf")
  43. *   ? "Please run the INSTALL.EXE Program"
  44. *   Wait
  45. *   Quit
  46. *Endif
  47. IF .NOT. FILE("Ipadcfg.dbf")
  48.    ? "Please Standby --- Creating Ipadcfg Data Base"
  49.    SET EXCLUSIVE ON
  50.    CREATE TEMP
  51.    USE TEMP
  52.    APPEND BLANK
  53.    REPLACE field_name WITH "DNS",;
  54.       field_type WITH "C",;
  55.       field_len WITH 50,;
  56.       field_dec WITH 0
  57.    APPEND BLANK
  58.    REPLACE field_name WITH "POPMAILS",;
  59.       field_type WITH "C",;
  60.       field_len WITH 50,;
  61.       field_dec WITH 0
  62.    APPEND BLANK
  63.    REPLACE field_name WITH "SLIPUSERS",;
  64.       field_type WITH "C",;
  65.       field_len WITH 50,;
  66.       field_dec WITH 0
  67.    APPEND BLANK
  68.    REPLACE field_name WITH "FTPUSERS",;
  69.       field_type WITH "C",;
  70.       field_len WITH 50,;
  71.       field_dec WITH 0
  72.    APPEND BLANK
  73.    REPLACE field_name WITH "POPUSERS",;
  74.       field_type WITH "C",;
  75.       field_len WITH 50,;
  76.       field_dec WITH 0
  77.    APPEND BLANK
  78.    REPLACE field_name WITH "POPHEADER",;
  79.       field_type WITH "C",;
  80.       field_len WITH 50,;
  81.       field_dec WITH 0
  82.    APPEND BLANK
  83.    REPLACE field_name WITH "LOGFILE",;
  84.       field_type WITH "C",;
  85.       field_len WITH 50,;
  86.       field_dec WITH 0
  87.    APPEND BLANK
  88.    REPLACE field_name WITH "SYS_LOG",;
  89.       field_type WITH "C",;
  90.       field_len WITH 50,;
  91.       field_dec WITH 0
  92.    APPEND BLANK
  93.    REPLACE field_name WITH "MAIL_LOG",;
  94.       field_type WITH "C",;
  95.       field_len WITH 50,;
  96.       field_dec WITH 0
  97.    APPEND BLANK
  98.    REPLACE field_name WITH "BILL_LOG",;
  99.       field_type WITH "C",;
  100.       field_len WITH 50,;
  101.       field_dec WITH 0
  102.    APPEND BLANK
  103.    REPLACE field_name WITH "VISA",;
  104.       field_type WITH "L",;
  105.       field_len WITH 1,;
  106.       field_dec WITH 0
  107.    APPEND BLANK
  108.    REPLACE field_name WITH "MASTERCARD",;
  109.       field_type WITH "L",;
  110.       field_len WITH 1,;
  111.       field_dec WITH 0
  112.    APPEND BLANK
  113.    REPLACE field_name WITH "AMEX",;
  114.       field_type WITH "L",;
  115.       field_len WITH 1,;
  116.       field_dec WITH 0
  117.    APPEND BLANK
  118.    REPLACE field_name WITH "DISCOVER",;
  119.       field_type WITH "L",;
  120.       field_len WITH 1,;
  121.       field_dec WITH 0
  122.    APPEND BLANK
  123.    REPLACE field_name WITH "BILLING",;
  124.       field_type WITH "L",;
  125.       field_len WITH 1,;
  126.       field_dec WITH 0
  127.    APPEND BLANK
  128.    REPLACE field_name WITH "BILL",;
  129.       field_type WITH "L",;
  130.       field_len WITH 1,;
  131.       field_dec WITH 0
  132.    APPEND BLANK
  133.    REPLACE field_name WITH "FORCE_BILL",;
  134.       field_type WITH "L",;
  135.       field_len WITH 1,;
  136.       field_dec WITH 0
  137.    APPEND BLANK
  138.    REPLACE field_name WITH "POPMAIL",;
  139.       field_type WITH "L",;
  140.       field_len WITH 1,;
  141.       field_dec WITH 0
  142.    APPEND BLANK
  143.    REPLACE field_name WITH "EXP_DAYS",;
  144.       field_type WITH "N",;
  145.       field_len WITH 3,;
  146.       field_dec WITH 0
  147.    APPEND BLANK
  148.    REPLACE field_name WITH "LOGINS",;
  149.       field_type WITH "L",;
  150.       field_len WITH 1,;
  151.       field_dec WITH 0
  152.    APPEND BLANK
  153.    REPLACE field_name WITH "MENU",;
  154.       field_type WITH "C",;
  155.       field_len WITH 4,;
  156.       field_dec WITH 0
  157.    APPEND BLANK
  158.    REPLACE field_name WITH "AUTH",;
  159.       field_type WITH "N",;
  160.       field_len WITH 1,;
  161.       field_dec WITH 0
  162.    APPEND BLANK
  163.    REPLACE field_name WITH "FLAGS",;
  164.       field_type WITH "C",;
  165.       field_len WITH 8,;
  166.       field_dec WITH 0
  167.    APPEND BLANK
  168.    REPLACE field_name WITH "PRIV",;
  169.       field_type WITH "N",;
  170.       field_len WITH 3,;
  171.       field_dec WITH 0
  172.    APPEND BLANK
  173.    REPLACE field_name WITH "NOTIFY",;
  174.       field_type WITH "L",;
  175.       field_len WITH 1,;
  176.       field_dec WITH 0
  177.    APPEND BLANK
  178.    REPLACE field_name WITH "LETTER1",;
  179.       field_type WITH "C",;
  180.       field_len WITH 12,;
  181.       field_dec WITH 0
  182.    APPEND BLANK
  183.    REPLACE field_name WITH "LETTER2",;
  184.       field_type WITH "C",;
  185.       field_len WITH 12,;
  186.       field_dec WITH 0
  187.    APPEND BLANK
  188.    REPLACE field_name WITH "MESSAGE",;
  189.       field_type WITH "C",;
  190.       field_len WITH 16,;
  191.       field_dec WITH 0
  192.    APPEND BLANK
  193.    REPLACE field_name WITH "KEY",;
  194.       field_type WITH "L",;
  195.       field_len WITH 1,;
  196.       field_dec WITH 0
  197.    APPEND BLANK
  198.    REPLACE field_name WITH "VERIFY",;
  199.       field_type WITH "L",;
  200.       field_len WITH 1,;
  201.       field_dec WITH 0
  202.    APPEND BLANK
  203.    REPLACE field_name WITH "FILTER1",;
  204.       field_type WITH "C",;
  205.       field_len WITH 15,;
  206.       field_dec WITH 0
  207.    APPEND BLANK
  208.    REPLACE field_name WITH "FILTER2",;
  209.       field_type WITH "C",;
  210.       field_len WITH 15,;
  211.       field_dec WITH 0
  212.    APPEND BLANK
  213.    REPLACE field_name WITH "FILTER3",;
  214.       field_type WITH "C",;
  215.       field_len WITH 15,;
  216.       field_dec WITH 0
  217.    APPEND BLANK
  218.    REPLACE field_name WITH "FILTER4",;
  219.       field_type WITH "C",;
  220.       field_len WITH 15,;
  221.       field_dec WITH 0
  222.    APPEND BLANK
  223.    REPLACE field_name WITH "ICVERIFY",;
  224.       field_type WITH "C",;
  225.       field_len WITH 50,;
  226.       field_dec WITH 0
  227.    APPEND BLANK
  228.    REPLACE field_name WITH "TRANS_TYPE",;
  229.       field_type WITH "N",;
  230.       field_len WITH 1,;
  231.       field_dec WITH 0
  232.    DELETE
  233.    USE
  234.    CREATE ipadcfg.dbf FROM TEMP
  235.    USE ipadcfg
  236.    APPEND BLANK
  237.    REPLACE logfile WITH "Ipadmgr.log",;
  238.       visa WITH .y.,;
  239.       mastercard WITH .y.,;
  240.       billing WITH .y.
  241.    REPLACE exp_days WITH 10,;
  242.       logins WITH .y.,;
  243.       popmail WITH .n.,;
  244.       bill WITH .y.
  245.    REPLACE trans_type WITH 0
  246.    DO install
  247. ENDIF
  248. USE
  249. USE ipadcfg
  250. IF Field(36) = "TRANS_TYPE"
  251. ELSE
  252.    STORE dns TO mvar1
  253.    STORE popmails TO mvar2
  254.    STORE slipusers TO mvar3
  255.    STORE ftpusers TO mvar4
  256.    STORE popusers TO mvar5
  257.    STORE popheader TO mvar6
  258.    STORE logfile TO mvar7
  259.    STORE sys_log TO mvar8
  260.    STORE mail_log TO mvar9
  261.    STORE bill_log TO mvar10
  262.    STORE visa TO mvar11
  263.    STORE mastercard TO mvar12
  264.    STORE amex TO mvar13
  265.    STORE discover TO mvar14
  266.    STORE billing TO mvar15
  267.    STORE bill TO mvar16
  268.    STORE force_bill TO mvar17
  269.    STORE popmail TO mvar18
  270.    STORE exp_days TO mvar19
  271.    STORE logins TO mvar20
  272.    STORE Menu TO mvar21
  273.    STORE auth TO mvar22
  274.    STORE flags TO mvar23
  275.    STORE PRIV TO mvar24
  276.    STORE notify TO mvar25
  277.    STORE letter_bod TO mvar26
  278.    STORE Message TO mvar27
  279.    STORE KEY TO mvar28
  280.    STORE verify TO mvar29
  281.    STORE filter1 TO mvar30
  282.    STORE filter2 TO mvar31
  283.    STORE filter3 TO mvar32
  284.    STORE filter4 TO mvar33
  285.    STORE icverify TO mvar34
  286.    ? "Please Standby --- Modifying Ipad Manager System Data Base"
  287.    SET EXCLUSIVE ON
  288.    CREATE TEMP
  289.    USE TEMP
  290.    APPEND BLANK
  291.    REPLACE field_name WITH "DNS",;
  292.       field_type WITH "C",;
  293.       field_len WITH 50,;
  294.       field_dec WITH 0
  295.    APPEND BLANK
  296.    REPLACE field_name WITH "POPMAILS",;
  297.       field_type WITH "C",;
  298.       field_len WITH 50,;
  299.       field_dec WITH 0
  300.    APPEND BLANK
  301.    REPLACE field_name WITH "SLIPUSERS",;
  302.       field_type WITH "C",;
  303.       field_len WITH 50,;
  304.       field_dec WITH 0
  305.    APPEND BLANK
  306.    REPLACE field_name WITH "FTPUSERS",;
  307.       field_type WITH "C",;
  308.       field_len WITH 50,;
  309.       field_dec WITH 0
  310.    APPEND BLANK
  311.    REPLACE field_name WITH "POPUSERS",;
  312.       field_type WITH "C",;
  313.       field_len WITH 50,;
  314.       field_dec WITH 0
  315.    APPEND BLANK
  316.    REPLACE field_name WITH "POPHEADER",;
  317.       field_type WITH "C",;
  318.       field_len WITH 50,;
  319.       field_dec WITH 0
  320.    APPEND BLANK
  321.    REPLACE field_name WITH "LOGFILE",;
  322.       field_type WITH "C",;
  323.       field_len WITH 50,;
  324.       field_dec WITH 0
  325.    APPEND BLANK
  326.    REPLACE field_name WITH "SYS_LOG",;
  327.       field_type WITH "C",;
  328.       field_len WITH 50,;
  329.       field_dec WITH 0
  330.    APPEND BLANK
  331.    REPLACE field_name WITH "MAIL_LOG",;
  332.       field_type WITH "C",;
  333.       field_len WITH 50,;
  334.       field_dec WITH 0
  335.    APPEND BLANK
  336.    REPLACE field_name WITH "BILL_LOG",;
  337.       field_type WITH "C",;
  338.       field_len WITH 50,;
  339.       field_dec WITH 0
  340.    APPEND BLANK
  341.    REPLACE field_name WITH "VISA",;
  342.       field_type WITH "L",;
  343.       field_len WITH 1,;
  344.       field_dec WITH 0
  345.    APPEND BLANK
  346.    REPLACE field_name WITH "MASTERCARD",;
  347.       field_type WITH "L",;
  348.       field_len WITH 1,;
  349.       field_dec WITH 0
  350.    APPEND BLANK
  351.    REPLACE field_name WITH "AMEX",;
  352.       field_type WITH "L",;
  353.       field_len WITH 1,;
  354.       field_dec WITH 0
  355.    APPEND BLANK
  356.    REPLACE field_name WITH "DISCOVER",;
  357.       field_type WITH "L",;
  358.       field_len WITH 1,;
  359.       field_dec WITH 0
  360.    APPEND BLANK
  361.    REPLACE field_name WITH "BILLING",;
  362.       field_type WITH "L",;
  363.       field_len WITH 1,;
  364.       field_dec WITH 0
  365.    APPEND BLANK
  366.    REPLACE field_name WITH "BILL",;
  367.       field_type WITH "L",;
  368.       field_len WITH 1,;
  369.       field_dec WITH 0
  370.    APPEND BLANK
  371.    REPLACE field_name WITH "FORCE_BILL",;
  372.       field_type WITH "L",;
  373.       field_len WITH 1,;
  374.       field_dec WITH 0
  375.    APPEND BLANK
  376.    REPLACE field_name WITH "POPMAIL",;
  377.       field_type WITH "L",;
  378.       field_len WITH 1,;
  379.       field_dec WITH 0
  380.    APPEND BLANK
  381.    REPLACE field_name WITH "EXP_DAYS",;
  382.       field_type WITH "N",;
  383.       field_len WITH 3,;
  384.       field_dec WITH 0
  385.    APPEND BLANK
  386.    REPLACE field_name WITH "LOGINS",;
  387.       field_type WITH "L",;
  388.       field_len WITH 1,;
  389.       field_dec WITH 0
  390.    APPEND BLANK
  391.    REPLACE field_name WITH "MENU",;
  392.       field_type WITH "C",;
  393.       field_len WITH 4,;
  394.       field_dec WITH 0
  395.    APPEND BLANK
  396.    REPLACE field_name WITH "AUTH",;
  397.       field_type WITH "N",;
  398.       field_len WITH 1,;
  399.       field_dec WITH 0
  400.    APPEND BLANK
  401.    REPLACE field_name WITH "FLAGS",;
  402.       field_type WITH "C",;
  403.       field_len WITH 8,;
  404.       field_dec WITH 0
  405.    APPEND BLANK
  406.    REPLACE field_name WITH "PRIV",;
  407.       field_type WITH "N",;
  408.       field_len WITH 3,;
  409.       field_dec WITH 0
  410.    APPEND BLANK
  411.    REPLACE field_name WITH "NOTIFY",;
  412.       field_type WITH "L",;
  413.       field_len WITH 1,;
  414.       field_dec WITH 0
  415.    APPEND BLANK
  416.    REPLACE field_name WITH "LETTER1",;
  417.       field_type WITH "C",;
  418.       field_len WITH 12,;
  419.       field_dec WITH 0
  420.    APPEND BLANK
  421.    REPLACE field_name WITH "LETTER2",;
  422.       field_type WITH "C",;
  423.       field_len WITH 12,;
  424.       field_dec WITH 0
  425.    APPEND BLANK
  426.    REPLACE field_name WITH "MESSAGE",;
  427.       field_type WITH "C",;
  428.       field_len WITH 16,;
  429.       field_dec WITH 0
  430.    APPEND BLANK
  431.    REPLACE field_name WITH "KEY",;
  432.       field_type WITH "L",;
  433.       field_len WITH 1,;
  434.       field_dec WITH 0
  435.    APPEND BLANK
  436.    REPLACE field_name WITH "VERIFY",;
  437.       field_type WITH "L",;
  438.       field_len WITH 1,;
  439.       field_dec WITH 0
  440.    APPEND BLANK
  441.    REPLACE field_name WITH "FILTER1",;
  442.       field_type WITH "C",;
  443.       field_len WITH 15,;
  444.       field_dec WITH 0
  445.    APPEND BLANK
  446.    REPLACE field_name WITH "FILTER2",;
  447.       field_type WITH "C",;
  448.       field_len WITH 15,;
  449.       field_dec WITH 0
  450.    APPEND BLANK
  451.    REPLACE field_name WITH "FILTER3",;
  452.       field_type WITH "C",;
  453.       field_len WITH 15,;
  454.       field_dec WITH 0
  455.    APPEND BLANK
  456.    REPLACE field_name WITH "FILTER4",;
  457.       field_type WITH "C",;
  458.       field_len WITH 15,;
  459.       field_dec WITH 0
  460.    APPEND BLANK
  461.    REPLACE field_name WITH "ICVERIFY",;
  462.       field_type WITH "C",;
  463.       field_len WITH 50,;
  464.       field_dec WITH 0
  465.    APPEND BLANK
  466.    REPLACE field_name WITH "TRANS_TYPE",;
  467.       field_type WITH "N",;
  468.       field_len WITH 1,;
  469.       field_dec WITH 0
  470.    DELETE
  471.    USE
  472.    CREATE ipadcfg.dbf FROM TEMP
  473.    USE ipadcfg
  474.    APPEND BLANK
  475.    REPLACE dns WITH mvar1,;
  476.       popmails WITH mvar2,;
  477.       slipusers WITH mvar3,;
  478.       ftpusers WITH mvar4
  479.    REPLACE popusers WITH mvar5,;
  480.       popheader WITH mvar6,;
  481.       logfile WITH mvar7,;
  482.       sys_log WITH mvar8
  483.    REPLACE mail_log WITH mvar9,;
  484.       bill_log WITH mvar10,;
  485.       visa WITH mvar11,;
  486.       mastercard WITH mvar12
  487.    REPLACE amex WITH mvar13,;
  488.       discover WITH mvar14,;
  489.       billing WITH mvar15,;
  490.       bill WITH mvar16
  491.    REPLACE force_bill WITH mvar17,;
  492.       popmail WITH mvar18,;
  493.       exp_days WITH mvar19,;
  494.       logins WITH mvar20
  495.    REPLACE Menu WITH mvar21,;
  496.       auth WITH mvar22,;
  497.       flags WITH mvar23,;
  498.       PRIV WITH mvar24
  499.    REPLACE notify WITH mvar25,;
  500.       letter1 WITH mvar26,;
  501.       Message WITH mvar27,;
  502.       KEY WITH mvar28
  503.    REPLACE verify WITH mvar29,;
  504.       filter1 WITH mvar30,;
  505.       filter2 WITH mvar31,;
  506.       filter3 WITH mvar32
  507.    REPLACE filter4 WITH mvar33,;
  508.       icverify WITH mvar34
  509.    USE
  510. ENDIF
  511. *********************************************************************
  512. SET EXCLUSIVE OFF
  513. IF .NOT. FILE("Ipadfees.dbf")
  514.    ? "Please Standby --- Creating Ipadfees.dbf Data Base"
  515.    SET EXCLUSIVE ON
  516.    CREATE TEMP
  517.    USE TEMP
  518.    APPEND BLANK
  519.    REPLACE field_name WITH "DESC",;
  520.       field_type WITH "C",;
  521.       field_len WITH 40;
  522.       field_dec WITH 0
  523.    APPEND BLANK
  524.    REPLACE field_name WITH "PPP_SLIP",;
  525.       field_type WITH "L",;
  526.       field_len WITH 1,;
  527.       field_dec WITH 0
  528.    APPEND BLANK
  529.    REPLACE field_name WITH "FTP",;
  530.       field_type WITH "L",;
  531.       field_len WITH 1,;
  532.       field_dec WITH 0
  533.    APPEND BLANK
  534.    REPLACE field_name WITH "POPMAIL",;
  535.       field_type WITH "L",;
  536.       field_len WITH 1,;
  537.       field_dec WITH 0
  538.    APPEND BLANK
  539.    REPLACE field_name WITH "FREE_SLIP",;
  540.       field_type WITH "L",;
  541.       field_len WITH 1,;
  542.       field_dec WITH 0
  543.    APPEND BLANK
  544.    REPLACE field_name WITH "FREE_POP",;
  545.       field_type WITH "L",;
  546.       field_len WITH 1,;
  547.       field_dec WITH 0
  548.    APPEND BLANK
  549.    REPLACE field_name WITH "FREE_FTP",;
  550.       field_type WITH "L",;
  551.       field_len WITH 1,;
  552.       field_dec WITH 0
  553.    APPEND BLANK
  554.    REPLACE field_name WITH "ROUTE",;
  555.       field_type WITH "C",;
  556.       field_len WITH 15,;
  557.       field_dec WITH 0
  558.    APPEND BLANK
  559.    REPLACE field_name WITH "S_MAX_IDLE",;
  560.       field_type WITH "N",;
  561.       field_len WITH 10,;
  562.       field_dec WITH 0
  563.    APPEND BLANK
  564.    REPLACE field_name WITH "S_MAX_CONN",;
  565.       field_type WITH "N",;
  566.       field_len WITH 10,;
  567.       field_dec WITH 0
  568.    APPEND BLANK
  569.    REPLACE field_name WITH "MAX_LOGINS",;
  570.       field_type WITH "N",;
  571.       field_len WITH 4,;
  572.       field_dec WITH 0
  573.    APPEND BLANK
  574.    REPLACE field_name WITH "FTP_DIR",;
  575.       field_type WITH "C",;
  576.       field_len WITH 30,;
  577.       field_dec WITH 0
  578.    APPEND BLANK
  579.    REPLACE field_name WITH "READ",;
  580.       field_type WITH "L",;
  581.       field_len WITH 1,;
  582.       field_dec WITH 0
  583.    APPEND BLANK
  584.    REPLACE field_name WITH "WRITE",;
  585.       field_type WITH "L",;
  586.       field_len WITH 1,;
  587.       field_dec WITH 0
  588.    APPEND BLANK
  589.    REPLACE field_name WITH "CREATE",;
  590.       field_type WITH "L",;
  591.       field_len WITH 1,;
  592.       field_dec WITH 0
  593.    APPEND BLANK
  594.    REPLACE field_name WITH "DELETE",;
  595.       field_type WITH "L",;
  596.       field_len WITH 1,;
  597.       field_dec WITH 0
  598.    APPEND BLANK
  599.    REPLACE field_name WITH "MKDIR",;
  600.       field_type WITH "L",;
  601.       field_len WITH 1,;
  602.       field_dec WITH 0
  603.    APPEND BLANK
  604.    REPLACE field_name WITH "RMDIR",;
  605.       field_type WITH "L",;
  606.       field_len WITH 1,;
  607.       field_dec WITH 0
  608.    APPEND BLANK
  609.    REPLACE field_name WITH "NOREDIR",;
  610.       field_type WITH "L",;
  611.       field_len WITH 1,;
  612.       field_dec WITH 0
  613.    APPEND BLANK
  614.    REPLACE field_name WITH "ANYDIR",;
  615.       field_type WITH "L",;
  616.       field_len WITH 1,;
  617.       field_dec WITH 0
  618.    APPEND BLANK
  619.    REPLACE field_name WITH "ANYDRIVE",;
  620.       field_type WITH "L",;
  621.       field_len WITH 1,;
  622.       field_dec WITH 0
  623.    APPEND BLANK
  624.    REPLACE field_name WITH "NODRIVE",;
  625.       field_type WITH "L",;
  626.       field_len WITH 1,;
  627.       field_dec WITH 0
  628.    APPEND BLANK
  629.    REPLACE field_name WITH "PUTANY",;
  630.       field_type WITH "L",;
  631.       field_len WITH 1,;
  632.       field_dec WITH 0
  633.    APPEND BLANK
  634.    REPLACE field_name WITH "SUPER",;
  635.       field_type WITH "L",;
  636.       field_len WITH 1,;
  637.       field_dec WITH 0
  638.    APPEND BLANK
  639.    REPLACE field_name WITH "F_MAX_IDLE",;
  640.       field_type WITH "N",;
  641.       field_len WITH 10,;
  642.       field_dec WITH 0
  643.    APPEND BLANK
  644.    REPLACE field_name WITH "F_MAX_CONN",;
  645.       field_type WITH "N",;
  646.       field_len WITH 10,;
  647.       field_dec WITH 0
  648.    APPEND BLANK
  649.    REPLACE field_name WITH "DAYS",;
  650.       field_type WITH "N",;
  651.       field_len WITH 3,;
  652.       field_dec WITH 0
  653.    APPEND BLANK
  654.    REPLACE field_name WITH "AMOUNT",;
  655.       field_type WITH "N",;
  656.       field_len WITH 6,;
  657.       field_dec WITH 2
  658.    APPEND BLANK
  659.    REPLACE field_name WITH "HOURLY",;
  660.       field_type WITH "L",;
  661.       field_len WITH 1,;
  662.       field_dec WITH 0
  663.    APPEND BLANK
  664.    REPLACE field_name WITH "DAILY",;
  665.       field_type WITH "L",;
  666.       field_len WITH 1,;
  667.       field_dec WITH 0
  668.    APPEND BLANK
  669.    REPLACE field_name WITH "S_RATE",;
  670.       field_type WITH "N",;
  671.       field_len WITH 6,;
  672.       field_dec WITH 2
  673.    APPEND BLANK
  674.    REPLACE field_name WITH "F_RATE",;
  675.       field_type WITH "N",;
  676.       field_len WITH 6,;
  677.       field_dec WITH 2
  678.    APPEND BLANK
  679.    REPLACE field_name WITH "MINUTES",;
  680.       field_type WITH "N",;
  681.       field_len WITH 10,;
  682.       field_dec WITH 0
  683.    DELETE
  684.    USE
  685.    CREATE ipadfees.dbf FROM TEMP
  686.    USE ipadfees.dbf
  687.    APPEND BLANK
  688.    REPLACE route WITH "DYNAMIC",;
  689.       ppp_slip WITH .y.,;
  690.       ftp WITH .y.,;
  691.       popmail WITH .y.
  692.    REPLACE free_slip WITH .n.,;
  693.       free_pop WITH .n.,;
  694.       free_ftp WITH .n.
  695.    REPLACE READ WITH .y.,;
  696.       write WITH .n.,;
  697.       CREATE WITH .y.
  698.    REPLACE DELETE WITH .n.,;
  699.       mkdir WITH .n.,;
  700.       rmdir WITH .n.
  701.    REPLACE noredir WITH .n.,;
  702.       anydir WITH .n.,;
  703.       anydrive WITH .n.
  704.    REPLACE nodrive WITH .n.,;
  705.       putany WITH .n.,;
  706.       super WITH .n.
  707.    REPLACE max_logins WITH 1,;
  708.       ftp_dir WITH "C:\Pub",;
  709.       hourly WITH .n.
  710.    APPEND BLANK
  711.    REPLACE route WITH "DYNAMIC",;
  712.       ppp_slip WITH .y.,;
  713.       ftp WITH .y.,;
  714.       popmail WITH .y.
  715.    REPLACE free_slip WITH .n.,;
  716.       free_pop WITH .n.,;
  717.       free_ftp WITH .n.
  718.    REPLACE READ WITH .y.,;
  719.       write WITH .n.,;
  720.       CREATE WITH .y.
  721.    REPLACE DELETE WITH .n.,;
  722.       mkdir WITH .n.,;
  723.       rmdir WITH .n.
  724.    REPLACE noredir WITH .n.,;
  725.       anydir WITH .n.,;
  726.       anydrive WITH .n.
  727.    REPLACE nodrive WITH .n.,;
  728.       putany WITH .n.,;
  729.       super WITH .n.
  730.    REPLACE max_logins WITH 1,;
  731.       ftp_dir WITH "C:\Pub",;
  732.       hourly WITH .n.
  733.    APPEND BLANK
  734.    REPLACE route WITH "DYNAMIC",;
  735.       ppp_slip WITH .y.,;
  736.       ftp WITH .y.,;
  737.       popmail WITH .y.
  738.    REPLACE free_slip WITH .n.,;
  739.       free_pop WITH .n.,;
  740.       free_ftp WITH .n.
  741.    REPLACE READ WITH .y.,;
  742.       write WITH .n.,;
  743.       CREATE WITH .y.
  744.    REPLACE DELETE WITH .n.,;
  745.       mkdir WITH .n.,;
  746.       rmdir WITH .n.
  747.    REPLACE noredir WITH .n.,;
  748.       anydir WITH .n.,;
  749.       anydrive WITH .n.
  750.    REPLACE nodrive WITH .n.,;
  751.       putany WITH .n.,;
  752.       super WITH .n.
  753.    REPLACE max_logins WITH 1,;
  754.       ftp_dir WITH "C:\Pub",;
  755.       hourly WITH .n.
  756.    APPEND BLANK
  757.    REPLACE route WITH "DYNAMIC",;
  758.       ppp_slip WITH .y.,;
  759.       ftp WITH .y.,;
  760.       popmail WITH .y.
  761.    REPLACE free_slip WITH .n.,;
  762.       free_pop WITH .n.,;
  763.       free_ftp WITH .n.
  764.    REPLACE READ WITH .y.,;
  765.       write WITH .n.,;
  766.       CREATE WITH .y.
  767.    REPLACE DELETE WITH .n.,;
  768.       mkdir WITH .n.,;
  769.       rmdir WITH .n.
  770.    REPLACE noredir WITH .n.,;
  771.       anydir WITH .n.,;
  772.       anydrive WITH .n.
  773.    REPLACE nodrive WITH .n.,;
  774.       putany WITH .n.,;
  775.       super WITH .n.
  776.    REPLACE max_logins WITH 1,;
  777.       ftp_dir WITH "C:\Pub",;
  778.       hourly WITH .n.
  779.    APPEND BLANK
  780.    REPLACE route WITH "DYNAMIC",;
  781.       ppp_slip WITH .y.,;
  782.       ftp WITH .y.,;
  783.       popmail WITH .y.
  784.    REPLACE free_slip WITH .n.,;
  785.       free_pop WITH .n.,;
  786.       free_ftp WITH .n.
  787.    REPLACE READ WITH .y.,;
  788.       write WITH .n.,;
  789.       CREATE WITH .y.
  790.    REPLACE DELETE WITH .n.,;
  791.       mkdir WITH .n.,;
  792.       rmdir WITH .n.
  793.    REPLACE noredir WITH .n.,;
  794.       anydir WITH .n.,;
  795.       anydrive WITH .n.
  796.    REPLACE nodrive WITH .n.,;
  797.       putany WITH .n.,;
  798.       super WITH .n.
  799.    REPLACE max_logins WITH 1,;
  800.       ftp_dir WITH "C:\Pub",;
  801.       hourly WITH .n.
  802.    APPEND BLANK
  803.    REPLACE route WITH "DYNAMIC",;
  804.       ppp_slip WITH .y.,;
  805.       ftp WITH .y.,;
  806.       popmail WITH .y.
  807.    REPLACE free_slip WITH .n.,;
  808.       free_pop WITH .n.,;
  809.       free_ftp WITH .n.
  810.    REPLACE READ WITH .y.,;
  811.       write WITH .n.,;
  812.       CREATE WITH .y.
  813.    REPLACE DELETE WITH .n.,;
  814.       mkdir WITH .n.,;
  815.       rmdir WITH .n.
  816.    REPLACE noredir WITH .n.,;
  817.       anydir WITH .n.,;
  818.       anydrive WITH .n.
  819.    REPLACE nodrive WITH .n.,;
  820.       putany WITH .n.,;
  821.       super WITH .n.
  822.    REPLACE max_logins WITH 1,;
  823.       ftp_dir WITH "C:\Pub",;
  824.       hourly WITH .n.
  825.    APPEND BLANK
  826.    REPLACE route WITH "DYNAMIC",;
  827.       ppp_slip WITH .y.,;
  828.       ftp WITH .y.,;
  829.       popmail WITH .y.
  830.    REPLACE free_slip WITH .n.,;
  831.       free_pop WITH .n.,;
  832.       free_ftp WITH .n.
  833.    REPLACE READ WITH .y.,;
  834.       write WITH .n.,;
  835.       CREATE WITH .y.
  836.    REPLACE DELETE WITH .n.,;
  837.       mkdir WITH .n.,;
  838.       rmdir WITH .n.
  839.    REPLACE noredir WITH .n.,;
  840.       anydir WITH .n.,;
  841.       anydrive WITH .n.
  842.    REPLACE nodrive WITH .n.,;
  843.       putany WITH .n.,;
  844.       super WITH .n.
  845.    REPLACE max_logins WITH 1,;
  846.       ftp_dir WITH "C:\Pub",;
  847.       hourly WITH .n.
  848.    APPEND BLANK
  849.    REPLACE route WITH "DYNAMIC",;
  850.       ppp_slip WITH .y.,;
  851.       ftp WITH .y.,;
  852.       popmail WITH .y.
  853.    REPLACE free_slip WITH .n.,;
  854.       free_pop WITH .n.,;
  855.       free_ftp WITH .n.
  856.    REPLACE READ WITH .y.,;
  857.       write WITH .n.,;
  858.       CREATE WITH .y.
  859.    REPLACE DELETE WITH .n.,;
  860.       mkdir WITH .n.,;
  861.       rmdir WITH .n.
  862.    REPLACE noredir WITH .n.,;
  863.       anydir WITH .n.,;
  864.       anydrive WITH .n.
  865.    REPLACE nodrive WITH .n.,;
  866.       putany WITH .n.,;
  867.       super WITH .n.
  868.    REPLACE max_logins WITH 1,;
  869.       ftp_dir WITH "C:\Pub",;
  870.       hourly WITH .n.
  871.    APPEND BLANK
  872.    REPLACE route WITH "DYNAMIC",;
  873.       ppp_slip WITH .y.,;
  874.       ftp WITH .y.,;
  875.       popmail WITH .y.
  876.    REPLACE free_slip WITH .n.,;
  877.       free_pop WITH .n.,;
  878.       free_ftp WITH .n.
  879.    REPLACE READ WITH .y.,;
  880.       write WITH .n.,;
  881.       CREATE WITH .y.
  882.    REPLACE DELETE WITH .n.,;
  883.       mkdir WITH .n.,;
  884.       rmdir WITH .n.
  885.    REPLACE noredir WITH .n.,;
  886.       anydir WITH .n.,;
  887.       anydrive WITH .n.
  888.    REPLACE nodrive WITH .n.,;
  889.       putany WITH .n.,;
  890.       super WITH .n.
  891.    REPLACE max_logins WITH 1,;
  892.       ftp_dir WITH "C:\Pub",;
  893.       hourly WITH .n.
  894.    APPEND BLANK
  895.    REPLACE route WITH "DYNAMIC",;
  896.       ppp_slip WITH .y.,;
  897.       ftp WITH .y.,;
  898.       popmail WITH .y.
  899.    REPLACE free_slip WITH .n.,;
  900.       free_pop WITH .n.,;
  901.       free_ftp WITH .n.
  902.    REPLACE READ WITH .y.,;
  903.       write WITH .n.,;
  904.       CREATE WITH .y.
  905.    REPLACE DELETE WITH .n.,;
  906.       mkdir WITH .n.,;
  907.       rmdir WITH .n.
  908.    REPLACE noredir WITH .n.,;
  909.       anydir WITH .n.,;
  910.       anydrive WITH .n.
  911.    REPLACE nodrive WITH .n.,;
  912.       putany WITH .n.,;
  913.       super WITH .n.
  914.    REPLACE max_logins WITH 1,;
  915.       ftp_dir WITH "C:\Pub",;
  916.       hourly WITH .n.
  917.    APPEND BLANK
  918.    REPLACE route WITH "DYNAMIC",;
  919.       ppp_slip WITH .y.,;
  920.       ftp WITH .y.,;
  921.       popmail WITH .y.
  922.    REPLACE free_slip WITH .n.,;
  923.       free_pop WITH .n.,;
  924.       free_ftp WITH .n.
  925.    REPLACE READ WITH .y.,;
  926.       write WITH .n.,;
  927.       CREATE WITH .y.
  928.    REPLACE DELETE WITH .n.,;
  929.       mkdir WITH .n.,;
  930.       rmdir WITH .n.
  931.    REPLACE noredir WITH .n.,;
  932.       anydir WITH .n.,;
  933.       anydrive WITH .n.
  934.    REPLACE nodrive WITH .n.,;
  935.       putany WITH .n.,;
  936.       super WITH .n.
  937.    REPLACE max_logins WITH 1,;
  938.       ftp_dir WITH "C:\Pub",;
  939.       hourly WITH .n.
  940.    APPEND BLANK
  941.    REPLACE route WITH "DYNAMIC",;
  942.       ppp_slip WITH .y.,;
  943.       ftp WITH .y.,;
  944.       popmail WITH .y.
  945.    REPLACE free_slip WITH .n.,;
  946.       free_pop WITH .n.,;
  947.       free_ftp WITH .n.
  948.    REPLACE READ WITH .y.,;
  949.       write WITH .n.,;
  950.       CREATE WITH .y.
  951.    REPLACE DELETE WITH .n.,;
  952.       mkdir WITH .n.,;
  953.       rmdir WITH .n.
  954.    REPLACE noredir WITH .n.,;
  955.       anydir WITH .n.,;
  956.       anydrive WITH .n.
  957.    REPLACE nodrive WITH .n.,;
  958.       putany WITH .n.,;
  959.       super WITH .n.
  960.    REPLACE max_logins WITH 1,;
  961.       ftp_dir WITH "C:\Pub",;
  962.       hourly WITH .n.
  963.    APPEND BLANK
  964.    REPLACE route WITH "DYNAMIC",;
  965.       ppp_slip WITH .y.,;
  966.       ftp WITH .y.,;
  967.       popmail WITH .y.
  968.    REPLACE free_slip WITH .n.,;
  969.       free_pop WITH .n.,;
  970.       free_ftp WITH .n.
  971.    REPLACE READ WITH .y.,;
  972.       write WITH .n.,;
  973.       CREATE WITH .y.
  974.    REPLACE DELETE WITH .n.,;
  975.       mkdir WITH .n.,;
  976.       rmdir WITH .n.
  977.    REPLACE noredir WITH .n.,;
  978.       anydir WITH .n.,;
  979.       anydrive WITH .n.
  980.    REPLACE nodrive WITH .n.,;
  981.       putany WITH .n.,;
  982.       super WITH .n.
  983.    REPLACE max_logins WITH 1,;
  984.       ftp_dir WITH "C:\Pub",;
  985.       hourly WITH .n.
  986.    APPEND BLANK
  987.    REPLACE route WITH "DYNAMIC",;
  988.       ppp_slip WITH .y.,;
  989.       ftp WITH .y.,;
  990.       popmail WITH .y.
  991.    REPLACE free_slip WITH .n.,;
  992.       free_pop WITH .n.,;
  993.       free_ftp WITH .n.
  994.    REPLACE READ WITH .y.,;
  995.       write WITH .n.,;
  996.       CREATE WITH .y.
  997.    REPLACE DELETE WITH .n.,;
  998.       mkdir WITH .n.,;
  999.       rmdir WITH .n.
  1000.    REPLACE noredir WITH .n.,;
  1001.       anydir WITH .n.,;
  1002.       anydrive WITH .n.
  1003.    REPLACE nodrive WITH .n.,;
  1004.       putany WITH .n.,;
  1005.       super WITH .n.
  1006.    REPLACE max_logins WITH 1,;
  1007.       ftp_dir WITH "C:\Pub",;
  1008.       hourly WITH .n.
  1009.    APPEND BLANK
  1010.    REPLACE route WITH "DYNAMIC",;
  1011.       ppp_slip WITH .y.,;
  1012.       ftp WITH .y.,;
  1013.       popmail WITH .y.
  1014.    REPLACE free_slip WITH .n.,;
  1015.       free_pop WITH .n.,;
  1016.       free_ftp WITH .n.
  1017.    REPLACE READ WITH .y.,;
  1018.       write WITH .n.,;
  1019.       CREATE WITH .y.
  1020.    REPLACE DELETE WITH .n.,;
  1021.       mkdir WITH .n.,;
  1022.       rmdir WITH .n.
  1023.    REPLACE noredir WITH .n.,;
  1024.       anydir WITH .n.,;
  1025.       anydrive WITH .n.
  1026.    REPLACE nodrive WITH .n.,;
  1027.       putany WITH .n.,;
  1028.       super WITH .n.
  1029.    REPLACE max_logins WITH 1,;
  1030.       ftp_dir WITH "C:\Pub",;
  1031.       hourly WITH .n.
  1032.    APPEND BLANK
  1033.    REPLACE route WITH "DYNAMIC",;
  1034.       ppp_slip WITH .y.,;
  1035.       ftp WITH .y.,;
  1036.       popmail WITH .y.
  1037.    REPLACE free_slip WITH .n.,;
  1038.       free_pop WITH .n.,;
  1039.       free_ftp WITH .n.
  1040.    REPLACE READ WITH .y.,;
  1041.       write WITH .n.,;
  1042.       CREATE WITH .y.
  1043.    REPLACE DELETE WITH .n.,;
  1044.       mkdir WITH .n.,;
  1045.       rmdir WITH .n.
  1046.    REPLACE noredir WITH .n.,;
  1047.       anydir WITH .n.,;
  1048.       anydrive WITH .n.
  1049.    REPLACE nodrive WITH .n.,;
  1050.       putany WITH .n.,;
  1051.       super WITH .n.
  1052.    REPLACE max_logins WITH 1,;
  1053.       ftp_dir WITH "C:\Pub",;
  1054.       hourly WITH .n.
  1055.    USE
  1056. ENDIF
  1057. USE ipadfees
  1058. IF Reccount() = 6
  1059.    APPEND BLANK
  1060.    REPLACE route WITH "DYNAMIC",;
  1061.       ppp_slip WITH .y.,;
  1062.       ftp WITH .y.,;
  1063.       popmail WITH .y.
  1064.    REPLACE free_slip WITH .n.,;
  1065.       free_pop WITH .n.,;
  1066.       free_ftp WITH .n.
  1067.    REPLACE READ WITH .y.,;
  1068.       write WITH .n.,;
  1069.       CREATE WITH .y.
  1070.    REPLACE DELETE WITH .n.,;
  1071.       mkdir WITH .n.,;
  1072.       rmdir WITH .n.
  1073.    REPLACE noredir WITH .n.,;
  1074.       anydir WITH .n.,;
  1075.       anydrive WITH .n.
  1076.    REPLACE nodrive WITH .n.,;
  1077.       putany WITH .n.,;
  1078.       super WITH .n.
  1079.    REPLACE max_logins WITH 1,;
  1080.       ftp_dir WITH "C:\Pub",;
  1081.       hourly WITH .n.
  1082.    APPEND BLANK
  1083.    REPLACE route WITH "DYNAMIC",;
  1084.       ppp_slip WITH .y.,;
  1085.       ftp WITH .y.,;
  1086.       popmail WITH .y.
  1087.    REPLACE free_slip WITH .n.,;
  1088.       free_pop WITH .n.,;
  1089.       free_ftp WITH .n.
  1090.    REPLACE READ WITH .y.,;
  1091.       write WITH .n.,;
  1092.       CREATE WITH .y.
  1093.    REPLACE DELETE WITH .n.,;
  1094.       mkdir WITH .n.,;
  1095.       rmdir WITH .n.
  1096.    REPLACE noredir WITH .n.,;
  1097.       anydir WITH .n.,;
  1098.       anydrive WITH .n.
  1099.    REPLACE nodrive WITH .n.,;
  1100.       putany WITH .n.,;
  1101.       super WITH .n.
  1102.    REPLACE max_logins WITH 1,;
  1103.       ftp_dir WITH "C:\Pub",;
  1104.       hourly WITH .n.
  1105.    APPEND BLANK
  1106.    REPLACE route WITH "DYNAMIC",;
  1107.       ppp_slip WITH .y.,;
  1108.       ftp WITH .y.,;
  1109.       popmail WITH .y.
  1110.    REPLACE free_slip WITH .n.,;
  1111.       free_pop WITH .n.,;
  1112.       free_ftp WITH .n.
  1113.    REPLACE READ WITH .y.,;
  1114.       write WITH .n.,;
  1115.       CREATE WITH .y.
  1116.    REPLACE DELETE WITH .n.,;
  1117.       mkdir WITH .n.,;
  1118.       rmdir WITH .n.
  1119.    REPLACE noredir WITH .n.,;
  1120.       anydir WITH .n.,;
  1121.       anydrive WITH .n.
  1122.    REPLACE nodrive WITH .n.,;
  1123.       putany WITH .n.,;
  1124.       super WITH .n.
  1125.    REPLACE max_logins WITH 1,;
  1126.       ftp_dir WITH "C:\Pub",;
  1127.       hourly WITH .n.
  1128.    APPEND BLANK
  1129.    REPLACE route WITH "DYNAMIC",;
  1130.       ppp_slip WITH .y.,;
  1131.       ftp WITH .y.,;
  1132.       popmail WITH .y.
  1133.    REPLACE free_slip WITH .n.,;
  1134.       free_pop WITH .n.,;
  1135.       free_ftp WITH .n.
  1136.    REPLACE READ WITH .y.,;
  1137.       write WITH .n.,;
  1138.       CREATE WITH .y.
  1139.    REPLACE DELETE WITH .n.,;
  1140.       mkdir WITH .n.,;
  1141.       rmdir WITH .n.
  1142.    REPLACE noredir WITH .n.,;
  1143.       anydir WITH .n.,;
  1144.       anydrive WITH .n.
  1145.    REPLACE nodrive WITH .n.,;
  1146.       putany WITH .n.,;
  1147.       super WITH .n.
  1148.    REPLACE max_logins WITH 1,;
  1149.       ftp_dir WITH "C:\Pub",;
  1150.       hourly WITH .n.
  1151.    APPEND BLANK
  1152.    REPLACE route WITH "DYNAMIC",;
  1153.       ppp_slip WITH .y.,;
  1154.       ftp WITH .y.,;
  1155.       popmail WITH .y.
  1156.    REPLACE free_slip WITH .n.,;
  1157.       free_pop WITH .n.,;
  1158.       free_ftp WITH .n.
  1159.    REPLACE READ WITH .y.,;
  1160.       write WITH .n.,;
  1161.       CREATE WITH .y.
  1162.    REPLACE DELETE WITH .n.,;
  1163.       mkdir WITH .n.,;
  1164.       rmdir WITH .n.
  1165.    REPLACE noredir WITH .n.,;
  1166.       anydir WITH .n.,;
  1167.       anydrive WITH .n.
  1168.    REPLACE nodrive WITH .n.,;
  1169.       putany WITH .n.,;
  1170.       super WITH .n.
  1171.    REPLACE max_logins WITH 1,;
  1172.       ftp_dir WITH "C:\Pub",;
  1173.       hourly WITH .n.
  1174.    APPEND BLANK
  1175.    REPLACE route WITH "DYNAMIC",;
  1176.       ppp_slip WITH .y.,;
  1177.       ftp WITH .y.,;
  1178.       popmail WITH .y.
  1179.    REPLACE free_slip WITH .n.,;
  1180.       free_pop WITH .n.,;
  1181.       free_ftp WITH .n.
  1182.    REPLACE READ WITH .y.,;
  1183.       write WITH .n.,;
  1184.       CREATE WITH .y.
  1185.    REPLACE DELETE WITH .n.,;
  1186.       mkdir WITH .n.,;
  1187.       rmdir WITH .n.
  1188.    REPLACE noredir WITH .n.,;
  1189.       anydir WITH .n.,;
  1190.       anydrive WITH .n.
  1191.    REPLACE nodrive WITH .n.,;
  1192.       putany WITH .n.,;
  1193.       super WITH .n.
  1194.    REPLACE max_logins WITH 1,;
  1195.       ftp_dir WITH "C:\Pub",;
  1196.       hourly WITH .n.
  1197.    APPEND BLANK
  1198.    REPLACE route WITH "DYNAMIC",;
  1199.       ppp_slip WITH .y.,;
  1200.       ftp WITH .y.,;
  1201.       popmail WITH .y.
  1202.    REPLACE free_slip WITH .n.,;
  1203.       free_pop WITH .n.,;
  1204.       free_ftp WITH .n.
  1205.    REPLACE READ WITH .y.,;
  1206.       write WITH .n.,;
  1207.       CREATE WITH .y.
  1208.    REPLACE DELETE WITH .n.,;
  1209.       mkdir WITH .n.,;
  1210.       rmdir WITH .n.
  1211.    REPLACE noredir WITH .n.,;
  1212.       anydir WITH .n.,;
  1213.       anydrive WITH .n.
  1214.    REPLACE nodrive WITH .n.,;
  1215.       putany WITH .n.,;
  1216.       super WITH .n.
  1217.    REPLACE max_logins WITH 1,;
  1218.       ftp_dir WITH "C:\Pub",;
  1219.       hourly WITH .n.
  1220.    APPEND BLANK
  1221.    REPLACE route WITH "DYNAMIC",;
  1222.       ppp_slip WITH .y.,;
  1223.       ftp WITH .y.,;
  1224.       popmail WITH .y.
  1225.    REPLACE free_slip WITH .n.,;
  1226.       free_pop WITH .n.,;
  1227.       free_ftp WITH .n.
  1228.    REPLACE READ WITH .y.,;
  1229.       write WITH .n.,;
  1230.       CREATE WITH .y.
  1231.    REPLACE DELETE WITH .n.,;
  1232.       mkdir WITH .n.,;
  1233.       rmdir WITH .n.
  1234.    REPLACE noredir WITH .n.,;
  1235.       anydir WITH .n.,;
  1236.       anydrive WITH .n.
  1237.    REPLACE nodrive WITH .n.,;
  1238.       putany WITH .n.,;
  1239.       super WITH .n.
  1240.    REPLACE max_logins WITH 1,;
  1241.       ftp_dir WITH "C:\Pub",;
  1242.       hourly WITH .n.
  1243.    APPEND BLANK
  1244.    REPLACE route WITH "DYNAMIC",;
  1245.       ppp_slip WITH .y.,;
  1246.       ftp WITH .y.,;
  1247.       popmail WITH .y.
  1248.    REPLACE free_slip WITH .n.,;
  1249.       free_pop WITH .n.,;
  1250.       free_ftp WITH .n.
  1251.    REPLACE READ WITH .y.,;
  1252.       write WITH .n.,;
  1253.       CREATE WITH .y.
  1254.    REPLACE DELETE WITH .n.,;
  1255.       mkdir WITH .n.,;
  1256.       rmdir WITH .n.
  1257.    REPLACE noredir WITH .n.,;
  1258.       anydir WITH .n.,;
  1259.       anydrive WITH .n.
  1260.    REPLACE nodrive WITH .n.,;
  1261.       putany WITH .n.,;
  1262.       super WITH .n.
  1263.    REPLACE max_logins WITH 1,;
  1264.       ftp_dir WITH "C:\Pub",;
  1265.       hourly WITH .n.
  1266.    APPEND BLANK
  1267.    REPLACE route WITH "DYNAMIC",;
  1268.       ppp_slip WITH .y.,;
  1269.       ftp WITH .y.,;
  1270.       popmail WITH .y.
  1271.    REPLACE free_slip WITH .n.,;
  1272.       free_pop WITH .n.,;
  1273.       free_ftp WITH .n.
  1274.    REPLACE READ WITH .y.,;
  1275.       write WITH .n.,;
  1276.       CREATE WITH .y.
  1277.    REPLACE DELETE WITH .n.,;
  1278.       mkdir WITH .n.,;
  1279.       rmdir WITH .n.
  1280.    REPLACE noredir WITH .n.,;
  1281.       anydir WITH .n.,;
  1282.       anydrive WITH .n.
  1283.    REPLACE nodrive WITH .n.,;
  1284.       putany WITH .n.,;
  1285.       super WITH .n.
  1286.    REPLACE max_logins WITH 1,;
  1287.       ftp_dir WITH "C:\Pub",;
  1288.       hourly WITH .n.
  1289. ENDIF
  1290. SET EXCLUSIVE OFF
  1291. STORE .F. TO newfile
  1292. IF .NOT. FILE("Ipadmgr.dbf")
  1293.    ? "Please Standby --- Creating Userlog Data Base"
  1294.    STORE .T. TO newfile
  1295.    SET EXCLUSIVE ON
  1296.    CREATE TEMP
  1297.    USE TEMP
  1298.    APPEND BLANK
  1299.    REPLACE field_name WITH "S_LOGIN",;
  1300.       field_type WITH "C",;
  1301.       field_len WITH 25,;
  1302.       field_dec WITH 0
  1303.    APPEND BLANK
  1304.    REPLACE field_name WITH "S_PASSWORD",;
  1305.       field_type WITH "C",;
  1306.       field_len WITH 20,;
  1307.       field_dec WITH 0
  1308.    APPEND BLANK
  1309.    REPLACE field_name WITH "F_LOGIN",;
  1310.       field_type WITH "C",;
  1311.       field_len WITH 25,;
  1312.       field_dec WITH 0
  1313.    APPEND BLANK
  1314.    REPLACE field_name WITH "F_PASSWORD",;
  1315.       field_type WITH "C",;
  1316.       field_len WITH 20,;
  1317.       field_dec WITH 0
  1318.    APPEND BLANK
  1319.    REPLACE field_name WITH "P_LOGIN",;
  1320.       field_type WITH "C",;
  1321.       field_len WITH 25,;
  1322.       field_dec WITH 0
  1323.    APPEND BLANK
  1324.    REPLACE field_name WITH "P_PASSWORD",;
  1325.       field_type WITH "C",;
  1326.       field_len WITH 20,;
  1327.       field_dec WITH 0
  1328.    APPEND BLANK
  1329.    REPLACE field_name WITH "POP_DIR",;
  1330.       field_type WITH "C",;
  1331.       field_len WITH 8,;
  1332.       field_dec WITH 0
  1333.    APPEND BLANK
  1334.    REPLACE field_name WITH "POP_DOMAIN",;
  1335.       field_type WITH "C",;
  1336.       field_len WITH 25,;
  1337.       field_dec WITH 0
  1338.    APPEND BLANK
  1339.    REPLACE field_name WITH "KEEP",;
  1340.       field_type WITH "L",;
  1341.       field_len WITH 1,;
  1342.       field_dec WITH 0
  1343.    APPEND BLANK
  1344.    REPLACE field_name WITH "HOLD",;
  1345.       field_type WITH "L",;
  1346.       field_len WITH 1,;
  1347.       field_dec WITH 0
  1348.    APPEND BLANK
  1349.    REPLACE field_name WITH "LOGIN_NAME",;
  1350.       field_type WITH "C",;
  1351.       field_len WITH 30,;
  1352.       field_dec WITH 0
  1353.    APPEND BLANK
  1354.    REPLACE field_name WITH "NAME",;
  1355.       field_type WITH "C",;
  1356.       field_len WITH 30,;
  1357.       field_dec WITH 0
  1358.    APPEND BLANK
  1359.    REPLACE field_name WITH "ADDRESS1",;
  1360.       field_type WITH "C",;
  1361.       field_len WITH 30,;
  1362.       field_dec WITH 0
  1363.    APPEND BLANK
  1364.    REPLACE field_name WITH "ADDRESS2",;
  1365.       field_type WITH "C",;
  1366.       field_len WITH 30,;
  1367.       field_dec WITH 0
  1368.    APPEND BLANK
  1369.    REPLACE field_name WITH "CITY",;
  1370.       field_type WITH "C",;
  1371.       field_len WITH 30,;
  1372.       field_dec WITH 0
  1373.    APPEND BLANK
  1374.    REPLACE field_name WITH "STATE",;
  1375.       field_type WITH "C",;
  1376.       field_len WITH 10,;
  1377.       field_dec WITH 0
  1378.    APPEND BLANK
  1379.    REPLACE field_name WITH "ZIP",;
  1380.       field_type WITH "C",;
  1381.       field_len WITH 10,;
  1382.       field_dec WITH 0
  1383.    APPEND BLANK
  1384.    REPLACE field_name WITH "PHONE",;
  1385.       field_type WITH "C",;
  1386.       field_len WITH 12,;
  1387.       field_dec WITH 0
  1388.    APPEND BLANK
  1389.    REPLACE field_name WITH "WORK_PHONE",;
  1390.       field_type WITH "C",;
  1391.       field_len WITH 12,;
  1392.       field_dec WITH 0
  1393.    APPEND BLANK
  1394.    REPLACE field_name WITH "BIRTHDATE",;
  1395.       field_type WITH "D",;
  1396.       field_len WITH 8,;
  1397.       field_dec WITH 0
  1398.    APPEND BLANK
  1399.    REPLACE field_name WITH "PPP_SLIP",;
  1400.       field_type WITH "L",;
  1401.       field_len WITH 1,;
  1402.       field_dec WITH 0
  1403.    APPEND BLANK
  1404.    REPLACE field_name WITH "FTP",;
  1405.       field_type WITH "L",;
  1406.       field_len WITH 1,;
  1407.       field_dec WITH 0
  1408.    APPEND BLANK
  1409.    REPLACE field_name WITH "FREE_SLIP",;
  1410.       field_type WITH "L",;
  1411.       field_len WITH 1,;
  1412.       field_dec WITH 0
  1413.    APPEND BLANK
  1414.    REPLACE field_name WITH "FREE_FTP",;
  1415.       field_type WITH "L",;
  1416.       field_len WITH 1,;
  1417.       field_dec WITH 0
  1418.    APPEND BLANK
  1419.    REPLACE field_name WITH "FREE_POP",;
  1420.       field_type WITH "L",;
  1421.       field_len WITH 1,;
  1422.       field_dec WITH 0
  1423.    APPEND BLANK
  1424.    REPLACE field_name WITH "AUTO_RENEW",;
  1425.       field_type WITH "L",;
  1426.       field_len WITH 1,;
  1427.       field_dec WITH 0
  1428.    APPEND BLANK
  1429.    REPLACE field_name WITH "POPMAIL",;
  1430.       field_type WITH "L",;
  1431.       field_len WITH 1,;
  1432.       field_dec WITH 0
  1433.    APPEND BLANK
  1434.    REPLACE field_name WITH "FILTER",;
  1435.       field_type WITH "C",;
  1436.       field_len WITH 15,;
  1437.       field_dec WITH 0
  1438.    APPEND BLANK
  1439.    REPLACE field_name WITH "ROUTE",;
  1440.       field_type WITH "C",;
  1441.       field_len WITH 19,;
  1442.       field_dec WITH 0
  1443.    APPEND BLANK
  1444.    REPLACE field_name WITH "S_MAX_IDLE",;
  1445.       field_type WITH "N",;
  1446.       field_len WITH 10,;
  1447.       field_dec WITH 0
  1448.    APPEND BLANK
  1449.    REPLACE field_name WITH "S_MAX_CONN",;
  1450.       field_type WITH "N",;
  1451.       field_len WITH 10,;
  1452.       field_dec WITH 0
  1453.    APPEND BLANK
  1454.    REPLACE field_name WITH "MAX_LOGINS",;
  1455.       field_type WITH "N",;
  1456.       field_len WITH 4,;
  1457.       field_dec WITH 0
  1458.    APPEND BLANK
  1459.    REPLACE field_name WITH "FTP_DIR",;
  1460.       field_type WITH "C",;
  1461.       field_len WITH 30,;
  1462.       field_dec WITH 0
  1463.    APPEND BLANK
  1464.    REPLACE field_name WITH "READ",;
  1465.       field_type WITH "L",;
  1466.       field_len WITH 1,;
  1467.       field_dec WITH 0
  1468.    APPEND BLANK
  1469.    REPLACE field_name WITH "WRITE",;
  1470.       field_type WITH "L",;
  1471.       field_len WITH 1,;
  1472.       field_dec WITH 0
  1473.    APPEND BLANK
  1474.    REPLACE field_name WITH "CREATE",;
  1475.       field_type WITH "L",;
  1476.       field_len WITH 1,;
  1477.       field_dec WITH 0
  1478.    APPEND BLANK
  1479.    REPLACE field_name WITH "DELETE",;
  1480.       field_type WITH "L",;
  1481.       field_len WITH 1,;
  1482.       field_dec WITH 0
  1483.    APPEND BLANK
  1484.    REPLACE field_name WITH "MKDIR",;
  1485.       field_type WITH "L",;
  1486.       field_len WITH 1,;
  1487.       field_dec WITH 0
  1488.    APPEND BLANK
  1489.    REPLACE field_name WITH "RMDIR",;
  1490.       field_type WITH "L",;
  1491.       field_len WITH 1,;
  1492.       field_dec WITH 0
  1493.    APPEND BLANK
  1494.    REPLACE field_name WITH "NOREDIR",;
  1495.       field_type WITH "L",;
  1496.       field_len WITH 1,;
  1497.       field_dec WITH 0
  1498.    APPEND BLANK
  1499.    REPLACE field_name WITH "ANYDIR",;
  1500.       field_type WITH "L",;
  1501.       field_len WITH 1,;
  1502.       field_dec WITH 0
  1503.    APPEND BLANK
  1504.    REPLACE field_name WITH "ANYDRIVE",;
  1505.       field_type WITH "L",;
  1506.       field_len WITH 1,;
  1507.       field_dec WITH 0
  1508.    APPEND BLANK
  1509.    REPLACE field_name WITH "NODRIVE",;
  1510.       field_type WITH "L",;
  1511.       field_len WITH 1,;
  1512.       field_dec WITH 0
  1513.    APPEND BLANK
  1514.    REPLACE field_name WITH "PUTANY",;
  1515.       field_type WITH "L",;
  1516.       field_len WITH 1,;
  1517.       field_dec WITH 0
  1518.    APPEND BLANK
  1519.    REPLACE field_name WITH "SUPER",;
  1520.       field_type WITH "L",;
  1521.       field_len WITH 1,;
  1522.       field_dec WITH 0
  1523.    APPEND BLANK
  1524.    REPLACE field_name WITH "F_MAX_IDLE",;
  1525.       field_type WITH "N",;
  1526.       field_len WITH 10,;
  1527.       field_dec WITH 0
  1528.    APPEND BLANK
  1529.    REPLACE field_name WITH "F_MAX_CONN",;
  1530.       field_type WITH "N",;
  1531.       field_len WITH 10,;
  1532.       field_dec WITH 0
  1533.    APPEND BLANK
  1534.    REPLACE field_name WITH "JOIN_DATE",;
  1535.       field_type WITH "D",;
  1536.       field_len WITH 8,;
  1537.       field_dec WITH 0
  1538.    APPEND BLANK
  1539.    REPLACE field_name WITH "EXP_DATE",;
  1540.       field_type WITH "D",;
  1541.       field_len WITH 8,;
  1542.       field_dec WITH 0
  1543.    APPEND BLANK
  1544.    REPLACE field_name WITH "RENEWAL",;
  1545.       field_type WITH "D",;
  1546.       field_len WITH 8,;
  1547.       field_dec WITH 0
  1548.    APPEND BLANK
  1549.    REPLACE field_name WITH "DAYS",;
  1550.       field_type WITH "N",;
  1551.       field_len WITH 5,;
  1552.       field_dec WITH 0
  1553.    APPEND BLANK
  1554.    REPLACE field_name WITH "RENEW_LEV",;
  1555.       field_type WITH "N",;
  1556.       field_len WITH 2,;
  1557.       field_dec WITH 0
  1558.    APPEND BLANK
  1559.    REPLACE field_name WITH "RENEW_AMT",;
  1560.       field_type WITH "N",;
  1561.       field_len WITH 6,;
  1562.       field_dec WITH 2
  1563.    APPEND BLANK
  1564.    REPLACE field_name WITH "TOTAL_FEES",;
  1565.       field_type WITH "N",;
  1566.       field_len WITH 6,;
  1567.       field_dec WITH 2
  1568.    APPEND BLANK
  1569.    REPLACE field_name WITH "CARD_NUM",;
  1570.       field_type WITH "C",;
  1571.       field_len WITH 20,;
  1572.       field_dec WITH 0
  1573.    APPEND BLANK
  1574.    REPLACE field_name WITH "CARD_DATE",;
  1575.       field_type WITH "C",;
  1576.       field_len WITH 5,;
  1577.       field_dec WITH 0
  1578.    APPEND BLANK
  1579.    REPLACE field_name WITH "CARD_NAME",;
  1580.       field_type WITH "C",;
  1581.       field_len WITH 30,;
  1582.       field_dec WITH 0
  1583.    APPEND BLANK
  1584.    REPLACE field_name WITH "C_SLOGINS",;
  1585.       field_type WITH "N",;
  1586.       field_len WITH 10,;
  1587.       field_dec WITH 0
  1588.    APPEND BLANK
  1589.    REPLACE field_name WITH "C_STIME",;
  1590.       field_type WITH "N",;
  1591.       field_len WITH 10,;
  1592.       field_dec WITH 0
  1593.    APPEND BLANK
  1594.    REPLACE field_name WITH "C_FLOGINS",;
  1595.       field_type WITH "N",;
  1596.       field_len WITH 10,;
  1597.       field_dec WITH 0
  1598.    APPEND BLANK
  1599.    REPLACE field_name WITH "C_FTIME",;
  1600.       field_type WITH "N",;
  1601.       field_len WITH 10,;
  1602.       field_dec WITH 0
  1603.    APPEND BLANK
  1604.    REPLACE field_name WITH "C_SMSG",;
  1605.       field_type WITH "N",;
  1606.       field_len WITH 10,;
  1607.       field_dec WITH 0
  1608.    APPEND BLANK
  1609.    REPLACE field_name WITH "C_RMSG",;
  1610.       field_type WITH "N",;
  1611.       field_len WITH 10,;
  1612.       field_dec WITH 0
  1613.    APPEND BLANK
  1614.    REPLACE field_name WITH "P_SLOGINS",;
  1615.       field_type WITH "N",;
  1616.       field_len WITH 10,;
  1617.       field_dec WITH 0
  1618.    APPEND BLANK
  1619.    REPLACE field_name WITH "P_STIME",;
  1620.       field_type WITH "N",;
  1621.       field_len WITH 10,;
  1622.       field_dec WITH 0
  1623.    APPEND BLANK
  1624.    REPLACE field_name WITH "P_FLOGINS",;
  1625.       field_type WITH "N",;
  1626.       field_len WITH 10,;
  1627.       field_dec WITH 0
  1628.    APPEND BLANK
  1629.    REPLACE field_name WITH "P_FTIME",;
  1630.       field_type WITH "N",;
  1631.       field_len WITH 10,;
  1632.       field_dec WITH 0
  1633.    APPEND BLANK
  1634.    REPLACE field_name WITH "P_SMSG",;
  1635.       field_type WITH "N",;
  1636.       field_len WITH 10,;
  1637.       field_dec WITH 0
  1638.    APPEND BLANK
  1639.    REPLACE field_name WITH "P_RMSG",;
  1640.       field_type WITH "N",;
  1641.       field_len WITH 10,;
  1642.       field_dec WITH 0
  1643.    APPEND BLANK
  1644.    REPLACE field_name WITH "HOURLY",;
  1645.       field_type WITH "L",;
  1646.       field_len WITH 1,;
  1647.       field_dec WITH 0
  1648.    APPEND BLANK
  1649.    REPLACE field_name WITH "DAILY",;
  1650.       field_type WITH "L",;
  1651.       field_len WITH 1,;
  1652.       field_dec WITH 0
  1653.    APPEND BLANK
  1654.    REPLACE field_name WITH "BASE_RATE",;
  1655.       field_type WITH "N",;
  1656.       field_len WITH 6,;
  1657.       field_dec WITH 2
  1658.    APPEND BLANK
  1659.    REPLACE field_name WITH "BASE_MIN",;
  1660.       field_type WITH "N",;
  1661.       field_len WITH 10,;
  1662.       field_dec WITH 0
  1663.    APPEND BLANK
  1664.    REPLACE field_name WITH "OVR_T_MINS",;
  1665.       field_type WITH "N",;
  1666.       field_len WITH 8,;
  1667.       field_dec WITH 2
  1668.    APPEND BLANK
  1669.    REPLACE field_name WITH "S_RATE",;
  1670.       field_type WITH "N",;
  1671.       field_len WITH 6,;
  1672.       field_dec WITH 2
  1673.    APPEND BLANK
  1674.    REPLACE field_name WITH "F_RATE",;
  1675.       field_type WITH "N",;
  1676.       field_len WITH 6,;
  1677.       field_dec WITH 2
  1678.    APPEND BLANK
  1679.    REPLACE field_name WITH "BILL_DATE",;
  1680.       field_type WITH "D",;
  1681.       field_len WITH 8,;
  1682.       field_dec WITH 0
  1683.    APPEND BLANK
  1684.    REPLACE field_name WITH "BILL_AMT",;
  1685.       field_type WITH "N",;
  1686.       field_len WITH 6,;
  1687.       field_dec WITH 2
  1688.    APPEND BLANK
  1689.    REPLACE field_name WITH "LT_BILL_DT",;
  1690.       field_type WITH "D",;
  1691.       field_len WITH 8,;
  1692.       field_dec WITH 0
  1693.    APPEND BLANK
  1694.    REPLACE field_name WITH "LT_BILL_AM",;
  1695.       field_type WITH "N",;
  1696.       field_len WITH 6,;
  1697.       field_dec WITH 2
  1698.    APPEND BLANK
  1699.    REPLACE field_name WITH "UPDATE",;
  1700.       field_type WITH "L",;
  1701.       field_len WITH 1,;
  1702.       field_dec WITH 0
  1703.    APPEND BLANK
  1704.    REPLACE field_name WITH "LOGICAL1",;
  1705.       field_type WITH "L",;
  1706.       field_len WITH 1,;
  1707.       field_dec WITH 0
  1708.    APPEND BLANK
  1709.    REPLACE field_name WITH "NOTES",;
  1710.       field_type WITH "C",;
  1711.       field_len WITH 70,;
  1712.       field_dec WITH 0
  1713.    APPEND BLANK
  1714.    REPLACE field_name WITH "HOST_NAME",;
  1715.       field_type WITH "C",;
  1716.       field_len WITH 30,;
  1717.       field_dec WITH 0
  1718.    APPEND BLANK
  1719.    REPLACE field_name WITH "SPARE_1",;
  1720.       field_type WITH "C",;
  1721.       field_len WITH 30,;
  1722.       field_dec WITH 0
  1723.    DELETE
  1724.    USE
  1725.    CREATE ipadmgr FROM TEMP
  1726.    USE ipadmgr
  1727.    INDEX ON Upper(name) TO ipadmgr.nx1
  1728.    INDEX ON Upper(s_login) TO ipadmgr.nx2
  1729.    INDEX ON Upper(f_login) TO ipadmgr.nx3
  1730.    INDEX ON Upper(p_login) TO ipadmgr.nx4
  1731.    INDEX ON Upper(pop_dir) TO ipadmgr.nx5
  1732.    INDEX ON Upper(login_name) TO ipadmgr.nx6
  1733.    SET INDEX TO
  1734.    USE
  1735.    USE ipadmgr INDEX ipadmgr.nx1, ipadmgr.nx2, ipadmgr.nx3, ipadmgr.nx4, ipadmgr.nx5
  1736.    APPEND BLANK
  1737.    REPLACE f_login WITH "anonymous",;
  1738.       f_password WITH "*",;
  1739.       ftp_dir WITH "C:\Pub",;
  1740.       name WITH "ANONYMOUS FTP LOGIN"
  1741.    REPLACE ftp WITH .y.,;
  1742.       free_ftp WITH .y.,;
  1743.       READ WITH .y.
  1744.    REPLACE CREATE WITH .y.,;
  1745.       keep WITH .y.,;
  1746.       hourly WITH .n.
  1747.    APPEND BLANK
  1748.    REPLACE f_login WITH "ftp",;
  1749.       f_password WITH "*",;
  1750.       ftp_dir WITH "C:\Pub",;
  1751.       name WITH "ANONYMOUS FTP LOGIN"
  1752.    REPLACE ftp WITH .y.,;
  1753.       free_ftp WITH .y.,;
  1754.       READ WITH .y.
  1755.    REPLACE CREATE WITH .y.,;
  1756.       keep WITH .y.,;
  1757.       hourly WITH .n.
  1758.    USE
  1759. ENDIF
  1760. SET EXCLUSIVE OFF
  1761. USE ipadmgr
  1762. IF .NOT. FILE("Ipadmgr.nx1")
  1763.    ? "Please Standby --- Rebuilding Ipadmgr.nx1"
  1764.    USE ipadmgr EXCLUSIVE
  1765.    INDEX ON Upper(name) TO ipadmgr.nx1
  1766.    SET INDEX TO
  1767.    USE ipadmgr INDEX ipadmgr.nx1
  1768.    USE
  1769. ENDIF
  1770. USE ipadmgr
  1771. IF .NOT. FILE("Ipadmgr.nx2")
  1772.    ? "Please Standby --- Rebuilding Ipadmgr.nx2"
  1773.    USE ipadmgr EXCLUSIVE
  1774.    INDEX ON Upper(s_login) TO ipadmgr.nx2
  1775.    SET INDEX TO
  1776.    USE ipadmgr INDEX ipadmgr.nx2
  1777.    USE
  1778. ENDIF
  1779. USE ipadmgr
  1780. IF .NOT. FILE("Ipadmgr.nx3")
  1781.    ? "Please Standby --- Rebuilding Ipadmgr.nx3"
  1782.    USE ipadmgr EXCLUSIVE
  1783.    INDEX ON Upper(f_login) TO ipadmgr.nx3
  1784.    SET INDEX TO
  1785.    USE ipadmgr INDEX ipadmgr.nx3
  1786.    USE
  1787. ENDIF
  1788. USE ipadmgr
  1789. IF .NOT. FILE("Ipadmgr.nx4")
  1790.    ? "Please Standby --- Rebuilding Ipadmgr.nx4"
  1791.    USE ipadmgr EXCLUSIVE
  1792.    INDEX ON Upper(p_login) TO ipadmgr.nx4
  1793.    SET INDEX TO
  1794.    USE ipadmgr INDEX ipadmgr.nx4
  1795.    USE
  1796. ENDIF
  1797. USE ipadmgr
  1798. IF .NOT. FILE("Ipadmgr.nx5")
  1799.    ? "Please Standby --- Rebuilding Ipadmgr.nx5"
  1800.    USE ipadmgr EXCLUSIVE
  1801.    INDEX ON Upper(pop_dir) TO ipadmgr.nx5
  1802.    SET INDEX TO
  1803.    USE ipadmgr INDEX ipadmgr.nx5
  1804.    USE
  1805. ENDIF
  1806. USE ipadmgr
  1807. IF .NOT. FILE("Ipadmgr.nx6")
  1808.    ? "Please Standby --- Rebuilding Ipadmgr.nx6"
  1809.    USE ipadmgr EXCLUSIVE
  1810.    INDEX ON Upper(login_name) TO ipadmgr.nx6
  1811.    SET INDEX TO
  1812.    USE ipadmgr INDEX ipadmgr.nx6
  1813.    USE
  1814. ENDIF
  1815. USE
  1816. USE ipadmgr
  1817. IF Field(85) = "SPARE_1"
  1818. ELSE
  1819.    ? "Please Standby --- Modifying Ipad Manager Data Base"
  1820.    ERASE ipadtemp.dbf
  1821.    COPY TO ipadtemp
  1822.    SET EXCLUSIVE ON
  1823.    CREATE TEMP
  1824.    USE TEMP
  1825.    APPEND BLANK
  1826.    REPLACE field_name WITH "S_LOGIN",;
  1827.       field_type WITH "C",;
  1828.       field_len WITH 25,;
  1829.       field_dec WITH 0
  1830.    APPEND BLANK
  1831.    REPLACE field_name WITH "S_PASSWORD",;
  1832.       field_type WITH "C",;
  1833.       field_len WITH 20,;
  1834.       field_dec WITH 0
  1835.    APPEND BLANK
  1836.    REPLACE field_name WITH "F_LOGIN",;
  1837.       field_type WITH "C",;
  1838.       field_len WITH 25,;
  1839.       field_dec WITH 0
  1840.    APPEND BLANK
  1841.    REPLACE field_name WITH "F_PASSWORD",;
  1842.       field_type WITH "C",;
  1843.       field_len WITH 20,;
  1844.       field_dec WITH 0
  1845.    APPEND BLANK
  1846.    REPLACE field_name WITH "P_LOGIN",;
  1847.       field_type WITH "C",;
  1848.       field_len WITH 25,;
  1849.       field_dec WITH 0
  1850.    APPEND BLANK
  1851.    REPLACE field_name WITH "P_PASSWORD",;
  1852.       field_type WITH "C",;
  1853.       field_len WITH 20,;
  1854.       field_dec WITH 0
  1855.    APPEND BLANK
  1856.    REPLACE field_name WITH "POP_DIR",;
  1857.       field_type WITH "C",;
  1858.       field_len WITH 8,;
  1859.       field_dec WITH 0
  1860.    APPEND BLANK
  1861.    REPLACE field_name WITH "POP_DOMAIN",;
  1862.       field_type WITH "C",;
  1863.       field_len WITH 25,;
  1864.       field_dec WITH 0
  1865.    APPEND BLANK
  1866.    REPLACE field_name WITH "KEEP",;
  1867.       field_type WITH "L",;
  1868.       field_len WITH 1,;
  1869.       field_dec WITH 0
  1870.    APPEND BLANK
  1871.    REPLACE field_name WITH "HOLD",;
  1872.       field_type WITH "L",;
  1873.       field_len WITH 1,;
  1874.       field_dec WITH 0
  1875.    APPEND BLANK
  1876.    REPLACE field_name WITH "LOGIN_NAME",;
  1877.       field_type WITH "C",;
  1878.       field_len WITH 30,;
  1879.       field_dec WITH 0
  1880.    APPEND BLANK
  1881.    REPLACE field_name WITH "NAME",;
  1882.       field_type WITH "C",;
  1883.       field_len WITH 30,;
  1884.       field_dec WITH 0
  1885.    APPEND BLANK
  1886.    REPLACE field_name WITH "ADDRESS1",;
  1887.       field_type WITH "C",;
  1888.       field_len WITH 30,;
  1889.       field_dec WITH 0
  1890.    APPEND BLANK
  1891.    REPLACE field_name WITH "ADDRESS2",;
  1892.       field_type WITH "C",;
  1893.       field_len WITH 30,;
  1894.       field_dec WITH 0
  1895.    APPEND BLANK
  1896.    REPLACE field_name WITH "CITY",;
  1897.       field_type WITH "C",;
  1898.       field_len WITH 30,;
  1899.       field_dec WITH 0
  1900.    APPEND BLANK
  1901.    REPLACE field_name WITH "STATE",;
  1902.       field_type WITH "C",;
  1903.       field_len WITH 10,;
  1904.       field_dec WITH 0
  1905.    APPEND BLANK
  1906.    REPLACE field_name WITH "ZIP",;
  1907.       field_type WITH "C",;
  1908.       field_len WITH 10,;
  1909.       field_dec WITH 0
  1910.    APPEND BLANK
  1911.    REPLACE field_name WITH "PHONE",;
  1912.       field_type WITH "C",;
  1913.       field_len WITH 12,;
  1914.       field_dec WITH 0
  1915.    APPEND BLANK
  1916.    REPLACE field_name WITH "WORK_PHONE",;
  1917.       field_type WITH "C",;
  1918.       field_len WITH 12,;
  1919.       field_dec WITH 0
  1920.    APPEND BLANK
  1921.    REPLACE field_name WITH "BIRTHDATE",;
  1922.       field_type WITH "D",;
  1923.       field_len WITH 8,;
  1924.       field_dec WITH 0
  1925.    APPEND BLANK
  1926.    REPLACE field_name WITH "PPP_SLIP",;
  1927.       field_type WITH "L",;
  1928.       field_len WITH 1,;
  1929.       field_dec WITH 0
  1930.    APPEND BLANK
  1931.    REPLACE field_name WITH "FTP",;
  1932.       field_type WITH "L",;
  1933.       field_len WITH 1,;
  1934.       field_dec WITH 0
  1935.    APPEND BLANK
  1936.    REPLACE field_name WITH "FREE_SLIP",;
  1937.       field_type WITH "L",;
  1938.       field_len WITH 1,;
  1939.       field_dec WITH 0
  1940.    APPEND BLANK
  1941.    REPLACE field_name WITH "FREE_FTP",;
  1942.       field_type WITH "L",;
  1943.       field_len WITH 1,;
  1944.       field_dec WITH 0
  1945.    APPEND BLANK
  1946.    REPLACE field_name WITH "FREE_POP",;
  1947.       field_type WITH "L",;
  1948.       field_len WITH 1,;
  1949.       field_dec WITH 0
  1950.    APPEND BLANK
  1951.    REPLACE field_name WITH "AUTO_RENEW",;
  1952.       field_type WITH "L",;
  1953.       field_len WITH 1,;
  1954.       field_dec WITH 0
  1955.    APPEND BLANK
  1956.    REPLACE field_name WITH "POPMAIL",;
  1957.       field_type WITH "L",;
  1958.       field_len WITH 1,;
  1959.       field_dec WITH 0
  1960.    APPEND BLANK
  1961.    REPLACE field_name WITH "FILTER",;
  1962.       field_type WITH "C",;
  1963.       field_len WITH 15,;
  1964.       field_dec WITH 0
  1965.    APPEND BLANK
  1966.    REPLACE field_name WITH "ROUTE",;
  1967.       field_type WITH "C",;
  1968.       field_len WITH 19,;
  1969.       field_dec WITH 0
  1970.    APPEND BLANK
  1971.    REPLACE field_name WITH "S_MAX_IDLE",;
  1972.       field_type WITH "N",;
  1973.       field_len WITH 10,;
  1974.       field_dec WITH 0
  1975.    APPEND BLANK
  1976.    REPLACE field_name WITH "S_MAX_CONN",;
  1977.       field_type WITH "N",;
  1978.       field_len WITH 10,;
  1979.       field_dec WITH 0
  1980.    APPEND BLANK
  1981.    REPLACE field_name WITH "MAX_LOGINS",;
  1982.       field_type WITH "N",;
  1983.       field_len WITH 4,;
  1984.       field_dec WITH 0
  1985.    APPEND BLANK
  1986.    REPLACE field_name WITH "FTP_DIR",;
  1987.       field_type WITH "C",;
  1988.       field_len WITH 30,;
  1989.       field_dec WITH 0
  1990.    APPEND BLANK
  1991.    REPLACE field_name WITH "READ",;
  1992.       field_type WITH "L",;
  1993.       field_len WITH 1,;
  1994.       field_dec WITH 0
  1995.    APPEND BLANK
  1996.    REPLACE field_name WITH "WRITE",;
  1997.       field_type WITH "L",;
  1998.       field_len WITH 1,;
  1999.       field_dec WITH 0
  2000.    APPEND BLANK
  2001.    REPLACE field_name WITH "CREATE",;
  2002.       field_type WITH "L",;
  2003.       field_len WITH 1,;
  2004.       field_dec WITH 0
  2005.    APPEND BLANK
  2006.    REPLACE field_name WITH "DELETE",;
  2007.       field_type WITH "L",;
  2008.       field_len WITH 1,;
  2009.       field_dec WITH 0
  2010.    APPEND BLANK
  2011.    REPLACE field_name WITH "MKDIR",;
  2012.       field_type WITH "L",;
  2013.       field_len WITH 1,;
  2014.       field_dec WITH 0
  2015.    APPEND BLANK
  2016.    REPLACE field_name WITH "RMDIR",;
  2017.       field_type WITH "L",;
  2018.       field_len WITH 1,;
  2019.       field_dec WITH 0
  2020.    APPEND BLANK
  2021.    REPLACE field_name WITH "NOREDIR",;
  2022.       field_type WITH "L",;
  2023.       field_len WITH 1,;
  2024.       field_dec WITH 0
  2025.    APPEND BLANK
  2026.    REPLACE field_name WITH "ANYDIR",;
  2027.       field_type WITH "L",;
  2028.       field_len WITH 1,;
  2029.       field_dec WITH 0
  2030.    APPEND BLANK
  2031.    REPLACE field_name WITH "ANYDRIVE",;
  2032.       field_type WITH "L",;
  2033.       field_len WITH 1,;
  2034.       field_dec WITH 0
  2035.    APPEND BLANK
  2036.    REPLACE field_name WITH "NODRIVE",;
  2037.       field_type WITH "L",;
  2038.       field_len WITH 1,;
  2039.       field_dec WITH 0
  2040.    APPEND BLANK
  2041.    REPLACE field_name WITH "PUTANY",;
  2042.       field_type WITH "L",;
  2043.       field_len WITH 1,;
  2044.       field_dec WITH 0
  2045.    APPEND BLANK
  2046.    REPLACE field_name WITH "SUPER",;
  2047.       field_type WITH "L",;
  2048.       field_len WITH 1,;
  2049.       field_dec WITH 0
  2050.    APPEND BLANK
  2051.    REPLACE field_name WITH "F_MAX_IDLE",;
  2052.       field_type WITH "N",;
  2053.       field_len WITH 10,;
  2054.       field_dec WITH 0
  2055.    APPEND BLANK
  2056.    REPLACE field_name WITH "F_MAX_CONN",;
  2057.       field_type WITH "N",;
  2058.       field_len WITH 10,;
  2059.       field_dec WITH 0
  2060.    APPEND BLANK
  2061.    REPLACE field_name WITH "JOIN_DATE",;
  2062.       field_type WITH "D",;
  2063.       field_len WITH 8,;
  2064.       field_dec WITH 0
  2065.    APPEND BLANK
  2066.    REPLACE field_name WITH "EXP_DATE",;
  2067.       field_type WITH "D",;
  2068.       field_len WITH 8,;
  2069.       field_dec WITH 0
  2070.    APPEND BLANK
  2071.    REPLACE field_name WITH "RENEWAL",;
  2072.       field_type WITH "D",;
  2073.       field_len WITH 8,;
  2074.       field_dec WITH 0
  2075.    APPEND BLANK
  2076.    REPLACE field_name WITH "DAYS",;
  2077.       field_type WITH "N",;
  2078.       field_len WITH 5,;
  2079.       field_dec WITH 0
  2080.    APPEND BLANK
  2081.    REPLACE field_name WITH "RENEW_LEV",;
  2082.       field_type WITH "N",;
  2083.       field_len WITH 2,;
  2084.       field_dec WITH 0
  2085.    APPEND BLANK
  2086.    REPLACE field_name WITH "RENEW_AMT",;
  2087.       field_type WITH "N",;
  2088.       field_len WITH 6,;
  2089.       field_dec WITH 2
  2090.    APPEND BLANK
  2091.    REPLACE field_name WITH "TOTAL_FEES",;
  2092.       field_type WITH "N",;
  2093.       field_len WITH 6,;
  2094.       field_dec WITH 2
  2095.    APPEND BLANK
  2096.    REPLACE field_name WITH "CARD_NUM",;
  2097.       field_type WITH "C",;
  2098.       field_len WITH 20,;
  2099.       field_dec WITH 0
  2100.    APPEND BLANK
  2101.    REPLACE field_name WITH "CARD_DATE",;
  2102.       field_type WITH "C",;
  2103.       field_len WITH 5,;
  2104.       field_dec WITH 0
  2105.    APPEND BLANK
  2106.    REPLACE field_name WITH "CARD_NAME",;
  2107.       field_type WITH "C",;
  2108.       field_len WITH 30,;
  2109.       field_dec WITH 0
  2110.    APPEND BLANK
  2111.    REPLACE field_name WITH "C_SLOGINS",;
  2112.       field_type WITH "N",;
  2113.       field_len WITH 10,;
  2114.       field_dec WITH 0
  2115.    APPEND BLANK
  2116.    REPLACE field_name WITH "C_STIME",;
  2117.       field_type WITH "N",;
  2118.       field_len WITH 10,;
  2119.       field_dec WITH 0
  2120.    APPEND BLANK
  2121.    REPLACE field_name WITH "C_FLOGINS",;
  2122.       field_type WITH "N",;
  2123.       field_len WITH 10,;
  2124.       field_dec WITH 0
  2125.    APPEND BLANK
  2126.    REPLACE field_name WITH "C_FTIME",;
  2127.       field_type WITH "N",;
  2128.       field_len WITH 10,;
  2129.       field_dec WITH 0
  2130.    APPEND BLANK
  2131.    REPLACE field_name WITH "C_SMSG",;
  2132.       field_type WITH "N",;
  2133.       field_len WITH 10,;
  2134.       field_dec WITH 0
  2135.    APPEND BLANK
  2136.    REPLACE field_name WITH "C_RMSG",;
  2137.       field_type WITH "N",;
  2138.       field_len WITH 10,;
  2139.       field_dec WITH 0
  2140.    APPEND BLANK
  2141.    REPLACE field_name WITH "P_SLOGINS",;
  2142.       field_type WITH "N",;
  2143.       field_len WITH 10,;
  2144.       field_dec WITH 0
  2145.    APPEND BLANK
  2146.    REPLACE field_name WITH "P_STIME",;
  2147.       field_type WITH "N",;
  2148.       field_len WITH 10,;
  2149.       field_dec WITH 0
  2150.    APPEND BLANK
  2151.    REPLACE field_name WITH "P_FLOGINS",;
  2152.       field_type WITH "N",;
  2153.       field_len WITH 10,;
  2154.       field_dec WITH 0
  2155.    APPEND BLANK
  2156.    REPLACE field_name WITH "P_FTIME",;
  2157.       field_type WITH "N",;
  2158.       field_len WITH 10,;
  2159.       field_dec WITH 0
  2160.    APPEND BLANK
  2161.    REPLACE field_name WITH "P_SMSG",;
  2162.       field_type WITH "N",;
  2163.       field_len WITH 10,;
  2164.       field_dec WITH 0
  2165.    APPEND BLANK
  2166.    REPLACE field_name WITH "P_RMSG",;
  2167.       field_type WITH "N",;
  2168.       field_len WITH 10,;
  2169.       field_dec WITH 0
  2170.    APPEND BLANK
  2171.    REPLACE field_name WITH "HOURLY",;
  2172.       field_type WITH "L",;
  2173.       field_len WITH 1,;
  2174.       field_dec WITH 0
  2175.    APPEND BLANK
  2176.    REPLACE field_name WITH "DAILY",;
  2177.       field_type WITH "L",;
  2178.       field_len WITH 1,;
  2179.       field_dec WITH 0
  2180.    APPEND BLANK
  2181.    REPLACE field_name WITH "BASE_RATE",;
  2182.       field_type WITH "N",;
  2183.       field_len WITH 6,;
  2184.       field_dec WITH 2
  2185.    APPEND BLANK
  2186.    REPLACE field_name WITH "BASE_MIN",;
  2187.       field_type WITH "N",;
  2188.       field_len WITH 10,;
  2189.       field_dec WITH 0
  2190.    APPEND BLANK
  2191.    REPLACE field_name WITH "OVR_T_MINS",;
  2192.       field_type WITH "N",;
  2193.       field_len WITH 8,;
  2194.       field_dec WITH 2
  2195.    APPEND BLANK
  2196.    REPLACE field_name WITH "S_RATE",;
  2197.       field_type WITH "N",;
  2198.       field_len WITH 6,;
  2199.       field_dec WITH 2
  2200.    APPEND BLANK
  2201.    REPLACE field_name WITH "F_RATE",;
  2202.       field_type WITH "N",;
  2203.       field_len WITH 6,;
  2204.       field_dec WITH 2
  2205.    APPEND BLANK
  2206.    REPLACE field_name WITH "BILL_DATE",;
  2207.       field_type WITH "D",;
  2208.       field_len WITH 8,;
  2209.       field_dec WITH 0
  2210.    APPEND BLANK
  2211.    REPLACE field_name WITH "BILL_AMT",;
  2212.       field_type WITH "N",;
  2213.       field_len WITH 6,;
  2214.       field_dec WITH 2
  2215.    APPEND BLANK
  2216.    REPLACE field_name WITH "LT_BILL_DT",;
  2217.       field_type WITH "D",;
  2218.       field_len WITH 8,;
  2219.       field_dec WITH 0
  2220.    APPEND BLANK
  2221.    REPLACE field_name WITH "LT_BILL_AM",;
  2222.       field_type WITH "N",;
  2223.       field_len WITH 6,;
  2224.       field_dec WITH 2
  2225.    APPEND BLANK
  2226.    REPLACE field_name WITH "UPDATE",;
  2227.       field_type WITH "L",;
  2228.       field_len WITH 1,;
  2229.       field_dec WITH 0
  2230.    APPEND BLANK
  2231.    REPLACE field_name WITH "LOGICAL1",;
  2232.       field_type WITH "L",;
  2233.       field_len WITH 1,;
  2234.       field_dec WITH 0
  2235.    APPEND BLANK
  2236.    REPLACE field_name WITH "NOTES",;
  2237.       field_type WITH "C",;
  2238.       field_len WITH 70,;
  2239.       field_dec WITH 0
  2240.    APPEND BLANK
  2241.    REPLACE field_name WITH "HOST_NAME",;
  2242.       field_type WITH "C",;
  2243.       field_len WITH 30,;
  2244.       field_dec WITH 0
  2245.    APPEND BLANK
  2246.    REPLACE field_name WITH "SPARE_1",;
  2247.       field_type WITH "C",;
  2248.       field_len WITH 30,;
  2249.       field_dec WITH 0
  2250.    DELETE
  2251.    USE
  2252.    CREATE ipadmgr FROM TEMP
  2253.    USE ipadmgr
  2254.    USE
  2255.    SET EXCLUSIVE OFF
  2256.    SELECT 2
  2257.    USE ipadmgr
  2258.    SELECT 1
  2259.    USE ipadtemp
  2260.    DO WHILE .NOT. Eof()
  2261.       @ 5,10 SAY "Record in:  " + Str(Recno(),7)
  2262.       STORE s_login TO mvar1
  2263.       STORE s_password TO mvar2
  2264.       STORE f_login TO mvar3
  2265.       STORE f_password TO mvar4
  2266.       STORE p_login TO mvar5
  2267.       STORE p_password TO mvar6
  2268.       STORE pop_dir TO mvar7
  2269.       STORE pop_domain TO mvar8
  2270.       STORE keep TO mvar9
  2271.       STORE hold TO mvar10
  2272.       STORE login_name TO mvar11
  2273.       STORE name TO mvar12
  2274.       STORE address1 TO mvar13
  2275.       STORE address2 TO mvar14
  2276.       STORE city TO mvar15
  2277.       STORE State TO mvar16
  2278.       STORE zip TO mvar17
  2279.       STORE phone TO mvar18
  2280.       STORE birthdate TO mvar19
  2281.       STORE ppp_slip TO mvar20
  2282.       STORE ftp TO mvar21
  2283.       STORE free_slip TO mvar22
  2284.       STORE free_ftp TO mvar23
  2285.       STORE free_pop TO mvar24
  2286.       STORE auto_renew TO mvar25
  2287.       STORE popmail TO mvar26
  2288.       STORE FILTER TO mvar27
  2289.       STORE route TO mvar28
  2290.       STORE s_max_idle TO mvar29
  2291.       STORE s_max_conn TO mvar30
  2292.       STORE max_logins TO mvar31
  2293.       STORE ftp_dir TO mvar32
  2294.       STORE READ TO mvar33
  2295.       STORE write TO mvar34
  2296.       STORE CREATE TO mvar35
  2297.       STORE DELETE TO mvar36
  2298.       STORE mkdir TO mvar37
  2299.       STORE rmdir TO mvar38
  2300.       STORE noredir TO mvar39
  2301.       STORE anydir TO mvar40
  2302.       STORE anydrive TO mvar41
  2303.       STORE nodrive TO mvar42
  2304.       STORE putany TO mvar43
  2305.       STORE super TO mvar44
  2306.       STORE f_max_idle TO mvar45
  2307.       STORE f_max_conn TO mvar46
  2308.       STORE join_date TO mvar47
  2309.       STORE exp_date TO mvar48
  2310.       STORE renewal TO mvar49
  2311.       STORE days TO mvar50
  2312.       STORE renew_lev TO mvar51
  2313.       STORE renew_amt TO mvar52
  2314.       STORE total_fees TO mvar53
  2315.       STORE card_num TO mvar54
  2316.       STORE card_date TO mvar55
  2317.       STORE card_name TO mvar56
  2318.       STORE c_slogins TO mvar57
  2319.       STORE c_stime TO mvar58
  2320.       STORE c_flogins TO mvar59
  2321.       STORE c_ftime TO mvar60
  2322.       STORE c_smsg TO mvar61
  2323.       STORE c_rmsg TO mvar62
  2324.       STORE p_slogins TO mvar63
  2325.       STORE p_stime TO mvar64
  2326.       STORE p_flogins TO mvar65
  2327.       STORE p_ftime TO mvar66
  2328.       STORE p_smsg TO mvar67
  2329.       STORE p_rmsg TO mvar68
  2330.       STORE hourly TO mvar69
  2331.       STORE daily TO mvar70
  2332.       STORE base_rate TO mvar71
  2333.       STORE base_min TO mvar72
  2334.       STORE ovr_t_mins TO mvar73
  2335.       STORE s_rate TO mvar74
  2336.       STORE f_rate TO mvar75
  2337.       STORE bill_date TO mvar76
  2338.       STORE bill_amt TO mvar77
  2339.       STORE lt_bill_dt TO mvar78
  2340.       STORE lt_bill_am TO mvar79
  2341.       STORE UPDATE TO mvar80
  2342.       STORE logical1 TO mvar81
  2343.       STORE notes TO mvar82
  2344.       STORE host_name TO mvar83
  2345.       STORE work_phone TO mvar84
  2346.       SELECT 2
  2347.       APPEND BLANK
  2348.       @ 6,10 SAY "Record out: " + Str(Recno(),7)
  2349.       REPLACE s_login WITH mvar1,;
  2350.          s_password WITH mvar2,;
  2351.          f_login WITH mvar3
  2352.       REPLACE f_password WITH mvar4,;
  2353.          p_login WITH mvar5,;
  2354.          p_password WITH mvar6
  2355.       REPLACE pop_dir WITH mvar7,;
  2356.          pop_domain WITH mvar8,;
  2357.          keep WITH mvar9
  2358.       REPLACE hold WITH mvar10,;
  2359.          login_name WITH mvar11
  2360.       REPLACE name WITH mvar12,;
  2361.          address1 WITH mvar13,;
  2362.          address2 WITH mvar14
  2363.       REPLACE city WITH mvar15,;
  2364.          State WITH mvar16,;
  2365.          zip WITH mvar17
  2366.       REPLACE phone WITH mvar18,;
  2367.          birthdate WITH mvar19,;
  2368.          ppp_slip WITH mvar20
  2369.       REPLACE ftp WITH mvar21,;
  2370.          free_slip WITH mvar22,;
  2371.          free_ftp WITH mvar23
  2372.       REPLACE free_pop WITH mvar24,;
  2373.          auto_renew WITH mvar25,;
  2374.          popmail WITH mvar26
  2375.       REPLACE FILTER WITH mvar27,;
  2376.          route WITH mvar28,;
  2377.          s_max_idle WITH mvar29
  2378.       REPLACE s_max_conn WITH mvar30,;
  2379.          max_logins WITH mvar31,;
  2380.          ftp_dir WITH mvar32
  2381.       REPLACE READ WITH mvar33,;
  2382.          write WITH mvar34,;
  2383.          CREATE WITH mvar35
  2384.       REPLACE DELETE WITH mvar36,;
  2385.          mkdir WITH mvar37,;
  2386.          rmdir WITH mvar38
  2387.       REPLACE noredir WITH mvar39,;
  2388.          anydir WITH mvar40,;
  2389.          anydrive WITH mvar41
  2390.       REPLACE nodrive WITH mvar42,;
  2391.          putany WITH mvar43,;
  2392.          super WITH mvar44
  2393.       REPLACE f_max_idle WITH mvar45,;
  2394.          f_max_conn WITH mvar46,;
  2395.          join_date WITH mvar47
  2396.       REPLACE exp_date WITH mvar48,;
  2397.          renewal WITH mvar49,;
  2398.          days WITH mvar50
  2399.       REPLACE renew_lev WITH mvar51,;
  2400.          renew_amt WITH mvar52,;
  2401.          total_fees WITH mvar53
  2402.       REPLACE card_num WITH mvar54,;
  2403.          card_date WITH mvar55,;
  2404.          card_name WITH mvar56
  2405.       REPLACE c_slogins WITH mvar57,;
  2406.          c_stime WITH mvar58,;
  2407.          c_flogins WITH mvar59
  2408.       REPLACE c_ftime WITH mvar60,;
  2409.          c_smsg WITH mvar61,;
  2410.          c_rmsg WITH mvar62
  2411.       REPLACE p_slogins WITH mvar63,;
  2412.          p_stime WITH mvar64,;
  2413.          p_flogins WITH mvar65
  2414.       REPLACE p_ftime WITH mvar66,;
  2415.          p_smsg WITH mvar67,;
  2416.          p_rmsg WITH mvar68
  2417.       REPLACE hourly WITH mvar69,;
  2418.          daily WITH mvar70,;
  2419.          base_rate WITH mvar71
  2420.       REPLACE base_min WITH mvar72,;
  2421.          ovr_t_mins WITH mvar73,;
  2422.          s_rate WITH mvar74
  2423.       REPLACE f_rate WITH mvar75,;
  2424.          bill_date WITH mvar76,;
  2425.          bill_amt WITH mvar77
  2426.       REPLACE lt_bill_dt WITH mvar78,;
  2427.          lt_bill_am WITH mvar79,;
  2428.          UPDATE WITH mvar80
  2429.       REPLACE logical1 WITH mvar81,;
  2430.          NOTES With Mvar82,;
  2431.          host_name WITH mvar83
  2432.       REPLACE work_phone WITH mvar84
  2433.       SELECT 1
  2434.       SKIP
  2435.       LOOP
  2436.    ENDDO
  2437. ENDIF
  2438. USE
  2439. SET EXCLUSIVE OFF
  2440. IF .NOT. FILE("Payments.dbf")
  2441.    ? "Please Standby --- Creating Payments Database"
  2442.    SET EXCLUSIVE ON
  2443.    CREATE TEMP
  2444.    USE TEMP
  2445.    APPEND BLANK
  2446.    REPLACE field_name WITH "DATE",;
  2447.       field_type WITH "D",;
  2448.       field_len WITH 8,;
  2449.       field_dec WITH 0
  2450.    APPEND BLANK
  2451.    REPLACE field_name WITH "NAME",;
  2452.       field_type WITH "C",;
  2453.       field_len WITH 30,;
  2454.       field_dec WITH 0
  2455.    APPEND BLANK
  2456.    REPLACE field_name WITH "SLOGIN",;
  2457.       field_type WITH "C",;
  2458.       field_len WITH 25,;
  2459.       field_dec WITH 0
  2460.    APPEND BLANK
  2461.    REPLACE field_name WITH "PLOGIN",;
  2462.       field_type WITH "C",;
  2463.       field_len WITH 25,;
  2464.       field_dec WITH 0
  2465.    APPEND BLANK
  2466.    REPLACE field_name WITH "FLOGIN",;
  2467.       field_type WITH "C",;
  2468.       field_len WITH 25,;
  2469.       field_dec WITH 0
  2470.    APPEND BLANK
  2471.    REPLACE field_name WITH "AMOUNT",;
  2472.       field_type WITH "N",;
  2473.       field_len WITH 10,;
  2474.       field_dec WITH 2
  2475.    APPEND BLANK
  2476.    REPLACE field_name WITH "CARD_NUM",;
  2477.       field_type WITH "C",;
  2478.       field_len WITH 20,;
  2479.       field_dec WITH 0
  2480.    APPEND BLANK
  2481.    REPLACE field_name WITH "CARD_DATE",;
  2482.       field_type WITH "C",;
  2483.       field_len WITH 5,;
  2484.       field_dec WITH 0
  2485.    APPEND BLANK
  2486.    REPLACE field_name WITH "CARD_NAME",;
  2487.       field_type WITH "C",;
  2488.       field_len WITH 30,;
  2489.       field_dec WITH 0
  2490.    APPEND BLANK
  2491.    REPLACE field_name WITH "AUTO_RENEW",;
  2492.       field_type WITH "L",;
  2493.       field_len WITH 1,;
  2494.       field_dec WITH 0
  2495.    APPEND BLANK
  2496.    REPLACE field_name WITH "CARD",;
  2497.       field_type WITH "L",;
  2498.       field_len WITH 1,;
  2499.       field_dec WITH 0
  2500.    APPEND BLANK
  2501.    REPLACE field_name WITH "CASH",;
  2502.       field_type WITH "L",;
  2503.       field_len WITH 1,;
  2504.       field_dec WITH 0
  2505.    APPEND BLANK
  2506.    REPLACE field_name WITH "VOID",;
  2507.       field_type WITH "L",;
  2508.       field_len WITH 1,;
  2509.       field_dec WITH 0
  2510.    DELETE
  2511.    USE
  2512.    CREATE payments FROM TEMP
  2513.    USE payments
  2514.    INDEX ON Lower(name) TO payments.nx1
  2515.    INDEX ON Lower(slogin) TO payments.nx2
  2516.    INDEX ON Lower(plogin) TO payments.nx3
  2517.    INDEX ON Lower(flogin) TO payments.nx4
  2518.    INDEX ON Date TO payments.nx5
  2519.    USE
  2520. ENDIF
  2521. SET EXCLUSIVE OFF
  2522. IF .NOT. FILE("Payments.nx1")
  2523.    ? "Please Standby --- Rebuilding Payments.nx1"
  2524.    SET EXCLUSIVE ON
  2525.    USE payments
  2526.    INDEX ON Lower(name) TO payments.nx1
  2527.    SET INDEX TO
  2528.    USE payments INDEX payments.nx1
  2529.    USE
  2530. ENDIF
  2531. SET EXCLUSIVE OFF
  2532. IF .NOT. FILE("Payments.nx2")
  2533.    ? "Please Standby --- Rebuilding Payments.nx2"
  2534.    SET EXCLUSIVE ON
  2535.    USE payments
  2536.    INDEX ON Lower(slogin) TO payments.nx2
  2537.    SET INDEX TO
  2538.    USE payments INDEX payments.nx2
  2539.    USE
  2540. ENDIF
  2541. SET EXCLUSIVE OFF
  2542. IF .NOT. FILE("Payments.nx3")
  2543.    ? "Please Standby --- Rebuilding Payments.nx3"
  2544.    SET EXCLUSIVE ON
  2545.    USE payments
  2546.    INDEX ON Lower(plogin) TO payments.nx3
  2547.    SET INDEX TO
  2548.    USE payments INDEX payments.nx3
  2549.    USE
  2550. ENDIF
  2551. SET EXCLUSIVE OFF
  2552. IF .NOT. FILE("Payments.nx4")
  2553.    ? "Please Standby --- Rebuilding Payments.nx4"
  2554.    SET EXCLUSIVE ON
  2555.    USE payments
  2556.    INDEX ON Lower(flogin) TO payments.nx4
  2557.    SET INDEX TO
  2558.    USE payments INDEX payments.nx4
  2559.    USE
  2560. ENDIF
  2561. SET EXCLUSIVE OFF
  2562. IF .NOT. FILE("Payments.nx5")
  2563.    ? "Please Standby --- Rebuilding Payments.nx5"
  2564.    SET EXCLUSIVE ON
  2565.    USE payments
  2566.    INDEX ON Date TO payments.nx5
  2567.    SET INDEX TO
  2568.    USE payments INDEX payments.nx5
  2569.    USE
  2570. ENDIF
  2571. USE
  2572. SET EXCLUSIVE OFF
  2573. IF .NOT. FILE("Trashcan.dbf")
  2574.    STORE .T. TO newfile
  2575.    ? "Please Standby --- Creating Trashcan Database"
  2576.    SET EXCLUSIVE ON
  2577.    CREATE TEMP
  2578.    USE TEMP
  2579.    APPEND BLANK
  2580.    REPLACE field_name WITH "PHRASE",;
  2581.       field_type WITH "C",;
  2582.       field_len WITH 20,;
  2583.       field_dec WITH 0
  2584.    APPEND BLANK
  2585.    REPLACE field_name WITH "CARD",;
  2586.       field_type WITH "C",;
  2587.       field_len WITH 20,;
  2588.       field_dec WITH 0
  2589.    DELETE
  2590.    USE
  2591.    CREATE trashcan FROM TEMP
  2592.    USE trashcan
  2593.    INDEX ON Upper(phrase) TO trashcan.nx1
  2594.    INDEX ON card TO trashcan.nx2
  2595.    SET INDEX TO
  2596.    USE trashcan INDEX trashcan.nx1, trashcan.nx2
  2597.    APPEND BLANK
  2598.    REPLACE card WITH "5454545454545454"
  2599.    APPEND BLANK
  2600.    REPLACE card WITH "4321123443211234"
  2601.    APPEND BLANK
  2602.    REPLACE card WITH "4242424242424242"
  2603.    USE
  2604. ENDIF
  2605. SET EXCLUSIVE OFF
  2606. IF .NOT. FILE("Trashcan.nx1")
  2607.    ? "Please Standby --- Rebuilding Trashcan.nx1"
  2608.    SET EXCLUSIVE ON
  2609.    USE trashcan
  2610.    INDEX ON Upper(phrase) TO trashcan.nx1
  2611.    SET INDEX TO
  2612.    USE trashcan INDEX trashcan.nx1
  2613.    USE
  2614. ENDIF
  2615. IF .NOT. FILE("Trashcan.nx2")
  2616.    ? "Please Standby --- Rebuilding Trashcan.nx2"
  2617.    SET EXCLUSIVE ON
  2618.    USE trashcan
  2619.    INDEX ON card TO trashcan.nx2
  2620.    SET INDEX TO
  2621.    USE trashcan INDEX trashcan.nx2
  2622.    USE
  2623. ENDIF
  2624. USE
  2625. SET EXCLUSIVE OFF
  2626. IF .NOT. FILE("Stats.dbf")
  2627.    STORE .T. TO newfile
  2628.    ? "Please Standby --- Creating Statistics Database"
  2629.    SET EXCLUSIVE ON
  2630.    CREATE TEMP
  2631.    USE TEMP
  2632.    APPEND BLANK
  2633.    REPLACE field_name WITH "DAY",;
  2634.       field_type WITH "C",;
  2635.       field_len WITH 8,;
  2636.       field_dec WITH 0
  2637.    APPEND BLANK
  2638.    REPLACE field_name WITH "INC_TELNET",;
  2639.       field_type WITH "N",;
  2640.       field_len WITH 10,;
  2641.       field_dec WITH 0
  2642.    APPEND BLANK
  2643.    REPLACE field_name WITH "OUT_TELNET",;
  2644.       field_type WITH "N",;
  2645.       field_len WITH 10,;
  2646.       field_dec WITH 0
  2647.    APPEND BLANK
  2648.    REPLACE field_name WITH "IN_MAIL",;
  2649.       field_type WITH "N",;
  2650.       field_len WITH 10,;
  2651.       field_dec WITH 0
  2652.    APPEND BLANK
  2653.    REPLACE field_name WITH "OUT_MAIL",;
  2654.       field_type WITH "N",;
  2655.       field_len WITH 10,;
  2656.       field_dec WITH 0
  2657.    APPEND BLANK
  2658.    REPLACE field_name WITH "IN_FTP",;
  2659.       field_type WITH "N",;
  2660.       field_len WITH 10,;
  2661.       field_dec WITH 0
  2662.    APPEND BLANK
  2663.    REPLACE field_name WITH "ANY_FTP",;
  2664.       field_type WITH "N",;
  2665.       field_len WITH 10,;
  2666.       field_dec WITH 0
  2667.    APPEND BLANK
  2668.    REPLACE field_name WITH "IN_PPP",;
  2669.       field_type WITH "N",;
  2670.       field_len WITH 10,;
  2671.       field_dec WITH 0
  2672.    APPEND BLANK
  2673.    REPLACE field_name WITH "OUT_SLIP",;
  2674.       field_type WITH "N",;
  2675.       field_len WITH 10,;
  2676.       field_dec WITH 0
  2677.    APPEND BLANK
  2678.    REPLACE field_name WITH "OUT_PPP",;
  2679.       field_type WITH "N",;
  2680.       field_len WITH 10,;
  2681.       field_dec WITH 0
  2682.    APPEND BLANK
  2683.    REPLACE field_name WITH "IN_WWW",;
  2684.       field_type WITH "N",;
  2685.       field_len WITH 10,;
  2686.       field_dec WITH 0
  2687.    DELETE
  2688.    USE
  2689.    CREATE stats FROM TEMP
  2690.    USE stats
  2691.    INDEX ON Day TO stats.nx1
  2692.    SET INDEX TO
  2693.    USE stats INDEX stats.nx1
  2694.    USE
  2695. ENDIF
  2696. SET EXCLUSIVE OFF
  2697. IF .NOT. FILE("Stats.nx1")
  2698.    ? "Please Standby --- Rebuilding Stats.nx1"
  2699.    SET EXCLUSIVE ON
  2700.    USE stats
  2701.    INDEX ON Day TO stats.nx1
  2702.    SET INDEX TO
  2703.    USE stats INDEX stats.nx1
  2704.    USE
  2705. ENDIF
  2706. SET EXCLUSIVE OFF
  2707. ERASE temp.dbf
  2708. RETURN
  2709.  
  2710. *: EOF: FILECHK.PRG
  2711.