home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT320.ZIP / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-21  |  32KB  |  1,512 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  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.     String   STRING001
  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   TSTRING047(1)
  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.     String   STRING063
  95.  
  96. ;------------------------------------------------------------------------------
  97.  
  98.     STRING059 = Chr(51) + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(46) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + Chr(48) + Chr(49)
  99.     STRING049 = Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)
  100.     STRING008 = Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING059 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)
  101.     TSTRING047(0) = Upper(ReadLine(PCBDat(), 2))
  102.     TSTRING047(1) = Upper(ReadLine(PCBDat(), 94))
  103.     BOOLEAN002 = 0
  104.     Cls
  105.     AnsiPos 1, 1
  106.     PrintLn "@X0ELoading " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + " @X0ENUV @X0F!"
  107.     STRING063 = 0
  108.     For STRING063 = 0 To 1
  109.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "1")
  110.         AnsiPos 28, 1
  111.         Print "@X0E|"
  112.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "2")
  113.         AnsiPos 28, 1
  114.         Print "@X0F/"
  115.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "3")
  116.         AnsiPos 28, 1
  117.         Print "@X0E-"
  118.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "4")
  119.         AnsiPos 28, 1
  120.         Print "@X0F\"
  121.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "5")
  122.         AnsiPos 28, 1
  123.         Print "@X0E|"
  124.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "6")
  125.         AnsiPos 28, 1
  126.         Print "@X0F/"
  127.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "7")
  128.         AnsiPos 28, 1
  129.         Print "@X0E-"
  130.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "8")
  131.         AnsiPos 28, 1
  132.         Print "@X0F\"
  133.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "9")
  134.         AnsiPos 28, 1
  135.         Print "@X0E|"
  136.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "0")
  137.         AnsiPos 28, 1
  138.         Print "@X0F/"
  139.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "=")
  140.         AnsiPos 28, 1
  141.         Print "@X0E-"
  142.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "-")
  143.         AnsiPos 28, 1
  144.         Print "@X0F\"
  145.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), " ")
  146.         AnsiPos 28, 1
  147.         Print "@X0E|"
  148.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), " ")
  149.         AnsiPos 28, 1
  150.         Print "@X0F/"
  151.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "<")
  152.         AnsiPos 28, 1
  153.         Print "@X0E-"
  154.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ">")
  155.         AnsiPos 28, 1
  156.         Print "@X0F\"
  157.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "*")
  158.         AnsiPos 28, 1
  159.         Print "@X0E|"
  160.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ")")
  161.         AnsiPos 28, 1
  162.         Print "@X0F/"
  163.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "(")
  164.         AnsiPos 28, 1
  165.         Print "@X0E-"
  166.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "{")
  167.         AnsiPos 28, 1
  168.         Print "@X0F\"
  169.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "}")
  170.         AnsiPos 28, 1
  171.         Print "@X0E|"
  172.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "[")
  173.         AnsiPos 28, 1
  174.         Print "@X0F/"
  175.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "]")
  176.         AnsiPos 28, 1
  177.         Print "@X0E-"
  178.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "~")
  179.         AnsiPos 28, 1
  180.         Print "@X0F\"
  181.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "!")
  182.         AnsiPos 28, 1
  183.         Print "@X0E|"
  184.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "@")
  185.         AnsiPos 28, 1
  186.         Print "@X0F/"
  187.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "#")
  188.         AnsiPos 28, 1
  189.         Print "@X0E-"
  190.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "$")
  191.         AnsiPos 28, 1
  192.         Print "@X0F\"
  193.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "%")
  194.         AnsiPos 28, 1
  195.         Print "@X0E|"
  196.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "^")
  197.         AnsiPos 28, 1
  198.         Print "@X0F/"
  199.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "&")
  200.         AnsiPos 28, 1
  201.         Print "@X0E-"
  202.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ":")
  203.         AnsiPos 28, 1
  204.         Print "@X0F\"
  205.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ";")
  206.         AnsiPos 28, 1
  207.         Print "@X0E|"
  208.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  209.         AnsiPos 28, 1
  210.         Print "@X0F/"
  211.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ".")
  212.         AnsiPos 28, 1
  213.         Print "@X0E-"
  214.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ",")
  215.         AnsiPos 28, 1
  216.         Print "@X0F\"
  217.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "?")
  218.         AnsiPos 28, 1
  219.         Print "@X0E|"
  220.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "/")
  221.         AnsiPos 28, 1
  222.         Print "@X0F/"
  223.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "|")
  224.         AnsiPos 28, 1
  225.         Print "@X0E-"
  226.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "\")
  227.         AnsiPos 28, 1
  228.         Print "@X0F\"
  229.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "+")
  230.         AnsiPos 28, 1
  231.         Print "@X0E|"
  232.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "=")
  233.         AnsiPos 28, 1
  234.         Print "@X0F/"
  235.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "-")
  236.         AnsiPos 28, 1
  237.         Print "@X0E-"
  238.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), ".")
  239.         AnsiPos 28, 1
  240.         Print "@X0F\"
  241.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "«")
  242.         AnsiPos 28, 1
  243.         Print "@X0E|"
  244.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "»")
  245.         AnsiPos 28, 1
  246.         Print "@X0F/"
  247.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ü")
  248.         AnsiPos 28, 1
  249.         Print "@X0E-"
  250.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┤")
  251.         AnsiPos 28, 1
  252.         Print "@X0F\"
  253.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "│")
  254.         AnsiPos 28, 1
  255.         Print "@X0E|"
  256.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╡")
  257.         AnsiPos 28, 1
  258.         Print "@X0F/"
  259.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  260.         AnsiPos 28, 1
  261.         Print "@X0E-"
  262.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  263.         AnsiPos 28, 1
  264.         Print "@X0F\"
  265.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  266.         AnsiPos 28, 1
  267.         Print "@X0E|"
  268.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  269.         AnsiPos 28, 1
  270.         Print "@X0F/"
  271.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  272.         AnsiPos 28, 1
  273.         Print "@X0E-"
  274.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  275.         AnsiPos 28, 1
  276.         Print "@X0F\"
  277.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  278.         AnsiPos 28, 1
  279.         Print "@X0E|"
  280.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  281.         AnsiPos 28, 1
  282.         Print "@X0F/"
  283.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  284.         AnsiPos 28, 1
  285.         Print "@X0E-"
  286.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  287.         AnsiPos 28, 1
  288.         Print "@X0F\"
  289.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  290.         AnsiPos 28, 1
  291.         Print "@X0E|"
  292.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  293.         AnsiPos 28, 1
  294.         Print "@X0F/"
  295.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  296.         AnsiPos 28, 1
  297.         Print "@X0E-"
  298.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  299.         AnsiPos 28, 1
  300.         Print "@X0F\"
  301.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  302.         AnsiPos 28, 1
  303.         Print "@X0E|"
  304.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  305.         AnsiPos 28, 1
  306.         Print "@X0F/"
  307.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), " ")
  308.         AnsiPos 28, 1
  309.         Print "@X0E-"
  310.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  311.         AnsiPos 28, 1
  312.         Print "@X0F\"
  313.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "")
  314.         AnsiPos 28, 1
  315.         Print "@X0E|"
  316.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ç")
  317.         AnsiPos 28, 1
  318.         Print "@X0F/"
  319.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "É")
  320.         AnsiPos 28, 1
  321.         Print "@X0E-"
  322.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "á")
  323.         AnsiPos 28, 1
  324.         Print "@X0F\"
  325.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "░")
  326.         AnsiPos 28, 1
  327.         Print "@X0E|"
  328.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ü")
  329.         AnsiPos 28, 1
  330.         Print "@X0F/"
  331.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "æ")
  332.         AnsiPos 28, 1
  333.         Print "@X0E-"
  334.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "í")
  335.         AnsiPos 28, 1
  336.         Print "@X0F\"
  337.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▒")
  338.         AnsiPos 28, 1
  339.         Print "@X0E|"
  340.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "é")
  341.         AnsiPos 28, 1
  342.         Print "@X0F/"
  343.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Æ")
  344.         AnsiPos 28, 1
  345.         Print "@X0E-"
  346.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ó")
  347.         AnsiPos 28, 1
  348.         Print "@X0F\"
  349.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▓")
  350.         AnsiPos 28, 1
  351.         Print "@X0E|"
  352.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "â")
  353.         AnsiPos 28, 1
  354.         Print "@X0F/"
  355.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ô")
  356.         AnsiPos 28, 1
  357.         Print "@X0E-"
  358.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ú")
  359.         AnsiPos 28, 1
  360.         Print "@X0F\"
  361.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "│")
  362.         AnsiPos 28, 1
  363.         Print "@X0E|"
  364.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ä")
  365.         AnsiPos 28, 1
  366.         Print "@X0F/"
  367.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ö")
  368.         AnsiPos 28, 1
  369.         Print "@X0E-"
  370.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ñ")
  371.         AnsiPos 28, 1
  372.         Print "@X0F\"
  373.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┤")
  374.         AnsiPos 28, 1
  375.         Print "@X0E|"
  376.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "à")
  377.         AnsiPos 28, 1
  378.         Print "@X0F/"
  379.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ò")
  380.         AnsiPos 28, 1
  381.         Print "@X0E-"
  382.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ñ")
  383.         AnsiPos 28, 1
  384.         Print "@X0F\"
  385.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╡")
  386.         AnsiPos 28, 1
  387.         Print "@X0E|"
  388.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "å")
  389.         AnsiPos 28, 1
  390.         Print "@X0F/"
  391.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "û")
  392.         AnsiPos 28, 1
  393.         Print "@X0E-"
  394.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ª")
  395.         AnsiPos 28, 1
  396.         Print "@X0F\"
  397.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╢")
  398.         AnsiPos 28, 1
  399.         Print "@X0E|"
  400.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ç")
  401.         AnsiPos 28, 1
  402.         Print "@X0F/"
  403.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ù")
  404.         AnsiPos 28, 1
  405.         Print "@X0E-"
  406.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "º")
  407.         AnsiPos 28, 1
  408.         Print "@X0F\"
  409.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╖")
  410.         AnsiPos 28, 1
  411.         Print "@X0E|"
  412.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ê")
  413.         AnsiPos 28, 1
  414.         Print "@X0F/"
  415.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ÿ")
  416.         AnsiPos 28, 1
  417.         Print "@X0E-"
  418.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¿")
  419.         AnsiPos 28, 1
  420.         Print "@X0F\"
  421.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╕")
  422.         AnsiPos 28, 1
  423.         Print "@X0E|"
  424.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ë")
  425.         AnsiPos 28, 1
  426.         Print "@X0F/"
  427.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ö")
  428.         AnsiPos 28, 1
  429.         Print "@X0E-"
  430.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "⌐")
  431.         AnsiPos 28, 1
  432.         Print "@X0F\"
  433.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╣")
  434.         AnsiPos 28, 1
  435.         Print "@X0E|"
  436.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "è")
  437.         AnsiPos 28, 1
  438.         Print "@X0F/"
  439.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ü")
  440.         AnsiPos 28, 1
  441.         Print "@X0E-"
  442.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¬")
  443.         AnsiPos 28, 1
  444.         Print "@X0F\"
  445.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "║")
  446.         AnsiPos 28, 1
  447.         Print "@X0E|"
  448.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ï")
  449.         AnsiPos 28, 1
  450.         Print "@X0F/"
  451.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¢")
  452.         AnsiPos 28, 1
  453.         Print "@X0E-"
  454.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "½")
  455.         AnsiPos 28, 1
  456.         Print "@X0F\"
  457.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╗")
  458.         AnsiPos 28, 1
  459.         Print "@X0E|"
  460.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "î")
  461.         AnsiPos 28, 1
  462.         Print "@X0F/"
  463.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "£")
  464.         AnsiPos 28, 1
  465.         Print "@X0E-"
  466.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¼")
  467.         AnsiPos 28, 1
  468.         Print "@X0F\"
  469.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╝")
  470.         AnsiPos 28, 1
  471.         Print "@X0E|"
  472.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ì")
  473.         AnsiPos 28, 1
  474.         Print "@X0F/"
  475.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¥")
  476.         AnsiPos 28, 1
  477.         Print "@X0E-"
  478.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "¡")
  479.         AnsiPos 28, 1
  480.         Print "@X0F\"
  481.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╜")
  482.         AnsiPos 28, 1
  483.         Print "@X0E|"
  484.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ä")
  485.         AnsiPos 28, 1
  486.         Print "@X0F/"
  487.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "₧")
  488.         AnsiPos 28, 1
  489.         Print "@X0E-"
  490.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "«")
  491.         AnsiPos 28, 1
  492.         Print "@X0F\"
  493.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╛")
  494.         AnsiPos 28, 1
  495.         Print "@X0E|"
  496.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Å")
  497.         AnsiPos 28, 1
  498.         Print "@X0F/"
  499.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ƒ")
  500.         AnsiPos 28, 1
  501.         Print "@X0E-"
  502.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "»")
  503.         AnsiPos 28, 1
  504.         Print "@X0F\"
  505.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┐")
  506.         AnsiPos 28, 1
  507.         Print "@X0E|"
  508.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), " ")
  509.         AnsiPos 28, 1
  510.         Print "@X0F/"
  511.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "└")
  512.         AnsiPos 28, 1
  513.         Print "@X0E-"
  514.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╨")
  515.         AnsiPos 28, 1
  516.         Print "@X0F\"
  517.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "α")
  518.         AnsiPos 28, 1
  519.         Print "@X0E|"
  520.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "≡")
  521.         AnsiPos 28, 1
  522.         Print "@X0F/"
  523.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┴")
  524.         AnsiPos 28, 1
  525.         Print "@X0E-"
  526.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╤")
  527.         AnsiPos 28, 1
  528.         Print "@X0F\"
  529.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ß")
  530.         AnsiPos 28, 1
  531.         Print "@X0E|"
  532.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "±")
  533.         AnsiPos 28, 1
  534.         Print "@X0F/"
  535.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┬")
  536.         AnsiPos 28, 1
  537.         Print "@X0E-"
  538.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╥")
  539.         AnsiPos 28, 1
  540.         Print "@X0F\"
  541.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Γ")
  542.         AnsiPos 28, 1
  543.         Print "@X0E|"
  544.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "≥")
  545.         AnsiPos 28, 1
  546.         Print "@X0F/"
  547.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "├")
  548.         AnsiPos 28, 1
  549.         Print "@X0E-"
  550.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╙")
  551.         AnsiPos 28, 1
  552.         Print "@X0F\"
  553.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "π")
  554.         AnsiPos 28, 1
  555.         Print "@X0E|"
  556.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "≤")
  557.         AnsiPos 28, 1
  558.         Print "@X0F/"
  559.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "─")
  560.         AnsiPos 28, 1
  561.         Print "@X0E-"
  562.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╘")
  563.         AnsiPos 28, 1
  564.         Print "@X0F\"
  565.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Σ")
  566.         AnsiPos 28, 1
  567.         Print "@X0E|"
  568.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "⌠")
  569.         AnsiPos 28, 1
  570.         Print "@X0F/"
  571.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┼")
  572.         AnsiPos 28, 1
  573.         Print "@X0E-"
  574.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╒")
  575.         AnsiPos 28, 1
  576.         Print "@X0F\"
  577.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "σ")
  578.         AnsiPos 28, 1
  579.         Print "@X0E|"
  580.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "⌡")
  581.         AnsiPos 28, 1
  582.         Print "@X0F/"
  583.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╞")
  584.         AnsiPos 28, 1
  585.         Print "@X0E-"
  586.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╓")
  587.         AnsiPos 28, 1
  588.         Print "@X0F\"
  589.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "µ")
  590.         AnsiPos 28, 1
  591.         Print "@X0E|"
  592.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "÷")
  593.         AnsiPos 28, 1
  594.         Print "@X0F/"
  595.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╟")
  596.         AnsiPos 28, 1
  597.         Print "@X0E-"
  598.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╫")
  599.         AnsiPos 28, 1
  600.         Print "@X0F\"
  601.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "τ")
  602.         AnsiPos 28, 1
  603.         Print "@X0E|"
  604.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "≈")
  605.         AnsiPos 28, 1
  606.         Print "@X0F/"
  607.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╚")
  608.         AnsiPos 28, 1
  609.         Print "@X0E-"
  610.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╪")
  611.         AnsiPos 28, 1
  612.         Print "@X0F\"
  613.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Φ")
  614.         AnsiPos 28, 1
  615.         Print "@X0E|"
  616.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "°")
  617.         AnsiPos 28, 1
  618.         Print "@X0F/"
  619.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╔")
  620.         AnsiPos 28, 1
  621.         Print "@X0E-"
  622.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┘")
  623.         AnsiPos 28, 1
  624.         Print "@X0F\"
  625.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Θ")
  626.         AnsiPos 28, 1
  627.         Print "@X0E|"
  628.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "∙")
  629.         AnsiPos 28, 1
  630.         Print "@X0F/"
  631.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╩")
  632.         AnsiPos 28, 1
  633.         Print "@X0E-"
  634.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "┌")
  635.         AnsiPos 28, 1
  636.         Print "@X0F\"
  637.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Ω")
  638.         AnsiPos 28, 1
  639.         Print "@X0E|"
  640.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "·")
  641.         AnsiPos 28, 1
  642.         Print "@X0F/"
  643.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╦")
  644.         AnsiPos 28, 1
  645.         Print "@X0E-"
  646.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "█")
  647.         AnsiPos 28, 1
  648.         Print "@X0F\"
  649.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "δ")
  650.         AnsiPos 28, 1
  651.         Print "@X0E|"
  652.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "√")
  653.         AnsiPos 28, 1
  654.         Print "@X0F/"
  655.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╠")
  656.         AnsiPos 28, 1
  657.         Print "@X0E-"
  658.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▄")
  659.         AnsiPos 28, 1
  660.         Print "@X0F\"
  661.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "∞")
  662.         AnsiPos 28, 1
  663.         Print "@X0E|"
  664.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ⁿ")
  665.         AnsiPos 28, 1
  666.         Print "@X0F/"
  667.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "═")
  668.         AnsiPos 28, 1
  669.         Print "@X0E-"
  670.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▌")
  671.         AnsiPos 28, 1
  672.         Print "@X0F\"
  673.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "φ")
  674.         AnsiPos 28, 1
  675.         Print "@X0E|"
  676.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "²")
  677.         AnsiPos 28, 1
  678.         Print "@X0F/"
  679.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╬")
  680.         AnsiPos 28, 1
  681.         Print "@X0E-"
  682.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▐")
  683.         AnsiPos 28, 1
  684.         Print "@X0F\"
  685.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "ε")
  686.         AnsiPos 28, 1
  687.         Print "@X0E|"
  688.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "■")
  689.         AnsiPos 28, 1
  690.         Print "@X0F/"
  691.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "╧")
  692.         AnsiPos 28, 1
  693.         Print "@X0E-"
  694.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "▀")
  695.         AnsiPos 28, 1
  696.         Print "@X0F\"
  697.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "U")
  698.         AnsiPos 28, 1
  699.         Print "@X0E|"
  700.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "V")
  701.         AnsiPos 28, 1
  702.         Print "@X0F/"
  703.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "W")
  704.         AnsiPos 28, 1
  705.         Print "@X0E-"
  706.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "X")
  707.         AnsiPos 28, 1
  708.         Print "@X0F\"
  709.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Y")
  710.         AnsiPos 28, 1
  711.         Print "@X0E|"
  712.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), "Z")
  713.         AnsiPos 28, 1
  714.         Print "@X0F/"
  715.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(44))
  716.         AnsiPos 28, 1
  717.         Print "@X0E-"
  718.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(0))
  719.         AnsiPos 28, 1
  720.         Print "@X0F\"
  721.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(7))
  722.         AnsiPos 28, 1
  723.         Print "@X0E|"
  724.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(8))
  725.         AnsiPos 28, 1
  726.         Print "@X0F/"
  727.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(10))
  728.         AnsiPos 28, 1
  729.         Print "@X0E-"
  730.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(117))
  731.         AnsiPos 28, 1
  732.         Print "@X0F\"
  733.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(118))
  734.         AnsiPos 28, 1
  735.         Print "@X0E|"
  736.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(119))
  737.         AnsiPos 28, 1
  738.         Print "@X0F/"
  739.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(120))
  740.         AnsiPos 28, 1
  741.         Print "@X0E-"
  742.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(121))
  743.         AnsiPos 28, 1
  744.         Print "@X0F\"
  745.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(122))
  746.         AnsiPos 28, 1
  747.         Print "@X0E|"
  748.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(86))
  749.         AnsiPos 28, 1
  750.         Print "@X0F/"
  751.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(87))
  752.         AnsiPos 28, 1
  753.         Print "@X0E-"
  754.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(88))
  755.         AnsiPos 28, 1
  756.         Print "@X0F\"
  757.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(89))
  758.         AnsiPos 28, 1
  759.         Print "@X0E|"
  760.         TSTRING047(STRING063) = Strip(TSTRING047(STRING063), Chr(90))
  761.         AnsiPos 28, 1
  762.         Print "@X0F/"
  763.     Next
  764.     INTEGER007 = Len(TSTRING047(0))
  765.     If (INTEGER007 < 2) TSTRING047(0) = "uv"
  766.     TSTRING047(0) = Right(TSTRING047(0), 2)
  767.     INTEGER008 = Len(TSTRING047(1))
  768.     If (INTEGER008 < 2) TSTRING047(1) = "uv"
  769.     TSTRING047(1) = Right(TSTRING047(1), 2)
  770.     STRING048 = TSTRING047(0) + TSTRING047(1) + Chr(80) + Chr(79)
  771.     FDefIn 1
  772.     GetUser
  773.     FClose 1
  774.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  775.     FDGet STRING042
  776.     FDGet STRING040
  777.     FDGet STRING034
  778.     FDGet STRING035
  779.     FDGet STRING036
  780.     FDGet STRING050
  781.     FDGet STRING051
  782.     FDGet STRING055
  783.     FDGet STRING054
  784.     FDGet STRING052
  785.     FDGet STRING053
  786.     FDGet STRING056
  787.     FDGet STRING057
  788.     FDGet STRING058
  789.     FDGet STRING060
  790.     FDGet STRING061
  791.     FDGet STRING062
  792.     FDGet STRING019
  793.     FClose 1
  794.     :LABEL001
  795.     If (STRING040 > CurSec()) Goto LABEL045
  796.     If (Exist(PPEPath() + "apps\waiting.app")) Then
  797.         If (STRING008 <> Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING059 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
  798.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  799.             Goto LABEL042
  800.         Endif
  801.         STRING037 = STRING055
  802.         STRING037 = Upper(STRING037)
  803.         Cls
  804.         FClose 1
  805.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  806.         INTEGER005 = 0
  807.         :LABEL002
  808.         If (Ferr(1)) Goto LABEL003
  809.         FGet 1, STRING006
  810.         If (STRING006 == "") Goto LABEL004
  811.         Inc INTEGER005
  812.         Goto LABEL002
  813.         :LABEL003
  814.         FClose 1
  815.         :LABEL004
  816.         FClose 1
  817.         If (BOOLEAN002 == 1) Goto LABEL005
  818.         If ((INTEGER005 == 0) && (STRING042 == S2I(STRING048, 34))) Then
  819.             Goto LABEL042
  820.         Endif
  821.         If (((STRING060 == YesChar()) && (STRING042 == S2I(STRING048, 34))) && (CurSec() <= STRING062)) Goto LABEL005
  822.         AnsiPos 12, 3
  823.         PrintLn STRING008
  824.         If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
  825.         Newline
  826.         InputYN STRING058, STRING037, " "
  827.         If (STRING037 == NoChar()) Goto LABEL043
  828.         :LABEL005
  829.         DefColor
  830.         STRING001 = 7
  831.         FClose 2
  832.         FClose 1
  833.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  834.         INTEGER005 = 0
  835.         INTEGER009 = 0
  836.         :LABEL006
  837.         If (Ferr(1)) Goto LABEL010
  838.         STRING009 = NoChar()
  839.         FDGet STRING006
  840.         If (STRING006 == "") Goto LABEL009
  841.         Tokenize STRING006
  842.         If (TokCount() == 3) Then
  843.             GetToken STRING031
  844.             GetToken STRING032
  845.             GetToken STRING038
  846.             STRING031 = Left(STRING031, 3)
  847.             STRING032 = Right(STRING038, 4)
  848.             STRING031 = Strip(STRING031, " ")
  849.             STRING031 = Strip(STRING031, ".")
  850.             STRING032 = Strip(STRING032, " ")
  851.             STRING032 = Strip(STRING032, ".")
  852.             Goto LABEL007
  853.         Endif
  854.         If (TokCount() == 2) Then
  855.             GetToken STRING031
  856.             GetToken STRING032
  857.             STRING031 = Left(STRING031, 3)
  858.             STRING032 = Right(STRING032, 4)
  859.             STRING031 = Strip(STRING031, " ")
  860.             STRING031 = Strip(STRING031, ".")
  861.             STRING032 = Strip(STRING032, " ")
  862.             STRING032 = Strip(STRING032, ".")
  863.             Goto LABEL007
  864.         Endif
  865.         If (TokCount() == 1) Then
  866.             GetToken STRING031
  867.             GetToken STRING032
  868.             STRING031 = Strip(STRING031, ".")
  869.             STRING031 = Strip(STRING031, " ")
  870.             STRING032 = Strip(STRING032, ".")
  871.             STRING032 = Strip(STRING032, " ")
  872.             STRING031 = Left(STRING031, 3)
  873.             Goto LABEL007
  874.         Endif
  875.         :LABEL007
  876.         STRING041 = ReadLine(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".GRP", 1)
  877.         If (Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot")) Goto LABEL008
  878.         FCreate 3, PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot", 1, 0
  879.         FClose 3
  880.         :LABEL008
  881.         Gosub LABEL014
  882.         If (!Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".1") && (BOOLEAN002 == 0)) STRING009 = YesChar()
  883.         If (STRING006 == U_Name()) STRING009 = YesChar()
  884.         If ((STRING009 == NoChar()) && (BOOLEAN002 == 0)) Then
  885.             If (INTEGER005 <= 12) Inc STRING001
  886.             Inc INTEGER005
  887.             If (INTEGER005 == 1) Gosub LABEL011
  888.             If (BOOLEAN002 == 0) Then
  889.                 If (INTEGER005 > 13) Gosub LABEL018
  890.                 Gosub LABEL013
  891.                 FClose 2
  892.             Endif
  893.             If (INTEGER005 > 13) INTEGER005 = 13
  894.         Endif
  895.         If ((BOOLEAN002 == 1) && (STRING024 == YesChar())) Then
  896.             If (INTEGER009 <= 12) Inc STRING001
  897.             Inc INTEGER009
  898.             If ((INTEGER009 == 1) && (BOOLEAN002 == 1)) Gosub LABEL011
  899.             If (BOOLEAN002 == 1) Then
  900.                 If (INTEGER009 > 13) Gosub LABEL018
  901.                 Gosub LABEL013
  902.             Endif
  903.             If (INTEGER009 > 13) INTEGER009 = 13
  904.             INTEGER005 = INTEGER009
  905.         Endif
  906.         :LABEL009
  907.         Goto LABEL006
  908.         :LABEL010
  909.         Goto LABEL019
  910.         :LABEL011
  911.         StartDisp 1
  912.         Cls
  913.         AnsiPos 6, 1
  914.         PrintLn "@POS:18@" + STRING008
  915.         AnsiPos 9, 2
  916.         PrintLn STRING056
  917.         AnsiPos 35, 3
  918.         PrintLn STRING057
  919.         If (BOOLEAN002 == 1) Then
  920.             AnsiPos 6, 4
  921.             PrintLn "@POS:13@" + STRING053 + "▄▄▄▄▄" + STRING054 + "Change" + STRING053 + "▄" + STRING054 + "Vote" + STRING053 + "▄" + STRING054 + "Mode" + STRING053 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  922.             Goto LABEL012
  923.         Endif
  924.         AnsiPos 6, 4
  925.         PrintLn "@POS:13@" + STRING053 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  926.         :LABEL012
  927.         AnsiPos 6, 5
  928.         PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + "  UserName/Handle               Location/Group             " + STRING053 + "█"
  929.         AnsiPos 6, 6
  930.         PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + "─────────────────────────────┬─────────────────────────────" + STRING053 + "█"
  931.         If (BOOLEAN002 == 1) Then
  932.             AnsiPos 6, 7
  933.             PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + "                       " + STRING054 + " Voted" + STRING052 + "│                             " + STRING053 + "█"
  934.             Goto LABEL013
  935.         Endif
  936.         AnsiPos 6, 7
  937.         PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + "                             │                             " + STRING053 + "█"
  938.         Return
  939.         :LABEL013
  940.         If (BOOLEAN002 == 1) Then
  941.             AnsiPos 6, STRING001
  942.             PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + " " + STRING006 + "@POS:40@" + STRING029 + "@POS:43@│    " + STRING041 + "@POS:73@" + STRING053 + "█"
  943.             Goto LABEL014
  944.         Endif
  945.         AnsiPos 6, STRING001
  946.         PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + " " + STRING006 + "@POS:43@│    " + STRING041 + "@POS:73@" + STRING053 + "█"
  947.         Return
  948.         :LABEL014
  949.         STRING009 = NoChar()
  950.         STRING024 = NoChar()
  951.         INTEGER001 = 0
  952.         INTEGER002 = 0
  953.         STRING021 = ReadLine(PPEPath() + "check.cnf", 2)
  954.         STRING022 = ReadLine(PPEPath() + "check.cnf", 3)
  955.         FClose 2
  956.         FOpen 2, PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot", 0, 0
  957.         :LABEL015
  958.         If (Ferr(2)) Goto LABEL016
  959.         FGet 2, STRING025
  960.         If (STRING025 == "") Goto LABEL017
  961.         Tokenize STRING025
  962.         If (TokCount() == 4) Then
  963.             GetToken STRING026
  964.             GetToken STRING027
  965.             GetToken STRING028
  966.             GetToken STRING029
  967.             If (STRING029 == "Y") Inc INTEGER001
  968.             If (STRING029 == "N") Inc INTEGER002
  969.             If ((((U_Name() == STRING026 + " " + STRING027 + " " + STRING028) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  970.                 STRING009 = YesChar()
  971.                 FClose 2
  972.                 Return
  973.             Endif
  974.             If (((U_Name() == STRING026 + " " + STRING027 + " " + STRING028) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  975.                 STRING024 = YesChar()
  976.                 FClose 2
  977.                 Return
  978.             Endif
  979.         Endif
  980.         If (TokCount() == 3) Then
  981.             GetToken STRING026
  982.             GetToken STRING027
  983.             GetToken STRING029
  984.             If (STRING029 == "Y") Inc INTEGER001
  985.             If (STRING029 == "N") Inc INTEGER002
  986.             If ((((U_Name() == STRING026 + " " + STRING027) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  987.                 STRING009 = YesChar()
  988.                 FClose 2
  989.                 Return
  990.             Endif
  991.             If (((U_Name() == STRING026 + " " + STRING027) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  992.                 STRING024 = YesChar()
  993.                 Return
  994.             Endif
  995.         Endif
  996.         If (TokCount() == 2) Then
  997.             GetToken STRING026
  998.             GetToken STRING029
  999.             If (STRING029 == "Y") Inc INTEGER001
  1000.             If (STRING029 == "N") Inc INTEGER002
  1001.             If ((((U_Name() == STRING026) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  1002.                 STRING009 = YesChar()
  1003.                 FClose 2
  1004.                 Return
  1005.             Endif
  1006.             If (((U_Name() == STRING026) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  1007.                 STRING024 = YesChar()
  1008.                 FClose 2
  1009.                 Return
  1010.             Endif
  1011.         Endif
  1012.         Goto LABEL015
  1013.         :LABEL016
  1014.         Return
  1015.         :LABEL017
  1016.         Return
  1017.         :LABEL018
  1018.         INTEGER011 = 9
  1019.         For INTEGER010 = 0 To 11
  1020.             STRING039 = ScrText(13, INTEGER011, 73, 1)
  1021.             AnsiPos 13, INTEGER011 - 1
  1022.             If (INTEGER011 < 21) Print STRING039
  1023.             Inc INTEGER011
  1024.         Next
  1025.         Return
  1026.         :LABEL019
  1027.         If (((INTEGER009 == 0) && (INTEGER005 == 0)) && (STRING042 == S2I(STRING048, 34))) Then
  1028.             Goto LABEL042
  1029.         Endif
  1030.         If (((INTEGER009 == 0) && (INTEGER005 == 0)) && (STRING042 <> S2I(STRING048, 34))) Then
  1031.             Gosub LABEL011
  1032.         Endif
  1033.         Inc STRING001
  1034.         AnsiPos 6, STRING001
  1035.         PrintLn "@POS:13@" + STRING053 + "█" + STRING052 + " Quit New User Voting.       │                             " + STRING053 + "█"
  1036.         Inc STRING001
  1037.         AnsiPos 6, STRING001
  1038.         PrintLn "@POS:13@" + STRING053 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  1039.         FClose 1
  1040.         If (STRING042 == S2I(STRING048, 34)) Goto LABEL020
  1041.         If (STRING049 <> Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)) Then
  1042.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  1043.             PrintLn "@X8FYou tried to HACK this PPE Registration is Cheap"
  1044.             Goto LABEL042
  1045.         Endif
  1046.         AnsiPos 15, 7
  1047.         Print STRING049
  1048.         AnsiPos 48, 7
  1049.         Print STRING049
  1050.         :LABEL020
  1051.         Inc STRING001
  1052.         AnsiPos 6, STRING001
  1053.         STRING039 = ""
  1054.         STRING033 = GetY()
  1055.         STRING001 = STRING033 - 2
  1056.         KbdStuff Chr(32)
  1057.         :LABEL021
  1058.         If (BOOLEAN001) Goto LABEL024
  1059.         STRING010 = Inkey()
  1060.         If (STRING010 == Chr(13)) Then
  1061.             STRING002 = RTrim(ScrText(15, STRING001 + 1, 25, 0), " ")
  1062.             If (STRING002 <> "Quit New User Voting.") Then
  1063.                 STRING013 = STRING002
  1064.                 Goto LABEL025
  1065.             Endif
  1066.             If (((((STRING002 == "Quit New User Voting.") && (STRING060 <> NoChar())) && (STRING042 == S2I(STRING048, 34))) && (CurSec() < STRING062)) && (BOOLEAN002 == 0)) Then
  1067.                 DefColor
  1068.                 Cls
  1069.                 AnsiPos 10, 3
  1070.                 PrintLn STRING061
  1071.                 Newline
  1072.                 Wait
  1073.                 Goto LABEL005
  1074.                 Goto LABEL022
  1075.             Endif
  1076.             Goto LABEL042
  1077.             :LABEL022
  1078.             If (STRING002 == "Quit New User Voting.") Then
  1079.                 Goto LABEL042
  1080.             Endif
  1081.         Endif
  1082.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
  1083.             AnsiPos 15, STRING001
  1084.             If (STRING003 == STRING033 - 2) Then
  1085.                 Print STRING039
  1086.                 AnsiPos 15, STRING001
  1087.                 Goto LABEL023
  1088.             Endif
  1089.             AnsiPos 15, STRING001 + 1
  1090.             Print STRING039
  1091.             :LABEL023
  1092.             If (STRING001 == 7) STRING001 = STRING001 + INTEGER005 + 1
  1093.             AnsiPos 15, STRING001
  1094.             STRING039 = ScrText(15, STRING001, 25, 1)
  1095.             Print STRING054 + RTrim(ScrText(15, STRING001, 25, 0), " ")
  1096.             Dec STRING001
  1097.         Endif
  1098.         Goto LABEL021
  1099.         :LABEL024
  1100.         :LABEL025
  1101.         STRING012 = 1
  1102.         STRING011 = 6
  1103.         Inc STRING001
  1104.         Tokenize STRING013
  1105.         If (TokCount() == 3) Then
  1106.             GetToken STRING003
  1107.             GetToken STRING004
  1108.             GetToken STRING005
  1109.             STRING003 = Strip(STRING003, " ")
  1110.             STRING004 = Strip(STRING004, " ")
  1111.             STRING003 = Strip(STRING003, ".")
  1112.             STRING004 = Strip(STRING004, ".")
  1113.             STRING003 = Left(STRING003, 3)
  1114.             STRING004 = Right(STRING005, 4)
  1115.             STRING003 = Strip(STRING003, " ")
  1116.             STRING004 = Strip(STRING004, " ")
  1117.         Endif
  1118.         If (TokCount() == 2) Then
  1119.             GetToken STRING003
  1120.             GetToken STRING004
  1121.             STRING003 = Strip(STRING003, " ")
  1122.             STRING004 = Strip(STRING004, " ")
  1123.             STRING003 = Strip(STRING003, ".")
  1124.             STRING004 = Strip(STRING004, ".")
  1125.             STRING003 = Left(STRING003, 3)
  1126.             STRING004 = Right(STRING004, 4)
  1127.             STRING003 = Strip(STRING003, " ")
  1128.             STRING004 = Strip(STRING004, " ")
  1129.         Endif
  1130.         If (TokCount() == 1) Then
  1131.             GetToken STRING003
  1132.             GetToken STRING004
  1133.             STRING003 = Strip(STRING003, " ")
  1134.             STRING004 = Strip(STRING004, " ")
  1135.             STRING003 = Strip(STRING003, ".")
  1136.             STRING004 = Strip(STRING004, ".")
  1137.             STRING003 = Left(STRING003, 3)
  1138.             STRING004 = Right(STRING004, 4)
  1139.             STRING003 = Strip(STRING003, " ")
  1140.             STRING004 = Strip(STRING004, " ")
  1141.         Endif
  1142.         FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  1143.         FGet 1, STRING043
  1144.         INTEGER006 = STRING043
  1145.         FClose 1
  1146.         STRING045 = 0
  1147.         DefColor
  1148.         Cls
  1149.         AnsiPos 2, 3
  1150.         PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  1151.         AnsiPos 24, 4
  1152.         PrintLn STRING053 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  1153.         AnsiPos 24, 5
  1154.         PrintLn STRING053 + "█" + STRING052 + "                         " + STRING053 + "█@X07"
  1155.         For STRING046 = 1 To STRING043
  1156.             If ((STRING050 == STRING046) && (U_Sec < STRING051)) Then
  1157.                 Goto LABEL026
  1158.                 Goto LABEL026
  1159.             Endif
  1160.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING046)) Then
  1161.                 AnsiPos 24, STRING011
  1162.                 PrintLn STRING053 + "█" + STRING052 + "  View Users InfoForm " + STRING012 + "  " + STRING053 + "█@X07"
  1163.                 Inc STRING011
  1164.                 Inc STRING045
  1165.             Endif
  1166.             :LABEL026
  1167.             Inc STRING012
  1168.         Next
  1169.         STRING043 = STRING045
  1170.         AnsiPos 24, STRING011
  1171.         PrintLn STRING053 + "█" + STRING052 + "  Quit Infoform Viewing  " + STRING053 + "█@X07"
  1172.         Inc STRING011
  1173.         AnsiPos 24, STRING011
  1174.         PrintLn STRING053 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  1175.         STRING033 = GetY()
  1176.         INTEGER004 = 6
  1177.         STRING039 = ""
  1178.         KbdStuff Chr(32)
  1179.         If (STRING045 == 1) KbdStuff Chr(13)
  1180.         :LABEL027
  1181.         If (BOOLEAN001) Goto LABEL029
  1182.         STRING010 = Inkey()
  1183.         If (STRING010 == Chr(13)) Then
  1184.             STRING044 = Left(ScrText(27, INTEGER004 + 1, 21, 0), 1)
  1185.             STRING044 = STRING044 + Right(ScrText(27, INTEGER004 + 1, 21, 0), 1)
  1186.             STRING044 = Right(STRING044, 1)
  1187.             Goto LABEL029
  1188.         Endif
  1189.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
  1190.             AnsiPos 27, STRING003
  1191.             If (INTEGER004 == STRING033 - STRING045 + 1) Then
  1192.                 Print STRING039
  1193.                 Goto LABEL028
  1194.             Endif
  1195.             AnsiPos 27, INTEGER004 + 1
  1196.             Print STRING039
  1197.             :LABEL028
  1198.             AnsiPos 27, INTEGER004
  1199.             If (INTEGER004 == 5) INTEGER004 = INTEGER004 + STRING045 + 1
  1200.             AnsiPos 27, INTEGER004
  1201.             STRING039 = ScrText(27, INTEGER004, 21, 1) + "@X08"
  1202.             AnsiPos 27, INTEGER004
  1203.             Print STRING054 + ScrText(27, INTEGER004, 21, 0) + "@X08"
  1204.             Dec INTEGER004
  1205.         Endif
  1206.         Goto LABEL027
  1207.         :LABEL029
  1208.         If (STRING044 == "g") Goto LABEL005
  1209.         Cls
  1210.         StartDisp 1
  1211.         DispFile PPEPath() + "tht-info." + STRING044, 0
  1212.         FOpen 1, PPEPath() + "apps\" + Strip(STRING003, " ") + "_" + Strip(STRING004, " ") + "." + STRING044, 0, 0
  1213.         FDGet STRING025
  1214.         FDGet STRING025
  1215.         FDGet STRING025
  1216.         FDGet STRING025
  1217.         FDGet STRING025
  1218.         FDGet STRING025
  1219.         FClose 2
  1220.         FOpen 2, PPEPath() + "infocfg." + STRING044, 0, 0
  1221.         FGet 2, STRING007
  1222.         FGet 2, STRING007
  1223.         :LABEL030
  1224.         If (Ferr(1)) Goto LABEL031
  1225.         FGet 2, STRING007
  1226.         Tokenize STRING007
  1227.         GetToken INTEGER003
  1228.         GetToken INTEGER004
  1229.         FDGet STRING030
  1230.         AnsiPos INTEGER003, INTEGER004
  1231.         PrintLn STRING030
  1232.         Goto LABEL030
  1233.         :LABEL031
  1234.         FClose 1
  1235.         FClose 2
  1236.         :LABEL032
  1237.         AnsiPos 6, 23
  1238.         InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided  _", STRING002, "", 1, "YNUQ", 4 + 2 + 8
  1239.         If (STRING002 == "") Then
  1240.             Goto LABEL032
  1241.         Endif
  1242.         If (STRING002 <> "U") Goto LABEL033
  1243.         If (STRING002 == "U") Then
  1244.             Goto LABEL039
  1245.         Endif
  1246.         :LABEL033
  1247.         If (BOOLEAN002 == 1) Then
  1248.             FClose 1
  1249.             FClose 2
  1250.             FCreate 4, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + String(PcbNode()) + "hg", 1, 0
  1251.             FClose 4
  1252.             FAppend 2, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", 1, 0
  1253.             FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1254.             :LABEL034
  1255.             If (Ferr(1)) Goto LABEL038
  1256.             FGet 1, STRING018
  1257.             Tokenize STRING018
  1258.             If (TokCount() == 4) Then
  1259.                 GetToken STRING014
  1260.                 GetToken STRING015
  1261.                 GetToken STRING016
  1262.                 GetToken STRING017
  1263.                 If (U_Name() == STRING014 + " " + STRING015 + " " + STRING016) Then
  1264.                     Print ""
  1265.                     Goto LABEL035
  1266.                 Endif
  1267.                 FPutLn 2, STRING014 + " " + STRING015 + " " + STRING016 + " " + STRING017
  1268.             Endif
  1269.             :LABEL035
  1270.             If (TokCount() == 3) Then
  1271.                 GetToken STRING014
  1272.                 GetToken STRING015
  1273.                 GetToken STRING017
  1274.                 If (U_Name() == STRING014 + " " + STRING015) Then
  1275.                     Print ""
  1276.                     Goto LABEL036
  1277.                 Endif
  1278.                 FPutLn 2, STRING014 + " " + STRING015 + " " + STRING017
  1279.             Endif
  1280.             :LABEL036
  1281.             If (TokCount() == 2) Then
  1282.                 GetToken STRING014
  1283.                 GetToken STRING017
  1284.                 If (STRING014 == U_Name()) Then
  1285.                     Print ""
  1286.                     Goto LABEL037
  1287.                 Endif
  1288.                 FPutLn 2, STRING014 + " " + STRING017
  1289.             Endif
  1290.             :LABEL037
  1291.             Goto LABEL034
  1292.             :LABEL038
  1293.             FClose 2
  1294.             FClose 1
  1295.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1")) Then
  1296.                 Copy PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot"
  1297.                 Delete PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1"
  1298.             Endif
  1299.             FClose 1
  1300.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1301.             FPutLn 1, U_Name() + " " + STRING002
  1302.             FClose 1
  1303.             Goto LABEL039
  1304.         Endif
  1305.         FClose 1
  1306.         FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1307.         FPutLn 1, U_Name() + " " + STRING002
  1308.         FClose 1
  1309.         :LABEL039
  1310.         Cls
  1311.         AnsiPos 6, 3
  1312.         If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL040
  1313.         PrintLn STRING035
  1314.         FreshLine
  1315.         Wait
  1316.         Goto LABEL041
  1317.         :LABEL040
  1318.         AnsiPos 6, 4
  1319.         InputYN STRING034, STRING037, ""
  1320.         If (STRING037 == YesChar()) Then
  1321.             FreshLine
  1322.             DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
  1323.         Endif
  1324.         FreshLine
  1325.         Wait
  1326.         :LABEL041
  1327.         If ((STRING002 == "U") && (STRING045 > 1)) Goto LABEL025
  1328.         If ((STRING002 == "U") && (STRING045 == 1)) Goto LABEL005
  1329.         Cls
  1330.         AnsiPos 6, 5
  1331.         STRING037 = ""
  1332.         InputYN STRING036, STRING037, ""
  1333.         If (STRING037 == YesChar()) Then
  1334.             AnsiPos 6, 6
  1335.             STRING002 = ""
  1336.             InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
  1337.             If (STRING002 == "") Goto LABEL005
  1338.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
  1339.             FPutLn 1, "@X0C" + U_Name() + "@X09 >@X0F " + STRING002
  1340.         Endif
  1341.         FClose 1
  1342.         Goto LABEL005
  1343.     Endif
  1344.     :LABEL042
  1345.     BOOLEAN001 = 1
  1346.     If (BOOLEAN002 == 1) Goto LABEL043
  1347.     DefColor
  1348.     STRING020 = "Do Not HEX-Edit This PPE, You will be Sorry"
  1349.     Cls
  1350.     If (STRING042 == S2I(STRING048, 34)) Then
  1351.         If (Exist(PPEPath() + PPEName() + ".chg")) DispFile PPEPath() + PPEName() + ".chg", 4 + 2
  1352.         Newline
  1353.         STRING023 = "N"
  1354.         InputYN STRING019, STRING023, 1
  1355.         If (STRING023 == YesChar()) Then
  1356.             BOOLEAN002 = 1
  1357.             BOOLEAN001 = 0
  1358.             Goto LABEL001
  1359.         Endif
  1360.     Endif
  1361.     Goto LABEL045
  1362.     :LABEL043
  1363.     If (BOOLEAN002 == 0) Stop
  1364.     FClose 1
  1365.     FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  1366.     :LABEL044
  1367.     If (Ferr(1)) Goto LABEL045
  1368.     FDGet STRING006
  1369.     Tokenize STRING006
  1370.     If (TokCount() == 3) Then
  1371.         GetToken STRING031
  1372.         GetToken STRING032
  1373.         GetToken STRING038
  1374.         STRING031 = Strip(STRING031, " ")
  1375.         STRING031 = Strip(STRING031, ".")
  1376.         STRING032 = Strip(STRING032, " ")
  1377.         STRING032 = Strip(STRING032, ".")
  1378.         STRING031 = Left(STRING031, 3)
  1379.         STRING032 = Right(STRING038, 4)
  1380.         If (Exist(PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1381.     Endif
  1382.     If (TokCount() == 2) Then
  1383.         GetToken STRING031
  1384.         GetToken STRING032
  1385.         STRING031 = Strip(STRING031, " ")
  1386.         STRING031 = Strip(STRING031, ".")
  1387.         STRING032 = Strip(STRING032, " ")
  1388.         STRING032 = Strip(STRING032, ".")
  1389.         STRING031 = Left(STRING031, 3)
  1390.         STRING032 = Right(STRING032, 4)
  1391.         If (Exist(PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1392.     Endif
  1393.     If (TokCount() == 1) Then
  1394.         GetToken STRING031
  1395.         GetToken STRING032
  1396.         STRING031 = Strip(STRING031, ".")
  1397.         STRING031 = Strip(STRING031, " ")
  1398.         STRING032 = Strip(STRING032, ".")
  1399.         STRING032 = Strip(STRING032, " ")
  1400.         STRING031 = Left(STRING031, 3)
  1401.         If (Exist(PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1402.     Endif
  1403.     Goto LABEL044
  1404.     :LABEL045
  1405.     End
  1406.  
  1407. ;------------------------------------------------------------------------------
  1408. ;
  1409. ; Usage report (before postprocessing)
  1410. ;
  1411. ; ■ Statements used :
  1412. ;
  1413. ;    1       End
  1414. ;    9       Cls
  1415. ;    3       Wait
  1416. ;    126     Goto 
  1417. ;    352     Let 
  1418. ;    230     Print 
  1419. ;    25      PrintLn 
  1420. ;    111     If 
  1421. ;    4       DispFile 
  1422. ;    2       FCreate 
  1423. ;    9       FOpen 
  1424. ;    4       FAppend 
  1425. ;    31      FClose 
  1426. ;    7       FGet 
  1427. ;    6       FPutLn 
  1428. ;    2       StartDisp 
  1429. ;    1       GetUser
  1430. ;    4       DefColor
  1431. ;    6       Delete 
  1432. ;    2       InputStr 
  1433. ;    4       InputYN 
  1434. ;    8       Gosub 
  1435. ;    11      Return
  1436. ;    20      Inc 
  1437. ;    2       Dec 
  1438. ;    3       Newline
  1439. ;    6       Tokenize 
  1440. ;    41      GetToken 
  1441. ;    1       Stop
  1442. ;    3       KbdStuff 
  1443. ;    259     AnsiPos 
  1444. ;    3       FreshLine
  1445. ;    1       FDefIn 
  1446. ;    27      FDGet 
  1447. ;    1       Copy 
  1448. ;
  1449. ;
  1450. ; ■ Functions used :
  1451. ;
  1452. ;    615     +
  1453. ;    4       -
  1454. ;    112     ==
  1455. ;    6       <>
  1456. ;    8       <
  1457. ;    6       <=
  1458. ;    6       >
  1459. ;    12      >=
  1460. ;    74      !
  1461. ;    36      &&
  1462. ;    25      ||
  1463. ;    2       Len(
  1464. ;    3       Upper()
  1465. ;    10      Left()
  1466. ;    11      Right()
  1467. ;    6       Ferr()
  1468. ;    284     Chr()
  1469. ;    2       RTrim()
  1470. ;    13      U_Name()
  1471. ;    6       NoChar()
  1472. ;    13      YesChar()
  1473. ;    262     Strip()
  1474. ;    2       Inkey()
  1475. ;    10      String()
  1476. ;    1       Mask_Ascii()
  1477. ;    2       PCBDat()
  1478. ;    44      PPEPath()
  1479. ;    10      PcbNode()
  1480. ;    5       ReadLine()
  1481. ;    3       CurSec()
  1482. ;    14      Exist()
  1483. ;    7       S2I()
  1484. ;    2       GetY()
  1485. ;    7       PPEName()
  1486. ;    15      TokCount()
  1487. ;    8       ScrText()
  1488. ;
  1489. ;------------------------------------------------------------------------------
  1490. ;
  1491. ; Analysis flags : d
  1492. ;
  1493. ; d - Access PCBOARD.DAT ■ 2
  1494. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1495. ;     for many PPE so they can find various informations on the system
  1496. ;     (system paths, max number of lines in messages, ...) but it may also
  1497. ;     be a way to gather vital informations.
  1498. ;     ■ Search for : PCBDAT()
  1499. ;
  1500. ;------------------------------------------------------------------------------
  1501. ;
  1502. ; Postprocessing report
  1503. ;
  1504. ;    3       For/Next
  1505. ;    0       While/EndWhile
  1506. ;    56      If/Then or If/Then/Else
  1507. ;    0       Select Case
  1508. ;
  1509. ;------------------------------------------------------------------------------
  1510. ;                 AEGiS Corp - Break the routines, code against the machines!
  1511. ;------------------------------------------------------------------------------
  1512.