home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / CONFJOIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  12KB  |  722 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.     String   STRING010
  36.     String   STRING011
  37.     String   STRING012
  38.     String   STRING013
  39.     String   STRING014
  40.     String   STRING015
  41.     String   STRING016
  42.     String   STRING017
  43.     String   STRING018
  44.     String   STRING019
  45.     String   STRING020
  46.     String   STRING021
  47.     String   STRING022
  48.     String   STRING023
  49.     String   STRING024
  50.     String   STRING025
  51.     String   STRING026
  52.     String   STRING027
  53.     String   STRING028
  54.     String   STRING029
  55.     String   STRING030
  56.     String   STRING031
  57.     String   STRING032
  58.     String   STRING033
  59.     String   STRING034
  60.     String   STRING035
  61.     String   STRING036
  62.     String   STRING037
  63.     String   STRING038
  64.     String   STRING039
  65.     String   STRING040
  66.     String   STRING041
  67.     String   STRING042
  68.     String   STRING043
  69.     String   STRING044
  70.     String   STRING045
  71.     String   STRING046
  72.     String   STRING047
  73.     String   STRING048
  74.  
  75. ;------------------------------------------------------------------------------
  76.  
  77.     STRING001 = "1.3"
  78.     If (Exist(PPEPath() + "CONFJOIN.CNF") == 0) Then
  79.         PrintLn 
  80.         PrintLn "@X8CERROR@X0B: Config file not found!"
  81.         PrintLn 
  82.         Goto LABEL041
  83.     Else
  84.         FOpen 1, PPEPath() + "CONFJOIN.CNF", 0, 0
  85.         FGet 1, STRING042
  86.         FGet 1, INTEGER006
  87.         FGet 1, INTEGER004
  88.         FGet 1, STRING004
  89.         FGet 1, INTEGER001
  90.         FGet 1, STRING006
  91.         FGet 1, STRING007
  92.         FGet 1, STRING008
  93.         FGet 1, STRING009
  94.         FGet 1, STRING010
  95.         FGet 1, STRING011
  96.         FGet 1, STRING012
  97.         FGet 1, STRING013
  98.         FGet 1, STRING014
  99.         FGet 1, STRING015
  100.         FGet 1, STRING016
  101.         FGet 1, STRING017
  102.         FGet 1, STRING018
  103.         FGet 1, STRING019
  104.         FGet 1, STRING020
  105.         FGet 1, STRING021
  106.         FGet 1, STRING022
  107.         FGet 1, STRING023
  108.         FGet 1, STRING024
  109.         FGet 1, STRING025
  110.         FGet 1, STRING026
  111.         FGet 1, STRING027
  112.         FGet 1, STRING028
  113.         FGet 1, STRING029
  114.         FGet 1, STRING030
  115.         FGet 1, STRING031
  116.         FGet 1, STRING032
  117.         FGet 1, STRING033
  118.         FGet 1, STRING034
  119.         FGet 1, STRING035
  120.         FGet 1, STRING036
  121.         FGet 1, STRING037
  122.         FClose 1
  123.     Endif
  124.     GetToken STRING003
  125.     If (Strip(STRING003, Chr(32)) == "") Goto LABEL001
  126.     KbdStuff "J " + STRING003 + Chr(13)
  127.     End
  128.     :LABEL001
  129.     Tokenize STRING042
  130.     GetToken STRING046
  131.     GetToken STRING047
  132.     If (INTEGER006 == 0) Then
  133.         STRING048 = "N"
  134.         Goto LABEL003
  135.     Else
  136.         Goto LABEL002
  137.     Endif
  138.     :LABEL002
  139.     INTEGER002 = 36
  140.     INTEGER005 = 27233
  141.     STRING043 = Left(STRING046, 1)
  142.     STRING044 = Left(STRING047, 2)
  143.     STRING045 = STRING043 + STRING044
  144.     If (STRING043 == "A") INTEGER007 = 1934
  145.     If (STRING043 == "B") INTEGER007 = 2859
  146.     If (STRING043 == "C") INTEGER007 = 3743
  147.     If (STRING043 == "D") INTEGER007 = 4660
  148.     If (STRING043 == "E") INTEGER007 = 5534
  149.     If (STRING043 == "F") INTEGER007 = 6471
  150.     If (STRING043 == "G") INTEGER007 = 7325
  151.     If (STRING043 == "H") INTEGER007 = 8287
  152.     If (STRING043 == "I") INTEGER007 = 9119
  153.     If (STRING043 == "J") INTEGER007 = 1096
  154.     If (STRING043 == "K") INTEGER007 = 2928
  155.     If (STRING043 == "L") INTEGER007 = 3885
  156.     If (STRING043 == "M") INTEGER007 = 4737
  157.     If (STRING043 == "N") INTEGER007 = 5674
  158.     If (STRING043 == "O") INTEGER007 = 6546
  159.     If (STRING043 == "P") INTEGER007 = 7463
  160.     If (STRING043 == "Q") INTEGER007 = 8355
  161.     If (STRING043 == "R") INTEGER007 = 9242
  162.     If (STRING043 == "S") INTEGER007 = 1164
  163.     If (STRING043 == "T") INTEGER007 = 2031
  164.     If (STRING043 == "U") INTEGER007 = 3973
  165.     If (STRING043 == "V") INTEGER007 = 4820
  166.     If (STRING043 == "W") INTEGER007 = 5782
  167.     If (STRING043 == "X") INTEGER007 = 6619
  168.     If (STRING043 == "Y") INTEGER007 = 7591
  169.     If (STRING043 == "Z") INTEGER007 = 8408
  170.     INTEGER003 = S2I(STRING045, INTEGER002) + INTEGER006 + INTEGER005 + INTEGER007
  171.     If (Len(INTEGER006) == 1) STRING039 = "000"
  172.     If (Len(INTEGER006) == 2) STRING039 = "00"
  173.     If (Len(INTEGER006) == 3) STRING039 = "0"
  174.     If (Len(INTEGER006) == 4) STRING039 = ""
  175.     STRING040 = INTEGER006
  176.     STRING041 = STRING039 + STRING040
  177.     :LABEL003
  178.     If (!(INTEGER004 == INTEGER003) || (STRING048 == "N")) Then
  179.         STRING038 = "@X0BConfJoin v" + STRING001 + " # " + "@X0CUNREGISTERED@X0B" + " ■ " + STRING042
  180.     Else
  181.         STRING038 = "@X0BConfJoin v" + STRING001 + " #@X0F" + STRING041 + "@X0B ■ " + STRING042
  182.     Endif
  183.     :LABEL004
  184.     Cls
  185.     If (Exist(STRING004)) Then
  186.         DispFile STRING004, 4 + 2 + 1
  187.     Else
  188.         PrintLn "@X8CERROR@X0B: Menu Display Missing! Notify SysOp!"
  189.     Endif
  190.     If (INTEGER001 == 1) Goto LABEL038
  191.     PrintLn STRING038
  192.     InputStr "@X0BWhich network (number) would you like to view, or S)earch", STRING005, 11, 2, "1234567890Ss", Mask_Alpha() + Mask_Num()
  193.     If (STRING005 == "1") Goto LABEL005
  194.     If (STRING005 == "2") Goto LABEL006
  195.     If (STRING005 == "3") Goto LABEL007
  196.     If (STRING005 == "4") Goto LABEL008
  197.     If (STRING005 == "5") Goto LABEL009
  198.     If (STRING005 == "6") Goto LABEL010
  199.     If (STRING005 == "7") Goto LABEL011
  200.     If (STRING005 == "8") Goto LABEL012
  201.     If (STRING005 == "9") Goto LABEL013
  202.     If (STRING005 == "10") Goto LABEL014
  203.     If (STRING005 == "11") Goto LABEL015
  204.     If (STRING005 == "12") Goto LABEL016
  205.     If (STRING005 == "13") Goto LABEL017
  206.     If (STRING005 == "14") Goto LABEL018
  207.     If (STRING005 == "15") Goto LABEL019
  208.     If (STRING005 == "16") Goto LABEL020
  209.     If (STRING005 == "17") Goto LABEL021
  210.     If (STRING005 == "18") Goto LABEL022
  211.     If (STRING005 == "19") Goto LABEL023
  212.     If (STRING005 == "20") Goto LABEL024
  213.     If (STRING005 == "21") Goto LABEL025
  214.     If (STRING005 == "22") Goto LABEL026
  215.     If (STRING005 == "23") Goto LABEL027
  216.     If (STRING005 == "24") Goto LABEL028
  217.     If (STRING005 == "25") Goto LABEL029
  218.     If (STRING005 == "26") Goto LABEL030
  219.     If (STRING005 == "27") Goto LABEL031
  220.     If (STRING005 == "28") Goto LABEL032
  221.     If (STRING005 == "29") Goto LABEL033
  222.     If (STRING005 == "30") Goto LABEL034
  223.     If (STRING005 == "31") Goto LABEL035
  224.     If (STRING005 == "32") Goto LABEL036
  225.     If (STRING005 == "S") Goto LABEL040
  226.     If (STRING005 == "s") Goto LABEL040
  227.     If (STRING005 == "") Goto LABEL041
  228.     :LABEL005
  229.     Cls
  230.     If (INTEGER001 < 1) Goto LABEL037
  231.     If (Exist(STRING006)) Then
  232.         DispFile STRING006, 4 + 2 + 1
  233.     Else
  234.         Goto LABEL039
  235.     Endif
  236.     PrintLn 
  237.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  238.     If (STRING002 == "") Goto LABEL004
  239.     KbdStuff "J " + STRING002 + Chr(13)
  240.     Goto LABEL041
  241.     :LABEL006
  242.     Cls
  243.     If (INTEGER001 < 2) Goto LABEL037
  244.     If (Exist(STRING007)) Then
  245.         DispFile STRING007, 4 + 2 + 1
  246.     Else
  247.         Goto LABEL039
  248.     Endif
  249.     PrintLn 
  250.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  251.     If (STRING002 == "") Goto LABEL004
  252.     KbdStuff "J " + STRING002 + Chr(13)
  253.     Goto LABEL041
  254.     :LABEL007
  255.     Cls
  256.     If (INTEGER001 < 3) Goto LABEL037
  257.     If (Exist(STRING008)) Then
  258.         DispFile STRING008, 4 + 2 + 1
  259.     Else
  260.         Goto LABEL039
  261.     Endif
  262.     PrintLn 
  263.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  264.     If (STRING002 == "") Goto LABEL004
  265.     KbdStuff "J " + STRING002 + Chr(13)
  266.     Goto LABEL041
  267.     :LABEL008
  268.     Cls
  269.     If (INTEGER001 < 4) Goto LABEL037
  270.     If (Exist(STRING009)) Then
  271.         DispFile STRING009, 4 + 2 + 1
  272.     Else
  273.         Goto LABEL039
  274.     Endif
  275.     PrintLn 
  276.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  277.     If (STRING002 == "") Goto LABEL004
  278.     KbdStuff "J " + STRING002 + Chr(13)
  279.     Goto LABEL041
  280.     :LABEL009
  281.     Cls
  282.     If (INTEGER001 < 5) Goto LABEL037
  283.     If (Exist(STRING010)) Then
  284.         DispFile STRING010, 4 + 2 + 1
  285.     Else
  286.         Goto LABEL039
  287.     Endif
  288.     PrintLn 
  289.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  290.     If (STRING002 == "") Goto LABEL004
  291.     KbdStuff "J " + STRING002 + Chr(13)
  292.     Goto LABEL041
  293.     :LABEL010
  294.     Cls
  295.     If (INTEGER001 < 6) Goto LABEL037
  296.     If (Exist(STRING011)) Then
  297.         DispFile STRING011, 4 + 2 + 1
  298.     Else
  299.         Goto LABEL039
  300.     Endif
  301.     PrintLn 
  302.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  303.     If (STRING002 == "") Goto LABEL004
  304.     KbdStuff "J " + STRING002 + Chr(13)
  305.     Goto LABEL041
  306.     :LABEL011
  307.     Cls
  308.     If (INTEGER001 < 7) Goto LABEL037
  309.     If (Exist(STRING012)) Then
  310.         DispFile STRING012, 4 + 2 + 1
  311.     Else
  312.         Goto LABEL039
  313.     Endif
  314.     PrintLn 
  315.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  316.     If (STRING002 == "") Goto LABEL004
  317.     KbdStuff "J " + STRING002 + Chr(13)
  318.     Goto LABEL041
  319.     :LABEL012
  320.     Cls
  321.     If (INTEGER001 < 8) Goto LABEL037
  322.     If (Exist(STRING013)) Then
  323.         DispFile STRING013, 4 + 2 + 1
  324.     Else
  325.         Goto LABEL039
  326.     Endif
  327.     PrintLn 
  328.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  329.     If (STRING002 == "") Goto LABEL004
  330.     KbdStuff "J " + STRING002 + Chr(13)
  331.     Goto LABEL041
  332.     :LABEL013
  333.     Cls
  334.     If (INTEGER001 < 9) Goto LABEL037
  335.     If (Exist(STRING014)) Then
  336.         DispFile STRING014, 4 + 2 + 1
  337.     Else
  338.         Goto LABEL039
  339.     Endif
  340.     PrintLn 
  341.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  342.     If (STRING002 == "") Goto LABEL004
  343.     KbdStuff "J " + STRING002 + Chr(13)
  344.     Goto LABEL041
  345.     :LABEL014
  346.     Cls
  347.     If (INTEGER001 < 10) Goto LABEL037
  348.     If (Exist(STRING015)) Then
  349.         DispFile STRING015, 4 + 2 + 1
  350.     Else
  351.         Goto LABEL039
  352.     Endif
  353.     PrintLn 
  354.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  355.     If (STRING002 == "") Goto LABEL004
  356.     KbdStuff "J " + STRING002 + Chr(13)
  357.     Goto LABEL041
  358.     :LABEL015
  359.     Cls
  360.     If (INTEGER001 < 11) Goto LABEL037
  361.     If (Exist(STRING016)) Then
  362.         DispFile STRING016, 4 + 2 + 1
  363.     Else
  364.         Goto LABEL039
  365.     Endif
  366.     PrintLn 
  367.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  368.     If (STRING002 == "") Goto LABEL004
  369.     KbdStuff "J " + STRING002 + Chr(13)
  370.     Goto LABEL041
  371.     :LABEL016
  372.     Cls
  373.     If (INTEGER001 < 12) Goto LABEL037
  374.     If (Exist(STRING017)) Then
  375.         DispFile STRING017, 4 + 2 + 1
  376.     Else
  377.         Goto LABEL039
  378.     Endif
  379.     PrintLn 
  380.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  381.     If (STRING002 == "") Goto LABEL004
  382.     KbdStuff "J " + STRING002 + Chr(13)
  383.     Goto LABEL041
  384.     :LABEL017
  385.     Cls
  386.     If (INTEGER001 < 13) Goto LABEL037
  387.     If (Exist(STRING018)) Then
  388.         DispFile STRING018, 4 + 2 + 1
  389.     Else
  390.         Goto LABEL039
  391.     Endif
  392.     PrintLn 
  393.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  394.     If (STRING002 == "") Goto LABEL004
  395.     KbdStuff "J " + STRING002 + Chr(13)
  396.     Goto LABEL041
  397.     :LABEL018
  398.     Cls
  399.     If (INTEGER001 < 14) Goto LABEL037
  400.     If (Exist(STRING019)) Then
  401.         DispFile STRING019, 4 + 2 + 1
  402.     Else
  403.         Goto LABEL039
  404.     Endif
  405.     PrintLn 
  406.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  407.     If (STRING002 == "") Goto LABEL004
  408.     KbdStuff "J " + STRING002 + Chr(13)
  409.     Goto LABEL041
  410.     :LABEL019
  411.     Cls
  412.     If (INTEGER001 < 15) Goto LABEL037
  413.     If (Exist(STRING020)) Then
  414.         DispFile STRING020, 4 + 2 + 1
  415.     Else
  416.         Goto LABEL039
  417.     Endif
  418.     PrintLn 
  419.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  420.     If (STRING002 == "") Goto LABEL004
  421.     KbdStuff "J " + STRING002 + Chr(13)
  422.     Goto LABEL041
  423.     :LABEL020
  424.     Cls
  425.     If (INTEGER001 < 16) Goto LABEL037
  426.     If (Exist(STRING021)) Then
  427.         DispFile STRING021, 4 + 2 + 1
  428.     Else
  429.         Goto LABEL039
  430.     Endif
  431.     PrintLn 
  432.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  433.     If (STRING002 == "") Goto LABEL004
  434.     KbdStuff "J " + STRING002 + Chr(13)
  435.     Goto LABEL041
  436.     :LABEL021
  437.     Cls
  438.     If (INTEGER001 < 17) Goto LABEL037
  439.     If (Exist(STRING022)) Then
  440.         DispFile STRING022, 4 + 2 + 1
  441.     Else
  442.         Goto LABEL039
  443.     Endif
  444.     PrintLn 
  445.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  446.     If (STRING002 == "") Goto LABEL004
  447.     KbdStuff "J " + STRING002 + Chr(13)
  448.     Goto LABEL041
  449.     :LABEL022
  450.     Cls
  451.     If (INTEGER001 < 18) Goto LABEL037
  452.     If (Exist(STRING023)) Then
  453.         DispFile STRING023, 4 + 2 + 1
  454.     Else
  455.         Goto LABEL039
  456.     Endif
  457.     PrintLn 
  458.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  459.     If (STRING002 == "") Goto LABEL004
  460.     KbdStuff "J " + STRING002 + Chr(13)
  461.     Goto LABEL041
  462.     :LABEL023
  463.     Cls
  464.     If (INTEGER001 < 19) Goto LABEL037
  465.     If (Exist(STRING024)) Then
  466.         DispFile STRING024, 4 + 2 + 1
  467.     Else
  468.         Goto LABEL039
  469.     Endif
  470.     PrintLn 
  471.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  472.     If (STRING002 == "") Goto LABEL004
  473.     KbdStuff "J " + STRING002 + Chr(13)
  474.     Goto LABEL041
  475.     :LABEL024
  476.     Cls
  477.     If (INTEGER001 < 20) Goto LABEL037
  478.     If (Exist(STRING025)) Then
  479.         DispFile STRING025, 4 + 2 + 1
  480.     Else
  481.         Goto LABEL039
  482.     Endif
  483.     PrintLn 
  484.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  485.     If (STRING002 == "") Goto LABEL004
  486.     KbdStuff "J " + STRING002 + Chr(13)
  487.     Goto LABEL041
  488.     :LABEL025
  489.     Cls
  490.     If (INTEGER001 < 21) Goto LABEL037
  491.     If (Exist(STRING026)) Then
  492.         DispFile STRING026, 4 + 2 + 1
  493.     Else
  494.         Goto LABEL039
  495.     Endif
  496.     PrintLn 
  497.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  498.     If (STRING002 == "") Goto LABEL004
  499.     KbdStuff "J " + STRING002 + Chr(13)
  500.     Goto LABEL041
  501.     :LABEL026
  502.     Cls
  503.     If (INTEGER001 < 22) Goto LABEL037
  504.     If (Exist(STRING027)) Then
  505.         DispFile STRING027, 4 + 2 + 1
  506.     Else
  507.         Goto LABEL039
  508.     Endif
  509.     PrintLn 
  510.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  511.     If (STRING002 == "") Goto LABEL004
  512.     KbdStuff "J " + STRING002 + Chr(13)
  513.     Goto LABEL041
  514.     :LABEL027
  515.     Cls
  516.     If (INTEGER001 < 23) Goto LABEL037
  517.     If (Exist(STRING028)) Then
  518.         DispFile STRING028, 4 + 2 + 1
  519.     Else
  520.         Goto LABEL039
  521.     Endif
  522.     PrintLn 
  523.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  524.     If (STRING002 == "") Goto LABEL004
  525.     KbdStuff "J " + STRING002 + Chr(13)
  526.     Goto LABEL041
  527.     :LABEL028
  528.     Cls
  529.     If (INTEGER001 < 24) Goto LABEL037
  530.     If (Exist(STRING029)) Then
  531.         DispFile STRING029, 4 + 2 + 1
  532.     Else
  533.         Goto LABEL039
  534.     Endif
  535.     PrintLn 
  536.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  537.     If (STRING002 == "") Goto LABEL004
  538.     KbdStuff "J " + STRING002 + Chr(13)
  539.     Goto LABEL041
  540.     :LABEL029
  541.     Cls
  542.     If (INTEGER001 < 25) Goto LABEL037
  543.     If (Exist(STRING030)) Then
  544.         DispFile STRING030, 4 + 2 + 1
  545.     Else
  546.         Goto LABEL039
  547.     Endif
  548.     PrintLn 
  549.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  550.     If (STRING002 == "") Goto LABEL004
  551.     KbdStuff "J " + STRING002 + Chr(13)
  552.     Goto LABEL041
  553.     :LABEL030
  554.     Cls
  555.     If (INTEGER001 < 26) Goto LABEL037
  556.     If (Exist(STRING031)) Then
  557.         DispFile STRING031, 4 + 2 + 1
  558.     Else
  559.         Goto LABEL039
  560.     Endif
  561.     PrintLn 
  562.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  563.     If (STRING002 == "") Goto LABEL004
  564.     KbdStuff "J " + STRING002 + Chr(13)
  565.     Goto LABEL041
  566.     :LABEL031
  567.     Cls
  568.     If (INTEGER001 < 27) Goto LABEL037
  569.     If (Exist(STRING032)) Then
  570.         DispFile STRING032, 4 + 2 + 1
  571.     Else
  572.         Goto LABEL039
  573.     Endif
  574.     PrintLn 
  575.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  576.     If (STRING002 == "") Goto LABEL004
  577.     KbdStuff "J " + STRING002 + Chr(13)
  578.     Goto LABEL041
  579.     :LABEL032
  580.     Cls
  581.     If (INTEGER001 < 28) Goto LABEL037
  582.     If (Exist(STRING033)) Then
  583.         DispFile STRING033, 4 + 2 + 1
  584.     Else
  585.         Goto LABEL039
  586.     Endif
  587.     PrintLn 
  588.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  589.     If (STRING002 == "") Goto LABEL004
  590.     KbdStuff "J " + STRING002 + Chr(13)
  591.     Goto LABEL041
  592.     :LABEL033
  593.     Cls
  594.     If (INTEGER001 < 29) Goto LABEL037
  595.     If (Exist(STRING034)) Then
  596.         DispFile STRING034, 4 + 2 + 1
  597.     Else
  598.         Goto LABEL039
  599.     Endif
  600.     PrintLn 
  601.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  602.     If (STRING002 == "") Goto LABEL004
  603.     KbdStuff "J " + STRING002 + Chr(13)
  604.     Goto LABEL041
  605.     :LABEL034
  606.     Cls
  607.     If (INTEGER001 < 30) Goto LABEL037
  608.     If (Exist(STRING035)) Then
  609.         DispFile STRING035, 4 + 2 + 1
  610.     Else
  611.         Goto LABEL039
  612.     Endif
  613.     PrintLn 
  614.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  615.     If (STRING002 == "") Goto LABEL004
  616.     KbdStuff "J " + STRING002 + Chr(13)
  617.     Goto LABEL041
  618.     :LABEL035
  619.     Cls
  620.     If (INTEGER001 < 31) Goto LABEL037
  621.     If (Exist(STRING036)) Then
  622.         DispFile STRING036, 4 + 2 + 1
  623.     Else
  624.         Goto LABEL039
  625.     Endif
  626.     PrintLn 
  627.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  628.     If (STRING002 == "") Goto LABEL004
  629.     KbdStuff "J " + STRING002 + Chr(13)
  630.     Goto LABEL041
  631.     :LABEL036
  632.     Cls
  633.     If (INTEGER001 < 32) Goto LABEL037
  634.     If (Exist(STRING037)) Then
  635.         DispFile STRING037, 4 + 2 + 1
  636.     Else
  637.         Goto LABEL039
  638.     Endif
  639.     PrintLn 
  640.     InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
  641.     If (STRING002 == "") Goto LABEL004
  642.     KbdStuff "J " + STRING002 + Chr(13)
  643.     Goto LABEL041
  644.     :LABEL037
  645.     PrintLn 
  646.     PrintLn "@X8CERROR@X0B: Network number not in configuration file! Notify SysOp!"
  647.     PrintLn 
  648.     Wait
  649.     Goto LABEL004
  650.     :LABEL038
  651.     KbdStuff "J" + Chr(13)
  652.     Goto LABEL041
  653.     :LABEL039
  654.     PrintLn 
  655.     PrintLn STRING038
  656.     PrintLn "@X8CERROR@X0B: Conference display for this network is missing! Notify SysOp!"
  657.     PrintLn 
  658.     Goto LABEL041
  659.     :LABEL040
  660.     KbdStuff "J S ^M"
  661.     End
  662.     :LABEL041
  663.     End
  664.  
  665. ;------------------------------------------------------------------------------
  666. ;
  667. ; Usage report (before postprocessing)
  668. ;
  669. ; ■ Statements used :
  670. ;
  671. ;    3       End
  672. ;    33      Cls
  673. ;    1       Wait
  674. ;    244     Goto 
  675. ;    42      Let 
  676. ;    44      PrintLn 
  677. ;    167     If 
  678. ;    33      DispFile 
  679. ;    1       FOpen 
  680. ;    1       FClose 
  681. ;    37      FGet 
  682. ;    33      InputStr 
  683. ;    1       Tokenize 
  684. ;    3       GetToken 
  685. ;    35      KbdStuff 
  686. ;
  687. ;
  688. ; ■ Functions used :
  689. ;
  690. ;    151     +
  691. ;    103     ==
  692. ;    32      <
  693. ;    37      !
  694. ;    1       ||
  695. ;    4       Len(
  696. ;    2       Left()
  697. ;    35      Chr()
  698. ;    1       Strip()
  699. ;    1       Mask_Alpha()
  700. ;    1       Mask_Num()
  701. ;    32      Mask_Ascii()
  702. ;    2       PPEPath()
  703. ;    34      Exist()
  704. ;    1       S2I()
  705. ;
  706. ;------------------------------------------------------------------------------
  707. ;
  708. ; Analysis flags : No flag
  709. ;
  710. ;------------------------------------------------------------------------------
  711. ;
  712. ; Postprocessing report
  713. ;
  714. ;    0       For/Next
  715. ;    0       While/EndWhile
  716. ;    36      If/Then or If/Then/Else
  717. ;    0       Select Case
  718. ;
  719. ;------------------------------------------------------------------------------
  720. ;                 AEGiS Corp - Break the routines, code against the machines!
  721. ;------------------------------------------------------------------------------
  722.