home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / nu_110a.zip / NEWUSER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-08  |  13KB  |  579 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.     String   STRING014
  39.     String   STRING015
  40.     String   TSTRING016(6)
  41.     String   STRING017
  42.     String   STRING018
  43.     String   STRING019
  44.     String   STRING020
  45.     String   STRING021
  46.     String   STRING022
  47.     String   STRING023
  48.     String   STRING024
  49.  
  50. ;------------------------------------------------------------------------------
  51.  
  52.     GetUser
  53.     STRING013 = YesChar()
  54.     STRING020 = YesChar()
  55.     STRING014 = U_Trans
  56.     FOpen 1, PPEPath() + "NEWUSER.CNF", 0, 0
  57.     FGet 1, INTEGER003
  58.     While (!Ferr(1) && (INTEGER002 <> INTEGER003)) Do
  59.         FGet 1, STRING001
  60.         INTEGER002 = INTEGER002 + 1
  61.         If (Exist(STRING001)) DispFile STRING001, 4 + 2 + 1
  62.         Newline
  63.         Wait
  64.         If (INTEGER002 == INTEGER003) Then
  65.             FGet 1, STRING002
  66.             If (Right(STRING002, (1 <> "\"))) STRING002 = STRING002 + "\"
  67.             STRING003 = STRING002 + "PCBS"
  68.             STRING004 = STRING002 + "PCBR"
  69.             FClose 1
  70.         Endif
  71.     EndWhile
  72.     PromptStr 54, STRING020, 1, "ynYN", 2 + 4 + 8 + 16384 + 128
  73.     If (STRING020 == YesChar()) Then
  74.         STRING018 = Upper(Left(STRING020, 1)) + Chr(13)
  75.         If (Exist(PPEPath() + "NEWINFO")) DispFile PPEPath() + "NEWINFO", 4 + 2 + 1
  76.         Newline
  77.         Goto LABEL001
  78.     Else
  79.         STRING018 = NoChar() + Chr(13)
  80.         Goto LABEL026
  81.     Endif
  82.     Goto LABEL028
  83.     :LABEL001
  84.     If (INTEGER001 == 3) Goto LABEL027
  85.     If (Exist(PPEPath() + "NEW_A")) DispFile PPEPath() + "NEW_A", 4 + 2 + 1
  86.     STRING007 = ""
  87.     PromptStr 152, STRING007, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 256 + 1
  88.     If (Len((STRING007 == 0))) INTEGER001 = INTEGER001 + 1
  89.     If (Psa(4) && (Len(STRING007) < ReadLine(PCBDat(), 265))) Then
  90.         If (!(Len(STRING007) == 0)) INTEGER001 = 0
  91.         STRING007 = ""
  92.         Newline
  93.         PrintLn "@X0CPassword too short!  Must be @X0F" + Trim(ReadLine(PCBDat(), 265), Chr(32)) + " @X0Ccharacters or longer, try again.@X07"
  94.         FreshLine
  95.         Goto LABEL001
  96.     ElseIf (Psa(4) && (InStr(U_Name(), STRING007) > 0)) Then
  97.         INTEGER001 = 0
  98.         STRING007 = ""
  99.         Newline
  100.         PrintLn "@X0CYour password cannot be a subset of your name.  While this may make it easy for"
  101.         PrintLn "@X0Cyou to remember, it also makes it easier for someone to guess your password.@X07"
  102.         FreshLine
  103.         Goto LABEL001
  104.     ElseIf (Trim(STRING007, Chr(32)) <> "") Then
  105.         INTEGER001 = 0
  106.     Else
  107.         FreshLine
  108.         Goto LABEL001
  109.     Endif
  110.     STRING008 = ""
  111.     PromptStr 111, STRING008, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 1
  112.     If (STRING007 <> STRING008) Then
  113.         INTEGER001 = 0
  114.         STRING007 = ""
  115.         STRING008 = ""
  116.         Newlines 2
  117.         PrintLn "@X0CSorry, @FIRST@, the two passwords do not match, try again.@X07"
  118.         FreshLine
  119.         Goto LABEL001
  120.     ElseIf (STRING007 == STRING008) Then
  121.         INTEGER001 = 0
  122.         If (STRING024 <> "") Goto LABEL025
  123.         Newline
  124.         Goto LABEL002
  125.     Else
  126.         FreshLine
  127.         Goto LABEL001
  128.     Endif
  129.     Goto LABEL028
  130.     :LABEL002
  131.     If (INTEGER001 == 3) Goto LABEL027
  132.     If (Exist(PPEPath() + "NEW_B")) DispFile PPEPath() + "NEW_B", 4 + 2 + 1
  133.     PromptStr 265, STRING009, 24, Mask_Ascii(), 2 + 4 + 8 + 128
  134.     If (Len((STRING009 == 0))) INTEGER001 = INTEGER001 + 1
  135.     If (Trim(STRING009, Chr(32)) <> "") Then
  136.         INTEGER001 = 0
  137.         If (STRING024 <> "") Goto LABEL025
  138.         Newline
  139.         Goto LABEL003
  140.     Else
  141.         FreshLine
  142.         Goto LABEL002
  143.     Endif
  144.     Goto LABEL028
  145.     :LABEL003
  146.     If (INTEGER001 == 3) Goto LABEL027
  147.     If (Exist(PPEPath() + "NEW_C")) DispFile PPEPath() + "NEW_C", 4 + 2 + 1
  148.     PromptStr 113, STRING010, 13, Mask_Num() + "- ", 2 + 4 + 8 + 128
  149.     If (Len((STRING010 == 0))) INTEGER001 = INTEGER001 + 1
  150.     If (Trim(STRING010, Chr(32)) <> "") Then
  151.         INTEGER001 = 0
  152.         If (STRING024 <> "") Goto LABEL025
  153.         Newline
  154.         Goto LABEL004
  155.     Else
  156.         FreshLine
  157.         Goto LABEL003
  158.     Endif
  159.     Goto LABEL028
  160.     :LABEL004
  161.     If (INTEGER001 == 3) Goto LABEL027
  162.     If (Exist(PPEPath() + "NEW_D")) DispFile PPEPath() + "NEW_D", 4 + 2 + 1
  163.     PromptStr 114, STRING011, 13, Mask_Num() + "- ", 2 + 4 + 8 + 128
  164.     If (Len((STRING011 == 0))) INTEGER001 = INTEGER001 + 1
  165.     If (Trim(STRING011, Chr(32)) <> "") Then
  166.         INTEGER001 = 0
  167.         If (STRING024 <> "") Goto LABEL025
  168.         Newline
  169.         Goto LABEL005
  170.     Else
  171.         FreshLine
  172.         Goto LABEL004
  173.     Endif
  174.     Goto LABEL028
  175.     :LABEL005
  176.     If (INTEGER001 == 3) Goto LABEL027
  177.     If (Exist(PPEPath() + "NEW_E")) DispFile PPEPath() + "NEW_E", 4 + 2 + 1
  178.     PromptStr 2, STRING012, 30, Mask_Ascii(), 2 + 4 + 8 + 128
  179.     If (Len((STRING012 == 0))) INTEGER001 = INTEGER001 + 1
  180.     If (Trim(STRING012, Chr(32)) <> "") Then
  181.         INTEGER001 = 0
  182.         If (STRING024 <> "") Goto LABEL025
  183.         Newline
  184.         Goto LABEL006
  185.     Else
  186.         FreshLine
  187.         Goto LABEL005
  188.     Endif
  189.     Goto LABEL028
  190.     :LABEL006
  191.     If (Exist(PPEPath() + "NEW_F")) DispFile PPEPath() + "NEW_F", 4 + 2 + 1
  192.     PromptStr 556, STRING013, 1, "ynYN", 2 + 4 + 8 + 128 + 16384
  193.     If (Trim(STRING013, Chr(32)) <> "") Then
  194.         If (STRING024 <> "") Goto LABEL025
  195.         Newline
  196.         Goto LABEL007
  197.     Else
  198.         Newline
  199.         Goto LABEL007
  200.     Endif
  201.     Goto LABEL028
  202.     :LABEL007
  203.     If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL008
  204.     If (STRING024 <> "") Goto LABEL025
  205.     Newline
  206.     Goto LABEL015
  207.     :LABEL008
  208.     Newline
  209.     PrintLn "@X70┌────────────────────────────────────────────────────────@X7F┐@X07"
  210.     PrintLn "@X70│         @X7BP R O T O C O L S   A V A I L A B L E@POS:58@@X7F│@X07"
  211.     PrintLn "@X70└@X7F────────────────────────────────────────────────────────┘@X07"
  212.     Newline
  213.     PrintLn "@X70┌@X7F────────────────────────────────────────────────────────┐@X07"
  214.     FOpen 1, ReadLine(PCBDat(), 45), 0, 0
  215.     :LABEL009
  216.     If (Ferr(1)) Goto LABEL012
  217.     FGet 1, STRING021
  218.     If (((Mid(STRING021, 3, 1) <> "I") && !Exist(STRING003 + Left(STRING021, 1) + ".BAT")) && !Exist(STRING004 + Left(STRING021, 1) + ".BAT")) BOOLEAN001 = 1
  219.     INTEGER004 = InStr(STRING021, ",")
  220.     If ((!(INTEGER004 == 0) && (BOOLEAN001 == 0)) || (Left(STRING021, 1) == "N")) Then
  221.         STRING023 = STRING023 + Left(STRING021, INTEGER004 - 1)
  222.         If (Left(STRING021, INTEGER004 - 1) == STRING014) Goto LABEL010
  223.         Print "@X70│    @X71(@X7E" + Left(STRING021, INTEGER004 - 1) + "@X71) "
  224.         Goto LABEL011
  225.         :LABEL010
  226.         Print "@X70│ @XF4=> @X71(@X7E" + Left(STRING021, INTEGER004 - 1) + "@X71) "
  227.         :LABEL011
  228.         STRING022 = Mid(STRING021, INTEGER004 + 1 + 2, Len(STRING021) - INTEGER004 + 2)
  229.         INTEGER005 = InStr(STRING022, ",")
  230.         STRING022 = Mid(STRING022, INTEGER005 + 1, Len(STRING021) - INTEGER004 + 2 - INTEGER005)
  231.         PrintLn "@X71" + Left(STRING022, String(InStr(STRING022, ",")) - 1) + "@POS:58@@X7F│@X07"
  232.     Endif
  233.     BOOLEAN001 = 0
  234.     Goto LABEL009
  235.     :LABEL012
  236.     FClose 1
  237.     PrintLn "@X70└────────────────────────────────────────────────────────@X7F┘@X07"
  238.     PromptStr 198, STRING014, 1, STRING023, 2 + 4 + 8 + 128
  239.     If (Left(STRING014, 1) == NoChar()) Then
  240.         If (STRING024 <> "") Goto LABEL025
  241.         Newline
  242.     Else
  243.         FOpen 1, ReadLine(PCBDat(), 45), 0, 0
  244.         :LABEL013
  245.         If (Ferr(1)) Goto LABEL014
  246.         FGet 1, STRING021
  247.         If (Len(Trim(STRING021, Chr(32)))) Then
  248.             If (((Mid(STRING021, 3, 1) <> "I") && !Exist(STRING003 + Left(STRING021, 1) + ".BAT")) && !Exist(STRING004 + Left(STRING021, 1) + ".BAT")) BOOLEAN001 = 1
  249.             If ((STRING014 == Left(STRING021, 1)) && (BOOLEAN001 == 0)) Then
  250.                 STRING005 = Mid(STRING021, Len(STRING021) - 4, 1)
  251.                 If (STRING005 == YesChar()) Then
  252.                     If (!InStr(Modem(), ((("MNP" || "V42") || "LAPM") || "HST")) && !OnLocal()) Then
  253.                         Newlines 2
  254.                         PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!"
  255.                         FClose 1
  256.                         Goto LABEL007
  257.                     Endif
  258.                 Endif
  259.                 FClose 1
  260.                 If (STRING024 <> "") Goto LABEL025
  261.                 Newline
  262.             Else
  263.                 Goto LABEL013
  264.                 :LABEL014
  265.                 Goto LABEL028
  266.             Endif
  267.         Endif
  268.     Endif
  269.     :LABEL015
  270.     If (Psa(1)) Then
  271.         If (Exist(PPEPath() + "ALIAS")) DispFile PPEPath() + "ALIAS", 4 + 2 + 1
  272.         PromptStr 690, STRING015, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  273.         If (Len(STRING015)) Then
  274.             FOpen 1, ReadLine(PCBDat(), 35), 0, 0
  275.             :LABEL016
  276.             If (Ferr(1)) Goto LABEL017
  277.             FGet 1, STRING006
  278.             If (Trim(STRING015, Chr(32)) == Trim(STRING006, Chr(32))) Then
  279.                 FClose 1
  280.                 Newlines 2
  281.                 PrintLn "@X0CThe SysOp has disabled the use of this Alias Name.@X07"
  282.                 STRING015 = ""
  283.                 Goto LABEL015
  284.             Endif
  285.             Goto LABEL016
  286.             :LABEL017
  287.             FClose 1
  288.         Endif
  289.         If (U_RecNum(STRING015) <> -1) Then
  290.             Log "Attempted to use " + Trim(STRING015, Chr(32)) + " as an alias.", 0
  291.             Newlines 2
  292.             DispText 256, 256 + 2048
  293.             STRING015 = ""
  294.             Goto LABEL015
  295.         Else
  296.             STRING015 = Strip(Trim(STRING015, Chr(32)), Chr(0))
  297.             If (STRING024 <> "") Goto LABEL025
  298.             Newline
  299.             Goto LABEL018
  300.         Endif
  301.     Else
  302.         :LABEL018
  303.         If (Psa(3)) Then
  304.             If (Exist(PPEPath() + "NEW_G")) DispFile PPEPath() + "NEW_G", 4 + 2 + 1
  305.             InputStr "Street Address and Number", TSTRING016(0), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
  306.             If (STRING024 <> "") Goto LABEL025
  307.             Newline
  308.             Goto LABEL019
  309.             Goto LABEL028
  310.             :LABEL019
  311.             If (INTEGER001 == 3) Goto LABEL027
  312.             If (Exist(PPEPath() + "NEW_H")) DispFile PPEPath() + "NEW_H", 4 + 2 + 1
  313.             InputStr "Suite or Apartment Number", TSTRING016(1), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
  314.             If (Len((TSTRING016(1) == 0))) INTEGER001 = INTEGER001 + 1
  315.             If ((Trim(TSTRING016(0), Chr(32)) <> "") || (Trim(TSTRING016(1), Chr(32)) <> "")) Then
  316.                 INTEGER001 = 0
  317.                 If (STRING024 <> "") Goto LABEL025
  318.                 Newline
  319.                 Goto LABEL020
  320.             Else
  321.                 FreshLine
  322.                 Goto LABEL019
  323.             Endif
  324.             Goto LABEL028
  325.             :LABEL020
  326.             If (INTEGER001 == 3) Goto LABEL027
  327.             If (Exist(PPEPath() + "NEW_I")) DispFile PPEPath() + "NEW_I", 4 + 2 + 1
  328.             InputStr "City, Town or Village", TSTRING016(2), 14, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  329.             If (Len((TSTRING016(2) == 0))) INTEGER001 = INTEGER001 + 1
  330.             If (Trim(TSTRING016(2), Chr(32)) <> "") Then
  331.                 INTEGER001 = 0
  332.                 If (STRING024 <> "") Goto LABEL025
  333.                 Newline
  334.                 Goto LABEL021
  335.             Else
  336.                 FreshLine
  337.                 Goto LABEL020
  338.             Endif
  339.             Goto LABEL028
  340.             :LABEL021
  341.             If (INTEGER001 == 3) Goto LABEL027
  342.             If (Exist(PPEPath() + "NEW_J")) DispFile PPEPath() + "NEW_J", 4 + 2 + 1
  343.             InputStr "Province or State", TSTRING016(3), 14, 10, Mask_Ascii(), 2 + 4 + 8 + 128
  344.             If (Len((TSTRING016(3) == 0))) INTEGER001 = INTEGER001 + 1
  345.             If (Trim(TSTRING016(3), Chr(32)) <> "") Then
  346.                 INTEGER001 = 0
  347.                 If (STRING024 <> "") Goto LABEL025
  348.                 Newline
  349.                 Goto LABEL022
  350.             Else
  351.                 FreshLine
  352.                 Goto LABEL021
  353.             Endif
  354.             Goto LABEL028
  355.             :LABEL022
  356.             If (INTEGER001 == 3) Goto LABEL027
  357.             If (Exist(PPEPath() + "NEW_K")) DispFile PPEPath() + "NEW_K", 4 + 2 + 1
  358.             InputStr "Postal/Zip Code", TSTRING016(4), 14, 10, Mask_Num() + "-", 2 + 4 + 8 + 128
  359.             If (Len((TSTRING016(4) == 0))) INTEGER001 = INTEGER001 + 1
  360.             If (Trim(TSTRING016(4), Chr(32)) <> "") Then
  361.                 INTEGER001 = 0
  362.                 If (STRING024 <> "") Goto LABEL025
  363.                 Newline
  364.                 Goto LABEL023
  365.             Else
  366.                 FreshLine
  367.                 Goto LABEL022
  368.             Endif
  369.             Goto LABEL028
  370.             :LABEL023
  371.             If (INTEGER001 == 3) Goto LABEL027
  372.             If (Exist(PPEPath() + "NEW_L")) DispFile PPEPath() + "NEW_L", 4 + 2 + 1
  373.             InputStr "Country or Region", TSTRING016(5), 14, 15, Mask_Ascii(), 2 + 4 + 8 + 128
  374.             If (Len((TSTRING016(5) == 0))) INTEGER001 = INTEGER001 + 1
  375.             If (Trim(TSTRING016(5), Chr(32)) <> "") Then
  376.                 INTEGER001 = 0
  377.                 If (STRING024 <> "") Goto LABEL025
  378.                 Newline
  379.                 Goto LABEL024
  380.             Else
  381.                 FreshLine
  382.                 Goto LABEL023
  383.             Endif
  384.         Else
  385.             :LABEL024
  386.             If (Psa(2)) Then
  387.                 If (INTEGER001 == 3) Goto LABEL027
  388.                 If (Exist(PPEPath() + "VERIFY")) DispFile PPEPath() + "VERIFY", 4 + 2 + 1
  389.                 PromptStr 706, STRING017, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  390.                 If (Len((STRING017 == 0))) INTEGER001 = INTEGER001 + 1
  391.                 If (Trim(STRING017, Chr(32)) <> "") Then
  392.                     INTEGER001 = 0
  393.                     Goto LABEL025
  394.                 Else
  395.                     FreshLine
  396.                     Goto LABEL024
  397.                 Endif
  398.             Else
  399.                 :LABEL025
  400.                 STRING024 = ""
  401.                 Cls
  402.                 PrintLn "@X0F[@X0CA@X0F] @X0EPassword                 @X07: @X0F[@X0A" + Left(RTrim(STRING007, Chr(32)) + "·············", 13) + "@X0F]@X07"
  403.                 PrintLn "@X0F[@X0CB@X0F] @X0ECity and State           @X07: @X0F[@X0A" + Left(RTrim(STRING009, Chr(32)) + "························", 24) + "@X0F]@X07"
  404.                 PrintLn "@X0F[@X0CC@X0F] @X0EBusiness or data phone   @X07: @X0F[@X0A" + Left(RTrim(STRING010, Chr(32)) + "·············", 13) + "@X0F]@X07"
  405.                 PrintLn "@X0F[@X0CD@X0F] @X0EHome or voice phone      @X07: @X0F[@X0A" + Left(RTrim(STRING011, Chr(32)) + "·············", 13) + "@X0F]@X07"
  406.                 PrintLn "@X0F[@X0CE@X0F] @X0EBrand of CPU             @X07: @X0F[@X0A" + Left(RTrim(STRING012, Chr(32)) + "······························", 30) + "@X0F]@X07"
  407.                 PrintLn 
  408.                 PrintLn "@X0F[@X0CF@X0F] @X0EMessage Clear Screen     @X07: @X0F[@X0A" + STRING013 + "@X0F] @X07(@X03Clear Screen prior to Displaying a Message@X07)@X07"
  409.                 PrintLn "@X0F[@X0CG@X0F] @X0EDefault Protocol         @X07: @X0F[@X0A" + STRING014 + "@X0F] @X07(@X03Your default transfer protocol@X07)@X07"
  410.                 If (Psa(3)) Then
  411.                     PrintLn 
  412.                     PrintLn "@X0F[@X0CH@X0F] @X0EStreet Address and Number@X07: @X0F[@X0A" + Left(RTrim(TSTRING016(0), Chr(32)) + "··············································", 46) + "@X0F]@X07"
  413.                     PrintLn "@X0F[@X0CI@X0F] @X0ESuite or Apartment Number@X07: @X0F[@X0A" + Left(RTrim(TSTRING016(1), Chr(32)) + "··············································", 46) + "@X0F]@X07"
  414.                     PrintLn "@X0F[@X0CJ@X0F] @X0ECity, Town or Village    @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(2), Chr(32)) + "·························", 25) + "@X0F]@X07"
  415.                     PrintLn "@X0F[@X0CK@X0F] @X0EProvince or State        @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(3), Chr(32)) + "··········", 10) + "@X0F]@X07"
  416.                     PrintLn "@X0F[@X0CL@X0F] @X0EPostal Zip Code          @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(4), Chr(32)) + "··········", 10) + "@X0F]@X07"
  417.                     PrintLn "@X0F[@X0CM@X0F] @X0ECountry or Region        @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(5), Chr(32)) + "···············", 15) + "@X0F]@X07"
  418.                 Endif
  419.                 PrintLn 
  420.                 If (Psa(1)) PrintLn "@X0F[@X0CN@X0F] @X0EAlias Name               @X07: @X0F[@X0A" + Left(RTrim(STRING015, Chr(32)) + "·························", 25) + "@X0F]@X07"
  421.                 If (Psa(2)) PrintLn "@X0F[@X0CO@X0F] @X0EVerification Information @X07: @X0F[@X0A" + Left(RTrim(STRING017, Chr(32)) + "·························", 25) + "@X0F]@X07"
  422.                 If (Psa(1) || Psa(2)) PrintLn 
  423.                 PrintLn "@X0BIf any of the information above is incorrect or inaccurate, now is your chance@X07"
  424.                 PrintLn "@X0Bto change it.  All information will be verified before full access is granted.@X07"
  425.                 InputStr "(@X0C@MINLEFT@ @X0Fmin. left) Enter the letter to be edited? (@X0CEnter@X0F)=done", STRING024, 15, 1, "abcdefghijklmnoqABCDEFGHIJKLMNOQ", 2 + 4 + 8 + 128 + 32 + 2048
  426.                 If (STRING024 == "A") Goto LABEL001
  427.                 If (STRING024 == "B") Goto LABEL002
  428.                 If (STRING024 == "C") Goto LABEL003
  429.                 If (STRING024 == "D") Goto LABEL004
  430.                 If (STRING024 == "E") Goto LABEL005
  431.                 If (STRING024 == "F") Goto LABEL006
  432.                 If (STRING024 == "G") Goto LABEL007
  433.                 If (Psa(3) && (STRING024 == "H")) Goto LABEL018
  434.                 If (Psa(3) && (STRING024 == "I")) Goto LABEL019
  435.                 If (Psa(3) && (STRING024 == "J")) Goto LABEL020
  436.                 If (Psa(3) && (STRING024 == "K")) Goto LABEL021
  437.                 If (Psa(3) && (STRING024 == "L")) Goto LABEL022
  438.                 If (Psa(3) && (STRING024 == "M")) Goto LABEL023
  439.                 If (Psa(1) && (STRING024 == "N")) Goto LABEL015
  440.                 If (Psa(2) && (STRING024 == "O")) Goto LABEL024
  441.                 If (Len(STRING024) == 0) Goto LABEL026
  442.                 If (STRING024 == "Q") Then
  443.                     STRING024 = NoChar()
  444.                     InputStr "Proceed with Log-Off", STRING024, 15, 1, "ynYN", 2 + 4 + 8 + 32 + 16384
  445.                     If (STRING024 == YesChar()) Hangup
  446.                 Endif
  447.                 Goto LABEL025
  448.                 :LABEL026
  449.                 Cls
  450.                 STRING019 = STRING007 + Chr(13) + STRING008 + Chr(13)
  451.                 STRING019 = STRING019 + STRING009 + Chr(13)
  452.                 STRING019 = STRING019 + STRING010 + Chr(13)
  453.                 STRING019 = STRING019 + STRING011 + Chr(13)
  454.                 STRING019 = STRING019 + STRING012 + Chr(13)
  455.                 STRING019 = STRING019 + STRING013 + Chr(13)
  456.                 STRING019 = STRING019 + STRING014 + Chr(13)
  457.                 STRING019 = STRING019 + STRING015 + Chr(13)
  458.                 STRING019 = STRING019 + TSTRING016(0) + Chr(13)
  459.                 STRING019 = STRING019 + TSTRING016(1) + Chr(13)
  460.                 STRING019 = STRING019 + TSTRING016(2) + Chr(13)
  461.                 STRING019 = STRING019 + TSTRING016(3) + Chr(13)
  462.                 STRING019 = STRING019 + TSTRING016(4) + Chr(13)
  463.                 STRING019 = STRING019 + TSTRING016(5) + Chr(13)
  464.                 STRING019 = STRING019 + STRING017 + Chr(13)
  465.                 KbdStuff STRING018 + STRING019
  466.                 End
  467.                 :LABEL027
  468.                 Newline
  469.                 PrintLn "@X0CAccess Denied - Refused to Complete Registration!"
  470.                 Hangup
  471.             Endif
  472.         Endif
  473.     Endif
  474.     :LABEL028
  475.     Newlines 2
  476.     Print "PPE Program Error... Please nodify SysOp... "
  477.     Delay 50
  478.     FreshLine
  479.     Hangup
  480.  
  481. ;------------------------------------------------------------------------------
  482. ;
  483. ; Usage report (before postprocessing)
  484. ;
  485. ; ■ Statements used :
  486. ;
  487. ;    1       End
  488. ;    2       Cls
  489. ;    1       Wait
  490. ;    159     Goto 
  491. ;    70      Let 
  492. ;    3       Print 
  493. ;    34      PrintLn 
  494. ;    116     If 
  495. ;    16      DispFile 
  496. ;    4       FOpen 
  497. ;    6       FClose 
  498. ;    6       FGet 
  499. ;    3       Hangup
  500. ;    1       GetUser
  501. ;    1       Log 
  502. ;    8       InputStr 
  503. ;    11      PromptStr 
  504. ;    1       Delay 
  505. ;    24      Newline
  506. ;    5       Newlines 
  507. ;    1       DispText 
  508. ;    1       KbdStuff 
  509. ;    16      FreshLine
  510. ;
  511. ;
  512. ; ■ Functions used :
  513. ;
  514. ;    1       -
  515. ;    248     +
  516. ;    9       -
  517. ;    53      ==
  518. ;    35      <>
  519. ;    1       <
  520. ;    1       >
  521. ;    47      !
  522. ;    18      &&
  523. ;    6       ||
  524. ;    19      Len(
  525. ;    1       Upper()
  526. ;    5       Mid()
  527. ;    26      Left()
  528. ;    1       Right()
  529. ;    4       Ferr()
  530. ;    51      Chr()
  531. ;    5       InStr()
  532. ;    13      RTrim()
  533. ;    19      Trim()
  534. ;    1       U_Name()
  535. ;    3       NoChar()
  536. ;    5       YesChar()
  537. ;    1       Strip()
  538. ;    1       String()
  539. ;    2       Mask_Pwd()
  540. ;    3       Mask_Num()
  541. ;    9       Mask_Ascii()
  542. ;    6       PCBDat()
  543. ;    31      PPEPath()
  544. ;    6       ReadLine()
  545. ;    1       OnLocal()
  546. ;    21      Exist()
  547. ;    18      Psa()
  548. ;    1       Modem()
  549. ;    1       U_RecNum()
  550. ;
  551. ;------------------------------------------------------------------------------
  552. ;
  553. ; Analysis flags : Bd
  554. ;
  555. ; B - Brute hangup ■ 1
  556. ;     Program hangup without notification. This may be a good way to
  557. ;     disconnect a user, but if used randomly, may be very nasty
  558. ;     ■ Search for : HANGUP, DTROFF
  559. ;
  560. ; d - Access PCBOARD.DAT ■ 2
  561. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  562. ;     for many PPE so they can find various informations on the system
  563. ;     (system paths, max number of lines in messages, ...) but it may also
  564. ;     be a way to gather vital informations.
  565. ;     ■ Search for : PCBDAT()
  566. ;
  567. ;------------------------------------------------------------------------------
  568. ;
  569. ; Postprocessing report
  570. ;
  571. ;    0       For/Next
  572. ;    1       While/EndWhile
  573. ;    32      If/Then or If/Then/Else
  574. ;    0       Select Case
  575. ;
  576. ;------------------------------------------------------------------------------
  577. ;                 AEGiS Corp - Break the routines, code against the machines!
  578. ;------------------------------------------------------------------------------
  579.