home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / USERNEWS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  13KB  |  611 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     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     String   STRING001
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING004
  35.     String   STRING005
  36.     String   STRING006
  37.     String   STRING007
  38.     String   STRING008
  39.     String   STRING009
  40.     String   STRING010
  41.     String   STRING011
  42.     String   STRING012
  43.     String   STRING013
  44.     String   STRING014
  45.     String   STRING015
  46.     String   STRING016
  47.     String   STRING017
  48.     String   STRING018
  49.     String   STRING019
  50.     String   STRING020
  51.     String   STRING021
  52.     String   STRING022
  53.     String   STRING023
  54.     String   STRING024
  55.     String   STRING025
  56.     String   STRING026
  57.     String   STRING027
  58.     String   STRING028
  59.     String   STRING029
  60.  
  61. ;------------------------------------------------------------------------------
  62.  
  63.     GetUser
  64.     STRING014 = U_Name()
  65.     DATE001 = Date()
  66.     STRING013 = "1.0"
  67.     INTEGER007 = 36
  68.     INTEGER004 = 51818
  69.     STRING027 = "@X"
  70.     If (Exist(PPEPath() + "USERNEWS.CNF")) Then
  71.         FOpen 1, PPEPath() + "USERNEWS.CNF", 0, 0
  72.         FGet 1, STRING001
  73.         FGet 1, INTEGER005
  74.         FGet 1, INTEGER003
  75.         FGet 1, STRING016
  76.         FClose 1
  77.     Else
  78.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  79.         End
  80.     Endif
  81.     Tokenize STRING001
  82.     GetToken STRING010
  83.     GetToken STRING011
  84.     If (INTEGER005 == 0) Then
  85.         STRING012 = "N"
  86.         Goto LABEL002
  87.     Else
  88.         Goto LABEL001
  89.     Endif
  90.     Cls
  91.     PrintLn 
  92.     PrintLn 
  93.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  94.     PrintLn "                       @X50│       @X5AUser News!  v", STRING013, "       @X5D│@X0D"
  95.     PrintLn "                       @X50│                              @X5D│@X0D"
  96.     If (STRING012 == "N") Then
  97.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  98.         PrintLn "                       @X50│                              @X5D│@X0D"
  99.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  100.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  101.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  102.         Beep
  103.         Delay 125
  104.     Else
  105.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  106.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  107.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  108.         PrintLn 
  109.         Wait
  110.     Endif
  111.     Bye
  112.     :LABEL001
  113.     STRING007 = Left(STRING010, 1)
  114.     STRING008 = Left(STRING011, 2)
  115.     STRING009 = STRING007 + STRING008
  116.     If (STRING007 == "A") INTEGER006 = 1934
  117.     If (STRING007 == "B") INTEGER006 = 2859
  118.     If (STRING007 == "C") INTEGER006 = 3743
  119.     If (STRING007 == "D") INTEGER006 = 4660
  120.     If (STRING007 == "E") INTEGER006 = 5534
  121.     If (STRING007 == "F") INTEGER006 = 6471
  122.     If (STRING007 == "G") INTEGER006 = 7325
  123.     If (STRING007 == "H") INTEGER006 = 8287
  124.     If (STRING007 == "I") INTEGER006 = 9119
  125.     If (STRING007 == "J") INTEGER006 = 1096
  126.     If (STRING007 == "K") INTEGER006 = 2928
  127.     If (STRING007 == "L") INTEGER006 = 3885
  128.     If (STRING007 == "M") INTEGER006 = 4737
  129.     If (STRING007 == "N") INTEGER006 = 5674
  130.     If (STRING007 == "O") INTEGER006 = 6546
  131.     If (STRING007 == "P") INTEGER006 = 7463
  132.     If (STRING007 == "Q") INTEGER006 = 8355
  133.     If (STRING007 == "R") INTEGER006 = 9242
  134.     If (STRING007 == "S") INTEGER006 = 1164
  135.     If (STRING007 == "T") INTEGER006 = 2031
  136.     If (STRING007 == "U") INTEGER006 = 3973
  137.     If (STRING007 == "V") INTEGER006 = 4820
  138.     If (STRING007 == "W") INTEGER006 = 5782
  139.     If (STRING007 == "X") INTEGER006 = 6619
  140.     If (STRING007 == "Y") INTEGER006 = 7591
  141.     If (STRING007 == "Z") INTEGER006 = 8408
  142.     INTEGER002 = S2I(STRING009, INTEGER007) + INTEGER005 + INTEGER004 + INTEGER006
  143.     If (INTEGER003 == INTEGER002) Then
  144.         If (Len(INTEGER005) == 1) STRING003 = "000"
  145.         If (Len(INTEGER005) == 2) STRING003 = "00"
  146.         If (Len(INTEGER005) == 3) STRING003 = "0"
  147.         If (Len(INTEGER005) == 4) STRING003 = ""
  148.         STRING004 = INTEGER005
  149.         STRING005 = STRING003 + STRING004
  150.         If (Len(STRING001) == 30) STRING002 = ""
  151.         If (Len(STRING001) == 29) STRING002 = ""
  152.         If (Len(STRING001) == 28) STRING002 = " "
  153.         If (Len(STRING001) == 27) STRING002 = " "
  154.         If (Len(STRING001) == 26) STRING002 = "  "
  155.         If (Len(STRING001) == 25) STRING002 = "  "
  156.         If (Len(STRING001) == 24) STRING002 = "   "
  157.         If (Len(STRING001) == 23) STRING002 = "   "
  158.         If (Len(STRING001) == 22) STRING002 = "    "
  159.         If (Len(STRING001) == 21) STRING002 = "    "
  160.         If (Len(STRING001) == 20) STRING002 = "     "
  161.         If (Len(STRING001) == 19) STRING002 = "     "
  162.         If (Len(STRING001) == 18) STRING002 = "      "
  163.         If (Len(STRING001) == 17) STRING002 = "      "
  164.         If (Len(STRING001) == 16) STRING002 = "       "
  165.         If (Len(STRING001) == 15) STRING002 = "       "
  166.         If (Len(STRING001) == 14) STRING002 = "        "
  167.         If (Len(STRING001) == 13) STRING002 = "        "
  168.         If (Len(STRING001) == 12) STRING002 = "         "
  169.         If (Len(STRING001) == 11) STRING002 = "         "
  170.         If (Len(STRING001) == 10) STRING002 = "          "
  171.         If (Len(STRING001) == 9) STRING002 = "          "
  172.         If (Len(STRING001) == 8) STRING002 = "           "
  173.         If (Len(STRING001) == 7) STRING002 = "           "
  174.         If (Len(STRING001) == 6) STRING002 = "            "
  175.         If (Len(STRING001) == 5) STRING002 = "            "
  176.         :LABEL002
  177.         Cls
  178.         PrintLn 
  179.         PrintLn 
  180.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  181.         PrintLn "                       @X50│       @X5AUser News!  v", STRING013, "       @X5D│@X0D"
  182.         PrintLn "                       @X50│                              @X5D│@X0D"
  183.         If (STRING012 == "N") Then
  184.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  185.             PrintLn "                       @X50│                              @X5D│@X0D"
  186.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  187.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  188.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  189.             Beep
  190.             Delay 125
  191.             Goto LABEL003
  192.         Endif
  193.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  194.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  195.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  196.         PrintLn 
  197.         Wait
  198.         :LABEL003
  199.         INTEGER008 = 0
  200.         STRING017 = "@CLS@"
  201.         STRING018 = "==============================================================================="
  202.         STRING020 = "==============================================================================="
  203.         STRING025 = "@MORE@"
  204.         StartDisp 2
  205.         Cls
  206.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  207.         PrintLn " @X5D│                                                                            @X50│@X07"
  208.         PrintLn " @X5D│  @X51User News! - Main Menu                                                    @X50│@X07"
  209.         PrintLn " @X5D│                                                                            @X50│@X07"
  210.         PrintLn " @X5D│         @X51A  @X5FAdd To News       @X51S  @X5FSearch News         @X51G  @X5FGoodbye             @X50│@X07"
  211.         PrintLn " @X5D│                                                                            @X50│@X07"
  212.         PrintLn " @X5D│         @X51V  @X5FView News         @X51D  @X5FDate Search         @X51Q  @X5FQuit To BBS         @X50│@X07"
  213.         PrintLn " @X5D│                                                                            @X50│@X07"
  214.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  215.         STRING006 = ""
  216.         InputStr "Select: ", STRING006, 11, 1, Mask_Ascii(), 2 + 128 + 8
  217.         If (STRING006 == "A") Goto LABEL011
  218.         If (STRING006 == "V") Goto LABEL004
  219.         If (STRING006 == "S") Goto LABEL007
  220.         If (STRING006 == "D") Goto LABEL009
  221.         If (STRING006 == "Q") Goto LABEL014
  222.         If (STRING006 == "G") Goto LABEL016
  223.         If (STRING006 == "") Goto LABEL014
  224.         Goto LABEL003
  225.         :LABEL004
  226.         If (Exist(STRING016)) Then
  227.             FOpen 1, STRING016, 0, 0
  228.             Goto LABEL005
  229.         Endif
  230.         Cls
  231.         PrintLn "@X0BThere is no News listing at this time."
  232.         PrintLn 
  233.         Wait
  234.         Goto LABEL003
  235.         :LABEL005
  236.         FGet 1, STRING017
  237.         FGet 1, STRING018
  238.         FGet 1, STRING019
  239.         FGet 1, STRING020
  240.         FGet 1, STRING021
  241.         FGet 1, STRING022
  242.         FGet 1, STRING023
  243.         FGet 1, STRING024
  244.         FGet 1, STRING025
  245.         If (STRING017 == "") Then
  246.             FClose 1
  247.             Goto LABEL003
  248.             Goto LABEL006
  249.         Endif
  250.         Color 10
  251.         PrintLn STRING017
  252.         PrintLn STRING018
  253.         Color 15
  254.         PrintLn STRING019
  255.         Color 10
  256.         PrintLn STRING020
  257.         Color 11
  258.         PrintLn STRING021
  259.         PrintLn STRING022
  260.         PrintLn STRING023
  261.         PrintLn STRING024
  262.         PrintLn STRING025
  263.         :LABEL006
  264.         Goto LABEL005
  265.         :LABEL007
  266.         If (Exist(STRING016)) Then
  267.             STRING015 = ""
  268.             InputStr "@X0BText to search for", STRING015, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 128 + 8
  269.             If (STRING015 == "") Goto LABEL003
  270.             Cls
  271.             INTEGER009 = 0
  272.             INTEGER008 = 0
  273.             FOpen 1, STRING016, 0, 0
  274.             Goto LABEL008
  275.         Endif
  276.         Cls
  277.         PrintLn "@X0BThere is no News listing at this time."
  278.         PrintLn 
  279.         Wait
  280.         Goto LABEL003
  281.         :LABEL008
  282.         FGet 1, STRING017
  283.         FGet 1, STRING018
  284.         FGet 1, STRING019
  285.         FGet 1, STRING020
  286.         FGet 1, STRING021
  287.         FGet 1, STRING022
  288.         FGet 1, STRING023
  289.         FGet 1, STRING024
  290.         FGet 1, STRING025
  291.         STRING026 = "N"
  292.         If (InStr(Upper(STRING019), STRING015) >= 1) STRING026 = "Y"
  293.         If (InStr(Upper(STRING021), STRING015) >= 1) STRING026 = "Y"
  294.         If (InStr(Upper(STRING022), STRING015) >= 1) STRING026 = "Y"
  295.         If (InStr(Upper(STRING023), STRING015) >= 1) STRING026 = "Y"
  296.         If (InStr(Upper(STRING024), STRING015) >= 1) STRING026 = "Y"
  297.         If (STRING026 == "Y") Gosub LABEL018
  298.         If (STRING017 == "") Then
  299.             FClose 1
  300.             PrintLn 
  301.             PrintLn "@X0BThere were @X0F", INTEGER009, " @X0B", Chr(34), STRING015, Chr(34), " matches found in @X0F", INTEGER008, "@X0B entries."
  302.             PrintLn 
  303.             Wait
  304.             INTEGER001 = 0
  305.             Goto LABEL003
  306.             Goto LABEL009
  307.         Endif
  308.         INTEGER008 = INTEGER008 + 1
  309.         Goto LABEL008
  310.         :LABEL009
  311.         If (Exist(STRING016)) Then
  312.             INTEGER001 = 0
  313.             DATE002 = 0
  314.             InputStr "@X0BHow many days back to search", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  315.             DATE002 = Date() - INTEGER001
  316.             If (INTEGER001 == 0) Goto LABEL003
  317.             Cls
  318.             INTEGER009 = 0
  319.             FOpen 1, STRING016, 0, 0
  320.             Goto LABEL010
  321.         Endif
  322.         Cls
  323.         PrintLn "@X0BThere is no News listing at this time."
  324.         PrintLn 
  325.         Wait
  326.         Goto LABEL003
  327.         :LABEL010
  328.         FGet 1, STRING017
  329.         FGet 1, STRING018
  330.         FGet 1, STRING019
  331.         FGet 1, STRING020
  332.         FGet 1, STRING021
  333.         FGet 1, STRING022
  334.         FGet 1, STRING023
  335.         FGet 1, STRING024
  336.         FGet 1, STRING025
  337.         STRING026 = "N"
  338.         DATE003 = Mid(STRING019, 1, 10)
  339.         If (DATE003 >= DATE002) Gosub LABEL018
  340.         If (STRING017 == "") Then
  341.             FClose 1
  342.             PrintLn 
  343.             PrintLn "@X0BThere were @X0F", INTEGER009, " @X0B", Chr(34), DATE002, " or newer", Chr(34), " matches found in @X0F", INTEGER008, "@X0B entries."
  344.             PrintLn 
  345.             Wait
  346.             INTEGER001 = 0
  347.             Goto LABEL003
  348.             Goto LABEL011
  349.         Endif
  350.         INTEGER008 = INTEGER008 + 1
  351.         Goto LABEL010
  352.         :LABEL011
  353.         STRING029 = ""
  354.         Cls
  355.         InputStr "@X0BWhat is the @X0Ftitle@X0B of your news item (25 chars)", STRING029, 11, 25, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2
  356.         If (STRING029 == "") Goto LABEL003
  357.         :LABEL012
  358.         Cls
  359.         PrintLn 
  360.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  361.         PrintLn " @X5D│     @X51 You now have (4) (60 char) lines in which to enter your news item.    @X50│@X07"
  362.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  363.         InputStr "@X0B", STRING021, 11, 60, Mask_Num() + Mask_Alpha() + Mask_Ascii(), 2 + 128
  364.         InputStr "@X0B", STRING022, 11, 60, Mask_Num() + Mask_Alpha() + Mask_Ascii(), 2 + 128
  365.         InputStr "@X0B", STRING023, 11, 60, Mask_Num() + Mask_Alpha() + Mask_Ascii(), 2 + 128
  366.         InputStr "@X0B", STRING024, 11, 60, Mask_Num() + Mask_Alpha() + Mask_Ascii(), 2 + 128
  367.         If (InStr(Upper(STRING021), STRING027) >= 1) Goto LABEL019
  368.         If (InStr(Upper(STRING022), STRING027) >= 1) Goto LABEL019
  369.         If (InStr(Upper(STRING023), STRING027) >= 1) Goto LABEL019
  370.         If (InStr(Upper(STRING024), STRING027) >= 1) Goto LABEL019
  371.         STRING021 = "          " + STRING021
  372.         STRING022 = "          " + STRING022
  373.         STRING023 = "          " + STRING023
  374.         STRING024 = "          " + STRING024
  375.         If (Len(STRING014) == 25) STRING028 = ""
  376.         If (Len(STRING014) == 24) STRING028 = " "
  377.         If (Len(STRING014) == 23) STRING028 = "  "
  378.         If (Len(STRING014) == 22) STRING028 = "   "
  379.         If (Len(STRING014) == 21) STRING028 = "    "
  380.         If (Len(STRING014) == 20) STRING028 = "     "
  381.         If (Len(STRING014) == 19) STRING028 = "      "
  382.         If (Len(STRING014) == 18) STRING028 = "       "
  383.         If (Len(STRING014) == 17) STRING028 = "        "
  384.         If (Len(STRING014) == 16) STRING028 = "         "
  385.         If (Len(STRING014) == 15) STRING028 = "          "
  386.         If (Len(STRING014) == 14) STRING028 = "           "
  387.         If (Len(STRING014) == 13) STRING028 = "            "
  388.         If (Len(STRING014) == 12) STRING028 = "             "
  389.         If (Len(STRING014) == 11) STRING028 = "              "
  390.         If (Len(STRING014) == 10) STRING028 = "               "
  391.         If (Len(STRING014) == 9) STRING028 = "                "
  392.         If (Len(STRING014) == 8) STRING028 = "                 "
  393.         If (Len(STRING014) == 7) STRING028 = "                  "
  394.         If (Len(STRING014) == 6) STRING028 = "                   "
  395.         If (Len(STRING014) == 5) STRING028 = "                    "
  396.         If (Len(STRING014) == 4) STRING028 = "                     "
  397.         If (Len(STRING014) == 3) STRING028 = "                      "
  398.         If (Len(STRING014) == 2) STRING028 = "                       "
  399.         If (Len(STRING014) == 1) STRING028 = "                        "
  400.         STRING019 = String(DATE001) + "   User News v" + String(STRING013) + "    " + String(STRING014) + String(STRING028) + String(STRING029)
  401.         PrintLn STRING017
  402.         Color 10
  403.         PrintLn STRING018
  404.         Color 15
  405.         PrintLn STRING019
  406.         Color 10
  407.         PrintLn STRING020
  408.         Color 11
  409.         PrintLn STRING021
  410.         PrintLn STRING022
  411.         PrintLn STRING023
  412.         PrintLn STRING024
  413.         PrintLn 
  414.         PrintLn 
  415.         STRING006 = ""
  416.         InputStr "@X0FIs the above News Item info correct (Y/N)", STRING006, 11, 1, Mask_Alpha(), 8 + 2
  417.         If (STRING006 == "Y") Goto LABEL013
  418.         If (STRING006 == "y") Goto LABEL013
  419.         Goto LABEL003
  420.         :LABEL013
  421.         FAppend 1, STRING016, 2, 3
  422.         FPutLn 1, STRING017
  423.         FPutLn 1, STRING018
  424.         FPutLn 1, STRING019
  425.         FPutLn 1, STRING020
  426.         FPutLn 1, STRING021
  427.         FPutLn 1, STRING022
  428.         FPutLn 1, STRING023
  429.         FPutLn 1, STRING024
  430.         FPutLn 1, STRING025
  431.         FClose 1
  432.         STRING019 = " "
  433.         STRING021 = " "
  434.         STRING022 = " "
  435.         STRING023 = " "
  436.         STRING024 = " "
  437.         PrintLn 
  438.         PrintLn "@X0BYour News Item has been added to our listing - Thank you, @FIRST@"
  439.         PrintLn 
  440.         Wait
  441.         Goto LABEL003
  442.         :LABEL014
  443.         Cls
  444.         PrintLn 
  445.         PrintLn 
  446.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  447.         PrintLn "                       @X50│       @X5AUser News!  v", STRING013, "       @X5D│@X0D"
  448.         PrintLn "                       @X50│                              @X5D│@X0D"
  449.         If (STRING012 == "N") Then
  450.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  451.             PrintLn "                       @X50│                              @X5D│@X0D"
  452.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  453.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  454.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  455.             Beep
  456.             Delay 125
  457.             Goto LABEL015
  458.         Endif
  459.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  460.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  461.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  462.         PrintLn 
  463.         Wait
  464.         :LABEL015
  465.         End
  466.         :LABEL016
  467.         Cls
  468.         PrintLn 
  469.         PrintLn 
  470.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  471.         PrintLn "                       @X50│       @X5AUser News!  v", STRING013, "       @X5D│@X0D"
  472.         PrintLn "                       @X50│                              @X5D│@X0D"
  473.         If (STRING012 == "N") Then
  474.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  475.             PrintLn "                       @X50│                              @X5D│@X0D"
  476.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  477.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  478.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  479.             Beep
  480.             Delay 125
  481.             Goto LABEL017
  482.         Endif
  483.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  484.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  485.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  486.         PrintLn 
  487.         Wait
  488.         :LABEL017
  489.         Bye
  490.         PrintLn 
  491.         PrintLn "@X0FSorry... you entered an invalid number"
  492.         PrintLn 
  493.         Wait
  494.         Goto LABEL003
  495.     Endif
  496.     Cls
  497.     PrintLn 
  498.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  499.     PrintLn "                       @X50│       @X5BUser News!  v1.0       @X5D│@X07"
  500.     PrintLn "                       @X50│                              @X5D│@X07"
  501.     PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  502.     PrintLn "                       @X50│                              @X5D│@X07"
  503.     PrintLn "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  504.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  505.     Beep
  506.     Delay 182
  507.     End
  508.     :LABEL018
  509.     PrintLn STRING017
  510.     Color 10
  511.     PrintLn STRING018
  512.     Color 15
  513.     PrintLn STRING019
  514.     Color 10
  515.     PrintLn STRING020
  516.     Color 11
  517.     PrintLn STRING021
  518.     PrintLn STRING022
  519.     PrintLn STRING023
  520.     PrintLn STRING024
  521.     PrintLn STRING025
  522.     INTEGER009 = INTEGER009 + 1
  523.     Return
  524.     :LABEL019
  525.     STRING021 = ""
  526.     STRING022 = ""
  527.     STRING023 = ""
  528.     STRING024 = ""
  529.     Cls
  530.     PrintLn 
  531.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  532.     PrintLn "                       @X50│ @X5BEntering of PCBoard @X Codes @X5D│@X07"
  533.     PrintLn "                       @X50│                              @X5D│@X07"
  534.     PrintLn "                       @X50│ @X5Bis NOT allowed in User News! @X5D│@X07"
  535.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  536.     Beep
  537.     PrintLn 
  538.     Wait
  539.     Goto LABEL012
  540.  
  541. ;------------------------------------------------------------------------------
  542. ;
  543. ; Usage report (before postprocessing)
  544. ;
  545. ; ■ Statements used :
  546. ;
  547. ;    3       End
  548. ;    14      Cls
  549. ;    12      Wait
  550. ;    12      Color 
  551. ;    57      Goto 
  552. ;    136     Let 
  553. ;    131     PrintLn 
  554. ;    117     If 
  555. ;    4       FOpen 
  556. ;    1       FAppend 
  557. ;    5       FClose 
  558. ;    31      FGet 
  559. ;    9       FPutLn 
  560. ;    1       StartDisp 
  561. ;    1       GetUser
  562. ;    9       InputStr 
  563. ;    2       Gosub 
  564. ;    1       Return
  565. ;    5       Delay 
  566. ;    1       Tokenize 
  567. ;    2       GetToken 
  568. ;    6       Beep
  569. ;    2       Bye
  570. ;
  571. ;
  572. ; ■ Functions used :
  573. ;
  574. ;    42      +
  575. ;    1       -
  576. ;    103     ==
  577. ;    10      >=
  578. ;    13      !
  579. ;    55      Len(
  580. ;    9       Upper()
  581. ;    1       Mid()
  582. ;    2       Left()
  583. ;    4       Chr()
  584. ;    9       InStr()
  585. ;    2       Date()
  586. ;    1       U_Name()
  587. ;    5       String()
  588. ;    7       Mask_Alpha()
  589. ;    7       Mask_Num()
  590. ;    7       Mask_Ascii()
  591. ;    2       PPEPath()
  592. ;    4       Exist()
  593. ;    1       S2I()
  594. ;
  595. ;------------------------------------------------------------------------------
  596. ;
  597. ; Analysis flags : No flag
  598. ;
  599. ;------------------------------------------------------------------------------
  600. ;
  601. ; Postprocessing report
  602. ;
  603. ;    0       For/Next
  604. ;    0       While/EndWhile
  605. ;    13      If/Then or If/Then/Else
  606. ;    0       Select Case
  607. ;
  608. ;------------------------------------------------------------------------------
  609. ;                 AEGiS Corp - Break the routines, code against the machines!
  610. ;------------------------------------------------------------------------------
  611.