home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / XCONNECT.ZIP / XCONNECT.PPS < prev   
Text File  |  1997-05-02  |  20KB  |  918 lines
  1.     integer    i, integer001, integer002, integer003, integer004, integer005
  2.     string    string001, string002
  3.     time    time001, time002, time003, time004
  4.     declare procedure proc001()
  5.     
  6.     proc001()
  7.     cls
  8.  
  9. procedure proc001()
  10.  
  11.     string002 = ""
  12.     string002 = inkey()
  13.     if (!(string002 == "")) then
  14.         if ((string002 == chr(27))) goto label001
  15.     endif
  16.     time001 = time()
  17.     if (!(exist(ppepath() + "xconnect.cfg"))) then
  18.         fcreate 1, ppepath() + "xconnect.cfg", 2, 0
  19.         fputln 1, "535"
  20.         fputln 1, ""
  21.         fputln 1, "line one: total number of calls to bbs. this will update itself"
  22.         fclose 1
  23.     endif
  24.     fopen 1, ppepath() + "xconnect.cfg", 2, 0
  25.     fget 1, integer005
  26.     fclose 1
  27.     string002 = ""
  28.     string002 = inkey()
  29.     if (!(string002 == "")) then
  30.         if ((string002 == chr(27))) goto label001
  31.     endif
  32.     if ((integer005 == "")) integer005 = 356
  33.     integer005 = integer005 + 1
  34.     fopen 2, ppepath() + "xconnect.cfg", 2, 0
  35.     fputln 2, string(integer005)
  36.     fclose 2
  37.     string002 = ""
  38.     string002 = inkey()
  39.     if (!(string002 == "")) then
  40.         if ((string002 == chr(27))) goto label001
  41.     endif
  42.     print "@CLS@@POFF@"
  43.     ansipos 48, 8
  44.     print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  45.     ansipos 45, 9
  46.     print "@X0F0% @X02  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X0F100%"
  47.     ansipos 48, 10
  48.     print "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  49.     string002 = ""
  50.     string002 = inkey()
  51.     if (!(string002 == "")) then
  52.         if ((string002 == chr(27))) goto label001
  53.     endif
  54.     ansipos 52, 7
  55.     print "@X08[@X03esc@X08]: @X03fast post!"
  56.     ansipos 1, 1
  57.     println "@X3B Connecting to mur.systems.org.au...                                           "
  58.     println ""
  59.     delay 5
  60.     print "@X09C@X01onnection @X09S@X01peed@X08: "
  61.     string002 = ""
  62.     string002 = inkey()
  63.     if (!(string002 == "")) then
  64.         if ((string002 == chr(27))) goto label001
  65.     endif
  66.     for i = 1 to 6
  67.         print "@X0F|"
  68.         color 0
  69.         print " "
  70.         backup 1
  71.         delay 1
  72.         backup 1
  73.         print "@X0F\"
  74.         color 0
  75.         print " "
  76.     string002 = ""
  77.     string002 = inkey()
  78.     if (!(string002 == "")) then
  79.         if ((string002 == chr(27))) goto label001
  80.     endif
  81.         backup 1
  82.         delay 1
  83.         backup 1
  84.         print "@X0F-"
  85.         color 0
  86.         print " "
  87.         backup 1
  88.         delay 1
  89.         backup 1
  90.         print "@X0F/"
  91.         color 0
  92.         print " "
  93.         backup 1
  94.     string002 = ""
  95.     string002 = inkey()
  96.     if (!(string002 == "")) then
  97.         if ((string002 == chr(27))) goto label001
  98.     endif
  99.         delay 1
  100.         backup 1
  101.         print "@X0F|"
  102.         color 0
  103.         print " "
  104.         backup 1
  105.         delay 1
  106.         backup 1
  107.     next
  108.     string002 = ""
  109.     string002 = inkey()
  110.     if (!(string002 == "")) then
  111.         if ((string002 == chr(27))) goto label001
  112.     endif
  113.     integer003 = getx()
  114.     integer004 = gety()
  115.     ansipos 50, 9
  116.     print "@X0A▀▀"
  117.     ansipos integer003, integer004
  118.     getuser
  119.     string001 = string(carrier())
  120.     string002 = ""
  121.     string002 = inkey()
  122.     if (!(string002 == "")) then
  123.         if ((string002 == chr(27))) goto label001
  124.     endif
  125.     print "@X09" + string001
  126.     println ""
  127.     print "@X08 -- @X0FE@X07rror @X0FC@X07orrection @X0Fi@X07s " 
  128.     if (errcorrect()) then
  129.         print "@X08ON"
  130.         backup 2
  131.         delay 2
  132.         print "@X07ON"
  133.         backup 2
  134.         delay 2
  135.         print "@X0FON"
  136.         delay 2
  137.     string002 = ""
  138.     string002 = inkey()
  139.     if (!(string002 == "")) then
  140.         if ((string002 == chr(27))) goto label001
  141.     endif
  142.         println ""
  143.         integer003 = getx()
  144.         integer004 = gety()
  145.         ansipos 50, 9
  146.         print "@X0A▀▀▀▀"
  147.         ansipos integer003, integer004
  148.     else
  149.     print "@X08OFF"
  150.     backup 3
  151.     delay 2
  152.     string002 = ""
  153.     string002 = inkey()
  154.     if (!(string002 == "")) then
  155.         if ((string002 == chr(27))) goto label001
  156.     endif
  157.     print "@X07OFF"
  158.     backup 3
  159.     delay 2
  160.     string002 = ""
  161.     string002 = inkey()
  162.     if (!(string002 == "")) then
  163.         if ((string002 == chr(27))) goto label001
  164.     endif
  165.     print "@X0FOFF"
  166.     delay 2
  167.     println ""
  168.     string002 = ""
  169.     string002 = inkey()
  170.     if (!(string002 == "")) then
  171.         if ((string002 == chr(27))) goto label001
  172.     endif
  173.     integer003 = getx()
  174.     integer004 = gety()
  175.     ansipos 50, 9
  176.     string002 = ""
  177.     string002 = inkey()
  178.     if (!(string002 == "")) then
  179.         if ((string002 == chr(27))) goto label001
  180.     endif
  181.     print "@X0A▀▀▀▀"
  182.     ansipos integer003, integer004
  183.     endif
  184.     print " @X08-- @X0FC@X07arrier @X0FD@X07etect @X0Fi@X07s@X08 "
  185.     if (cdon())    then
  186.     string002 = ""
  187.     string002 = inkey()
  188.     if (!(string002 == "")) then
  189.         if ((string002 == chr(27))) goto label001
  190.     endif
  191.         print "@X08ON"
  192.         backup 2
  193.         delay 2
  194.         print "@X07ON"
  195.         backup 2
  196.         delay 2
  197.         print "@X0FON"
  198.     string002 = ""
  199.     string002 = inkey()
  200.     if (!(string002 == "")) then
  201.         if ((string002 == chr(27))) goto label001
  202.     endif
  203.         delay 2
  204.         println ""
  205.         integer003 = getx()
  206.         integer004 = gety()
  207.         ansipos 50, 9
  208.         print "@X0A▀▀▀▀▀▀"
  209.         ansipos integer003, integer004
  210.     else
  211.     string002 = ""
  212.     string002 = inkey()
  213.     if (!(string002 == "")) then
  214.         if ((string002 == chr(27))) goto label001
  215.     endif
  216.     print "@X08OFF"
  217.     backup 3
  218.     delay 2
  219.     print "@X07OFF"
  220.     backup 3
  221.     string002 = ""
  222.     string002 = inkey()
  223.     if (!(string002 == "")) then
  224.         if ((string002 == chr(27))) goto label001
  225.     endif
  226.     delay 2
  227.     print "@X0FOFF"
  228.     delay 2
  229.     println ""
  230.     string002 = ""
  231.     string002 = inkey()
  232.     if (!(string002 == "")) then
  233.         if ((string002 == chr(27))) goto label001
  234.     endif
  235.     integer003 = getx()
  236.     integer004 = gety()
  237.     ansipos 50, 9
  238.     print "@X0A▀▀▀▀▀▀"
  239.     ansipos integer003, integer004
  240.     endif
  241.     println ""
  242.     string002 = ""
  243.     string002 = inkey()
  244.     if (!(string002 == "")) then
  245.         if ((string002 == chr(27))) goto label001
  246.     endif
  247.     print "@X09N@X01umber @X09o@X01f @X09C@X01alls @X09t@X01o @X09t@X01he @X09S@X01ystem@X08: "
  248.     for i = 1 to 3
  249.     string002 = ""
  250.     string002 = inkey()
  251.     if (!(string002 == "")) then
  252.         if ((string002 == chr(27))) goto label001
  253.     endif
  254.         print "@X0F|"
  255.         color 0
  256.         print " "
  257.         backup 1
  258.         delay 1
  259.     string002 = ""
  260.     string002 = inkey()
  261.     if (!(string002 == "")) then
  262.         if ((string002 == chr(27))) goto label001
  263.     endif
  264.         backup 1
  265.         print "@X0F\"
  266.         color 0
  267.         print " "
  268.         backup 1
  269.     string002 = ""
  270.     string002 = inkey()
  271.     if (!(string002 == "")) then
  272.         if ((string002 == chr(27))) goto label001
  273.     endif
  274.         delay 1
  275.         backup 1
  276.         print "@X0F-"
  277.         color 0
  278.         print " "
  279.         backup 1
  280.         delay 1
  281.         backup 1
  282.         print "@X0F/"
  283.         color 0
  284.         print " "
  285.         backup 1
  286.         delay 1
  287.         backup 1
  288.     string002 = ""
  289.     string002 = inkey()
  290.     if (!(string002 == "")) then
  291.         if ((string002 == chr(27))) goto label001
  292.     endif
  293.         print "@X0F|"
  294.         color 0
  295.         print " "
  296.         backup 1
  297.         delay 1
  298.         backup 1
  299.     next
  300.     print "@X09" + string(integer005)
  301.     println ""
  302.     string002 = ""
  303.     string002 = inkey()
  304.     if (!(string002 == "")) then
  305.         if ((string002 == chr(27))) goto label001
  306.     endif
  307.     delay 7
  308.     integer003 = getx()
  309.     integer004 = gety()
  310.     ansipos 50, 9
  311.     print "@X0A▀▀▀▀▀▀▀▀"
  312.     ansipos integer003, integer004
  313.     print "@X08 -- @X0FC@X07urrent @X0FT@X07ime@X08: "
  314.     print "@X0F" + string(time())
  315.     string002 = ""
  316.     string002 = inkey()
  317.     if (!(string002 == "")) then
  318.         if ((string002 == chr(27))) goto label001
  319.     endif
  320.     println ""
  321.     delay 7
  322.     integer003 = getx()
  323.     string002 = ""
  324.     string002 = inkey()
  325.     if (!(string002 == "")) then
  326.         if ((string002 == chr(27))) goto label001
  327.     endif
  328.     integer004 = gety()
  329.     ansipos 50, 9
  330.     print "@X0A▀▀▀▀▀▀▀▀▀▀"
  331.     string002 = ""
  332.     string002 = inkey()
  333.     if (!(string002 == "")) then
  334.         if ((string002 == chr(27))) goto label001
  335.     endif
  336.     ansipos integer003, integer004
  337.     print "@X08 -- @X0FT@X07odays @X0FD@X07ate@X08: "
  338.     println "@X0F" + string(date())
  339.     println ""
  340.     delay 6
  341.     string002 = ""
  342.     string002 = inkey()
  343.     if (!(string002 == "")) then
  344.         if ((string002 == chr(27))) goto label001
  345.     endif
  346.     integer003 = getx()
  347.     integer004 = gety()
  348.     ansipos 50, 9
  349.     print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀"
  350.     ansipos integer003, integer004
  351.     string002 = ""
  352.     string002 = inkey()
  353.     if (!(string002 == "")) then
  354.         if ((string002 == chr(27))) goto label001
  355.     endif
  356.     print "@X09I@X01nitializing @X09M@X01ur @X09S@X01ystems@X08!"
  357.     integer001 = getx()
  358.     string002 = ""
  359.     string002 = inkey()
  360.     if (!(string002 == "")) then
  361.         if ((string002 == chr(27))) goto label001
  362.     endif
  363.     integer002 = gety()
  364.     delay 3
  365.     print "@X08  ·"
  366.     delay 3
  367.     string002 = ""
  368.     string002 = inkey()
  369.     if (!(string002 == "")) then
  370.         if ((string002 == chr(27))) goto label001
  371.     endif
  372.     print "@X08  ·"
  373.     delay 3
  374.     print "@X08  ·"
  375.     string002 = ""
  376.     string002 = inkey()
  377.     if (!(string002 == "")) then
  378.         if ((string002 == chr(27))) goto label001
  379.     endif
  380.     delay 3
  381.     print "@X08  ·"
  382.     string002 = ""
  383.     string002 = inkey()
  384.     if (!(string002 == "")) then
  385.         if ((string002 == chr(27))) goto label001
  386.     endif
  387.     delay 3
  388.     print "@X08  ·"
  389.     string002 = ""
  390.     string002 = inkey()
  391.     if (!(string002 == "")) then
  392.         if ((string002 == chr(27))) goto label001
  393.     endif
  394.     delay 2
  395.     string002 = ""
  396.     string002 = inkey()
  397.     if (!(string002 == "")) then
  398.         if ((string002 == chr(27))) goto label001
  399.     endif
  400.     backup 15
  401.     print space(15)
  402.     println ""
  403.     print " @X08-- @X0FL@X07ocal @X0FL@X07ogin@X08: "
  404.     if (onlocal()) then
  405.         print "@X08YES"
  406.         backup 3
  407.         delay 2
  408.     string002 = ""
  409.     string002 = inkey()
  410.     if (!(string002 == "")) then
  411.         if ((string002 == chr(27))) goto label001
  412.     endif
  413.         print "@X07YES"
  414.     string002 = ""
  415.     string002 = inkey()
  416.     if (!(string002 == "")) then
  417.         if ((string002 == chr(27))) goto label001
  418.     endif
  419.         backup 3
  420.         delay 2
  421.         print "@X0FYES"
  422.         backup 3
  423.         delay 2
  424.     string002 = ""
  425.     string002 = inkey()
  426.     if (!(string002 == "")) then
  427.         if ((string002 == chr(27))) goto label001
  428.     endif
  429.         integer003 = getx()
  430.         integer004 = gety()
  431.         ansipos 50, 9
  432.         print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  433.         ansipos integer003, integer004
  434.     else
  435.     print "@X08NO"
  436.     string002 = ""
  437.     string002 = inkey()
  438.     if (!(string002 == "")) then
  439.         if ((string002 == chr(27))) goto label001
  440.     endif
  441.     backup 2
  442.     delay 2
  443.     string002 = ""
  444.     string002 = inkey()
  445.     if (!(string002 == "")) then
  446.         if ((string002 == chr(27))) goto label001
  447.     endif
  448.     print "@X07NO"
  449.     backup 2
  450.     delay 2
  451.     print "@X0FNO"
  452.     backup 2
  453.     delay 2
  454.     string002 = ""
  455.     string002 = inkey()
  456.     if (!(string002 == "")) then
  457.         if ((string002 == chr(27))) goto label001
  458.     endif
  459.     integer003 = getx()
  460.     integer004 = gety()
  461.     ansipos 50, 9
  462.     print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  463.     string002 = ""
  464.     string002 = inkey()
  465.     if (!(string002 == "")) then
  466.         if ((string002 == chr(27))) goto label001
  467.     endif
  468.     ansipos integer003, integer004
  469.     endif
  470.     ansipos integer001, integer002
  471.     string002 = ""
  472.     string002 = inkey()
  473.     if (!(string002 == "")) then
  474.         if ((string002 == chr(27))) goto label001
  475.     endif
  476.     delay 3
  477.     print "@X08  ·"
  478.     string002 = ""
  479.     string002 = inkey()
  480.     if (!(string002 == "")) then
  481.         if ((string002 == chr(27))) goto label001
  482.     endif
  483.     delay 3
  484.     print "@X08  ·"
  485.     string002 = ""
  486.     string002 = inkey()
  487.     if (!(string002 == "")) then
  488.         if ((string002 == chr(27))) goto label001
  489.     endif
  490.     delay 3
  491.     string002 = ""
  492.     string002 = inkey()
  493.     if (!(string002 == "")) then
  494.         if ((string002 == chr(27))) goto label001
  495.     endif
  496.     print "@X08  ·"
  497.     string002 = ""
  498.     string002 = inkey()
  499.     if (!(string002 == "")) then
  500.         if ((string002 == chr(27))) goto label001
  501.     endif
  502.     delay 3
  503.     string002 = ""
  504.     string002 = inkey()
  505.     if (!(string002 == "")) then
  506.         if ((string002 == chr(27))) goto label001
  507.     endif
  508.     print "@X08  ·"
  509.     delay 3
  510.     string002 = ""
  511.     string002 = inkey()
  512.     if (!(string002 == "")) then
  513.         if ((string002 == chr(27))) goto label001
  514.     endif
  515.     print "@X08  ·"
  516.     delay 2
  517.     string002 = ""
  518.     string002 = inkey()
  519.     if (!(string002 == "")) then
  520.         if ((string002 == chr(27))) goto label001
  521.     endif
  522.     backup 15
  523.     string002 = ""
  524.     string002 = inkey()
  525.     if (!(string002 == "")) then
  526.         if ((string002 == chr(27))) goto label001
  527.     endif
  528.     print space(15)
  529.     println ""
  530.     println ""
  531.     print "@X08 -- @X0FG@X07raphics @X0FM@X07ode @X0Fs@X07et @X0Ft@X07o@X08: "
  532.     string002 = ""
  533.     string002 = inkey()
  534.     if (!(string002 == "")) then
  535.         if ((string002 == chr(27))) goto label001
  536.     endif
  537.     if ((upper(grafmode()) == "R")) then
  538.         print "@X08RIPscript"
  539.     string002 = ""
  540.     string002 = inkey()
  541.     if (!(string002 == "")) then
  542.         if ((string002 == chr(27))) goto label001
  543.     endif
  544.         color 0 
  545.         print " "
  546.         backup 1
  547.     string002 = ""
  548.     string002 = inkey()
  549.     if (!(string002 == "")) then
  550.         if ((string002 == chr(27))) goto label001
  551.     endif
  552.         delay 3
  553.     string002 = ""
  554.     string002 = inkey()
  555.     if (!(string002 == "")) then
  556.         if ((string002 == chr(27))) goto label001
  557.     endif
  558.         backup 9
  559.         print "@X07RIPscript"
  560.         color 0
  561.         print " "
  562.     string002 = ""
  563.     string002 = inkey()
  564.     if (!(string002 == "")) then
  565.         if ((string002 == chr(27))) goto label001
  566.     endif
  567.         backup 1
  568.         delay 3
  569.         backup 9
  570.         print "@X0FRIPscript"
  571.         integer003 = getx()
  572.     string002 = ""
  573.     string002 = inkey()
  574.     if (!(string002 == "")) then
  575.         if ((string002 == chr(27))) goto label001
  576.     endif
  577.         integer004 = gety()
  578.         ansipos 50, 9
  579.         print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  580.         ansipos integer003, integer004
  581.     elseif ((upper(grafmode()) == "G")) then
  582.         print "@X08ANSI graphics"
  583.     string002 = ""
  584.     string002 = inkey()
  585.     if (!(string002 == "")) then
  586.         if ((string002 == chr(27))) goto label001
  587.     endif
  588.         color 0
  589.         print " "
  590.         backup 1
  591.         delay 3
  592.         backup 13
  593.         print "@X07ANSI graphics"
  594.     string002 = ""
  595.     string002 = inkey()
  596.     if (!(string002 == "")) then
  597.         if ((string002 == chr(27))) goto label001
  598.     endif
  599.         color 0
  600.     string002 = ""
  601.     string002 = inkey()
  602.     if (!(string002 == "")) then
  603.         if ((string002 == chr(27))) goto label001
  604.     endif
  605.         print " "
  606.         backup 1
  607.         delay 3
  608.     string002 = ""
  609.     string002 = inkey()
  610.     if (!(string002 == "")) then
  611.         if ((string002 == chr(27))) goto label001
  612.     endif
  613.         backup 13
  614.         print "@X0FANSI graphics"
  615.     string002 = ""
  616.     string002 = inkey()
  617.     if (!(string002 == "")) then
  618.         if ((string002 == chr(27))) goto label001
  619.     endif
  620.         integer003 = getx()
  621.         integer004 = gety()
  622.         ansipos 50, 9
  623.     string002 = ""
  624.     string002 = inkey()
  625.     if (!(string002 == "")) then
  626.         if ((string002 == chr(27))) goto label001
  627.     endif
  628.         print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  629.     string002 = ""
  630.     string002 = inkey()
  631.     if (!(string002 == "")) then
  632.         if ((string002 == chr(27))) goto label001
  633.     endif
  634.         ansipos integer003, integer004
  635.     else 
  636.         print "@X08ASCII graphics"
  637.     string002 = ""
  638.     string002 = inkey()
  639.     if (!(string002 == "")) then
  640.         if ((string002 == chr(27))) goto label001
  641.     endif
  642.         color 0
  643.         print " "
  644.         backup 1
  645.     string002 = ""
  646.     string002 = inkey()
  647.     if (!(string002 == "")) then
  648.         if ((string002 == chr(27))) goto label001
  649.     endif
  650.         delay 3
  651.         backup 14
  652.     string002 = ""
  653.     string002 = inkey()
  654.     if (!(string002 == "")) then
  655.         if ((string002 == chr(27))) goto label001
  656.     endif
  657.         print "@X07ASCII graphics"
  658.         color 0
  659.         print " "
  660.     string002 = ""
  661.     string002 = inkey()
  662.     if (!(string002 == "")) then
  663.         if ((string002 == chr(27))) goto label001
  664.     endif
  665.         backup 1
  666.         delay 3
  667.     string002 = ""
  668.     string002 = inkey()
  669.     if (!(string002 == "")) then
  670.         if ((string002 == chr(27))) goto label001
  671.     endif
  672.         backup 14
  673.         print "@X0FASCII graphics"
  674.     string002 = ""
  675.     string002 = inkey()
  676.     if (!(string002 == "")) then
  677.         if ((string002 == chr(27))) goto label001
  678.     endif
  679.         integer003 = getx()
  680.     string002 = ""
  681.     string002 = inkey()
  682.     if (!(string002 == "")) then
  683.         if ((string002 == chr(27))) goto label001
  684.     endif
  685.         integer004 = gety()
  686.         ansipos 50, 9
  687.         print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  688.     string002 = ""
  689.     string002 = inkey()
  690.     if (!(string002 == "")) then
  691.         if ((string002 == chr(27))) goto label001
  692.     endif
  693.         ansipos integer003, integer004
  694.     endif
  695.     println ""
  696.     delay 3
  697.     string002 = ""
  698.     string002 = inkey()
  699.     if (!(string002 == "")) then
  700.         if ((string002 == chr(27))) goto label001
  701.     endif
  702.     ansipos integer001, integer002
  703.     delay 3
  704.     print "@X08  ·"
  705.     string002 = ""
  706.     string002 = inkey()
  707.     if (!(string002 == "")) then
  708.         if ((string002 == chr(27))) goto label001
  709.     endif
  710.     string002 = ""
  711.     string002 = inkey()
  712.     if (!(string002 == "")) then
  713.         if ((string002 == chr(27))) goto label001
  714.     endif
  715.     string002 = ""
  716.     string002 = inkey()
  717.     if (!(string002 == "")) then
  718.         if ((string002 == chr(27))) goto label001
  719.     endif
  720.     delay 3
  721.     print "@X08  ·"
  722.     delay 3
  723.     print "@X08  ·"
  724.     string002 = ""
  725.     string002 = inkey()
  726.     if (!(string002 == "")) then
  727.         if ((string002 == chr(27))) goto label001
  728.     endif
  729.     delay 3
  730.     print "@X08  ·"
  731.     delay 3
  732.     print "@X08  ·"
  733.     string002 = ""
  734.     string002 = inkey()
  735.     if (!(string002 == "")) then
  736.         if ((string002 == chr(27))) goto label001
  737.     endif
  738.     delay 2
  739.     backup 15
  740.     string002 = ""
  741.     string002 = inkey()
  742.     if (!(string002 == "")) then
  743.         if ((string002 == chr(27))) goto label001
  744.     endif
  745.     println ""
  746.     println ""
  747.     println ""
  748.     print "@X08 -- @X0FC@X07onnecting @X0Ft@X07o @X0FN@X07ode@X08: "
  749.     string002 = ""
  750.     string002 = inkey()
  751.     if (!(string002 == "")) then
  752.         if ((string002 == chr(27))) goto label001
  753.     endif
  754.     print "@X08" + string(pcbnode())
  755.     delay 4
  756.     string002 = ""
  757.     string002 = inkey()
  758.     if (!(string002 == "")) then
  759.         if ((string002 == chr(27))) goto label001
  760.     endif
  761.     backup len(string(pcbnode()))
  762.     string002 = ""
  763.     string002 = inkey()
  764.     if (!(string002 == "")) then
  765.         if ((string002 == chr(27))) goto label001
  766.     string002 = ""
  767.     string002 = inkey()
  768.     if (!(string002 == "")) then
  769.         if ((string002 == chr(27))) goto label001
  770.     endif
  771.     endif
  772.     print "@X07" + string(pcbnode())
  773.     delay 4
  774.     backup len(string(pcbnode()))
  775.     string002 = ""
  776.     string002 = inkey()
  777.     if (!(string002 == "")) then
  778.         if ((string002 == chr(27))) goto label001
  779.     endif
  780.     print "@X0F" + string(pcbnode())
  781.     delay 4
  782.     backup len(string(pcbnode()))
  783.     string002 = ""
  784.     string002 = inkey()
  785.     if (!(string002 == "")) then
  786.         if ((string002 == chr(27))) goto label001
  787.     endif
  788.     println ""
  789.     delay 3
  790.     integer003 = getx()
  791.     integer004 = gety()
  792.     string002 = ""
  793.     string002 = inkey()
  794.     if (!(string002 == "")) then
  795.         if ((string002 == chr(27))) goto label001
  796.     endif
  797.     ansipos 50, 9
  798.     string002 = ""
  799.     string002 = inkey()
  800.     if (!(string002 == "")) then
  801.         if ((string002 == chr(27))) goto label001
  802.     endif
  803.     print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  804.     ansipos integer001, integer002
  805.     delay 3
  806.     print "@X08  ·"
  807.     delay 3
  808.     string002 = ""
  809.     string002 = inkey()
  810.     if (!(string002 == "")) then
  811.         if ((string002 == chr(27))) goto label001
  812.     endif
  813.     print "@X08  ·"
  814.     delay 3
  815.     print "@X08  ·"
  816.     string002 = ""
  817.     string002 = inkey()
  818.     if (!(string002 == "")) then
  819.         if ((string002 == chr(27))) goto label001
  820.     endif
  821.     delay 3
  822.     print "@X08  ·"
  823.     delay 3
  824.     print "@X08  ·"
  825.     string002 = ""
  826.     string002 = inkey()
  827.     if (!(string002 == "")) then
  828.         if ((string002 == chr(27))) goto label001
  829.     endif
  830.     delay 2
  831.     backup 15
  832.     print space(15)
  833.     string002 = ""
  834.     string002 = inkey()
  835.     if (!(string002 == "")) then
  836.         if ((string002 == chr(27))) goto label001
  837.     endif
  838.     println ""
  839.     println ""
  840.     println ""
  841.     println ""
  842.     string002 = ""
  843.     string002 = inkey()
  844.     if (!(string002 == "")) then
  845.         if ((string002 == chr(27))) goto label001
  846.     endif
  847.     println ""
  848.     string002 = ""
  849.     string002 = inkey()
  850.     if (!(string002 == "")) then
  851.         if ((string002 == chr(27))) goto label001
  852.     endif
  853.     time002 = time()
  854.     time003 = time002 - time001
  855.     string002 = ""
  856.     string002 = inkey()
  857.     if (!(string002 == "")) then
  858.         if ((string002 == chr(27))) goto label001
  859.     endif
  860.     time004 = "00:00:10"
  861.     if ((time003 > time004)) println "slow connection!"
  862.     if ((time003 == time004)) println "average connection."
  863.     if ((time003 < time004)) println "fast connection!"
  864.     string002 = ""
  865.     string002 = inkey()
  866.     if (!(string002 == "")) then
  867.         if ((string002 == chr(27))) goto label001
  868.     endif
  869.     println ""
  870.     println ""
  871.     string002 = ""
  872.     string002 = inkey()
  873.     if (!(string002 == "")) then
  874.         if ((string002 == chr(27))) goto label001
  875.     string002 = ""
  876.     string002 = inkey()
  877.     if (!(string002 == "")) then
  878.         if ((string002 == chr(27))) goto label001
  879.     endif
  880.     endif
  881.     println ""
  882.     delay 4
  883.     string002 = ""
  884.     string002 = inkey()
  885.     if (!(string002 == "")) then
  886.         if ((string002 == chr(27))) goto label001
  887.     endif
  888.     println "@X0CF@X04iring @X0Cu@X04p@X08!"    
  889.     println ""
  890.     integer003 = getx()
  891.     string002 = ""
  892.     string002 = inkey()
  893.     if (!(string002 == "")) then
  894.         if ((string002 == chr(27))) goto label001
  895.     endif
  896.     integer004 = gety()
  897.     ansipos 50, 9
  898.     print "@X0A▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  899.     string002 = ""
  900.     string002 = inkey()
  901.     if (!(string002 == "")) then
  902.         if ((string002 == chr(27))) goto label001
  903.     endif
  904.     ansipos integer003, integer004
  905.     delay 8
  906.     string002 = ""
  907.     string002 = inkey()
  908.     if (!(string002 == "")) then
  909.         if ((string002 == chr(27))) goto label001
  910.     endif
  911.     end
  912. :label001
  913.     cls
  914.     end
  915.     
  916. endproc
  917.  
  918.