home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CW_IN_45.ZIP / INTELAPP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-09-30  |  22KB  |  685 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     String   STRING002
  34.     String   STRING003
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.     String   STRING014
  46.     String   STRING015
  47.     String   STRING016
  48.     String   STRING017
  49.     String   STRING018
  50.     String   STRING019
  51.     String   STRING020
  52.     String   STRING021
  53.     String   STRING022
  54.     String   STRING023
  55.     String   STRING024
  56.     String   STRING025
  57.     String   STRING026
  58.     String   STRING027
  59.     String   STRING028
  60.     String   STRING029
  61.     String   STRING030
  62.     String   STRING031
  63.     String   STRING032
  64.     String   STRING033
  65.     String   STRING034
  66.     String   STRING035
  67.     String   STRING036
  68.     String   STRING037
  69.     String   STRING038
  70.     String   STRING039
  71.     String   STRING040
  72.     String   STRING041
  73.     String   STRING042
  74.     String   STRING043
  75.     String   STRING044
  76.     String   STRING045
  77.     String   STRING046
  78.     String   STRING047
  79.     String   STRING048
  80.     String   STRING049
  81.     String   STRING050
  82.     String   STRING051
  83.     String   STRING052
  84.     String   STRING053
  85.     String   STRING054
  86.     String   STRING055
  87.     String   STRING056
  88.     String   STRING057
  89.     String   STRING058
  90.     String   STRING059
  91.     String   STRING060
  92.     String   STRING061
  93.     String   STRING062
  94.  
  95. ;------------------------------------------------------------------------------
  96.  
  97.     If (INTEGER006 == 1) Then
  98.         INTEGER006 = "CRW"
  99.         Beep
  100.     Endif
  101.     INTEGER007 = 36
  102.     STRING052 = PPEPath() + PPEName() + ".CNF"
  103.     STRING060 = 58053
  104.     STRING058 = "N"
  105.     STRING061 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  106.     If (PPEName() == "SUBSCRIP") STRING059 = 46554
  107.     If (PPEName() == "FONE-VER") STRING059 = 34479
  108.     If (PPEName() == "PRO-VOTE") STRING059 = 57877
  109.     If (PPEName() == "CONFMENU") STRING059 = 27062
  110.     If (PPEName() == "FILEMENU") STRING059 = 14513
  111.     If (PPEName() == "MAINMENU") STRING059 = 25781
  112.     If (PPEName() == "DOORMENU") STRING059 = 44910
  113.     If (PPEName() == "AUTOPOST") STRING059 = 61482
  114.     If (PPEName() == "BBSLISTR") STRING059 = 11832
  115.     If (PPEName() == "REMINDME") STRING059 = 54925
  116.     If (PPEName() == "TIMEZONE") STRING059 = 38318
  117.     If (PPEName() == "USERNEWS") STRING059 = 31171
  118.     If (PPEName() == "MSGQUEST") STRING059 = 50024
  119.     If (PPEName() == "BIRTHDAY") STRING059 = 19645
  120.     If (PPEName() == "HOWHEARD") STRING059 = 42868
  121.     If (PPEName() == "WELCOMAT") STRING059 = 23034
  122.     If (Exist(STRING052)) Then
  123.         FOpen 1, STRING052, 0, 0
  124.         FGet 1, STRING047
  125.         FGet 1, INTEGER010
  126.         FGet 1, INTEGER009
  127.         FClose 1
  128.     Else
  129.         Select Case (PPEName())
  130.             Case "MAINT"
  131.                 STRING052 = PPEPath() + "PRO-VOTE.CNF"
  132.             Case "CMW"
  133.                 STRING052 = PPEPath() + "CONFMENU.CNF"
  134.             Case "INTELAPP"
  135.                 STRING052 = PPEPath() + "INTELEC.CNF"
  136.             Case Else
  137.                 PrintLn "@X0CError - Config file not found - Please notify SysOp"
  138.                 End
  139.             Endif
  140.     End Select
  141.     Tokenize STRING047
  142.     GetToken STRING056
  143.     GetToken STRING057
  144.     If (INTEGER010 == 0) Then
  145.         STRING058 = "N"
  146.         Goto LABEL003
  147.     Else
  148.         Goto LABEL001
  149.     Endif
  150.     :LABEL001
  151.     STRING053 = Left(STRING056, 1)
  152.     STRING054 = Left(STRING057, 2)
  153.     STRING055 = STRING053 + STRING054
  154.     If (STRING053 == "A") INTEGER011 = 8408
  155.     If (STRING053 == "B") INTEGER011 = 9119
  156.     If (STRING053 == "C") INTEGER011 = 6619
  157.     If (STRING053 == "D") INTEGER011 = 4820
  158.     If (STRING053 == "E") INTEGER011 = 7325
  159.     If (STRING053 == "F") INTEGER011 = 2928
  160.     If (STRING053 == "G") INTEGER011 = 2031
  161.     If (STRING053 == "H") INTEGER011 = 1934
  162.     If (STRING053 == "I") INTEGER011 = 5534
  163.     If (STRING053 == "J") INTEGER011 = 4737
  164.     If (STRING053 == "K") INTEGER011 = 9242
  165.     If (STRING053 == "L") INTEGER011 = 3743
  166.     If (STRING053 == "M") INTEGER011 = 6546
  167.     If (STRING053 == "N") INTEGER011 = 8355
  168.     If (STRING053 == "O") INTEGER011 = 2859
  169.     If (STRING053 == "P") INTEGER011 = 4660
  170.     If (STRING053 == "Q") INTEGER011 = 7463
  171.     If (STRING053 == "R") INTEGER011 = 1164
  172.     If (STRING053 == "S") INTEGER011 = 6471
  173.     If (STRING053 == "T") INTEGER011 = 3973
  174.     If (STRING053 == "U") INTEGER011 = 5674
  175.     If (STRING053 == "V") INTEGER011 = 5782
  176.     If (STRING053 == "W") INTEGER011 = 3885
  177.     If (STRING053 == "X") INTEGER011 = 8287
  178.     If (STRING053 == "Y") INTEGER011 = 7591
  179.     If (STRING053 == "Z") INTEGER011 = 1096
  180.     INTEGER008 = S2I(STRING055, INTEGER007) + INTEGER010 + STRING059 + INTEGER011
  181.     INTEGER012 = S2I(STRING055, INTEGER007) + INTEGER010 + STRING060 + INTEGER011
  182.     If (INTEGER009 == INTEGER008) Goto LABEL002
  183.     If (INTEGER009 == INTEGER012) Goto LABEL002
  184.     Goto LABEL019
  185.     :LABEL002
  186.     STRING058 = "Y"
  187.     If (Len(INTEGER010) == 1) STRING049 = "000"
  188.     If (Len(INTEGER010) == 2) STRING049 = "00"
  189.     If (Len(INTEGER010) == 3) STRING049 = "0"
  190.     If (Len(INTEGER010) == 4) STRING049 = ""
  191.     STRING050 = INTEGER010
  192.     STRING051 = STRING049 + STRING050
  193.     STRING048 = Space(30 - Len(STRING047))
  194.     :LABEL003
  195.     STRING062 = "CRW"
  196.     FDefIn 1
  197.     FDefOut 2
  198.     FOpen 1, PPEPath() + "INTELEC.CNF", 0, 0
  199.     FGet 1, STRING002
  200.     FGet 1, STRING003
  201.     FGet 1, INTEGER005
  202.     FGet 1, STRING027
  203.     FGet 1, STRING027
  204.     FGet 1, STRING030
  205.     FGet 1, STRING027
  206.     FGet 1, STRING031
  207.     FGet 1, STRING027
  208.     FGet 1, STRING027
  209.     FGet 1, STRING046
  210.     FGet 1, STRING045
  211.     FGet 1, STRING027
  212.     FClose 1
  213.     STRING009 = "4.5 "
  214.     DATE001 = Date()
  215.     STRING037 = "  "
  216.     STRING004 = "Intelec PPE v" + STRING009 + " ■ " + STRING002 + " ■ " + STRING003 + " ■ "
  217.     GetToken STRING010
  218.     If (STRING010 == "I") STRING011 = "Y"
  219.     If (STRING011 == "Y") Goto LABEL004
  220.     FOpen 1, STRING030, 0, 0
  221.     FGet 1, STRING027
  222.     FGet 1, STRING027
  223.     FGet 1, STRING027
  224.     FGet 1, STRING027
  225.     FGet 1, STRING027
  226.     FGet 1, STRING027
  227.     FGet 1, STRING027
  228.     FGet 1, STRING027
  229.     FGet 1, STRING027
  230.     FGet 1, STRING028
  231.     FClose 1
  232.     DATE002 = Mid(STRING028, 38, 8)
  233.     Goto LABEL005
  234.     :LABEL004
  235.     FOpen 1, STRING030, 0, 0
  236.     FGet 1, STRING027
  237.     FGet 1, STRING027
  238.     FGet 1, STRING027
  239.     FGet 1, STRING027
  240.     FGet 1, STRING027
  241.     FGet 1, STRING027
  242.     FGet 1, STRING027
  243.     FGet 1, STRING027
  244.     FGet 1, STRING027
  245.     FGet 1, STRING028
  246.     FClose 1
  247.     DATE002 = Mid(STRING028, 49, 8)
  248.     :LABEL005
  249.     FOpen 1, STRING031, 0, 0
  250.     FGet 1, STRING027
  251.     FGet 1, STRING027
  252.     FGet 1, STRING027
  253.     FGet 1, STRING027
  254.     FClose 1
  255.     INTEGER003 = Mid(STRING027, 42, 3)
  256.     GetUser
  257.     STRING024 = Left(U_Addr(0), 17)
  258.     STRING016 = Left(U_Addr(2), 17)
  259.     STRING023 = Left(U_Addr(3), 2)
  260.     STRING007 = Left(U_Addr(4), 7)
  261.     STRING005 = Left(U_Addr(5), 12)
  262.     STRING020 = Left(U_Name(), 25)
  263.     :LABEL006
  264.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Application", "", ""
  265.     INTEGER001 = 0
  266.     Cls
  267.     DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
  268.     PrintLn 
  269.     InputStr " @X0BSelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  270.     If (INTEGER001 == 0) Goto LABEL016
  271.     If (INTEGER001 == 1) STRING013 = "PCBoard    "
  272.     If (INTEGER001 == 2) STRING013 = "Wildcat    "
  273.     If (INTEGER001 == 3) STRING013 = "Gap        "
  274.     If (INTEGER001 == 4) STRING013 = "Spitfire   "
  275.     If (INTEGER001 == 5) STRING013 = "Auntie     "
  276.     If (INTEGER001 == 6) STRING013 = "TriBBS     "
  277.     If (INTEGER001 == 7) STRING013 = "GT Power   "
  278.     If (INTEGER001 == 8) STRING013 = "Synchronet "
  279.     If (INTEGER001 == 9) STRING013 = "Rem. Access"
  280.     If (INTEGER001 == 10) STRING013 = "SearchLight"
  281.     If (INTEGER001 == 11) STRING013 = "UltraBBS   "
  282.     If (INTEGER001 == 12) STRING013 = "Maximus    "
  283.     If (INTEGER001 == 13) Goto LABEL007
  284.     If (INTEGER001 > 13) Gosub LABEL017
  285.     If (INTEGER001 > 13) Goto LABEL006
  286.     :LABEL007
  287.     STRING042 = "N"
  288.     If (INTEGER001 == 13) Then
  289.         STRING013 = ""
  290.         PrintLn 
  291.         InputStr "@X0BWhat BBS software do you use", STRING013, 11, 11, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  292.         If (STRING013 == "") Goto LABEL016
  293.         STRING042 = "Y"
  294.         STRING013 = STRING013 + Space(11 - Len(STRING013))
  295.     Endif
  296.     :LABEL008
  297.     Cls
  298.     INTEGER001 = 0
  299.     DispFile PPEPath() + "SCHNET", 4 + 2 + 1
  300.     PrintLn 
  301.     InputStr " @X0ESelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  302.     If (INTEGER001 == 0) Goto LABEL016
  303.     If (!(INTEGER001 == 16) && (STRING042 == "Y")) Goto LABEL018
  304.     If (INTEGER001 == 1) STRING014 = "Rnet      "
  305.     If (INTEGER001 == 2) STRING014 = "Qnet      "
  306.     If (INTEGER001 == 3) STRING014 = "Cam-Mail  "
  307.     If (INTEGER001 == 4) STRING014 = "RoseMail  "
  308.     If (INTEGER001 == 5) STRING014 = "Tnet      "
  309.     If (INTEGER001 == 6) STRING014 = "GapNet    "
  310.     If (INTEGER001 == 7) STRING014 = "BG_QWK    "
  311.     If (INTEGER001 == 8) STRING014 = "GT_QWK    "
  312.     If (INTEGER001 == 9) STRING014 = "Jnet      "
  313.     If (INTEGER001 == 10) STRING014 = "TriNet    "
  314.     If (INTEGER001 == 11) STRING014 = "QWiKerNet "
  315.     If (INTEGER001 == 12) STRING014 = "MkNet     "
  316.     If (INTEGER001 == 13) STRING014 = "Cnet      "
  317.     If (INTEGER001 == 14) STRING014 = "SynchroNet"
  318.     If (INTEGER001 == 15) STRING014 = "Valence   "
  319.     If (INTEGER001 == 16) STRING014 = "FTS Format"
  320.     If (INTEGER001 == 17) STRING014 = "wcECHO    "
  321.     If (INTEGER001 == 18) STRING014 = "wcGATE    "
  322.     If (INTEGER001 > 18) Gosub LABEL017
  323.     If (INTEGER001 > 18) Goto LABEL008
  324.     :LABEL009
  325.     INTEGER004 = 0
  326.     INTEGER001 = 0
  327.     Cls
  328.     FOpen 1, STRING031, 0, 0
  329.     FGet 1, STRING027
  330.     FGet 1, STRING027
  331.     FGet 1, STRING027
  332.     FGet 1, STRING027
  333.     FGet 1, STRING027
  334.     For INTEGER002 = 1 To INTEGER003
  335.         FGet 1, STRING032
  336.         FGet 1, STRING033
  337.         FGet 1, STRING034
  338.         FGet 1, STRING035
  339.         FGet 1, STRING036
  340.         If (((Mid(STRING035, 9, 14) == "Super Regional") || (Mid(STRING035, 9, 14) == "Regional Hub  ")) || (Mid(STRING035, 9, 14) == "Local Hub     ")) Gosub LABEL010
  341.     Next
  342.     FClose 1
  343.     PrintLn 
  344.     If (!(INTEGER004 == 4)) InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num() , 2
  345.     If (INTEGER001 == 0) Goto LABEL009
  346.     :LABEL010
  347.     If (INTEGER004 == 4) INTEGER004 = 0
  348.     If (INTEGER004 == 0) Cls
  349.     INTEGER004 = INTEGER004 + 1
  350.     STRING043 = Mid(STRING032, 9, 20)
  351.     STRING032 = "@X0F  " + Mid(STRING032, 9, 71)
  352.     STRING033 = "@X0E   " + Mid(STRING033, 9, 71)
  353.     STRING034 = "@X0A   " + Mid(STRING034, 9, 71)
  354.     STRING035 = "@X0B   " + Mid(STRING035, 9, 71)
  355.     STRING036 = "@X0F   " + Mid(STRING036, 9, 71)
  356.     If (INTEGER004 == 1) STRING038 = STRING043
  357.     If (INTEGER004 == 2) STRING039 = STRING043
  358.     If (INTEGER004 == 3) STRING040 = STRING043
  359.     If (INTEGER004 == 4) STRING041 = STRING043
  360.     STRING032 = "@X07" + String(INTEGER004) + STRING032
  361.     PrintLn STRING032
  362.     PrintLn STRING033
  363.     PrintLn STRING034
  364.     PrintLn STRING035
  365.     PrintLn STRING036
  366.     If (INTEGER004 == 4) Then
  367.         PrintLn 
  368.         INTEGER001 = 0
  369.         InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num(), 2
  370.         If (INTEGER001 == 1) STRING018 = STRING038
  371.         If (INTEGER001 == 2) STRING018 = STRING039
  372.         If (INTEGER001 == 3) STRING018 = STRING040
  373.         If (INTEGER001 == 4) STRING018 = STRING041
  374.         If (INTEGER001 == 0) Return
  375.         If (INTEGER001 > 4) Return
  376.         If (!(INTEGER001 == 0)) FClose 1
  377.         If (!(INTEGER001 == 0)) INTEGER002 = 0
  378.         If (INTEGER001 == 0) Then
  379.             Cls
  380.         Endif
  381.         Return
  382.     Endif
  383.     Cls
  384.     InputStr "@X0BWhat is the name of your BBS (20 chars maximum)", STRING012, 11, 20, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  385.     If (STRING012 == "") Goto LABEL016
  386.     If (STRING011 == "Y") Then
  387.         STRING006 = "              "
  388.     Else
  389.         STRING006 = "   -   -      "
  390.     Endif
  391.     InputStr "@X0BWhat is your BBS's phone number             ", STRING006, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  392.     If (Len(STRING006) < 8) Goto LABEL016
  393.     :LABEL011
  394.     INTEGER001 = 0
  395.     Cls
  396.     DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
  397.     PrintLn 
  398.     PrintLn " @X0EWhat modem is on your BBS phone number: @X0F", STRING006, "@X0B"
  399.     PrintLn 
  400.     InputStr "Select # or <Enter> to Abort ", INTEGER001, 11, 1, Mask_Num(), 2
  401.     If (INTEGER001 == 0) Goto LABEL016
  402.     If (INTEGER001 == 1) STRING019 = "v.32bis    "
  403.     If (INTEGER001 == 2) STRING019 = "USR HST    "
  404.     If (INTEGER001 == 3) STRING019 = "D/S 14.4   "
  405.     If (INTEGER001 == 4) STRING019 = "D/S 16.8   "
  406.     If (INTEGER001 == 5) STRING019 = "ZyXel      "
  407.     If (INTEGER001 == 6) STRING019 = "V.Terbo    "
  408.     If (INTEGER001 == 7) STRING019 = "V.FC 28.8  "
  409.     If (INTEGER001 == 8) STRING019 = "V.34       "
  410.     If (INTEGER001 == 9) STRING019 = "Other      "
  411.     If (INTEGER001 > 9) Gosub LABEL017
  412.     If (INTEGER001 > 9) Goto LABEL011
  413.     INTEGER001 = 0
  414.     Cls
  415.     InputStr "@X0EHow many years has your BBS been operational, or <Enter> to Abort ", INTEGER001, 11, 2, Mask_Num(), 2
  416.     If (INTEGER001 == 0) Goto LABEL016
  417.     If (INTEGER001 == 1) STRING026 = "1 Year  "
  418.     If (INTEGER001 == 2) STRING026 = "2 Years "
  419.     If (INTEGER001 == 3) STRING026 = "3 Years "
  420.     If (INTEGER001 == 4) STRING026 = "4 Years "
  421.     If (INTEGER001 == 5) STRING026 = "5 Years "
  422.     If (INTEGER001 == 6) STRING026 = "6 Years "
  423.     If (INTEGER001 == 7) STRING026 = "7 Years "
  424.     If (INTEGER001 == 8) STRING026 = "8 Years "
  425.     If (INTEGER001 == 9) STRING026 = "9 Years "
  426.     If (INTEGER001 == 10) STRING026 = "10 Years"
  427.     If (INTEGER001 == 11) STRING026 = "11 Years"
  428.     If (INTEGER001 == 12) STRING026 = "12 Years"
  429.     If (INTEGER001 == 13) STRING026 = "13 Years"
  430.     If (INTEGER001 == 14) STRING026 = "14 Years"
  431.     If (INTEGER001 == 15) STRING026 = "15 Years"
  432.     If (INTEGER001 > 15) STRING026 = "15+ Yrs."
  433.     INTEGER001 = 0
  434.     Cls
  435.     PrintLn " "
  436.     InputStr "@X0EHow many users on your BBS, or <Enter> to Abort ", INTEGER001, 11, 5, Mask_Num(), 2
  437.     If (INTEGER001 == 0) Goto LABEL016
  438.     STRING025 = String(INTEGER001) + Space(9 - Len(INTEGER001))
  439.     Cls
  440.     Color 11
  441.     InputStr "Your real name on BBS (25 characters max)   ", STRING020, 11, 25, Mask_Alpha() + " ", 2 + 128
  442.     If (Len(STRING020) < 1) Goto LABEL016
  443.     If (STRING011 == "Y") Then
  444.         STRING017 = "              "
  445.     Else
  446.         STRING017 = "   -   -      "
  447.     Endif
  448.     InputStr "What is your voice phone #                  ", STRING017, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  449.     If (Len(STRING017) < 8) Goto LABEL016
  450.     STRING008 = "  -  -  "
  451.     InputStr "What is your Date of Birth                  ", STRING008, 11, 8, Mask_Num() + "-", 2 + 128 + 1024
  452.     If (Len(STRING008) < 8) Goto LABEL016
  453.     InputStr "What's your Street Address                  ", STRING024, 11, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 128
  454.     If (Len(STRING024) < 9) Goto LABEL016
  455.     InputStr "City: (17 characters max)                   ", STRING016, 11, 17, Mask_Alpha() + " ", 2 + 128
  456.     If (Len(STRING016) < 3) Goto LABEL016
  457.     InputStr "State or Province (2 letter abbreviation) ", STRING023, 11, 2, Mask_Alpha() + " ", 2 + 8 + 128
  458.     InputStr "Country (12 characters max)                  ", STRING005, 11, 12, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  459.     If (Len(STRING005) < 3) Goto LABEL016
  460.     InputStr "Zip code (7 characters max)                 ", STRING007, 11, 7, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  461.     If (Len(STRING007) < 3) Goto LABEL016
  462.     Cls
  463.     Color 11
  464.     PrintLn "The ideal applicant should be familiar with network mail.  While this is"
  465.     PrintLn "not a requirement, an aptitude for handling the software is essential to"
  466.     PrintLn "the ensurance of smooth, problem-free mail runs.  Systems that show they"
  467.     PrintLn "cannot handle network mail can be removed as fast as they were approved."
  468.     PrintLn "We do this since it is not fair for the rest of the network to always be"
  469.     PrintLn "cleaning up messes made by too novice a SysOp.  So if you're new, please"
  470.     PrintLn "make sure you have a good solid handle on the net software you're using."
  471.     PrintLn 
  472.     InputStr "@X0BWhat other networks do you currently carry", STRING044, 11, 25, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2
  473.     :LABEL012
  474.     Cls
  475.     Color 15
  476.     PrintLn "Please make sure you have read our network rules file, it's required...."
  477.     PrintLn 
  478.     Color 11
  479.     PrintLn "You will need to make an account on your BBS for the name CLIFF WATKINS."
  480.     PrintLn "This will be used for either reviewing your board if we are not familiar"
  481.     PrintLn "with your system or for direct contacts from the Intelec Administration."
  482.     PrintLn "You'll need to make this account and tell us what password you assigned:"
  483.     PrintLn 
  484.     InputStr "@X0BWhat password as defined above (8 characters max) ", STRING021, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
  485.     If (Len(STRING021) < 2) Goto LABEL016
  486.     InputStr "Please type password again........................", STRING022, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
  487.     If (STRING021 == STRING022) Goto LABEL013
  488.     PrintLn 
  489.     PrintLn "@X8C* @X0BPasswords did not match @X8C*@X07"
  490.     PrintLn 
  491.     Wait
  492.     STRING021 = ""
  493.     STRING022 = ""
  494.     Goto LABEL012
  495.     :LABEL013
  496.     STRING029 = "N"
  497.     PrintLn 
  498.     InputStr "@X0BHave you read the network rules and agree to comply with all (Y/N)", STRING029, 11, 1, Mask_Alpha(), 2 + 8
  499.     If (STRING029 == "N") Goto LABEL016
  500.     If (STRING029 == "") Goto LABEL016
  501.     If (STRING029 == "Y") STRING015 = "Y"
  502.     Cls
  503.     STRING029 = ""
  504.     PrintLn "  @X0A┌─────────────────────────────────────────────────@X0A┐@X07"
  505.     PrintLn "  @X0A│   @X0EIntelec Network PPE v", STRING009, "  VOID on ", DATE002, "   @X0A│@X07"
  506.     PrintLn "  @X0A├─────────────────────────────────────────────────@X0A┤@X07"
  507.     PrintLn "  @X0A│@X0B Today's Date@X0A·········@X0E ", DATE001, "                  @X0A│@X07"
  508.     PrintLn "  @X0A│@X0B Your (SysOp) Name@X0A····@X0E ", STRING020, Space(25 - Len(STRING020)), " @X0A│@X07"
  509.     PrintLn "  @X0A│@X0B Your (BBS's) Name@X0A····@X0E ", STRING012, Space(20 - Len(STRING012)), "      @X0A│@X07"
  510.     PrintLn "  @X0A│@X0B Your Date of Birth@X0A···@X0E ", STRING008, "                  @X0A│@X07"
  511.     PrintLn "  @X0A│@X0B Street Address@X0A·······@X0E ", STRING024, Space(25 - Len(STRING024)), " @X0A│@X07"
  512.     PrintLn "  @X0A│@X0B City and State@X0A·······@X0E ", STRING016, "  ", STRING023, Space(17 - Len(STRING016)), Space(2 - Len(STRING023)), "     @X0A│@X07"
  513.     PrintLn "  @X0A│@X0B Country & Zip Code@X0A···@X0E ", STRING005, Space(12 - Len(STRING005)), " ", STRING007, Space(7 - Len(STRING007)), "      @X0A│@X07"
  514.     PrintLn "  @X0A│@X0B Your Voice Phone #@X0A···@X0E ", STRING017, Space(14 - Len(STRING017)), "            @X0A│@X07"
  515.     PrintLn "  @X0A│@X0B Your  BBS  Phone #@X0A···@X0E ", STRING006, Space(14 - Len(STRING006)), "            @X0A│@X07"
  516.     PrintLn "  @X0A│@X0B Modem on above #@X0A·····@X0E ", STRING019, "               @X0A│@X07"
  517.     PrintLn "  @X0A│@X0B BBS Software Used@X0A····@X0E ", STRING013, "               @X0A│@X07"
  518.     PrintLn "  @X0A│@X0B Total Users Online@X0A···@X0E ", STRING025, "                 @X0A│@X07"
  519.     PrintLn "  @X0A│@X0B Years/Months Online@X0A··@X0E ", STRING026, "                  @X0A│@X07"
  520.     PrintLn "  @X0A│@X0B Your Hub Request@X0A·····@X0E ", STRING018, "      @X0A│@X07"
  521.     PrintLn "  @X0A│@X0B Netmail Tosser Used@X0A··@X0E ", STRING014, "                @X0A│@X07"
  522.     PrintLn "  @X0A│@X0B Other Nets Carried@X0A···@X0E ", STRING044, Space(25 - Len(STRING044)), " @X0A│@X07"
  523.     PrintLn "  @X0A│@X0B Read Rules? [Y/N]@X0A····@X0E ", STRING015, "                         @X0A│@X07"
  524.     PrintLn "  @X0A│@X0B CLIFF WATKINS P/W@X0A····@X0E ", STRING022, Space(8 - Len(STRING022)), "                  @X0A│@X07"
  525.     PrintLn "  @X0A└@X0A─────────────────────────────────────────────────┘@X07"
  526.     InputStr "  @X0AS@X0B) Save as shown above   @X0EM@X0B) Modify   @X0CA@X0B) Abort", STRING029, 11, 1, Mask_Alpha(), 2 + 8
  527.     If (STRING029 == "S") Goto LABEL014
  528.     If (STRING029 == "M") Goto LABEL006
  529.     If (STRING029 == "A") Goto LABEL016
  530.     Goto LABEL016
  531.     :LABEL014
  532.     FOpen 2, STRING045, 1, 0
  533.     FPutLn 2, "┌─────────────────────────────────────────────────┐"
  534.     FPutLn 2, "│   Intelec Network PPE v", STRING009, "  VOID on ", DATE002, "   │"
  535.     FPutLn 2, "├─────────────────────────────────────────────────┤"
  536.     FPutLn 2, "│ Today's Date········· ", DATE001, "                  │"
  537.     FPutLn 2, "│ Your (SysOp) Name···· ", STRING020, Space(25 - Len(STRING020)), " │"
  538.     FPutLn 2, "│ Your (BBS's) Name···· ", STRING012, Space(20 - Len(STRING012)), "      │"
  539.     FPutLn 2, "│ Your Date of Birth··· ", STRING008, "                  │"
  540.     FPutLn 2, "│ Street Address······· ", STRING024, Space(25 - Len(STRING024)), " │"
  541.     FPutLn 2, "│ City and State······· ", STRING016, "  ", STRING023, Space(17 - Len(STRING016)), Space(2 - Len(STRING023)), "     │"
  542.     FPutLn 2, "│ Country & Zip Code··· ", STRING005, Space(12 - Len(STRING005)), " ", STRING007, Space(7 - Len(STRING007)), "      │"
  543.     FPutLn 2, "│ Your Voice Phone #··· ", STRING017, Space(14 - Len(STRING017)), "            │"
  544.     FPutLn 2, "│ Your  BBS  Phone #··· ", STRING006, Space(14 - Len(STRING006)), "            │"
  545.     FPutLn 2, "│ Modem on above #····· ", STRING019, "               │"
  546.     FPutLn 2, "│ BBS Software Used···· ", STRING013, "               │"
  547.     FPutLn 2, "│ Total Users Online··· ", STRING025, "                 │"
  548.     FPutLn 2, "│ Years/Months Online·· ", STRING026, "                  │"
  549.     FPutLn 2, "│ Your Hub Request····· ", STRING018, "      │"
  550.     FPutLn 2, "│ Netmail Tosser Used·· ", STRING014, "                │"
  551.     FPutLn 2, "│ Other Nets Carried··· ", STRING044, Space(25 - Len(STRING044)), " │"
  552.     FPutLn 2, "│ Read Rules? [Y/N]···· ", STRING015, "                         │"
  553.     FPutLn 2, "│ CLIFF WATKINS P/W···· ", STRING022, Space(8 - Len(STRING022)), "                  │"
  554.     FPutLn 2, "└─────────────────────────────────────────────────┘"
  555.     FPutLn 2, STRING004
  556.     FClose 2
  557.     Log "Intelec Application completed at " + String(Time()), 0
  558.     Message 0, STRING003, "INTAPP", "Intelec Application", "R", "0", "0", "0", STRING045
  559.     If (INTEGER005 < 1) Goto LABEL015
  560.     Message INTEGER005, "CLIFF WATKINS", STRING003, "Intelec Application", "N", "0", "0", "1", STRING045
  561.     :LABEL015
  562.     If (!(STRING046 == "")) Append STRING045, STRING046
  563.     Delete STRING045
  564.     Cls
  565.     Color 15
  566.     PrintLn "Thanks for taking the time to apply to the Intelec Network. The applica-"
  567.     PrintLn "tion will be sent ASAP to the net host for immediate processing  and you"
  568.     PrintLn "will hear back from us real soon.  Cliff Watkins. Intelec Network Admin."
  569.     PrintLn 
  570.     Wait
  571.     End
  572.     :LABEL016
  573.     Cls
  574.     Color 15
  575.     PrintLn "Intelec PPE has ABORTED. If you didn't mean to, please re-start the app-"
  576.     PrintLn "lication as we would love to hear from you!  Thanks. Intelec Management."
  577.     PrintLn 
  578.     Wait
  579.     End
  580.     :LABEL017
  581.     PrintLn 
  582.     PrintLn "@X0FSorry... you entered an invalid number"
  583.     PrintLn 
  584.     Wait
  585.     Return
  586.     :LABEL018
  587.     Cls
  588.     Color 15
  589.     PrintLn " Sorry... for the BBS software you use, only FTS (Fido Technology Standard) is"
  590.     PrintLn " available for use.  There is no ""QWK software format"" approved for use within"
  591.     PrintLn " Intelec for your software at this time. However if you would like to have the"
  592.     PrintLn " software approved for use, please contact the host BBS SysOp directly to have"
  593.     PrintLn " test relays set up  to see if this QWK software can be placed on the approved"
  594.     PrintLn " software list. If you have selected PCRelay or PostLink, they're not approved"
  595.     PrintLn " at this time either, no testing can be done at the host as the host system is"
  596.     PrintLn " not going to operate this software at all. Thank you, Intelec Administration."
  597.     PrintLn 
  598.     Wait
  599.     Goto LABEL016
  600.     :LABEL019
  601.     End
  602.  
  603. ;------------------------------------------------------------------------------
  604. ;
  605. ; Usage report (before postprocessing)
  606. ;
  607. ; ■ Statements used :
  608. ;
  609. ;    4       End
  610. ;    16      Cls
  611. ;    5       Wait
  612. ;    7       Color 
  613. ;    60      Goto 
  614. ;    178     Let 
  615. ;    75      PrintLn 
  616. ;    167     If 
  617. ;    3       DispFile 
  618. ;    7       FOpen 
  619. ;    8       FClose 
  620. ;    50      FGet 
  621. ;    23      FPutLn 
  622. ;    1       GetUser
  623. ;    1       Delete 
  624. ;    1       Log 
  625. ;    23      InputStr 
  626. ;    4       Gosub 
  627. ;    4       Return
  628. ;    1       Tokenize 
  629. ;    3       GetToken 
  630. ;    1       Beep
  631. ;    1       WrUNet 
  632. ;    2       Message 
  633. ;    1       FDefIn 
  634. ;    1       FDefOut 
  635. ;    1       Append 
  636. ;
  637. ;
  638. ; ■ Functions used :
  639. ;
  640. ;    93      +
  641. ;    25      -
  642. ;    150     ==
  643. ;    11      <
  644. ;    1       <=
  645. ;    8       >
  646. ;    2       >=
  647. ;    18      !
  648. ;    3       &&
  649. ;    3       ||
  650. ;    38      Len(
  651. ;    12      Mid()
  652. ;    8       Left()
  653. ;    25      Space()
  654. ;    1       Date()
  655. ;    1       Time()
  656. ;    2       U_Name()
  657. ;    3       String()
  658. ;    2       Mask_Pwd()
  659. ;    11      Mask_Alpha()
  660. ;    16      Mask_Num()
  661. ;    6       Mask_Ascii()
  662. ;    8       PPEPath()
  663. ;    1       PcbNode()
  664. ;    1       UN_Stat()
  665. ;    1       Exist()
  666. ;    2       S2I()
  667. ;    20      PPEName()
  668. ;
  669. ;------------------------------------------------------------------------------
  670. ;
  671. ; Analysis flags : No flag
  672. ;
  673. ;------------------------------------------------------------------------------
  674. ;
  675. ; Postprocessing report
  676. ;
  677. ;    1       For/Next
  678. ;    0       While/EndWhile
  679. ;    8       If/Then or If/Then/Else
  680. ;    1       Select Case
  681. ;
  682. ;------------------------------------------------------------------------------
  683. ;                 AEGiS Corp - Break the routines, code against the machines!
  684. ;------------------------------------------------------------------------------
  685.