home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / XCONNECT.ZIP / XCONNECT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-05-02  |  14KB  |  1,023 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.3O (Encryption type II) - 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.     String   STRING001
  26.     String   STRING002
  27.     Time     TIME001
  28.     Time     TIME002
  29.     Time     TIME003
  30.     Time     TIME004
  31.     Declare  Procedure PROC001()
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     PROC001()
  36.     Cls
  37.     End
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     Procedure PROC001()
  42.  
  43.     STRING002 = ""
  44.     STRING002 = Inkey()
  45.     If (STRING002 == "") Goto LABEL001
  46.     If (STRING002 == Chr(27)) Goto LABEL102
  47.     :LABEL001
  48.     TIME001 = Time()
  49.     If (Exist(PPEPath() + "xconnect.cfg")) Goto LABEL002
  50.     FCreate 1, PPEPath() + "xconnect.cfg", 2, 0
  51.     FPutLn 1, "535"
  52.     FPutLn 1, ""
  53.     FPutLn 1, "line one: total number of calls to bbs. this will update itself"
  54.     FClose 1
  55.     :LABEL002
  56.     FOpen 1, PPEPath() + "xconnect.cfg", 2, 0
  57.     FGet 1, INTEGER006
  58.     FClose 1
  59.     STRING002 = ""
  60.     STRING002 = Inkey()
  61.     If (STRING002 == "") Goto LABEL003
  62.     If (STRING002 == Chr(27)) Goto LABEL102
  63.     :LABEL003
  64.     If (INTEGER006 == "") INTEGER006 = 356
  65.     INTEGER006 = INTEGER006 + 1
  66.     FOpen 2, PPEPath() + "xconnect.cfg", 2, 0
  67.     FPutLn 2, String(INTEGER006)
  68.     FClose 2
  69.     STRING002 = ""
  70.     STRING002 = Inkey()
  71.     If (STRING002 == "") Goto LABEL004
  72.     If (STRING002 == Chr(27)) Goto LABEL102
  73.     :LABEL004
  74.     Print "@CLS@@POFF@"
  75.     AnsiPos 48, 8
  76.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  77.     AnsiPos 45, 9
  78.     Print "@X0F0% @X02  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X0F100%"
  79.     AnsiPos 48, 10
  80.     Print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  81.     STRING002 = ""
  82.     STRING002 = Inkey()
  83.     If (STRING002 == "") Goto LABEL005
  84.     If (STRING002 == Chr(27)) Goto LABEL102
  85.     :LABEL005
  86.     AnsiPos 52, 7
  87.     Print "@X08[@X03esc@X08]: @X03fast post!"
  88.     AnsiPos 1, 1
  89.     PrintLn "@X3B Connecting to mur.systems.org.au...                                           "
  90.     PrintLn ""
  91.     Delay 5
  92.     Print "@X09C@X01onnection @X09S@X01peed@X08: "
  93.     STRING002 = ""
  94.     STRING002 = Inkey()
  95.     If (STRING002 == "") Goto LABEL006
  96.     If (STRING002 == Chr(27)) Goto LABEL102
  97.     :LABEL006
  98.     For INTEGER001 = 1 To 6
  99.         Print "@X0F|"
  100.         Color 0
  101.         Print " "
  102.         Backup 1
  103.         Delay 1
  104.         Backup 1
  105.         Print "@X0F\"
  106.         Color 0
  107.         Print " "
  108.         STRING002 = ""
  109.         STRING002 = Inkey()
  110.         If (STRING002 == "") Goto LABEL007
  111.         If (STRING002 == Chr(27)) Goto LABEL102
  112.         :LABEL007
  113.         Backup 1
  114.         Delay 1
  115.         Backup 1
  116.         Print "@X0F-"
  117.         Color 0
  118.         Print " "
  119.         Backup 1
  120.         Delay 1
  121.         Backup 1
  122.         Print "@X0F/"
  123.         Color 0
  124.         Print " "
  125.         Backup 1
  126.         STRING002 = ""
  127.         STRING002 = Inkey()
  128.         If (STRING002 == "") Goto LABEL008
  129.         If (STRING002 == Chr(27)) Goto LABEL102
  130.         :LABEL008
  131.         Delay 1
  132.         Backup 1
  133.         Print "@X0F|"
  134.         Color 0
  135.         Print " "
  136.         Backup 1
  137.         Delay 1
  138.         Backup 1
  139.     Next
  140.     STRING002 = ""
  141.     STRING002 = Inkey()
  142.     If (STRING002 == "") Goto LABEL009
  143.     If (STRING002 == Chr(27)) Goto LABEL102
  144.     :LABEL009
  145.     INTEGER004 = GetX()
  146.     INTEGER005 = GetY()
  147.     AnsiPos 50, 9
  148.     Print "@X0A▀▀"
  149.     AnsiPos INTEGER004, INTEGER005
  150.     GetUser
  151.     STRING001 = String(Carrier())
  152.     STRING002 = ""
  153.     STRING002 = Inkey()
  154.     If (STRING002 == "") Goto LABEL010
  155.     If (STRING002 == Chr(27)) Goto LABEL102
  156.     :LABEL010
  157.     Print "@X09" + STRING001
  158.     PrintLn ""
  159.     Print "@X08 -- @X0FE@X07rror @X0FC@X07orrection @X0Fi@X07s "
  160.     If (ErrCorrect()) Then
  161.         Print "@X08ON"
  162.         Backup 2
  163.         Delay 2
  164.         Print "@X07ON"
  165.         Backup 2
  166.         Delay 2
  167.         Print "@X0FON"
  168.         Delay 2
  169.         STRING002 = ""
  170.         STRING002 = Inkey()
  171.         If (STRING002 == "") Goto LABEL011
  172.         If (STRING002 == Chr(27)) Goto LABEL102
  173.         :LABEL011
  174.         PrintLn ""
  175.         INTEGER004 = GetX()
  176.         INTEGER005 = GetY()
  177.         AnsiPos 50, 9
  178.         Print "@X0A▀▀▀▀"
  179.         AnsiPos INTEGER004, INTEGER005
  180.     Else
  181.         Print "@X08OFF"
  182.         Backup 3
  183.         Delay 2
  184.         STRING002 = ""
  185.         STRING002 = Inkey()
  186.         If (STRING002 == "") Goto LABEL012
  187.         If (STRING002 == Chr(27)) Goto LABEL102
  188.         :LABEL012
  189.         Print "@X07OFF"
  190.         Backup 3
  191.         Delay 2
  192.         STRING002 = ""
  193.         STRING002 = Inkey()
  194.         If (STRING002 == "") Goto LABEL013
  195.         If (STRING002 == Chr(27)) Goto LABEL102
  196.         :LABEL013
  197.         Print "@X0FOFF"
  198.         Delay 2
  199.         PrintLn ""
  200.         STRING002 = ""
  201.         STRING002 = Inkey()
  202.         If (STRING002 == "") Goto LABEL014
  203.         If (STRING002 == Chr(27)) Goto LABEL102
  204.         :LABEL014
  205.         INTEGER004 = GetX()
  206.         INTEGER005 = GetY()
  207.         AnsiPos 50, 9
  208.         STRING002 = ""
  209.         STRING002 = Inkey()
  210.         If (STRING002 == "") Goto LABEL015
  211.         If (STRING002 == Chr(27)) Goto LABEL102
  212.         :LABEL015
  213.         Print "@X0A▀▀▀▀"
  214.         AnsiPos INTEGER004, INTEGER005
  215.     Endif
  216.     Print " @X08-- @X0FC@X07arrier @X0FD@X07etect @X0Fi@X07s@X08 "
  217.     If (CDOn()) Then
  218.         STRING002 = ""
  219.         STRING002 = Inkey()
  220.         If (STRING002 == "") Goto LABEL016
  221.         If (STRING002 == Chr(27)) Goto LABEL102
  222.         :LABEL016
  223.         Print "@X08ON"
  224.         Backup 2
  225.         Delay 2
  226.         Print "@X07ON"
  227.         Backup 2
  228.         Delay 2
  229.         Print "@X0FON"
  230.         STRING002 = ""
  231.         STRING002 = Inkey()
  232.         If (STRING002 == "") Goto LABEL017
  233.         If (STRING002 == Chr(27)) Goto LABEL102
  234.         :LABEL017
  235.         Delay 2
  236.         PrintLn ""
  237.         INTEGER004 = GetX()
  238.         INTEGER005 = GetY()
  239.         AnsiPos 50, 9
  240.         Print "@X0A▀▀▀▀▀▀"
  241.         AnsiPos INTEGER004, INTEGER005
  242.     Else
  243.         STRING002 = ""
  244.         STRING002 = Inkey()
  245.         If (STRING002 == "") Goto LABEL018
  246.         If (STRING002 == Chr(27)) Goto LABEL102
  247.         :LABEL018
  248.         Print "@X08OFF"
  249.         Backup 3
  250.         Delay 2
  251.         Print "@X07OFF"
  252.         Backup 3
  253.         STRING002 = ""
  254.         STRING002 = Inkey()
  255.         If (STRING002 == "") Goto LABEL019
  256.         If (STRING002 == Chr(27)) Goto LABEL102
  257.         :LABEL019
  258.         Delay 2
  259.         Print "@X0FOFF"
  260.         Delay 2
  261.         PrintLn ""
  262.         STRING002 = ""
  263.         STRING002 = Inkey()
  264.         If (STRING002 == "") Goto LABEL020
  265.         If (STRING002 == Chr(27)) Goto LABEL102
  266.         :LABEL020
  267.         INTEGER004 = GetX()
  268.         INTEGER005 = GetY()
  269.         AnsiPos 50, 9
  270.         Print "@X0A▀▀▀▀▀▀"
  271.         AnsiPos INTEGER004, INTEGER005
  272.     Endif
  273.     PrintLn ""
  274.     STRING002 = ""
  275.     STRING002 = Inkey()
  276.     If (STRING002 == "") Goto LABEL021
  277.     If (STRING002 == Chr(27)) Goto LABEL102
  278.     :LABEL021
  279.     Print "@X09N@X01umber @X09o@X01f @X09C@X01alls @X09t@X01o @X09t@X01he @X09S@X01ystem@X08: "
  280.     For INTEGER001 = 1 To 3
  281.         STRING002 = ""
  282.         STRING002 = Inkey()
  283.         If (STRING002 == "") Goto LABEL022
  284.         If (STRING002 == Chr(27)) Goto LABEL102
  285.         :LABEL022
  286.         Print "@X0F|"
  287.         Color 0
  288.         Print " "
  289.         Backup 1
  290.         Delay 1
  291.         STRING002 = ""
  292.         STRING002 = Inkey()
  293.         If (STRING002 == "") Goto LABEL023
  294.         If (STRING002 == Chr(27)) Goto LABEL102
  295.         :LABEL023
  296.         Backup 1
  297.         Print "@X0F\"
  298.         Color 0
  299.         Print " "
  300.         Backup 1
  301.         STRING002 = ""
  302.         STRING002 = Inkey()
  303.         If (STRING002 == "") Goto LABEL024
  304.         If (STRING002 == Chr(27)) Goto LABEL102
  305.         :LABEL024
  306.         Delay 1
  307.         Backup 1
  308.         Print "@X0F-"
  309.         Color 0
  310.         Print " "
  311.         Backup 1
  312.         Delay 1
  313.         Backup 1
  314.         Print "@X0F/"
  315.         Color 0
  316.         Print " "
  317.         Backup 1
  318.         Delay 1
  319.         Backup 1
  320.         STRING002 = ""
  321.         STRING002 = Inkey()
  322.         If (STRING002 == "") Goto LABEL025
  323.         If (STRING002 == Chr(27)) Goto LABEL102
  324.         :LABEL025
  325.         Print "@X0F|"
  326.         Color 0
  327.         Print " "
  328.         Backup 1
  329.         Delay 1
  330.         Backup 1
  331.     Next
  332.     Print "@X09" + String(INTEGER006)
  333.     PrintLn ""
  334.     STRING002 = ""
  335.     STRING002 = Inkey()
  336.     If (STRING002 == "") Goto LABEL026
  337.     If (STRING002 == Chr(27)) Goto LABEL102
  338.     :LABEL026
  339.     Delay 7
  340.     INTEGER004 = GetX()
  341.     INTEGER005 = GetY()
  342.     AnsiPos 50, 9
  343.     Print "@X0A▀▀▀▀▀▀▀▀"
  344.     AnsiPos INTEGER004, INTEGER005
  345.     Print "@X08 -- @X0FC@X07urrent @X0FT@X07ime@X08: "
  346.     Print "@X0F" + String(Time())
  347.     STRING002 = ""
  348.     STRING002 = Inkey()
  349.     If (STRING002 == "") Goto LABEL027
  350.     If (STRING002 == Chr(27)) Goto LABEL102
  351.     :LABEL027
  352.     PrintLn ""
  353.     Delay 7
  354.     INTEGER004 = GetX()
  355.     STRING002 = ""
  356.     STRING002 = Inkey()
  357.     If (STRING002 == "") Goto LABEL028
  358.     If (STRING002 == Chr(27)) Goto LABEL102
  359.     :LABEL028
  360.     INTEGER005 = GetY()
  361.     AnsiPos 50, 9
  362.     Print "@X0A▀▀▀▀▀▀▀▀▀▀"
  363.     STRING002 = ""
  364.     STRING002 = Inkey()
  365.     If (STRING002 == "") Goto LABEL029
  366.     If (STRING002 == Chr(27)) Goto LABEL102
  367.     :LABEL029
  368.     AnsiPos INTEGER004, INTEGER005
  369.     Print "@X08 -- @X0FT@X07odays @X0FD@X07ate@X08: "
  370.     PrintLn "@X0F" + String(Date())
  371.     PrintLn ""
  372.     Delay 6
  373.     STRING002 = ""
  374.     STRING002 = Inkey()
  375.     If (STRING002 == "") Goto LABEL030
  376.     If (STRING002 == Chr(27)) Goto LABEL102
  377.     :LABEL030
  378.     INTEGER004 = GetX()
  379.     INTEGER005 = GetY()
  380.     AnsiPos 50, 9
  381.     Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀"
  382.     AnsiPos INTEGER004, INTEGER005
  383.     STRING002 = ""
  384.     STRING002 = Inkey()
  385.     If (STRING002 == "") Goto LABEL031
  386.     If (STRING002 == Chr(27)) Goto LABEL102
  387.     :LABEL031
  388.     Print "@X09I@X01nitializing @X09M@X01ur @X09S@X01ystems@X08!"
  389.     INTEGER002 = GetX()
  390.     STRING002 = ""
  391.     STRING002 = Inkey()
  392.     If (STRING002 == "") Goto LABEL032
  393.     If (STRING002 == Chr(27)) Goto LABEL102
  394.     :LABEL032
  395.     INTEGER003 = GetY()
  396.     Delay 3
  397.     Print "@X08  ·"
  398.     Delay 3
  399.     STRING002 = ""
  400.     STRING002 = Inkey()
  401.     If (STRING002 == "") Goto LABEL033
  402.     If (STRING002 == Chr(27)) Goto LABEL102
  403.     :LABEL033
  404.     Print "@X08  ·"
  405.     Delay 3
  406.     Print "@X08  ·"
  407.     STRING002 = ""
  408.     STRING002 = Inkey()
  409.     If (STRING002 == "") Goto LABEL034
  410.     If (STRING002 == Chr(27)) Goto LABEL102
  411.     :LABEL034
  412.     Delay 3
  413.     Print "@X08  ·"
  414.     STRING002 = ""
  415.     STRING002 = Inkey()
  416.     If (STRING002 == "") Goto LABEL035
  417.     If (STRING002 == Chr(27)) Goto LABEL102
  418.     :LABEL035
  419.     Delay 3
  420.     Print "@X08  ·"
  421.     STRING002 = ""
  422.     STRING002 = Inkey()
  423.     If (STRING002 == "") Goto LABEL036
  424.     If (STRING002 == Chr(27)) Goto LABEL102
  425.     :LABEL036
  426.     Delay 2
  427.     STRING002 = ""
  428.     STRING002 = Inkey()
  429.     If (STRING002 == "") Goto LABEL037
  430.     If (STRING002 == Chr(27)) Goto LABEL102
  431.     :LABEL037
  432.     Backup 15
  433.     Print Space(15)
  434.     PrintLn ""
  435.     Print " @X08-- @X0FL@X07ocal @X0FL@X07ogin@X08: "
  436.     If (OnLocal()) Then
  437.         Print "@X08YES"
  438.         Backup 3
  439.         Delay 2
  440.         STRING002 = ""
  441.         STRING002 = Inkey()
  442.         If (STRING002 == "") Goto LABEL038
  443.         If (STRING002 == Chr(27)) Goto LABEL102
  444.         :LABEL038
  445.         Print "@X07YES"
  446.         STRING002 = ""
  447.         STRING002 = Inkey()
  448.         If (STRING002 == "") Goto LABEL039
  449.         If (STRING002 == Chr(27)) Goto LABEL102
  450.         :LABEL039
  451.         Backup 3
  452.         Delay 2
  453.         Print "@X0FYES"
  454.         Backup 3
  455.         Delay 2
  456.         STRING002 = ""
  457.         STRING002 = Inkey()
  458.         If (STRING002 == "") Goto LABEL040
  459.         If (STRING002 == Chr(27)) Goto LABEL102
  460.         :LABEL040
  461.         INTEGER004 = GetX()
  462.         INTEGER005 = GetY()
  463.         AnsiPos 50, 9
  464.         Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  465.         AnsiPos INTEGER004, INTEGER005
  466.     Else
  467.         Print "@X08NO"
  468.         STRING002 = ""
  469.         STRING002 = Inkey()
  470.         If (STRING002 == "") Goto LABEL041
  471.         If (STRING002 == Chr(27)) Goto LABEL102
  472.         :LABEL041
  473.         Backup 2
  474.         Delay 2
  475.         STRING002 = ""
  476.         STRING002 = Inkey()
  477.         If (STRING002 == "") Goto LABEL042
  478.         If (STRING002 == Chr(27)) Goto LABEL102
  479.         :LABEL042
  480.         Print "@X07NO"
  481.         Backup 2
  482.         Delay 2
  483.         Print "@X0FNO"
  484.         Backup 2
  485.         Delay 2
  486.         STRING002 = ""
  487.         STRING002 = Inkey()
  488.         If (STRING002 == "") Goto LABEL043
  489.         If (STRING002 == Chr(27)) Goto LABEL102
  490.         :LABEL043
  491.         INTEGER004 = GetX()
  492.         INTEGER005 = GetY()
  493.         AnsiPos 50, 9
  494.         Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  495.         STRING002 = ""
  496.         STRING002 = Inkey()
  497.         If (STRING002 == "") Goto LABEL044
  498.         If (STRING002 == Chr(27)) Goto LABEL102
  499.         :LABEL044
  500.         AnsiPos INTEGER004, INTEGER005
  501.     Endif
  502.     AnsiPos INTEGER002, INTEGER003
  503.     STRING002 = ""
  504.     STRING002 = Inkey()
  505.     If (STRING002 == "") Goto LABEL045
  506.     If (STRING002 == Chr(27)) Goto LABEL102
  507.     :LABEL045
  508.     Delay 3
  509.     Print "@X08  ·"
  510.     STRING002 = ""
  511.     STRING002 = Inkey()
  512.     If (STRING002 == "") Goto LABEL046
  513.     If (STRING002 == Chr(27)) Goto LABEL102
  514.     :LABEL046
  515.     Delay 3
  516.     Print "@X08  ·"
  517.     STRING002 = ""
  518.     STRING002 = Inkey()
  519.     If (STRING002 == "") Goto LABEL047
  520.     If (STRING002 == Chr(27)) Goto LABEL102
  521.     :LABEL047
  522.     Delay 3
  523.     STRING002 = ""
  524.     STRING002 = Inkey()
  525.     If (STRING002 == "") Goto LABEL048
  526.     If (STRING002 == Chr(27)) Goto LABEL102
  527.     :LABEL048
  528.     Print "@X08  ·"
  529.     STRING002 = ""
  530.     STRING002 = Inkey()
  531.     If (STRING002 == "") Goto LABEL049
  532.     If (STRING002 == Chr(27)) Goto LABEL102
  533.     :LABEL049
  534.     Delay 3
  535.     STRING002 = ""
  536.     STRING002 = Inkey()
  537.     If (STRING002 == "") Goto LABEL050
  538.     If (STRING002 == Chr(27)) Goto LABEL102
  539.     :LABEL050
  540.     Print "@X08  ·"
  541.     Delay 3
  542.     STRING002 = ""
  543.     STRING002 = Inkey()
  544.     If (STRING002 == "") Goto LABEL051
  545.     If (STRING002 == Chr(27)) Goto LABEL102
  546.     :LABEL051
  547.     Print "@X08  ·"
  548.     Delay 2
  549.     STRING002 = ""
  550.     STRING002 = Inkey()
  551.     If (STRING002 == "") Goto LABEL052
  552.     If (STRING002 == Chr(27)) Goto LABEL102
  553.     :LABEL052
  554.     Backup 15
  555.     STRING002 = ""
  556.     STRING002 = Inkey()
  557.     If (STRING002 == "") Goto LABEL053
  558.     If (STRING002 == Chr(27)) Goto LABEL102
  559.     :LABEL053
  560.     Print Space(15)
  561.     PrintLn ""
  562.     PrintLn ""
  563.     Print "@X08 -- @X0FG@X07raphics @X0FM@X07ode @X0Fs@X07et @X0Ft@X07o@X08: "
  564.     STRING002 = ""
  565.     STRING002 = Inkey()
  566.     If (STRING002 == "") Goto LABEL054
  567.     If (STRING002 == Chr(27)) Goto LABEL102
  568.     :LABEL054
  569.     Select Case (Upper(GrafMode()))
  570.         Case "R"
  571.             Print "@X08RIPscript"
  572.             STRING002 = ""
  573.             STRING002 = Inkey()
  574.             If (STRING002 == "") Goto LABEL055
  575.             If (STRING002 == Chr(27)) Goto LABEL102
  576.             :LABEL055
  577.             Color 0
  578.             Print " "
  579.             Backup 1
  580.             STRING002 = ""
  581.             STRING002 = Inkey()
  582.             If (STRING002 == "") Goto LABEL056
  583.             If (STRING002 == Chr(27)) Goto LABEL102
  584.             :LABEL056
  585.             Delay 3
  586.             STRING002 = ""
  587.             STRING002 = Inkey()
  588.             If (STRING002 == "") Goto LABEL057
  589.             If (STRING002 == Chr(27)) Goto LABEL102
  590.             :LABEL057
  591.             Backup 9
  592.             Print "@X07RIPscript"
  593.             Color 0
  594.             Print " "
  595.             STRING002 = ""
  596.             STRING002 = Inkey()
  597.             If (STRING002 == "") Goto LABEL058
  598.             If (STRING002 == Chr(27)) Goto LABEL102
  599.             :LABEL058
  600.             Backup 1
  601.             Delay 3
  602.             Backup 9
  603.             Print "@X0FRIPscript"
  604.             INTEGER004 = GetX()
  605.             STRING002 = ""
  606.             STRING002 = Inkey()
  607.             If (STRING002 == "") Goto LABEL059
  608.             If (STRING002 == Chr(27)) Goto LABEL102
  609.             :LABEL059
  610.             INTEGER005 = GetY()
  611.             AnsiPos 50, 9
  612.             Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  613.             AnsiPos INTEGER004, INTEGER005
  614.         Case "G"
  615.             Print "@X08ANSI graphics"
  616.             STRING002 = ""
  617.             STRING002 = Inkey()
  618.             If (STRING002 == "") Goto LABEL060
  619.             If (STRING002 == Chr(27)) Goto LABEL102
  620.             :LABEL060
  621.             Color 0
  622.             Print " "
  623.             Backup 1
  624.             Delay 3
  625.             Backup 13
  626.             Print "@X07ANSI graphics"
  627.             STRING002 = ""
  628.             STRING002 = Inkey()
  629.             If (STRING002 == "") Goto LABEL061
  630.             If (STRING002 == Chr(27)) Goto LABEL102
  631.             :LABEL061
  632.             Color 0
  633.             STRING002 = ""
  634.             STRING002 = Inkey()
  635.             If (STRING002 == "") Goto LABEL062
  636.             If (STRING002 == Chr(27)) Goto LABEL102
  637.             :LABEL062
  638.             Print " "
  639.             Backup 1
  640.             Delay 3
  641.             STRING002 = ""
  642.             STRING002 = Inkey()
  643.             If (STRING002 == "") Goto LABEL063
  644.             If (STRING002 == Chr(27)) Goto LABEL102
  645.             :LABEL063
  646.             Backup 13
  647.             Print "@X0FANSI graphics"
  648.             STRING002 = ""
  649.             STRING002 = Inkey()
  650.             If (STRING002 == "") Goto LABEL064
  651.             If (STRING002 == Chr(27)) Goto LABEL102
  652.             :LABEL064
  653.             INTEGER004 = GetX()
  654.             INTEGER005 = GetY()
  655.             AnsiPos 50, 9
  656.             STRING002 = ""
  657.             STRING002 = Inkey()
  658.             If (STRING002 == "") Goto LABEL065
  659.             If (STRING002 == Chr(27)) Goto LABEL102
  660.             :LABEL065
  661.             Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  662.             STRING002 = ""
  663.             STRING002 = Inkey()
  664.             If (STRING002 == "") Goto LABEL066
  665.             If (STRING002 == Chr(27)) Goto LABEL102
  666.             :LABEL066
  667.             AnsiPos INTEGER004, INTEGER005
  668.         Case Else
  669.             Print "@X08ASCII graphics"
  670.             STRING002 = ""
  671.             STRING002 = Inkey()
  672.             If (STRING002 == "") Goto LABEL067
  673.             If (STRING002 == Chr(27)) Goto LABEL102
  674.             :LABEL067
  675.             Color 0
  676.             Print " "
  677.             Backup 1
  678.             STRING002 = ""
  679.             STRING002 = Inkey()
  680.             If (STRING002 == "") Goto LABEL068
  681.             If (STRING002 == Chr(27)) Goto LABEL102
  682.             :LABEL068
  683.             Delay 3
  684.             Backup 14
  685.             STRING002 = ""
  686.             STRING002 = Inkey()
  687.             If (STRING002 == "") Goto LABEL069
  688.             If (STRING002 == Chr(27)) Goto LABEL102
  689.             :LABEL069
  690.             Print "@X07ASCII graphics"
  691.             Color 0
  692.             Print " "
  693.             STRING002 = ""
  694.             STRING002 = Inkey()
  695.             If (STRING002 == "") Goto LABEL070
  696.             If (STRING002 == Chr(27)) Goto LABEL102
  697.             :LABEL070
  698.             Backup 1
  699.             Delay 3
  700.             STRING002 = ""
  701.             STRING002 = Inkey()
  702.             If (STRING002 == "") Goto LABEL071
  703.             If (STRING002 == Chr(27)) Goto LABEL102
  704.             :LABEL071
  705.             Backup 14
  706.             Print "@X0FASCII graphics"
  707.             STRING002 = ""
  708.             STRING002 = Inkey()
  709.             If (STRING002 == "") Goto LABEL072
  710.             If (STRING002 == Chr(27)) Goto LABEL102
  711.             :LABEL072
  712.             INTEGER004 = GetX()
  713.             STRING002 = ""
  714.             STRING002 = Inkey()
  715.             If (STRING002 == "") Goto LABEL073
  716.             If (STRING002 == Chr(27)) Goto LABEL102
  717.             :LABEL073
  718.             INTEGER005 = GetY()
  719.             AnsiPos 50, 9
  720.             Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  721.             STRING002 = ""
  722.             STRING002 = Inkey()
  723.             If (STRING002 == "") Goto LABEL074
  724.             If (STRING002 == Chr(27)) Goto LABEL102
  725.             :LABEL074
  726.             AnsiPos INTEGER004, INTEGER005
  727.     End Select
  728.     PrintLn ""
  729.     Delay 3
  730.     STRING002 = ""
  731.     STRING002 = Inkey()
  732.     If (STRING002 == "") Goto LABEL075
  733.     If (STRING002 == Chr(27)) Goto LABEL102
  734.     :LABEL075
  735.     AnsiPos INTEGER002, INTEGER003
  736.     Delay 3
  737.     Print "@X08  ·"
  738.     STRING002 = ""
  739.     STRING002 = Inkey()
  740.     If (STRING002 == "") Goto LABEL076
  741.     If (STRING002 == Chr(27)) Goto LABEL102
  742.     :LABEL076
  743.     STRING002 = ""
  744.     STRING002 = Inkey()
  745.     If (STRING002 == "") Goto LABEL077
  746.     If (STRING002 == Chr(27)) Goto LABEL102
  747.     :LABEL077
  748.     STRING002 = ""
  749.     STRING002 = Inkey()
  750.     If (STRING002 == "") Goto LABEL078
  751.     If (STRING002 == Chr(27)) Goto LABEL102
  752.     :LABEL078
  753.     Delay 3
  754.     Print "@X08  ·"
  755.     Delay 3
  756.     Print "@X08  ·"
  757.     STRING002 = ""
  758.     STRING002 = Inkey()
  759.     If (STRING002 == "") Goto LABEL079
  760.     If (STRING002 == Chr(27)) Goto LABEL102
  761.     :LABEL079
  762.     Delay 3
  763.     Print "@X08  ·"
  764.     Delay 3
  765.     Print "@X08  ·"
  766.     STRING002 = ""
  767.     STRING002 = Inkey()
  768.     If (STRING002 == "") Goto LABEL080
  769.     If (STRING002 == Chr(27)) Goto LABEL102
  770.     :LABEL080
  771.     Delay 2
  772.     Backup 15
  773.     STRING002 = ""
  774.     STRING002 = Inkey()
  775.     If (STRING002 == "") Goto LABEL081
  776.     If (STRING002 == Chr(27)) Goto LABEL102
  777.     :LABEL081
  778.     PrintLn ""
  779.     PrintLn ""
  780.     PrintLn ""
  781.     Print "@X08 -- @X0FC@X07onnecting @X0Ft@X07o @X0FN@X07ode@X08: "
  782.     STRING002 = ""
  783.     STRING002 = Inkey()
  784.     If (STRING002 == "") Goto LABEL082
  785.     If (STRING002 == Chr(27)) Goto LABEL102
  786.     :LABEL082
  787.     Print "@X08" + String(PcbNode())
  788.     Delay 4
  789.     STRING002 = ""
  790.     STRING002 = Inkey()
  791.     If (STRING002 == "") Goto LABEL083
  792.     If (STRING002 == Chr(27)) Goto LABEL102
  793.     :LABEL083
  794.     Backup Len(String(PcbNode()))
  795.     STRING002 = ""
  796.     STRING002 = Inkey()
  797.     If (STRING002 == "") Goto LABEL084
  798.     If (STRING002 == Chr(27)) Goto LABEL102
  799.     STRING002 = ""
  800.     STRING002 = Inkey()
  801.     If (STRING002 == "") Goto LABEL084
  802.     If (STRING002 == Chr(27)) Goto LABEL102
  803.     :LABEL084
  804.     Print "@X07" + String(PcbNode())
  805.     Delay 4
  806.     Backup Len(String(PcbNode()))
  807.     STRING002 = ""
  808.     STRING002 = Inkey()
  809.     If (STRING002 == "") Goto LABEL085
  810.     If (STRING002 == Chr(27)) Goto LABEL102
  811.     :LABEL085
  812.     Print "@X0F" + String(PcbNode())
  813.     Delay 4
  814.     Backup Len(String(PcbNode()))
  815.     STRING002 = ""
  816.     STRING002 = Inkey()
  817.     If (STRING002 == "") Goto LABEL086
  818.     If (STRING002 == Chr(27)) Goto LABEL102
  819.     :LABEL086
  820.     PrintLn ""
  821.     Delay 3
  822.     INTEGER004 = GetX()
  823.     INTEGER005 = GetY()
  824.     STRING002 = ""
  825.     STRING002 = Inkey()
  826.     If (STRING002 == "") Goto LABEL087
  827.     If (STRING002 == Chr(27)) Goto LABEL102
  828.     :LABEL087
  829.     AnsiPos 50, 9
  830.     STRING002 = ""
  831.     STRING002 = Inkey()
  832.     If (STRING002 == "") Goto LABEL088
  833.     If (STRING002 == Chr(27)) Goto LABEL102
  834.     :LABEL088
  835.     Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  836.     AnsiPos INTEGER002, INTEGER003
  837.     Delay 3
  838.     Print "@X08  ·"
  839.     Delay 3
  840.     STRING002 = ""
  841.     STRING002 = Inkey()
  842.     If (STRING002 == "") Goto LABEL089
  843.     If (STRING002 == Chr(27)) Goto LABEL102
  844.     :LABEL089
  845.     Print "@X08  ·"
  846.     Delay 3
  847.     Print "@X08  ·"
  848.     STRING002 = ""
  849.     STRING002 = Inkey()
  850.     If (STRING002 == "") Goto LABEL090
  851.     If (STRING002 == Chr(27)) Goto LABEL102
  852.     :LABEL090
  853.     Delay 3
  854.     Print "@X08  ·"
  855.     Delay 3
  856.     Print "@X08  ·"
  857.     STRING002 = ""
  858.     STRING002 = Inkey()
  859.     If (STRING002 == "") Goto LABEL091
  860.     If (STRING002 == Chr(27)) Goto LABEL102
  861.     :LABEL091
  862.     Delay 2
  863.     Backup 15
  864.     Print Space(15)
  865.     STRING002 = ""
  866.     STRING002 = Inkey()
  867.     If (STRING002 == "") Goto LABEL092
  868.     If (STRING002 == Chr(27)) Goto LABEL102
  869.     :LABEL092
  870.     PrintLn ""
  871.     PrintLn ""
  872.     PrintLn ""
  873.     PrintLn ""
  874.     STRING002 = ""
  875.     STRING002 = Inkey()
  876.     If (STRING002 == "") Goto LABEL093
  877.     If (STRING002 == Chr(27)) Goto LABEL102
  878.     :LABEL093
  879.     PrintLn ""
  880.     STRING002 = ""
  881.     STRING002 = Inkey()
  882.     If (STRING002 == "") Goto LABEL094
  883.     If (STRING002 == Chr(27)) Goto LABEL102
  884.     :LABEL094
  885.     TIME002 = Time()
  886.     TIME003 = TIME002 - TIME001
  887.     STRING002 = ""
  888.     STRING002 = Inkey()
  889.     If (STRING002 == "") Goto LABEL095
  890.     If (STRING002 == Chr(27)) Goto LABEL102
  891.     :LABEL095
  892.     TIME004 = "00:00:10"
  893.     If (TIME003 > TIME004) PrintLn "slow connection!"
  894.     If (TIME003 == TIME004) PrintLn "average connection."
  895.     If (TIME003 < TIME004) PrintLn "fast connection!"
  896.     STRING002 = ""
  897.     STRING002 = Inkey()
  898.     If (STRING002 == "") Goto LABEL096
  899.     If (STRING002 == Chr(27)) Goto LABEL102
  900.     :LABEL096
  901.     PrintLn ""
  902.     PrintLn ""
  903.     STRING002 = ""
  904.     STRING002 = Inkey()
  905.     If (STRING002 == "") Goto LABEL097
  906.     If (STRING002 == Chr(27)) Goto LABEL102
  907.     STRING002 = ""
  908.     STRING002 = Inkey()
  909.     If (STRING002 == "") Goto LABEL097
  910.     If (STRING002 == Chr(27)) Goto LABEL102
  911.     :LABEL097
  912.     PrintLn ""
  913.     Delay 4
  914.     STRING002 = ""
  915.     STRING002 = Inkey()
  916.     If (STRING002 == "") Goto LABEL098
  917.     If (STRING002 == Chr(27)) Goto LABEL102
  918.     :LABEL098
  919.     PrintLn "@X0CF@X04iring @X0Cu@X04p@X08!"
  920.     PrintLn ""
  921.     INTEGER004 = GetX()
  922.     STRING002 = ""
  923.     STRING002 = Inkey()
  924.     If (STRING002 == "") Goto LABEL099
  925.     If (STRING002 == Chr(27)) Goto LABEL102
  926.     :LABEL099
  927.     INTEGER005 = GetY()
  928.     AnsiPos 50, 9
  929.     Print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  930.     STRING002 = ""
  931.     STRING002 = Inkey()
  932.     If (STRING002 == "") Goto LABEL100
  933.     If (STRING002 == Chr(27)) Goto LABEL102
  934.     :LABEL100
  935.     AnsiPos INTEGER004, INTEGER005
  936.     Delay 8
  937.     STRING002 = ""
  938.     STRING002 = Inkey()
  939.     If (STRING002 == "") Goto LABEL101
  940.     If (STRING002 == Chr(27)) Goto LABEL102
  941.     :LABEL101
  942.     End
  943.     :LABEL102
  944.     Cls
  945.     End
  946.  
  947.     EndProc
  948.  
  949.  
  950. ;------------------------------------------------------------------------------
  951. ;
  952. ; Usage report (before postprocessing)
  953. ;
  954. ; ■ Statements used :
  955. ;
  956. ;    3       End
  957. ;    2       Cls
  958. ;    16      Color 
  959. ;    219     Goto 
  960. ;    247     Let 
  961. ;    112     Print 
  962. ;    33      PrintLn 
  963. ;    216     If 
  964. ;    1       FCreate 
  965. ;    2       FOpen 
  966. ;    3       FClose 
  967. ;    1       FGet 
  968. ;    4       FPutLn 
  969. ;    1       GetUser
  970. ;    69      Delay 
  971. ;    37      AnsiPos 
  972. ;    53      Backup 
  973. ;    1       EndProc
  974. ;
  975. ;
  976. ; ■ Functions used :
  977. ;
  978. ;    14      +
  979. ;    1       -
  980. ;    208     ==
  981. ;    3       <
  982. ;    2       <=
  983. ;    1       >
  984. ;    4       >=
  985. ;    110     !
  986. ;    4       &&
  987. ;    2       ||
  988. ;    3       Len(
  989. ;    2       Upper()
  990. ;    3       Space()
  991. ;    102     Chr()
  992. ;    1       Date()
  993. ;    3       Time()
  994. ;    102     Inkey()
  995. ;    11      String()
  996. ;    4       PPEPath()
  997. ;    6       PcbNode()
  998. ;    1       OnLocal()
  999. ;    1       Exist()
  1000. ;    1       Carrier()
  1001. ;    1       CDOn()
  1002. ;    16      GetX()
  1003. ;    16      GetY()
  1004. ;    2       GrafMode()
  1005. ;    1       ErrCorrect()
  1006. ;
  1007. ;------------------------------------------------------------------------------
  1008. ;
  1009. ; Analysis flags : No flag
  1010. ;
  1011. ;------------------------------------------------------------------------------
  1012. ;
  1013. ; Postprocessing report
  1014. ;
  1015. ;    2       For/Next
  1016. ;    0       While/EndWhile
  1017. ;    3       If/Then or If/Then/Else
  1018. ;    1       Select Case
  1019. ;
  1020. ;------------------------------------------------------------------------------
  1021. ;                 AEGiS Corp - Break the routines, code against the machines!
  1022. ;------------------------------------------------------------------------------
  1023.