home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT224.ZIP / THT-INFO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-12  |  28KB  |  1,193 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.     Date     DATE001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     Integer  INTEGER010
  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   TSTRING034(1)
  64.     String   STRING035
  65.     String   STRING036
  66.     String   STRING037
  67.     String   STRING038
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     STRING032 = Chr(48) + Chr(50) + "-" + Chr(48) + Chr(55) + "-" + Chr(57) + Chr(52)
  72.     STRING033 = Chr(50) + Chr(46) + Chr(49) + Chr(48)
  73.     STRING026 = Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + STRING033 + "  " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING032 + Chr(64) + Chr(88) + Chr(48) + Chr(55)
  74.     STRING036 = 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)
  75.     DATE001 = Chr(48) + Chr(50) + "-" + Chr(50) + Chr(54) + "-" + Chr(57) + Chr(52)
  76.     TSTRING034(0) = Upper(ReadLine(PCBDat(), 2))
  77.     TSTRING034(1) = Upper(ReadLine(PCBDat(), 94))
  78.     STRING038 = 0
  79.     For STRING038 = 0 To 1
  80.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "1")
  81.         AnsiPos 26, 1
  82.         Print "@X0E|"
  83.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "2")
  84.         AnsiPos 26, 1
  85.         Print "@X0F/"
  86.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "3")
  87.         AnsiPos 26, 1
  88.         Print "@X0E-"
  89.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "4")
  90.         AnsiPos 26, 1
  91.         Print "@X0F\"
  92.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "5")
  93.         AnsiPos 26, 1
  94.         Print "@X0E|"
  95.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "6")
  96.         AnsiPos 26, 1
  97.         Print "@X0F/"
  98.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "7")
  99.         AnsiPos 26, 1
  100.         Print "@X0E-"
  101.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "8")
  102.         AnsiPos 26, 1
  103.         Print "@X0F\"
  104.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "9")
  105.         AnsiPos 26, 1
  106.         Print "@X0E|"
  107.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "0")
  108.         AnsiPos 26, 1
  109.         Print "@X0F/"
  110.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "=")
  111.         AnsiPos 26, 1
  112.         Print "@X0E-"
  113.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "-")
  114.         AnsiPos 26, 1
  115.         Print "@X0F\"
  116.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), " ")
  117.         AnsiPos 26, 1
  118.         Print "@X0E|"
  119.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), " ")
  120.         AnsiPos 26, 1
  121.         Print "@X0F/"
  122.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "<")
  123.         AnsiPos 26, 1
  124.         Print "@X0E-"
  125.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ">")
  126.         AnsiPos 26, 1
  127.         Print "@X0F\"
  128.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "*")
  129.         AnsiPos 26, 1
  130.         Print "@X0E|"
  131.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ")")
  132.         AnsiPos 26, 1
  133.         Print "@X0F/"
  134.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "(")
  135.         AnsiPos 26, 1
  136.         Print "@X0E-"
  137.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "{")
  138.         AnsiPos 26, 1
  139.         Print "@X0F\"
  140.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "}")
  141.         AnsiPos 26, 1
  142.         Print "@X0E|"
  143.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "[")
  144.         AnsiPos 26, 1
  145.         Print "@X0F/"
  146.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "]")
  147.         AnsiPos 26, 1
  148.         Print "@X0E-"
  149.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "~")
  150.         AnsiPos 26, 1
  151.         Print "@X0F\"
  152.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "!")
  153.         AnsiPos 26, 1
  154.         Print "@X0E|"
  155.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "@")
  156.         AnsiPos 26, 1
  157.         Print "@X0F/"
  158.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "#")
  159.         AnsiPos 26, 1
  160.         Print "@X0E-"
  161.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "$")
  162.         AnsiPos 26, 1
  163.         Print "@X0F\"
  164.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "%")
  165.         AnsiPos 26, 1
  166.         Print "@X0E|"
  167.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "^")
  168.         AnsiPos 26, 1
  169.         Print "@X0F/"
  170.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "&")
  171.         AnsiPos 26, 1
  172.         Print "@X0E-"
  173.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ":")
  174.         AnsiPos 26, 1
  175.         Print "@X0F\"
  176.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ";")
  177.         AnsiPos 26, 1
  178.         Print "@X0E|"
  179.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "'")
  180.         AnsiPos 26, 1
  181.         Print "@X0F/"
  182.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ".")
  183.         AnsiPos 26, 1
  184.         Print "@X0E-"
  185.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ",")
  186.         AnsiPos 26, 1
  187.         Print "@X0F\"
  188.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "?")
  189.         AnsiPos 26, 1
  190.         Print "@X0E|"
  191.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "/")
  192.         AnsiPos 26, 1
  193.         Print "@X0F/"
  194.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "|")
  195.         AnsiPos 26, 1
  196.         Print "@X0E-"
  197.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "\")
  198.         AnsiPos 26, 1
  199.         Print "@X0F\"
  200.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "+")
  201.         AnsiPos 26, 1
  202.         Print "@X0E|"
  203.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "=")
  204.         AnsiPos 26, 1
  205.         Print "@X0F/"
  206.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "-")
  207.         AnsiPos 26, 1
  208.         Print "@X0E-"
  209.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), ".")
  210.         AnsiPos 26, 1
  211.         Print "@X0F\"
  212.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "«")
  213.         AnsiPos 26, 1
  214.         Print "@X0E|"
  215.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "»")
  216.         AnsiPos 26, 1
  217.         Print "@X0F/"
  218.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ü")
  219.         AnsiPos 26, 1
  220.         Print "@X0E-"
  221.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┤")
  222.         AnsiPos 26, 1
  223.         Print "@X0F\"
  224.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "│")
  225.         AnsiPos 26, 1
  226.         Print "@X0E|"
  227.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╡")
  228.         AnsiPos 26, 1
  229.         Print "@X0F/"
  230.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  231.         AnsiPos 26, 1
  232.         Print "@X0E-"
  233.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  234.         AnsiPos 26, 1
  235.         Print "@X0F\"
  236.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  237.         AnsiPos 26, 1
  238.         Print "@X0E|"
  239.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  240.         AnsiPos 26, 1
  241.         Print "@X0F/"
  242.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  243.         AnsiPos 26, 1
  244.         Print "@X0E-"
  245.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  246.         AnsiPos 26, 1
  247.         Print "@X0F\"
  248.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  249.         AnsiPos 26, 1
  250.         Print "@X0E|"
  251.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  252.         AnsiPos 26, 1
  253.         Print "@X0F/"
  254.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  255.         AnsiPos 26, 1
  256.         Print "@X0E-"
  257.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  258.         AnsiPos 26, 1
  259.         Print "@X0F\"
  260.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  261.         AnsiPos 26, 1
  262.         Print "@X0E|"
  263.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  264.         AnsiPos 26, 1
  265.         Print "@X0F/"
  266.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  267.         AnsiPos 26, 1
  268.         Print "@X0E-"
  269.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  270.         AnsiPos 26, 1
  271.         Print "@X0F\"
  272.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  273.         AnsiPos 26, 1
  274.         Print "@X0E|"
  275.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  276.         AnsiPos 26, 1
  277.         Print "@X0F/"
  278.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), " ")
  279.         AnsiPos 26, 1
  280.         Print "@X0E-"
  281.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  282.         AnsiPos 26, 1
  283.         Print "@X0F\"
  284.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "")
  285.         AnsiPos 26, 1
  286.         Print "@X0E|"
  287.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ç")
  288.         AnsiPos 26, 1
  289.         Print "@X0F/"
  290.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "É")
  291.         AnsiPos 26, 1
  292.         Print "@X0E-"
  293.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "á")
  294.         AnsiPos 26, 1
  295.         Print "@X0F\"
  296.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "░")
  297.         AnsiPos 26, 1
  298.         Print "@X0E|"
  299.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ü")
  300.         AnsiPos 26, 1
  301.         Print "@X0F/"
  302.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "æ")
  303.         AnsiPos 26, 1
  304.         Print "@X0E-"
  305.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "í")
  306.         AnsiPos 26, 1
  307.         Print "@X0F\"
  308.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▒")
  309.         AnsiPos 26, 1
  310.         Print "@X0E|"
  311.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "é")
  312.         AnsiPos 26, 1
  313.         Print "@X0F/"
  314.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Æ")
  315.         AnsiPos 26, 1
  316.         Print "@X0E-"
  317.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ó")
  318.         AnsiPos 26, 1
  319.         Print "@X0F\"
  320.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▓")
  321.         AnsiPos 26, 1
  322.         Print "@X0E|"
  323.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "â")
  324.         AnsiPos 26, 1
  325.         Print "@X0F/"
  326.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ô")
  327.         AnsiPos 26, 1
  328.         Print "@X0E-"
  329.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ú")
  330.         AnsiPos 26, 1
  331.         Print "@X0F\"
  332.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "│")
  333.         AnsiPos 26, 1
  334.         Print "@X0E|"
  335.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ä")
  336.         AnsiPos 26, 1
  337.         Print "@X0F/"
  338.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ö")
  339.         AnsiPos 26, 1
  340.         Print "@X0E-"
  341.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ñ")
  342.         AnsiPos 26, 1
  343.         Print "@X0F\"
  344.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┤")
  345.         AnsiPos 26, 1
  346.         Print "@X0E|"
  347.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "à")
  348.         AnsiPos 26, 1
  349.         Print "@X0F/"
  350.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ò")
  351.         AnsiPos 26, 1
  352.         Print "@X0E-"
  353.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ñ")
  354.         AnsiPos 26, 1
  355.         Print "@X0F\"
  356.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╡")
  357.         AnsiPos 26, 1
  358.         Print "@X0E|"
  359.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "å")
  360.         AnsiPos 26, 1
  361.         Print "@X0F/"
  362.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "û")
  363.         AnsiPos 26, 1
  364.         Print "@X0E-"
  365.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ª")
  366.         AnsiPos 26, 1
  367.         Print "@X0F\"
  368.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╢")
  369.         AnsiPos 26, 1
  370.         Print "@X0E|"
  371.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ç")
  372.         AnsiPos 26, 1
  373.         Print "@X0F/"
  374.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ù")
  375.         AnsiPos 26, 1
  376.         Print "@X0E-"
  377.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "º")
  378.         AnsiPos 26, 1
  379.         Print "@X0F\"
  380.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╖")
  381.         AnsiPos 26, 1
  382.         Print "@X0E|"
  383.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ê")
  384.         AnsiPos 26, 1
  385.         Print "@X0F/"
  386.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ÿ")
  387.         AnsiPos 26, 1
  388.         Print "@X0E-"
  389.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¿")
  390.         AnsiPos 26, 1
  391.         Print "@X0F\"
  392.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╕")
  393.         AnsiPos 26, 1
  394.         Print "@X0E|"
  395.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ë")
  396.         AnsiPos 26, 1
  397.         Print "@X0F/"
  398.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ö")
  399.         AnsiPos 26, 1
  400.         Print "@X0E-"
  401.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "⌐")
  402.         AnsiPos 26, 1
  403.         Print "@X0F\"
  404.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╣")
  405.         AnsiPos 26, 1
  406.         Print "@X0E|"
  407.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "è")
  408.         AnsiPos 26, 1
  409.         Print "@X0F/"
  410.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ü")
  411.         AnsiPos 26, 1
  412.         Print "@X0E-"
  413.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¬")
  414.         AnsiPos 26, 1
  415.         Print "@X0F\"
  416.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "║")
  417.         AnsiPos 26, 1
  418.         Print "@X0E|"
  419.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ï")
  420.         AnsiPos 26, 1
  421.         Print "@X0F/"
  422.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¢")
  423.         AnsiPos 26, 1
  424.         Print "@X0E-"
  425.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "½")
  426.         AnsiPos 26, 1
  427.         Print "@X0F\"
  428.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╗")
  429.         AnsiPos 26, 1
  430.         Print "@X0E|"
  431.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "î")
  432.         AnsiPos 26, 1
  433.         Print "@X0F/"
  434.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "£")
  435.         AnsiPos 26, 1
  436.         Print "@X0E-"
  437.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¼")
  438.         AnsiPos 26, 1
  439.         Print "@X0F\"
  440.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╝")
  441.         AnsiPos 26, 1
  442.         Print "@X0E|"
  443.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ì")
  444.         AnsiPos 26, 1
  445.         Print "@X0F/"
  446.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¥")
  447.         AnsiPos 26, 1
  448.         Print "@X0E-"
  449.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "¡")
  450.         AnsiPos 26, 1
  451.         Print "@X0F\"
  452.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╜")
  453.         AnsiPos 26, 1
  454.         Print "@X0E|"
  455.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ä")
  456.         AnsiPos 26, 1
  457.         Print "@X0F/"
  458.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "₧")
  459.         AnsiPos 26, 1
  460.         Print "@X0E-"
  461.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "«")
  462.         AnsiPos 26, 1
  463.         Print "@X0F\"
  464.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╛")
  465.         AnsiPos 26, 1
  466.         Print "@X0E|"
  467.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Å")
  468.         AnsiPos 26, 1
  469.         Print "@X0F/"
  470.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ƒ")
  471.         AnsiPos 26, 1
  472.         Print "@X0E-"
  473.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "»")
  474.         AnsiPos 26, 1
  475.         Print "@X0F\"
  476.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┐")
  477.         AnsiPos 26, 1
  478.         Print "@X0E|"
  479.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), " ")
  480.         AnsiPos 26, 1
  481.         Print "@X0F/"
  482.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "└")
  483.         AnsiPos 26, 1
  484.         Print "@X0E-"
  485.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╨")
  486.         AnsiPos 26, 1
  487.         Print "@X0F\"
  488.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "α")
  489.         AnsiPos 26, 1
  490.         Print "@X0E|"
  491.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "≡")
  492.         AnsiPos 26, 1
  493.         Print "@X0F/"
  494.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┴")
  495.         AnsiPos 26, 1
  496.         Print "@X0E-"
  497.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╤")
  498.         AnsiPos 26, 1
  499.         Print "@X0F\"
  500.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ß")
  501.         AnsiPos 26, 1
  502.         Print "@X0E|"
  503.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "±")
  504.         AnsiPos 26, 1
  505.         Print "@X0F/"
  506.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┬")
  507.         AnsiPos 26, 1
  508.         Print "@X0E-"
  509.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╥")
  510.         AnsiPos 26, 1
  511.         Print "@X0F\"
  512.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Γ")
  513.         AnsiPos 26, 1
  514.         Print "@X0E|"
  515.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "≥")
  516.         AnsiPos 26, 1
  517.         Print "@X0F/"
  518.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "├")
  519.         AnsiPos 26, 1
  520.         Print "@X0E-"
  521.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╙")
  522.         AnsiPos 26, 1
  523.         Print "@X0F\"
  524.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "π")
  525.         AnsiPos 26, 1
  526.         Print "@X0E|"
  527.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "≤")
  528.         AnsiPos 26, 1
  529.         Print "@X0F/"
  530.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "─")
  531.         AnsiPos 26, 1
  532.         Print "@X0E-"
  533.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╘")
  534.         AnsiPos 26, 1
  535.         Print "@X0F\"
  536.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Σ")
  537.         AnsiPos 26, 1
  538.         Print "@X0E|"
  539.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "⌠")
  540.         AnsiPos 26, 1
  541.         Print "@X0F/"
  542.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┼")
  543.         AnsiPos 26, 1
  544.         Print "@X0E-"
  545.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╒")
  546.         AnsiPos 26, 1
  547.         Print "@X0F\"
  548.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "σ")
  549.         AnsiPos 26, 1
  550.         Print "@X0E|"
  551.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "⌡")
  552.         AnsiPos 26, 1
  553.         Print "@X0F/"
  554.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╞")
  555.         AnsiPos 26, 1
  556.         Print "@X0E-"
  557.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╓")
  558.         AnsiPos 26, 1
  559.         Print "@X0F\"
  560.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "µ")
  561.         AnsiPos 26, 1
  562.         Print "@X0E|"
  563.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "÷")
  564.         AnsiPos 26, 1
  565.         Print "@X0F/"
  566.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╟")
  567.         AnsiPos 26, 1
  568.         Print "@X0E-"
  569.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╫")
  570.         AnsiPos 26, 1
  571.         Print "@X0F\"
  572.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "τ")
  573.         AnsiPos 26, 1
  574.         Print "@X0E|"
  575.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "≈")
  576.         AnsiPos 26, 1
  577.         Print "@X0F/"
  578.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╚")
  579.         AnsiPos 26, 1
  580.         Print "@X0E-"
  581.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╪")
  582.         AnsiPos 26, 1
  583.         Print "@X0F\"
  584.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Φ")
  585.         AnsiPos 26, 1
  586.         Print "@X0E|"
  587.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "°")
  588.         AnsiPos 26, 1
  589.         Print "@X0F/"
  590.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╔")
  591.         AnsiPos 26, 1
  592.         Print "@X0E-"
  593.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┘")
  594.         AnsiPos 26, 1
  595.         Print "@X0F\"
  596.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Θ")
  597.         AnsiPos 26, 1
  598.         Print "@X0E|"
  599.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "∙")
  600.         AnsiPos 26, 1
  601.         Print "@X0F/"
  602.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╩")
  603.         AnsiPos 26, 1
  604.         Print "@X0E-"
  605.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "┌")
  606.         AnsiPos 26, 1
  607.         Print "@X0F\"
  608.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Ω")
  609.         AnsiPos 26, 1
  610.         Print "@X0E|"
  611.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "·")
  612.         AnsiPos 26, 1
  613.         Print "@X0F/"
  614.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╦")
  615.         AnsiPos 26, 1
  616.         Print "@X0E-"
  617.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "█")
  618.         AnsiPos 26, 1
  619.         Print "@X0F\"
  620.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "δ")
  621.         AnsiPos 26, 1
  622.         Print "@X0E|"
  623.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "√")
  624.         AnsiPos 26, 1
  625.         Print "@X0F/"
  626.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╠")
  627.         AnsiPos 26, 1
  628.         Print "@X0E-"
  629.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▄")
  630.         AnsiPos 26, 1
  631.         Print "@X0F\"
  632.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "∞")
  633.         AnsiPos 26, 1
  634.         Print "@X0E|"
  635.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ⁿ")
  636.         AnsiPos 26, 1
  637.         Print "@X0F/"
  638.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "═")
  639.         AnsiPos 26, 1
  640.         Print "@X0E-"
  641.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▌")
  642.         AnsiPos 26, 1
  643.         Print "@X0F\"
  644.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "φ")
  645.         AnsiPos 26, 1
  646.         Print "@X0E|"
  647.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "²")
  648.         AnsiPos 26, 1
  649.         Print "@X0F/"
  650.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╬")
  651.         AnsiPos 26, 1
  652.         Print "@X0E-"
  653.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▐")
  654.         AnsiPos 26, 1
  655.         Print "@X0F\"
  656.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "ε")
  657.         AnsiPos 26, 1
  658.         Print "@X0E|"
  659.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "■")
  660.         AnsiPos 26, 1
  661.         Print "@X0F/"
  662.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "╧")
  663.         AnsiPos 26, 1
  664.         Print "@X0E-"
  665.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "▀")
  666.         AnsiPos 26, 1
  667.         Print "@X0F\"
  668.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "U")
  669.         AnsiPos 26, 1
  670.         Print "@X0E|"
  671.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "V")
  672.         AnsiPos 26, 1
  673.         Print "@X0F/"
  674.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "W")
  675.         AnsiPos 26, 1
  676.         Print "@X0E-"
  677.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "X")
  678.         AnsiPos 26, 1
  679.         Print "@X0F\"
  680.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Y")
  681.         AnsiPos 26, 1
  682.         Print "@X0E|"
  683.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), "Z")
  684.         AnsiPos 26, 1
  685.         Print "@X0F/"
  686.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), Chr(44))
  687.         AnsiPos 26, 1
  688.         Print "@X0E-"
  689.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), Chr(0))
  690.         AnsiPos 26, 1
  691.         Print "@X0F\"
  692.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), Chr(7))
  693.         AnsiPos 26, 1
  694.         Print "@X0E|"
  695.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), Chr(8))
  696.         TSTRING034(STRING038) = Strip(TSTRING034(STRING038), Chr(10))
  697.     Next
  698.     INTEGER009 = Len(TSTRING034(0))
  699.     If (INTEGER009 < 2) TSTRING034(0) = "if"
  700.     TSTRING034(0) = Right(TSTRING034(0), 2)
  701.     INTEGER010 = Len(TSTRING034(1))
  702.     If (INTEGER010 < 2) TSTRING034(1) = "if"
  703.     TSTRING034(1) = Right(TSTRING034(1), 2)
  704.     STRING035 = TSTRING034(0) + TSTRING034(1) + "FO"
  705.     STRING025 = Carrier()
  706.     STRING007 = Time()
  707.     STRING006 = Date()
  708.     FDefIn 1
  709.     If (STRING026 <> Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + STRING033 + "  " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING032 + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
  710.         PrintLn "@X0FHacked Copy Do not Hexedit this File"
  711.         Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  712.     Else
  713.         GetUser
  714.         FClose 1
  715.         FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  716.         FDGet STRING024
  717.         FDGet STRING027
  718.         FDGet INTEGER006
  719.         FDGet STRING016
  720.         FDGet STRING037
  721.         FDGet STRING019
  722.         FClose 1
  723.         FClose 1
  724.         StartDisp 1
  725.         DispFile PPEPath() + "dsclm.pcb", 0
  726.         STRING023 = YesChar()
  727.         InputYN "                Do You Agree To This@X0F ???", STRING023, 9
  728.         If (STRING023 == "N") Then
  729.             U_Sec = 0
  730.             DelUser
  731.             PutUser
  732.             Hangup
  733.             Goto LABEL001
  734.         Endif
  735.         :LABEL001
  736.         Cls
  737.         StartDisp 1
  738.         RestScrn
  739.         STRING011 = 10
  740.         STRING012 = 1
  741.         AnsiPos 18, 1
  742.         PrintLn STRING026
  743.         AnsiPos 23, 2
  744.         PrintLn "@X0F┌──────────────────────────────┐@X07"
  745.         AnsiPos 23, 3
  746.         PrintLn "@X07│@X1F   ∙  New User InfoForms  ∙   @X07│@X07"
  747.         AnsiPos 23, 4
  748.         PrintLn "@X08└──────────────────────────────┘@X07"
  749.         AnsiPos 2, 5
  750.         PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  751.         AnsiPos 2, 6
  752.         PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  753.         AnsiPos 2, 7
  754.         PrintLn "@X0F█@X71                                                 @X08█@X07"
  755.         AnsiPos 2, 8
  756.         PrintLn "@X0F█@X71 No.  InfoForm Title         Status       Req'd  @X08█ @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  757.         AnsiPos 2, 9
  758.         PrintLn "@X0F█@X71─────────────────────────────────────────────────@X08█ @X0F█@X71                         @X08█@X07"
  759.         FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
  760.         FDGet INTEGER007
  761.         For STRING008 = 1 To INTEGER007
  762.             Delete STRING008 + ".lck"
  763.         Next
  764.         For STRING008 = 1 To INTEGER007
  765.             Delete STRING008 + ".YES"
  766.         Next
  767.         For INTEGER005 = 1 To INTEGER007
  768.             AnsiPos 2, STRING011
  769.             PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71                         @X08█@X07"
  770.             FOpen 2, PPEPath() + "infocfg." + STRING012, 0, 0
  771.             FGet 2, STRING010
  772.             FDGet STRING003
  773.             Gosub LABEL007
  774.             If (!Exist(STRING012 + ".lck") && (STRING010 == "YES")) FCreate 3, STRING012 + "." + STRING010, 1, 0
  775.             FClose 3
  776.             If (Exist(STRING012 + ".lck")) Then
  777.                 AnsiPos 3, STRING011
  778.                 PrintLn "@X79(@X7E" + STRING012 + "@X79)@X78   " + STRING003 + "@POS:32@@X74Completed@X71" + "@POS:46@" + STRING010
  779.                 AnsiPos 3 + 53, STRING011
  780.                 PrintLn "@X71" + STRING037 + STRING012
  781.             Else
  782.                 AnsiPos 3, STRING011
  783.                 PrintLn "@X79(@X7E" + STRING012 + "@X79)@X78   " + STRING003 + "@POS:32@@X71InCompleted@X74" + "@POS:46@" + STRING010
  784.                 AnsiPos 3 + 53, STRING011
  785.                 PrintLn "@X71" + STRING037 + STRING012
  786.             Endif
  787.             Inc STRING011
  788.             Inc STRING012
  789.             FClose 2
  790.         Next
  791.         FClose 1
  792.         AnsiPos 2, STRING011
  793.         PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71Quit Infoform Booth      @X08█@X07"
  794.         Inc STRING011
  795.         AnsiPos 2, STRING011
  796.         PrintLn "@X0F█@X71                                                 @X08█ @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  797.         Inc STRING011
  798.         AnsiPos 2, STRING011
  799.         PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  800.         If (STRING027 == S2I(STRING035, 34)) Goto LABEL002
  801.         If (STRING036 <> 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
  802.             AnsiPos 10, 19
  803.             STRING017 = "@X8C" + Chr(72) + Chr(97) + Chr(99) + Chr(107) + Chr(101) + Chr(100) + "!!!! Copy oF InFoForM"
  804.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  805.             Print STRING017
  806.             AnsiPos 10, 20
  807.             Print "@X0FPlease Get a Real Copy from <<THT>> @ 314-355-5472"
  808.             Goto LABEL020
  809.         Else
  810.             If (Date() >= DATE001) Then
  811.                 AnsiPos 20, 7
  812.                 PrintLn "@X8FThis PPE has Expired!!!!"
  813.                 Goto LABEL020
  814.             Endif
  815.             AnsiPos 20, 7
  816.             Print STRING036
  817.             AnsiPos 58, 9
  818.             Print STRING036
  819.         Endif
  820.         :LABEL002
  821.         Inc STRING011
  822.         Inc STRING011
  823.         Inc STRING011
  824.         STRING009 = ""
  825.         RestScrn
  826.         AnsiPos 2, STRING011 - 2
  827.         STRING014 = GetY()
  828.         STRING015 = STRING014 - 3
  829.         KbdStuff Chr(32)
  830.         :LABEL003
  831.         If (BOOLEAN001) Goto LABEL005
  832.         STRING013 = Inkey()
  833.         If (STRING013 == Chr(13)) Then
  834.             STRING004 = Left(ScrText(58, STRING015 + 1, 22, 0), 1)
  835.             STRING004 = STRING004 + RTrim(ScrText(58, STRING015 + 1, 22, 0), " ")
  836.             STRING004 = STRING004 + Right(STRING004, 1)
  837.             STRING004 = Right(STRING004, 1)
  838.         Else
  839.             If (((((((((STRING013 == Chr(32)) || (STRING013 == "UP")) || (STRING013 == "DOWN")) || (STRING013 == "LEFT")) || (STRING013 == "RIGHT")) || (STRING013 == "z")) || (STRING013 == "Z")) || (STRING013 == "a")) || (STRING013 == "A")) Then
  840.                 AnsiPos 55, STRING015
  841.                 If (STRING015 == STRING014 - 3) Then
  842.                     Print STRING009
  843.                     Goto LABEL004
  844.                 Endif
  845.                 AnsiPos 55, STRING015 + 1
  846.                 Print STRING009
  847.                 :LABEL004
  848.                 AnsiPos 55, STRING015
  849.                 If (STRING015 == 9) STRING015 = STRING015 + INTEGER007 + 1
  850.                 AnsiPos 55, STRING015
  851.                 STRING009 = ScrText(55, STRING015, 25, 1) + "@X08"
  852.                 Color 78
  853.                 AnsiPos 55, STRING015
  854.                 Print ScrText(55, STRING015, 25, 0) + "@X08"
  855.                 Dec STRING015
  856.             Endif
  857.             Goto LABEL003
  858.         Endif
  859.         :LABEL005
  860.         If (Exist(STRING004 + ".lck")) Then
  861.             Inc STRING011
  862.             AnsiPos 15, 21
  863.             PrintLn "@X0EYou have Already Filled Out that One@X07"
  864.             Dec STRING011
  865.             Wait
  866.             Goto LABEL001
  867.         ElseIf ((STRING004 <= INTEGER007) && (STRING004 <> "h")) Then
  868.             FCreate 1, STRING004 + ".lck", 1, 0
  869.             FClose 1
  870.             Goto LABEL009
  871.         ElseIf (!Exist("*.YES") && (STRING004 == "h")) Then
  872.             Goto LABEL013
  873.         Else
  874.             Goto LABEL006
  875.         Endif
  876.         FClose 1
  877.         :LABEL006
  878.         Inc STRING011
  879.         AnsiPos 15, STRING011
  880.         For STRING008 = 1 To INTEGER007
  881.             FreshLine
  882.             If (Exist(STRING008 + ".YES")) PrintLn "@X0EInfoForm @X8C" + STRING008 + "@X0E is Required!!!"
  883.         Next
  884.         Wait
  885.         AnsiPos 15, STRING011
  886.         For STRING008 = 1 To INTEGER007
  887.             FreshLine
  888.             If (Exist(STRING008 + ".YES")) PrintLn "                                            "
  889.         Next
  890.         Dec STRING011
  891.         Goto LABEL001
  892.         End
  893.         :LABEL007
  894.         Tokenize U_Name()
  895.         If (TokCount() == 3) Then
  896.             GetToken STRING028
  897.             GetToken STRING029
  898.             GetToken STRING030
  899.             STRING028 = Strip(STRING028, " ")
  900.             STRING029 = Strip(STRING029, " ")
  901.             STRING028 = Strip(STRING028, ".")
  902.             STRING029 = Strip(STRING029, ".")
  903.             STRING028 = Left(STRING028, 3)
  904.             STRING029 = Right(STRING030, 4)
  905.             STRING028 = Strip(STRING028, " ")
  906.             STRING029 = Strip(STRING029, " ")
  907.             If (Exist(PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + STRING012)) Then
  908.                 FCreate 5, STRING012 + ".lck", 1, 0
  909.                 FClose 5
  910.             Endif
  911.         ElseIf (TokCount() <= 2) Then
  912.             GetToken STRING028
  913.             GetToken STRING029
  914.             STRING028 = Strip(STRING028, " ")
  915.             STRING029 = Strip(STRING029, " ")
  916.             STRING028 = Strip(STRING028, ".")
  917.             STRING029 = Strip(STRING029, ".")
  918.             STRING028 = Left(STRING028, 3)
  919.             STRING029 = Right(STRING029, 4)
  920.             STRING028 = Strip(STRING028, " ")
  921.             STRING029 = Strip(STRING029, " ")
  922.             If (Exist(PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + STRING012)) Then
  923.                 FCreate 5, STRING012 + ".lck", 1, 0
  924.                 FClose 5
  925.                 If (Exist(PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + ".grp")) Goto LABEL008
  926.                 FCreate 5, PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + ".GRP", 1, 0
  927.                 FPutLn 5, U_City
  928.                 FClose 5
  929.             Endif
  930.         Endif
  931.         :LABEL008
  932.         Return
  933.         :LABEL009
  934.         FClose 2
  935.         Newline
  936.         StartDisp 1
  937.         FCreate 5, PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + "vot", 1, 0
  938.         FClose 5
  939.         DispFile PPEPath() + PPEName() + "." + STRING004, 0
  940.         FAppend 3, PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + STRING004, 1, 0
  941.         FAppend 4, PPEPath() + "APPS\answers." + STRING004, 1, 0
  942.         FOpen 2, PPEPath() + "infocfg." + STRING004, 0, 0
  943.         FGet 2, STRING010
  944.         FGet 2, STRING002
  945.         FreshLine
  946.         FPutLn 3, "─────────────────────────────────────────"
  947.         FPutLn 4, "─────────────────────────────────────────"
  948.         FPutLn 3, " InfoForm PPE   " + STRING006 + "        " + STRING007
  949.         FPutLn 4, " InfoForm PPE   " + STRING006 + "        " + STRING007
  950.         FPutLn 3, "                                         "
  951.         FPutLn 4, "                                         "
  952.         FPutLn 3, "User: " + U_Name() + "   " + "City " + U_City
  953.         FPutLn 4, "User: " + U_Name() + "   " + "City " + U_City
  954.         FPutLn 3, "Connected @ " + STRING025 + "    To Node " + String(PcbNode())
  955.         FPutLn 4, "Connected @ " + STRING025 + "    To Node " + String(PcbNode())
  956.         FPutLn 3, "─────────────────────────────────────────"
  957.         FPutLn 4, "─────────────────────────────────────────"
  958.         For INTEGER005 = 1 To STRING002
  959.             FGet 2, STRING001
  960.             Tokenize STRING001
  961.             GetToken INTEGER002
  962.             GetToken INTEGER003
  963.             GetToken INTEGER004
  964.             AnsiPos INTEGER002, INTEGER003
  965.             :LABEL010
  966.             STRING005 = ""
  967.             InputStr "_", STRING005, 14, INTEGER004, Mask_Ascii(), 0
  968.             If (STRING005 == "") Goto LABEL010
  969.             FPutLn 3, STRING005
  970.             FPutLn 4, STRING005
  971.         Next
  972.         FClose 4
  973.         FClose 3
  974.         FClose 2
  975.         STRING011 = 1
  976.         For INTEGER005 = 1 To INTEGER007
  977.             FOpen 2, PPEPath() + "infocfg." + STRING011, 0, 0
  978.             FGet 2, STRING010
  979.             If (Exist(STRING011 + "." + STRING010) && Exist(STRING011 + ".lck")) Delete STRING011 + "." + STRING010
  980.             Inc STRING011
  981.             FClose 2
  982.         Next
  983.         FClose 1
  984.         If (!Exist(PPEPath() + "APPS\WAITING.app")) FCreate 1, PPEPath() + "APPS\WAITING.app", 1, 0
  985.         FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  986.         :LABEL011
  987.         If (Ferr(1)) Goto LABEL012
  988.         FDGet STRING031
  989.         If (STRING031 == U_Name()) Then
  990.             FClose 1
  991.             Goto LABEL001
  992.         Endif
  993.         Goto LABEL011
  994.         :LABEL012
  995.         FClose 1
  996.         Goto LABEL001
  997.         :LABEL013
  998.         Cls
  999.         FClose 1
  1000.         STRING021 = 1
  1001.         STRING022 = 1
  1002.         FClose 1
  1003.         FCreate 1, "MESS.TMP", 1, 0
  1004.         DispFile PPEPath() + "goodbye.pcb", 0
  1005.         :LABEL014
  1006.         If (Abort()) Goto LABEL015
  1007.         STRING020 = ""
  1008.         FreshLine
  1009.         InputStr STRING022 + " >_", STRING020, 9, 74, Mask_Ascii(), 512 + 2 + 4 + 256
  1010.         If ((STRING021 == 1) && (STRING020 == "")) Goto LABEL013
  1011.         If (STRING020 == "") Goto LABEL015
  1012.         FPutLn 1, STRING020
  1013.         Inc STRING021
  1014.         Inc STRING022
  1015.         Goto LABEL014
  1016.         :LABEL015
  1017.         FClose 1
  1018.         Message INTEGER006, "SYSOP", U_Name(), "Validation Please!!!", "R", 0, 0, 0, "MESS.TMP"
  1019.         FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  1020.         FDGet STRING024
  1021.         If (STRING024 == "NONE") Goto LABEL017
  1022.         If (U_Sec >= STRING024) Goto LABEL020
  1023.         If (CDOn()) Goto LABEL016
  1024.         For INTEGER008 = 1 To INTEGER007
  1025.             If (Exist(PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + INTEGER008)) Delete PPEPath() + "APPS\" + STRING028 + "_" + STRING029 + "." + INTEGER008
  1026.         Next
  1027.         Goto LABEL020
  1028.         :LABEL016
  1029.         :LABEL017
  1030.         FClose 1
  1031.         FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  1032.         :LABEL018
  1033.         If (Ferr(1)) Goto LABEL019
  1034.         FDGet STRING031
  1035.         If (STRING031 == U_Name()) Then
  1036.             FClose 1
  1037.         Else
  1038.             Goto LABEL018
  1039.             :LABEL019
  1040.             FClose 1
  1041.             FClose 4
  1042.             FAppend 4, PPEPath() + "APPS\WAITING.app", 1, 0
  1043.             FPutLn 4, U_Name()
  1044.             FClose 4
  1045.         Endif
  1046.         If (STRING024 <> "NONE") Then
  1047.             U_Sec = STRING024
  1048.         Endif
  1049.         FClose 1
  1050.         PutUser
  1051.     Endif
  1052.     :LABEL020
  1053.     FClose 1
  1054.     For STRING008 = 1 To INTEGER007
  1055.         If ((STRING019 == NoChar()) && (STRING027 == S2I(STRING035, 34))) Delete PPEPath() + "apps\" + STRING028 + "_" + STRING029 + "." + STRING008
  1056.         If (((STRING019 == NoChar()) && Exist(PPEPath() + "apps\" + STRING028 + "_" + STRING029 + ".grp")) && (STRING027 == S2I(STRING035, 34))) Delete PPEPath() + "apps\" + STRING028 + "_" + STRING029 + ".grp"
  1057.         If (((STRING019 == NoChar()) && Exist(PPEPath() + "apps\" + STRING028 + "_" + STRING029 + ".vot")) && (STRING027 == S2I(STRING035, 34))) Delete PPEPath() + "apps\" + STRING028 + "_" + STRING029 + ".vot"
  1058.         Delete STRING008 + ".lck"
  1059.     Next
  1060.     For STRING008 = 1 To INTEGER007
  1061.         Delete STRING008 + ".YES"
  1062.     Next
  1063.     If ((STRING019 == NoChar()) && (STRING027 == S2I(STRING035, 34))) BOOLEAN001 = 1
  1064.     If (STRING016 == "TRUE") Hangup
  1065.     End
  1066.     STRING018 = "Do Not HEX-Edit this PPE, You Will Be Sorry!!!!"
  1067.  
  1068. ;------------------------------------------------------------------------------
  1069. ;
  1070. ; Usage report (before postprocessing)
  1071. ;
  1072. ; ■ Statements used :
  1073. ;
  1074. ;    2       End
  1075. ;    2       Cls
  1076. ;    2       Wait
  1077. ;    1       Color 
  1078. ;    78      Goto 
  1079. ;    286     Let 
  1080. ;    212     Print 
  1081. ;    22      PrintLn 
  1082. ;    55      If 
  1083. ;    3       DispFile 
  1084. ;    8       FCreate 
  1085. ;    8       FOpen 
  1086. ;    3       FAppend 
  1087. ;    30      FClose 
  1088. ;    5       FGet 
  1089. ;    17      FPutLn 
  1090. ;    3       StartDisp 
  1091. ;    2       Hangup
  1092. ;    1       GetUser
  1093. ;    2       PutUser
  1094. ;    11      Delete 
  1095. ;    1       DelUser
  1096. ;    2       InputStr 
  1097. ;    1       InputYN 
  1098. ;    1       Gosub 
  1099. ;    1       Return
  1100. ;    12      Inc 
  1101. ;    3       Dec 
  1102. ;    1       Newline
  1103. ;    2       Tokenize 
  1104. ;    8       GetToken 
  1105. ;    1       KbdStuff 
  1106. ;    237     AnsiPos 
  1107. ;    4       FreshLine
  1108. ;    1       Message 
  1109. ;    2       RestScrn
  1110. ;    1       FDefIn 
  1111. ;    11      FDGet 
  1112. ;
  1113. ;
  1114. ; ■ Functions used :
  1115. ;
  1116. ;    367     +
  1117. ;    3       -
  1118. ;    33      ==
  1119. ;    4       <>
  1120. ;    13      <
  1121. ;    13      <=
  1122. ;    24      >=
  1123. ;    39      !
  1124. ;    33      &&
  1125. ;    19      ||
  1126. ;    2       Len(
  1127. ;    2       Upper()
  1128. ;    3       Left()
  1129. ;    6       Right()
  1130. ;    2       Ferr()
  1131. ;    182     Chr()
  1132. ;    1       Abort()
  1133. ;    1       RTrim()
  1134. ;    2       Date()
  1135. ;    1       Time()
  1136. ;    7       U_Name()
  1137. ;    4       NoChar()
  1138. ;    1       YesChar()
  1139. ;    219     Strip()
  1140. ;    1       Inkey()
  1141. ;    2       String()
  1142. ;    2       Mask_Ascii()
  1143. ;    2       PCBDat()
  1144. ;    30      PPEPath()
  1145. ;    2       PcbNode()
  1146. ;    2       ReadLine()
  1147. ;    15      Exist()
  1148. ;    5       S2I()
  1149. ;    1       Carrier()
  1150. ;    1       CDOn()
  1151. ;    1       GetY()
  1152. ;    6       PPEName()
  1153. ;    2       TokCount()
  1154. ;    4       ScrText()
  1155. ;
  1156. ;------------------------------------------------------------------------------
  1157. ;
  1158. ; Analysis flags : WDBd
  1159. ;
  1160. ; W - Write user ■ 5
  1161. ;     Program writes a user record. Although this may be normal for a
  1162. ;     User Editor, it may also be a way to modify an account level.
  1163. ;     ■ Search for : PUTUSER
  1164. ;
  1165. ; D - Delete user ■ 5
  1166. ;     Program is deleting account(s)... Check!
  1167. ;     ■ Search for : DELUSER
  1168. ;
  1169. ; B - Brute hangup ■ 1
  1170. ;     Program hangup without notification. This may be a good way to
  1171. ;     disconnect a user, but if used randomly, may be very nasty
  1172. ;     ■ Search for : HANGUP, DTROFF
  1173. ;
  1174. ; d - Access PCBOARD.DAT ■ 2
  1175. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1176. ;     for many PPE so they can find various informations on the system
  1177. ;     (system paths, max number of lines in messages, ...) but it may also
  1178. ;     be a way to gather vital informations.
  1179. ;     ■ Search for : PCBDAT()
  1180. ;
  1181. ;------------------------------------------------------------------------------
  1182. ;
  1183. ; Postprocessing report
  1184. ;
  1185. ;    11      For/Next
  1186. ;    0       While/EndWhile
  1187. ;    18      If/Then or If/Then/Else
  1188. ;    0       Select Case
  1189. ;
  1190. ;------------------------------------------------------------------------------
  1191. ;                 AEGiS Corp - Break the routines, code against the machines!
  1192. ;------------------------------------------------------------------------------
  1193.