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