home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CREDIT17.ZIP / CREDIT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-08  |  13KB  |  586 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE002
  20.     Integer  INTEGER002
  21.     Integer  TINTEGER003(10)
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Money    MONEY001
  32.     Money    MONEY002
  33.     Money    TMONEY003(10)
  34.     Money    MONEY004
  35.     String   STRING001
  36.     String   STRING002
  37.     String   STRING003
  38.     String   STRING004
  39.     String   TSTRING005(10)
  40.     String   STRING006
  41.     String   STRING007
  42.     String   STRING008
  43.     String   STRING009
  44.     String   STRING010
  45.     String   STRING011
  46.     String   STRING012
  47.     String   STRING013
  48.     String   STRING014
  49.     String   STRING015
  50.     String   STRING016
  51.     String   STRING017
  52.     String   STRING018
  53.     String   STRING019
  54.     String   STRING020
  55.     String   STRING021
  56.     String   STRING022
  57.     String   STRING023
  58.     String   STRING024
  59.     String   STRING025
  60.     String   STRING026
  61.     String   STRING027
  62.     String   STRING028
  63.     String   STRING029
  64.     String   STRING030
  65.     String   TSTRING031(10)
  66.     String   TSTRING032(10)
  67.     String   TSTRING033(10)
  68.     String   STRING034
  69.     String   STRING035
  70.     String   STRING036
  71.     String   STRING037
  72.     String   STRING038
  73.     String   TSTRING039(26)
  74.     String   STRING040
  75.     String   STRING041
  76.  
  77. ;------------------------------------------------------------------------------
  78.  
  79.     GetUser
  80.     FOpen 1, PPEPath() + "credit.cnf", 2, 3
  81.     FGet 1, STRING028
  82.     FGet 1, STRING019
  83.     FGet 1, STRING025
  84.     FGet 1, STRING026
  85.     FGet 1, STRING029
  86.     FGet 1, STRING030
  87.     FGet 1, STRING041
  88.     FGet 1, INTEGER010
  89.     FGet 1, INTEGER012
  90.     FGet 1, STRING040
  91.     FGet 1, INTEGER009
  92.     FGet 1, INTEGER011
  93.     FGet 1, STRING018
  94.     FGet 1, STRING010
  95.     FGet 1, STRING009
  96.     FGet 1, STRING034
  97.     :LABEL001
  98.     STRING002 = STRING002 + 1
  99.     FGet 1, TSTRING031(STRING002)
  100.     FGet 1, TSTRING032(STRING002)
  101.     FGet 1, TSTRING033(STRING002)
  102.     FGet 1, TINTEGER003(STRING002)
  103.     FGet 1, TMONEY003(STRING002)
  104.     If (TSTRING031(STRING002) == "***") Then
  105.         FClose 1
  106.         Goto LABEL002
  107.     Else
  108.         Goto LABEL001
  109.     Endif
  110.     FClose 1
  111.     :LABEL002
  112.     If (Exist(STRING025)) DispFile STRING025, 2 + 1 + 4
  113.     PrintLn Chr(13)
  114.     :LABEL003
  115.     FOpen 1, PPEPath() + "credit.txt", 0, 3
  116.     For INTEGER004 = 1 To 26
  117.         FGet 1, TSTRING039(INTEGER004)
  118.     Next
  119.     FClose 1
  120.     DispFile STRING026, 2 + 1 + 4
  121.     InputStr TSTRING039(1), STRING020, 14, 1, Mask_Ascii(), 256
  122.     For STRING003 = 1 To STRING002
  123.         If (Upper(STRING020) == TSTRING031(STRING003)) Goto LABEL005
  124.         If (Upper(STRING020) == "E") Goto LABEL020
  125.         If (STRING020 == "") Goto LABEL003
  126.     Next
  127.     Goto LABEL003
  128.     :LABEL004
  129.     If (Mid(TSTRING039(2), 1, 1) == "%") Then
  130.         DispStr TSTRING039(2)
  131.     Else
  132.         PrintLn TSTRING039(2)
  133.     Endif
  134.     For STRING007 = 1 To Len(U_Name())
  135.         STRING008 = Mid(U_Name(), STRING007, 1)
  136.         If (STRING008 == " ") STRING008 = "_"
  137.         STRING017 = STRING017 + STRING008
  138.     Next
  139.     STRING017 = Mid(STRING017, 1, 8) + ".INV"
  140.     FOpen 1, PPEPath() + "invoice", 2, 3
  141.     FGet 1, INTEGER002
  142.     FClose 1
  143.     FOpen 1, PPEPath() + "invoice", 2, 3
  144.     FGet 1, STRING023
  145.     FClose 1
  146.     FOpen 1, PPEPath() + "invoice", 2, 3
  147.     FPut 1, INTEGER002 + 1
  148.     FClose 1
  149.     STRING038 = INTEGER002
  150.     FOpen 1, STRING029 + STRING038, 2, 3
  151.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  152.     FPutLn 1, ""
  153.     FPutLn 1, "Invoice #: ", STRING023, "      Date: ", Date()
  154.     FPutLn 1, ""
  155.     FPutLn 1, "Bill to:                            Ordered for:"
  156.     FPutLn 1, ""
  157.     FPutLn 1, STRING012 + Space(36 - Len(STRING012)) + STRING016
  158.     FPutLn 1, STRING013 + Space(36 - Len(STRING013)) + ""
  159.     FPutLn 1, STRING014
  160.     FPutLn 1, ""
  161.     FPutLn 1, "                  Credit Card: " + CCType(STRING001)
  162.     FPutLn 1, "           Credit Card Number: " + FmtCC(STRING001)
  163.     FPutLn 1, "              Expiration Date: ", STRING027
  164.     FPutLn 1, "           Voice Phone Number: " + STRING015
  165.     FPutLn 1, ""
  166.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  167.     FPutLn 1, ""
  168.     FPutLn 1, " Membership Subscription at Security Level ", TSTRING033(STRING003), Space(63 - Len(STRING024)) + "  ", TMONEY003(STRING003)
  169.     FPutLn 1, "      Membership for: ", STRING016
  170.     FPutLn 1, " New Expiration Date: ", DATE002
  171.     FPutLn 1, ""
  172.     FPutLn 1, Space(63 - Len(STRING041)) + STRING041 + "  ", MONEY004
  173.     FPutLn 1, Space(63 - Len(STRING040)) + STRING040 + "  ", MONEY002
  174.     FPutLn 1, "                                                              ========="
  175.     FPutLn 1, " Complete Charge to Your Credit Card                          :  ", MONEY001
  176.     FPutLn 1, ""
  177.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  178.     FPutLn 1, ""
  179.     FPutLn 1, "        A Charge in the amount of  ", MONEY001, " will show on your next"
  180.     FPutLn 1, "                      " + CCType(STRING001) + " credit statement."
  181.     FPutLn 1, ""
  182.     FPutLn 1, "              Thanks for Purchasing a Membership with Us!"
  183.     FPutLn 1, Space(34 - (Len(STRING028) + Len(STRING019)) / 2), STRING028 + " SysOp, " + STRING019
  184.     FPutLn 1, "═══════════════════════════════════════════════════════════════════════"
  185.     FClose 1
  186.     FOpen 1, STRING030 + STRING017, 2, 3
  187.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  188.     FPutLn 1, ""
  189.     FPutLn 1, "Invoice #: ", STRING023, "      Date: ", Date()
  190.     FPutLn 1, ""
  191.     FPutLn 1, "Bill to:                            Ordered for:"
  192.     FPutLn 1, ""
  193.     FPutLn 1, STRING012 + Space(36 - Len(STRING012)) + STRING016
  194.     FPutLn 1, STRING013 + Space(36 - Len(STRING013)) + ""
  195.     FPutLn 1, STRING014
  196.     FPutLn 1, ""
  197.     FPutLn 1, "                  Credit Card: " + CCType(STRING001)
  198.     FPutLn 1, "           Credit Card Number: XXXXXXXXXXXXXXXX"
  199.     FPutLn 1, "              Expiration Date: ", STRING027
  200.     FPutLn 1, "           Voice Phone Number: " + STRING015
  201.     FPutLn 1, ""
  202.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  203.     FPutLn 1, ""
  204.     FPutLn 1, " Membership Subscription at Security Level ", TSTRING033(STRING003), Space(63 - Len(STRING024)) + "  ", TMONEY003(STRING003)
  205.     FPutLn 1, "      Membership for: ", STRING016
  206.     FPutLn 1, " New Expiration Date: ", DATE002
  207.     FPutLn 1, ""
  208.     FPutLn 1, Space(63 - Len(STRING041)) + STRING041 + "  ", MONEY004
  209.     FPutLn 1, Space(63 - Len(STRING040)) + STRING040 + "  ", MONEY002
  210.     FPutLn 1, "                                                              ========="
  211.     FPutLn 1, " Complete Charge to Your Credit Card                          :  ", MONEY001
  212.     FPutLn 1, ""
  213.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  214.     FPutLn 1, ""
  215.     FPutLn 1, "        A Charge in the amount of  ", MONEY001, " will show on your next"
  216.     FPutLn 1, "                      " + CCType(STRING001) + " credit statement."
  217.     FPutLn 1, ""
  218.     FPutLn 1, "              Thanks for Purchasing a Membership with Us!"
  219.     FPutLn 1, Space(34 - (Len(STRING028) + Len(STRING019)) / 2), STRING028 + " SysOp, " + STRING019
  220.     FPutLn 1, "═══════════════════════════════════════════════════════════════════════"
  221.     FClose 1
  222.     If (Mid(TSTRING039(3), 1, 1) == "%") Then
  223.         DispStr TSTRING039(3)
  224.     Else
  225.         PrintLn TSTRING039(3)
  226.     Endif
  227.     Goto LABEL017
  228.     Goto LABEL020
  229.     :LABEL005
  230.     STRING022 = ""
  231.     DispFile TSTRING032(STRING003), 2 + 1 + 4
  232.     InputText TSTRING039(4), STRING022, 13, 1
  233.     If (Upper(STRING022) == "N") Then
  234.         Goto LABEL003
  235.     Else
  236.         Goto LABEL006
  237.     Endif
  238.     :LABEL006
  239.     Cls
  240.     If (Mid(TSTRING039(5), 1, 1) == "%") Then
  241.         DispStr TSTRING039(5)
  242.     Else
  243.         PrintLn TSTRING039(5)
  244.     Endif
  245.     PrintLn " "
  246.     PrintLn "@X0A[@X0C#@X0A] min. [@X0C#@X0A] max. Refers to the MINIMUM and MAXIMUM length of you answer"
  247.     STRING012 = ""
  248.     PrintLn " "
  249.     PrintLn "Press ENTER alone on the FIRST question only to abort your entry."
  250.     InputStr TSTRING039(6), STRING012, 10, 25, Mask_Ascii(), 256
  251.     STRING012 = Upper(STRING012)
  252.     If (STRING012 == "") Goto LABEL003
  253.     :LABEL007
  254.     Cls
  255.     PrintLn "@X0A[@X0C5@X0A] min. [@X0C40@X0A] max."
  256.     PrintLn " "
  257.     InputStr TSTRING039(7), STRING013, 11, 40, Mask_Ascii(), 256
  258.     If (Len(STRING013) < 5) Then
  259.         PrintLn "@BEEP@ You Must Answer This Question"
  260.         Goto LABEL007
  261.     Endif
  262.     STRING013 = Upper(STRING013)
  263.     :LABEL008
  264.     Cls
  265.     PrintLn "@X0A[@X0C5@X0A] min. [@X0C40@X0A] max."
  266.     PrintLn " "
  267.     InputStr TSTRING039(8), STRING014, 12, 40, Mask_Ascii(), 256
  268.     If (Len(STRING014) < 3) Then
  269.         PrintLn "@BEEP@ You Must Answer This Question"
  270.         Goto LABEL008
  271.     Endif
  272.     STRING014 = Upper(STRING014)
  273.     :LABEL009
  274.     Cls
  275.     PrintLn "@X0A[@X0C7@X0A] min. [@X0C30@X0A] max."
  276.     PrintLn " "
  277.     InputStr TSTRING039(16), STRING015, 12, 35, "1234567890()-+extension.EXTENSION# ", 256
  278.     If (Len(STRING015) < 7) Then
  279.         PrintLn "@BEEP@ You Must Answer This Question"
  280.         Goto LABEL009
  281.     Endif
  282.     If (Upper(STRING018) == "ALL") Goto LABEL010
  283.     If (Upper(STRING009) == "N") Goto LABEL010
  284.     TSTRING005(7) = "Is " + STRING018 + " State sales tax aplicable in your area (Y/n)"
  285.     STRING011 = ""
  286.     InputStr TSTRING005(7), STRING011, 10, 1, "YNyn", 256
  287.     If (Upper(STRING011) == "N") INTEGER009 = "0"
  288.     :LABEL010
  289.     PrintLn " "
  290.     STRING021 = ""
  291.     Cls
  292.     PrintLn " "
  293.     PrintLn Space(41 - Len("Credit Card Information") / 2) + "@X0ECredit Card Information"
  294.     PrintLn " "
  295.     PrintLn Space(41 - Len(STRING012) / 2) + "@X0A", STRING012
  296.     PrintLn Space(41 - Len(STRING013) / 2) + "@X0B", STRING013
  297.     PrintLn Space(41 - Len(STRING014) / 2) + "@X0C", STRING014
  298.     PrintLn Space(41 - Len(STRING015) / 2) + "@X0D", STRING015
  299.     PrintLn " "
  300.     InputStr TSTRING039(10), STRING021, 10, 1, "YnyN", 32 + 256
  301.     If (Upper(STRING021) == "Y") Goto LABEL011
  302.     Goto LABEL006
  303.     :LABEL011
  304.     STRING001 = ""
  305.     STRING027 = ""
  306.     PrintLn " "
  307.     InputStr TSTRING039(11), STRING001, 13, 16, Mask_Num(), 256
  308.     InputStr TSTRING039(12), STRING027, 14, 5, Mask_Num() + "/", 256
  309.     If (STRING001 == "") Goto LABEL003
  310.     Goto LABEL013
  311.     :LABEL012
  312.     Cls
  313.     Color 15
  314.     STRING016 = U_Name()
  315.     Goto LABEL015
  316.     :LABEL013
  317.     STRING004 = STRING004 + 1
  318.     INTEGER005 = Left(STRING027, 2)
  319.     INTEGER006 = Right(STRING027, 2)
  320.     INTEGER007 = Month(Date())
  321.     INTEGER008 = Year(Date())
  322.     If (INTEGER006 > 80) Then
  323.         INTEGER006 = INTEGER006 + 1900
  324.     Else
  325.         INTEGER006 = INTEGER006 + 2000
  326.     Endif
  327.     If ((INTEGER005 > 12) || (INTEGER005 < 1)) Goto LABEL016
  328.     If ((INTEGER005 < INTEGER007) && (INTEGER006 >= INTEGER008)) Goto LABEL014
  329.     If (INTEGER006 < INTEGER008) Goto LABEL016
  330.     If ((INTEGER006 < INTEGER008) && (INTEGER005 >= INTEGER007)) Goto LABEL016
  331.     If (INTEGER006 > INTEGER008) Goto LABEL014
  332.     If ((INTEGER006 == INTEGER008) && (INTEGER005 >= INTEGER007)) Goto LABEL014
  333.     PrintLn 
  334.     :LABEL014
  335.     If (CCType(STRING001) == "UNKNOWN") Then
  336.         If (Mid(TSTRING039(17), 1, 1) == "%") Then
  337.             DispStr TSTRING039(17)
  338.         Else
  339.             PrintLn TSTRING039(17)
  340.         Endif
  341.         Goto LABEL011
  342.     Else
  343.         PrintLn "That is a valid " + CCType(STRING001) + " Number"
  344.         Goto LABEL012
  345.         DATE002 = Date() + TINTEGER003(STRING003)
  346.     Endif
  347.     :LABEL015
  348.     PrintLn "@X0A════════════════════════════════════════════════════════════════════════"
  349.     PrintLn ""
  350.     PrintLn "Invoice #: ", STRING023, "      Date: ", Date()
  351.     PrintLn ""
  352.     PrintLn "Bill to:                            Ordered for:"
  353.     PrintLn ""
  354.     PrintLn STRING012 + Space(36 - Len(STRING012)) + STRING016
  355.     PrintLn STRING013 + Space(36 - Len(STRING013)) + ""
  356.     PrintLn STRING014
  357.     PrintLn ""
  358.     PrintLn "                  Credit Card: " + CCType(STRING001)
  359.     PrintLn "           Credit Card Number: " + FmtCC(STRING001)
  360.     DATE002 = Date() + TINTEGER003(STRING003)
  361.     PrintLn "              Expiration Date: ", STRING027
  362.     PrintLn "           Voice Phone Number: " + STRING015
  363.     PrintLn ""
  364.     PrintLn "════════════════════════════════════════════════════════════════════════"
  365.     PrintLn ""
  366.     STRING024 = " Membership Subscription at Security Level " + TSTRING033(STRING003)
  367.     PrintLn " Membership Subscription at Security Level ", TSTRING033(STRING003), Space(63 - Len(STRING024)) + "  ", TMONEY003(STRING003)
  368.     PrintLn "      Membership for: ", STRING016
  369.     PrintLn " New Expiration Date: ", DATE002
  370.     PrintLn ""
  371.     MONEY004 = (INTEGER010 * TMONEY003(STRING003)) / INTEGER012
  372.     PrintLn Space(63 - Len(STRING041)) + STRING041 + "  ", MONEY004
  373.     MONEY002 = (TMONEY003(STRING003) * INTEGER009) / INTEGER011
  374.     MONEY001 = MONEY004 + MONEY002 + TMONEY003(STRING003)
  375.     PrintLn Space(63 - Len(STRING040)) + STRING040 + "  ", MONEY002
  376.     PrintLn "                                                              ========="
  377.     PrintLn " Complete Charge to Your Credit Card                          : @X0C ", MONEY001
  378.     PrintLn ""
  379.     PrintLn "@X0A════════════════════════════════════════════════════════════════════════"
  380.     PrintLn ""
  381.     PrintLn "          A Charge in the amount of ", MONEY001, " will show on your next"
  382.     PrintLn "                      " + CCType(STRING001) + " credit statement."
  383.     PrintLn ""
  384.     PrintLn "              Thanks for Purchasing a Membership with Us!"
  385.     PrintLn Space(34 - (Len(STRING028) + Len(STRING019)) / 2), STRING028 + " SysOp, " + STRING019
  386.     PrintLn "═══════════════════════════════════════════════════════════════════════"
  387.     STRING022 = ""
  388.     InputStr TSTRING039(19), STRING022, 15, 1, "YNyn", 256
  389.     If (Upper(STRING022) == "N") Then
  390.         Goto LABEL006
  391.     Else
  392.         Goto LABEL004
  393.     Endif
  394.     Goto LABEL020
  395.     :LABEL016
  396.     If (Mid(TSTRING039(20), 1, 1) == "%") Then
  397.         DispStr TSTRING039(20)
  398.     Else
  399.         PrintLn TSTRING039(20)
  400.     Endif
  401.     PrintLn 
  402.     Goto LABEL011
  403.     :LABEL017
  404.     If (U_Sec == SysopSec()) Goto LABEL018
  405.     If (U_Name() == Upper("RAY CAVA")) Goto LABEL018
  406.     If (Upper(STRING034) == "N") Goto LABEL018
  407.     U_Sec = TSTRING033(STRING003)
  408.     U_ExpDate = DATE002
  409.     :LABEL018
  410.     PutUser
  411.     Log "--------- Credit Card Subscription PPE ----------", 1
  412.     STRING037 = "New expiration date: "
  413.     Log DATE002, 0
  414.     Log STRING037, 0
  415.     Log TSTRING033(STRING003), 0
  416.     STRING036 = "New Level: "
  417.     Log STRING036, 0
  418.     STRING035 = "Amount Charged: "
  419.     Log MONEY001, 0
  420.     Log STRING035, 0
  421.     TSTRING005(9) = "Useing Invoice #: " + STRING023
  422.     Log TSTRING005(9), 0
  423.     TSTRING005(10) = U_Name() + " Has Just Purchased a Membership"
  424.     Log TSTRING005(10), 0
  425.     Log "--------- Credit Card Subscription PPE ----------", 1
  426.     PrintLn Chr(13)
  427.     Cls
  428.     If (Mid(TSTRING039(21), 1, 1) == "%") Then
  429.         DispStr TSTRING039(21)
  430.     Else
  431.         PrintLn TSTRING039(21)
  432.     Endif
  433.     Newlines 7
  434.     If (Upper(STRING034) == "Y") PrintLn TSTRING039(22) + TSTRING033(STRING003)
  435.     If (Upper(STRING034) == "Y") PrintLn TSTRING039(23) , DATE002
  436.     If (Upper(STRING010) == "Y") PrintLn "              You Invoice Name Is: " + STRING017
  437.     If (Upper(STRING034) == "N") Then
  438.         If (Mid(TSTRING039(24), 1, 1) == "%") Then
  439.             DispStr TSTRING039(24)
  440.             Goto LABEL019
  441.         Endif
  442.         PrintLn TSTRING039(24)
  443.     Endif
  444.     :LABEL019
  445.     Newlines 6
  446.     FAppend 1, PPEPath() + "CREDIT.LOG", 2, 3
  447.     FPutLn 1, "════════════════════════════════════════════════════════════════════════"
  448.     FPutLn 1, "Invoice #: ", STRING023, "      Date: ", Date()
  449.     FPutLn 1, "Bill to:"
  450.     FPutLn 1, STRING012
  451.     FPutLn 1, STRING013
  452.     FPutLn 1, STRING014
  453.     FPutLn 1, "Credit Card: " + CCType(STRING001)
  454.     FPutLn 1, "Credit Card Number: " + FmtCC(STRING001)
  455.     FPutLn 1, "Expiration Date: ", STRING027
  456.     FPutLn 1, "Voice Phone Number: " + STRING015
  457.     FPutLn 1, "New Security Level: " + TSTRING033(STRING003)
  458.     FPutLn 1, "Amount Charged", MONEY001
  459.     FPutLn 1, "For User:" + U_Name()
  460.     FClose 1
  461.     FOpen 1, PPEPath() + "REG.TXT", 2, 3
  462.     FPutLn 1, "--------- Credit Card Subscription PPE ----------"
  463.     FPutLn 1, TSTRING005(10)
  464.     FPutLn 1, TSTRING005(9)
  465.     FPutLn 1, STRING035
  466.     FPutLn 1, MONEY001
  467.     FPutLn 1, STRING036
  468.     FPutLn 1, TSTRING033(STRING003)
  469.     FPutLn 1, STRING037
  470.     FPutLn 1, DATE002
  471.     FPutLn 1, "--------- Credit Card Subscription PPE ----------"
  472.     FClose 1
  473.     Message 0, "SYSOP", U_Name(), "Subscription", "R", 0, 0, 0, PPEPath() + "REG.TXT"
  474.     Message 0, U_Name(), "SYSOP", "Subscription", "R", 0, 0, 0, PPEPath() + "THANKS.TXT"
  475.     If (Mid(TSTRING039(25), 1, 1) == "%") Then
  476.         DispStr TSTRING039(25)
  477.     Else
  478.         PrintLn TSTRING039(25)
  479.     Endif
  480.     If (Upper(STRING010) == "Y") Then
  481.         STRING006 = ""
  482.         InputStr TSTRING039(26), STRING006, 12, 1, "YNyn", 256
  483.         PrintLn " "
  484.         If (Upper(STRING006) == "N") Then
  485.             Goto LABEL020
  486.             Goto LABEL020
  487.         Endif
  488.         KbdStuff "D;" + STRING017 + Chr(13)
  489.         End
  490.     Endif
  491.     :LABEL020
  492.     KbdStuff Chr(13)
  493.     End
  494.  
  495. ;------------------------------------------------------------------------------
  496. ;
  497. ; Usage report (before postprocessing)
  498. ;
  499. ; ■ Statements used :
  500. ;
  501. ;    2       End
  502. ;    7       Cls
  503. ;    1       Color 
  504. ;    76      Goto 
  505. ;    46      Let 
  506. ;    74      PrintLn 
  507. ;    45      If 
  508. ;    3       DispFile 
  509. ;    8       FOpen 
  510. ;    1       FAppend 
  511. ;    10      FClose 
  512. ;    24      FGet 
  513. ;    1       FPut 
  514. ;    91      FPutLn 
  515. ;    1       GetUser
  516. ;    1       PutUser
  517. ;    10      Log 
  518. ;    11      InputStr 
  519. ;    2       Newlines 
  520. ;    1       InputText 
  521. ;    2       KbdStuff 
  522. ;    8       DispStr 
  523. ;    2       Message 
  524. ;
  525. ;
  526. ; ■ Functions used :
  527. ;
  528. ;    2       *
  529. ;    10      /
  530. ;    104     +
  531. ;    23      -
  532. ;    32      ==
  533. ;    10      <
  534. ;    3       <=
  535. ;    3       >
  536. ;    9       >=
  537. ;    22      !
  538. ;    9       &&
  539. ;    4       ||
  540. ;    31      Len(
  541. ;    19      Upper()
  542. ;    10      Mid()
  543. ;    1       Left()
  544. ;    1       Right()
  545. ;    23      Space()
  546. ;    4       Chr()
  547. ;    8       Date()
  548. ;    9       U_Name()
  549. ;    1       Year()
  550. ;    1       Month()
  551. ;    2       Mask_Num()
  552. ;    4       Mask_Ascii()
  553. ;    9       PPEPath()
  554. ;    1       SysopSec()
  555. ;    1       Exist()
  556. ;    3       FmtCC()
  557. ;    9       CCType()
  558. ;
  559. ;------------------------------------------------------------------------------
  560. ;
  561. ; Analysis flags : Ws
  562. ;
  563. ; W - Write user ■ 5
  564. ;     Program writes a user record. Although this may be normal for a
  565. ;     User Editor, it may also be a way to modify an account level.
  566. ;     ■ Search for : PUTUSER
  567. ;
  568. ; s - Sysop level access ■ 5
  569. ;     Program is reading the sysop access level, this may be normal
  570. ;     but still it is very suspect. It is the best way to give a user
  571. ;     all priviledges. Check!
  572. ;     ■ Search for : SYSOPSEC()
  573. ;
  574. ;------------------------------------------------------------------------------
  575. ;
  576. ; Postprocessing report
  577. ;
  578. ;    3       For/Next
  579. ;    0       While/EndWhile
  580. ;    19      If/Then or If/Then/Else
  581. ;    0       Select Case
  582. ;
  583. ;------------------------------------------------------------------------------
  584. ;                 AEGiS Corp - Break the routines, code against the machines!
  585. ;------------------------------------------------------------------------------
  586.