home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT213.ZIP / THT-INFO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-04  |  21KB  |  907 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.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   STRING018
  47.     String   STRING019
  48.     String   STRING020
  49.     String   STRING021
  50.     String   STRING022
  51.     String   STRING023
  52.     String   STRING024
  53.     String   STRING025
  54.     String   STRING026
  55.     String   STRING027
  56.     String   STRING028
  57.     String   STRING029
  58.     String   STRING030
  59.     String   STRING031
  60.     String   STRING032
  61.     String   STRING033
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     STRING030 = ReadLine(PCBDat(), 2)
  66.     STRING030 = Strip(STRING030, "<")
  67.     STRING030 = Strip(STRING030, ">")
  68.     STRING030 = Strip(STRING030, "*")
  69.     STRING030 = Strip(STRING030, ")")
  70.     STRING030 = Strip(STRING030, "(")
  71.     STRING030 = Strip(STRING030, "{")
  72.     STRING030 = Strip(STRING030, "}")
  73.     STRING030 = Strip(STRING030, "[")
  74.     STRING030 = Strip(STRING030, "]")
  75.     STRING030 = Strip(STRING030, "~")
  76.     STRING030 = Strip(STRING030, "!")
  77.     STRING030 = Strip(STRING030, "@")
  78.     STRING030 = Strip(STRING030, "#")
  79.     STRING030 = Strip(STRING030, "$")
  80.     STRING030 = Strip(STRING030, "%")
  81.     STRING030 = Strip(STRING030, "^")
  82.     STRING030 = Strip(STRING030, "&")
  83.     STRING030 = Strip(STRING030, ":")
  84.     STRING030 = Strip(STRING030, ";")
  85.     STRING030 = Strip(STRING030, "'")
  86.     STRING030 = Strip(STRING030, ".")
  87.     STRING030 = Strip(STRING030, ",")
  88.     STRING030 = Strip(STRING030, "?")
  89.     STRING030 = Strip(STRING030, "/")
  90.     STRING030 = Strip(STRING030, "|")
  91.     STRING030 = Strip(STRING030, "\")
  92.     STRING030 = Strip(STRING030, "+")
  93.     STRING030 = Strip(STRING030, "=")
  94.     STRING030 = Strip(STRING030, ".")
  95.     STRING030 = Strip(STRING030, "«")
  96.     STRING030 = Strip(STRING030, "»")
  97.     STRING030 = Strip(STRING030, "Ü")
  98.     STRING030 = Strip(STRING030, "┤")
  99.     STRING030 = Strip(STRING030, "│")
  100.     STRING030 = Strip(STRING030, "╡")
  101.     STRING030 = Strip(STRING030, "")
  102.     STRING030 = Strip(STRING030, "")
  103.     STRING030 = Strip(STRING030, "")
  104.     STRING030 = Strip(STRING030, "")
  105.     STRING030 = Strip(STRING030, "")
  106.     STRING030 = Strip(STRING030, "")
  107.     STRING030 = Strip(STRING030, "")
  108.     STRING030 = Strip(STRING030, "")
  109.     STRING030 = Strip(STRING030, "")
  110.     STRING030 = Strip(STRING030, "")
  111.     STRING030 = Strip(STRING030, "")
  112.     STRING030 = Strip(STRING030, "")
  113.     STRING030 = Strip(STRING030, "")
  114.     STRING030 = Strip(STRING030, "")
  115.     STRING030 = Strip(STRING030, "")
  116.     STRING030 = Strip(STRING030, "")
  117.     STRING030 = Strip(STRING030, " ")
  118.     STRING030 = Strip(STRING030, "")
  119.     STRING030 = Strip(STRING030, "")
  120.     STRING030 = Strip(STRING030, "Ç")
  121.     STRING030 = Strip(STRING030, "É")
  122.     STRING030 = Strip(STRING030, "á")
  123.     STRING030 = Strip(STRING030, "░")
  124.     STRING030 = Strip(STRING030, "ü")
  125.     STRING030 = Strip(STRING030, "æ")
  126.     STRING030 = Strip(STRING030, "í")
  127.     STRING030 = Strip(STRING030, "▒")
  128.     STRING030 = Strip(STRING030, "é")
  129.     STRING030 = Strip(STRING030, "Æ")
  130.     STRING030 = Strip(STRING030, "ó")
  131.     STRING030 = Strip(STRING030, "▓")
  132.     STRING030 = Strip(STRING030, "â")
  133.     STRING030 = Strip(STRING030, "ô")
  134.     STRING030 = Strip(STRING030, "ú")
  135.     STRING030 = Strip(STRING030, "│")
  136.     STRING030 = Strip(STRING030, "ä")
  137.     STRING030 = Strip(STRING030, "ö")
  138.     STRING030 = Strip(STRING030, "ñ")
  139.     STRING030 = Strip(STRING030, "┤")
  140.     STRING030 = Strip(STRING030, "à")
  141.     STRING030 = Strip(STRING030, "ò")
  142.     STRING030 = Strip(STRING030, "Ñ")
  143.     STRING030 = Strip(STRING030, "╡")
  144.     STRING030 = Strip(STRING030, "å")
  145.     STRING030 = Strip(STRING030, "û")
  146.     STRING030 = Strip(STRING030, "ª")
  147.     STRING030 = Strip(STRING030, "╢")
  148.     STRING030 = Strip(STRING030, "ç")
  149.     STRING030 = Strip(STRING030, "ù")
  150.     STRING030 = Strip(STRING030, "º")
  151.     STRING030 = Strip(STRING030, "╖")
  152.     STRING030 = Strip(STRING030, "ê")
  153.     STRING030 = Strip(STRING030, "ÿ")
  154.     STRING030 = Strip(STRING030, "¿")
  155.     STRING030 = Strip(STRING030, "╕")
  156.     STRING030 = Strip(STRING030, "ë")
  157.     STRING030 = Strip(STRING030, "Ö")
  158.     STRING030 = Strip(STRING030, "⌐")
  159.     STRING030 = Strip(STRING030, "╣")
  160.     STRING030 = Strip(STRING030, "è")
  161.     STRING030 = Strip(STRING030, "Ü")
  162.     STRING030 = Strip(STRING030, "¬")
  163.     STRING030 = Strip(STRING030, "║")
  164.     STRING030 = Strip(STRING030, "ï")
  165.     STRING030 = Strip(STRING030, "¢")
  166.     STRING030 = Strip(STRING030, "½")
  167.     STRING030 = Strip(STRING030, "╗")
  168.     STRING030 = Strip(STRING030, "î")
  169.     STRING030 = Strip(STRING030, "£")
  170.     STRING030 = Strip(STRING030, "¼")
  171.     STRING030 = Strip(STRING030, "╝")
  172.     STRING030 = Strip(STRING030, "ì")
  173.     STRING030 = Strip(STRING030, "¥")
  174.     STRING030 = Strip(STRING030, "¡")
  175.     STRING030 = Strip(STRING030, "╜")
  176.     STRING030 = Strip(STRING030, "Ä")
  177.     STRING030 = Strip(STRING030, "₧")
  178.     STRING030 = Strip(STRING030, "«")
  179.     STRING030 = Strip(STRING030, "╛")
  180.     STRING030 = Strip(STRING030, "Å")
  181.     STRING030 = Strip(STRING030, "ƒ")
  182.     STRING030 = Strip(STRING030, "»")
  183.     STRING030 = Strip(STRING030, "┐")
  184.     STRING030 = Strip(STRING030, " ")
  185.     STRING030 = Strip(STRING030, "└")
  186.     STRING030 = Strip(STRING030, "╨")
  187.     STRING030 = Strip(STRING030, "α")
  188.     STRING030 = Strip(STRING030, "≡")
  189.     STRING030 = Strip(STRING030, "┴")
  190.     STRING030 = Strip(STRING030, "╤")
  191.     STRING030 = Strip(STRING030, "ß")
  192.     STRING030 = Strip(STRING030, "±")
  193.     STRING030 = Strip(STRING030, "┬")
  194.     STRING030 = Strip(STRING030, "╥")
  195.     STRING030 = Strip(STRING030, "Γ")
  196.     STRING030 = Strip(STRING030, "≥")
  197.     STRING030 = Strip(STRING030, "├")
  198.     STRING030 = Strip(STRING030, "╙")
  199.     STRING030 = Strip(STRING030, "π")
  200.     STRING030 = Strip(STRING030, "≤")
  201.     STRING030 = Strip(STRING030, "─")
  202.     STRING030 = Strip(STRING030, "╘")
  203.     STRING030 = Strip(STRING030, "Σ")
  204.     STRING030 = Strip(STRING030, "⌠")
  205.     STRING030 = Strip(STRING030, "┼")
  206.     STRING030 = Strip(STRING030, "╒")
  207.     STRING030 = Strip(STRING030, "σ")
  208.     STRING030 = Strip(STRING030, "⌡")
  209.     STRING030 = Strip(STRING030, "╞")
  210.     STRING030 = Strip(STRING030, "╓")
  211.     STRING030 = Strip(STRING030, "µ")
  212.     STRING030 = Strip(STRING030, "÷")
  213.     STRING030 = Strip(STRING030, "╟")
  214.     STRING030 = Strip(STRING030, "╫")
  215.     STRING030 = Strip(STRING030, "τ")
  216.     STRING030 = Strip(STRING030, "≈")
  217.     STRING030 = Strip(STRING030, "╚")
  218.     STRING030 = Strip(STRING030, "╪")
  219.     STRING030 = Strip(STRING030, "Φ")
  220.     STRING030 = Strip(STRING030, "°")
  221.     STRING030 = Strip(STRING030, "╔")
  222.     STRING030 = Strip(STRING030, "┘")
  223.     STRING030 = Strip(STRING030, "Θ")
  224.     STRING030 = Strip(STRING030, "∙")
  225.     STRING030 = Strip(STRING030, "╩")
  226.     STRING030 = Strip(STRING030, "┌")
  227.     STRING030 = Strip(STRING030, "Ω")
  228.     STRING030 = Strip(STRING030, "·")
  229.     STRING030 = Strip(STRING030, "╦")
  230.     STRING030 = Strip(STRING030, "█")
  231.     STRING030 = Strip(STRING030, "δ")
  232.     STRING030 = Strip(STRING030, "√")
  233.     STRING030 = Strip(STRING030, "╠")
  234.     STRING030 = Strip(STRING030, "▄")
  235.     STRING030 = Strip(STRING030, "∞")
  236.     STRING030 = Strip(STRING030, "ⁿ")
  237.     STRING030 = Strip(STRING030, "═")
  238.     STRING030 = Strip(STRING030, "▌")
  239.     STRING030 = Strip(STRING030, "φ")
  240.     STRING030 = Strip(STRING030, "²")
  241.     STRING030 = Strip(STRING030, "╬")
  242.     STRING030 = Strip(STRING030, "▐")
  243.     STRING030 = Strip(STRING030, "ε")
  244.     STRING030 = Strip(STRING030, "■")
  245.     STRING030 = Strip(STRING030, "╧")
  246.     STRING030 = Strip(STRING030, "▀")
  247.     STRING030 = Strip(STRING030, "∩")
  248.     STRING030 = Strip(STRING030, " ")
  249.     STRING030 = Strip(STRING030, " ")
  250.     INTEGER009 = Len(STRING030)
  251.     If (INTEGER009 < 2) STRING030 = "if"
  252.     STRING030 = Right(STRING030, 2)
  253.     STRING031 = ReadLine(PCBDat(), 94)
  254.     STRING031 = Strip(STRING031, "<")
  255.     STRING031 = Strip(STRING031, ">")
  256.     STRING031 = Strip(STRING031, "*")
  257.     STRING031 = Strip(STRING031, ")")
  258.     STRING031 = Strip(STRING031, "(")
  259.     STRING031 = Strip(STRING031, "{")
  260.     STRING031 = Strip(STRING031, "}")
  261.     STRING031 = Strip(STRING031, "[")
  262.     STRING031 = Strip(STRING031, "]")
  263.     STRING031 = Strip(STRING031, "~")
  264.     STRING031 = Strip(STRING031, "!")
  265.     STRING031 = Strip(STRING031, "@")
  266.     STRING031 = Strip(STRING031, "#")
  267.     STRING031 = Strip(STRING031, "$")
  268.     STRING031 = Strip(STRING031, "%")
  269.     STRING031 = Strip(STRING031, "^")
  270.     STRING031 = Strip(STRING031, "&")
  271.     STRING031 = Strip(STRING031, ":")
  272.     STRING031 = Strip(STRING031, ";")
  273.     STRING031 = Strip(STRING031, "'")
  274.     STRING031 = Strip(STRING031, ".")
  275.     STRING031 = Strip(STRING031, ",")
  276.     STRING031 = Strip(STRING031, "?")
  277.     STRING031 = Strip(STRING031, "/")
  278.     STRING031 = Strip(STRING031, "|")
  279.     STRING031 = Strip(STRING031, "\")
  280.     STRING031 = Strip(STRING031, "+")
  281.     STRING031 = Strip(STRING031, "=")
  282.     STRING031 = Strip(STRING031, ".")
  283.     STRING031 = Strip(STRING031, "«")
  284.     STRING031 = Strip(STRING031, "»")
  285.     STRING031 = Strip(STRING031, "Ü")
  286.     STRING031 = Strip(STRING031, "┤")
  287.     STRING031 = Strip(STRING031, "│")
  288.     STRING031 = Strip(STRING031, "╡")
  289.     STRING031 = Strip(STRING031, "")
  290.     STRING031 = Strip(STRING031, "")
  291.     STRING031 = Strip(STRING031, "")
  292.     STRING031 = Strip(STRING031, "")
  293.     STRING031 = Strip(STRING031, "")
  294.     STRING031 = Strip(STRING031, "")
  295.     STRING031 = Strip(STRING031, "")
  296.     STRING031 = Strip(STRING031, "")
  297.     STRING031 = Strip(STRING031, "")
  298.     STRING031 = Strip(STRING031, "")
  299.     STRING031 = Strip(STRING031, "")
  300.     STRING031 = Strip(STRING031, "")
  301.     STRING031 = Strip(STRING031, "")
  302.     STRING031 = Strip(STRING031, "")
  303.     STRING031 = Strip(STRING031, "")
  304.     STRING031 = Strip(STRING031, "")
  305.     STRING031 = Strip(STRING031, " ")
  306.     STRING031 = Strip(STRING031, "")
  307.     STRING031 = Strip(STRING031, "")
  308.     STRING031 = Strip(STRING031, "Ç")
  309.     STRING031 = Strip(STRING031, "É")
  310.     STRING031 = Strip(STRING031, "á")
  311.     STRING031 = Strip(STRING031, "░")
  312.     STRING031 = Strip(STRING031, "ü")
  313.     STRING031 = Strip(STRING031, "æ")
  314.     STRING031 = Strip(STRING031, "í")
  315.     STRING031 = Strip(STRING031, "▒")
  316.     STRING031 = Strip(STRING031, "é")
  317.     STRING031 = Strip(STRING031, "Æ")
  318.     STRING031 = Strip(STRING031, "ó")
  319.     STRING031 = Strip(STRING031, "▓")
  320.     STRING031 = Strip(STRING031, "â")
  321.     STRING031 = Strip(STRING031, "ô")
  322.     STRING031 = Strip(STRING031, "ú")
  323.     STRING031 = Strip(STRING031, "│")
  324.     STRING031 = Strip(STRING031, "ä")
  325.     STRING031 = Strip(STRING031, "ö")
  326.     STRING031 = Strip(STRING031, "ñ")
  327.     STRING031 = Strip(STRING031, "┤")
  328.     STRING031 = Strip(STRING031, "à")
  329.     STRING031 = Strip(STRING031, "ò")
  330.     STRING031 = Strip(STRING031, "Ñ")
  331.     STRING031 = Strip(STRING031, "╡")
  332.     STRING031 = Strip(STRING031, "å")
  333.     STRING031 = Strip(STRING031, "û")
  334.     STRING031 = Strip(STRING031, "ª")
  335.     STRING031 = Strip(STRING031, "╢")
  336.     STRING031 = Strip(STRING031, "ç")
  337.     STRING031 = Strip(STRING031, "ù")
  338.     STRING031 = Strip(STRING031, "º")
  339.     STRING031 = Strip(STRING031, "╖")
  340.     STRING031 = Strip(STRING031, "ê")
  341.     STRING031 = Strip(STRING031, "ÿ")
  342.     STRING031 = Strip(STRING031, "¿")
  343.     STRING031 = Strip(STRING031, "╕")
  344.     STRING031 = Strip(STRING031, "ë")
  345.     STRING031 = Strip(STRING031, "Ö")
  346.     STRING031 = Strip(STRING031, "⌐")
  347.     STRING031 = Strip(STRING031, "╣")
  348.     STRING031 = Strip(STRING031, "è")
  349.     STRING031 = Strip(STRING031, "Ü")
  350.     STRING031 = Strip(STRING031, "¬")
  351.     STRING031 = Strip(STRING031, "║")
  352.     STRING031 = Strip(STRING031, "ï")
  353.     STRING031 = Strip(STRING031, "¢")
  354.     STRING031 = Strip(STRING031, "½")
  355.     STRING031 = Strip(STRING031, "╗")
  356.     STRING031 = Strip(STRING031, "î")
  357.     STRING031 = Strip(STRING031, "£")
  358.     STRING031 = Strip(STRING031, "¼")
  359.     STRING031 = Strip(STRING031, "╝")
  360.     STRING031 = Strip(STRING031, "ì")
  361.     STRING031 = Strip(STRING031, "¥")
  362.     STRING031 = Strip(STRING031, "¡")
  363.     STRING031 = Strip(STRING031, "╜")
  364.     STRING031 = Strip(STRING031, "Ä")
  365.     STRING031 = Strip(STRING031, "₧")
  366.     STRING031 = Strip(STRING031, "«")
  367.     STRING031 = Strip(STRING031, "╛")
  368.     STRING031 = Strip(STRING031, "Å")
  369.     STRING031 = Strip(STRING031, "ƒ")
  370.     STRING031 = Strip(STRING031, "»")
  371.     STRING031 = Strip(STRING031, "┐")
  372.     STRING031 = Strip(STRING031, " ")
  373.     STRING031 = Strip(STRING031, "└")
  374.     STRING031 = Strip(STRING031, "╨")
  375.     STRING031 = Strip(STRING031, "α")
  376.     STRING031 = Strip(STRING031, "≡")
  377.     STRING031 = Strip(STRING031, "┴")
  378.     STRING031 = Strip(STRING031, "╤")
  379.     STRING031 = Strip(STRING031, "ß")
  380.     STRING031 = Strip(STRING031, "±")
  381.     STRING031 = Strip(STRING031, "┬")
  382.     STRING031 = Strip(STRING031, "╥")
  383.     STRING031 = Strip(STRING031, "Γ")
  384.     STRING031 = Strip(STRING031, "≥")
  385.     STRING031 = Strip(STRING031, "├")
  386.     STRING031 = Strip(STRING031, "╙")
  387.     STRING031 = Strip(STRING031, "π")
  388.     STRING031 = Strip(STRING031, "≤")
  389.     STRING031 = Strip(STRING031, "─")
  390.     STRING031 = Strip(STRING031, "╘")
  391.     STRING031 = Strip(STRING031, "Σ")
  392.     STRING031 = Strip(STRING031, "⌠")
  393.     STRING031 = Strip(STRING031, "┼")
  394.     STRING031 = Strip(STRING031, "╒")
  395.     STRING031 = Strip(STRING031, "σ")
  396.     STRING031 = Strip(STRING031, "⌡")
  397.     STRING031 = Strip(STRING031, "╞")
  398.     STRING031 = Strip(STRING031, "╓")
  399.     STRING031 = Strip(STRING031, "µ")
  400.     STRING031 = Strip(STRING031, "÷")
  401.     STRING031 = Strip(STRING031, "╟")
  402.     STRING031 = Strip(STRING031, "╫")
  403.     STRING031 = Strip(STRING031, "τ")
  404.     STRING031 = Strip(STRING031, "≈")
  405.     STRING031 = Strip(STRING031, "╚")
  406.     STRING031 = Strip(STRING031, "╪")
  407.     STRING031 = Strip(STRING031, "Φ")
  408.     STRING031 = Strip(STRING031, "°")
  409.     STRING031 = Strip(STRING031, "╔")
  410.     STRING031 = Strip(STRING031, "┘")
  411.     STRING031 = Strip(STRING031, "Θ")
  412.     STRING031 = Strip(STRING031, "∙")
  413.     STRING031 = Strip(STRING031, "╩")
  414.     STRING031 = Strip(STRING031, "┌")
  415.     STRING031 = Strip(STRING031, "Ω")
  416.     STRING031 = Strip(STRING031, "·")
  417.     STRING031 = Strip(STRING031, "╦")
  418.     STRING031 = Strip(STRING031, "█")
  419.     STRING031 = Strip(STRING031, "δ")
  420.     STRING031 = Strip(STRING031, "√")
  421.     STRING031 = Strip(STRING031, "╠")
  422.     STRING031 = Strip(STRING031, "▄")
  423.     STRING031 = Strip(STRING031, "∞")
  424.     STRING031 = Strip(STRING031, "ⁿ")
  425.     STRING031 = Strip(STRING031, "═")
  426.     STRING031 = Strip(STRING031, "▌")
  427.     STRING031 = Strip(STRING031, "φ")
  428.     STRING031 = Strip(STRING031, "²")
  429.     STRING031 = Strip(STRING031, "╬")
  430.     STRING031 = Strip(STRING031, "▐")
  431.     STRING031 = Strip(STRING031, "ε")
  432.     STRING031 = Strip(STRING031, "■")
  433.     STRING031 = Strip(STRING031, "╧")
  434.     STRING031 = Strip(STRING031, "▀")
  435.     STRING031 = Strip(STRING031, "∩")
  436.     STRING031 = Strip(STRING031, " ")
  437.     STRING031 = Strip(STRING031, " ")
  438.     INTEGER010 = Len(STRING031)
  439.     If (INTEGER010 < 2) STRING031 = "if"
  440.     STRING031 = Right(STRING031, 2)
  441.     STRING032 = STRING030 + STRING031 + "FO"
  442.     STRING023 = Carrier()
  443.     STRING007 = Time()
  444.     STRING006 = Date()
  445.     FDefIn 1
  446.     FDefOut 4
  447.     STRING024 = "@X0E" + Chr(84) + Chr(72) + Chr(84) + "-" + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " @X09v" + Chr(50) + "." + Chr(48) + Chr(52) + "  " + "@X0ECompiled on @X0C01-04-94@X07"
  448.     If (STRING024 <> "@X0ETHT-InfoForm @X09v2.04" + "  " + "@X0ECompiled on @X0C01-04-94@X07") Goto LABEL020
  449.     GetUser
  450.     FClose 1
  451.     FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  452.     FDGet STRING022
  453.     FDGet STRING025
  454.     FDGet INTEGER006
  455.     FDGet STRING016
  456.     FClose 1
  457.     FClose 1
  458.     StartDisp 1
  459.     DispFile PPEPath() + "dsclm.pcb", 0
  460.     STRING021 = YesChar()
  461.     InputYN "                Do You Agree To This@X0F ???", STRING021, 9
  462.     If (STRING021 == "N") Then
  463.         U_Sec = 0
  464.         DelUser
  465.         PutUser
  466.         Hangup
  467.         Goto LABEL001
  468.     Endif
  469.     :LABEL001
  470.     Cls
  471.     StartDisp 1
  472.     RestScrn
  473.     STRING011 = 10
  474.     STRING012 = 1
  475.     AnsiPos 18, 1
  476.     PrintLn STRING024
  477.     AnsiPos 23, 2
  478.     PrintLn "@X0F┌──────────────────────────────┐@X07"
  479.     AnsiPos 23, 3
  480.     PrintLn "@X07│@X1F   ∙  New User InfoForms  ∙   @X07│@X07"
  481.     AnsiPos 23, 4
  482.     PrintLn "@X08└──────────────────────────────┘@X07"
  483.     AnsiPos 2, 5
  484.     PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  485.     AnsiPos 2, 6
  486.     PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  487.     AnsiPos 2, 7
  488.     PrintLn "@X0F█@X71                                                 @X08█@X07"
  489.     AnsiPos 2, 8
  490.     PrintLn "@X0F█@X71 No.  InfoForm Title         Status       Req'd  @X08█ @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  491.     AnsiPos 2, 9
  492.     PrintLn "@X0F█@X71─────────────────────────────────────────────────@X08█ @X0F█@X71                         @X08█@X07"
  493.     FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
  494.     FDGet INTEGER007
  495.     For INTEGER005 = 1 To INTEGER007
  496.         AnsiPos 2, STRING011
  497.         PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71                         @X08█@X07"
  498.         FOpen 2, PPEPath() + "infocfg." + STRING012, 0, 0
  499.         FGet 2, STRING010
  500.         FDGet STRING003
  501.         Gosub LABEL007
  502.         If (!Exist(STRING012 + ".lck") && (STRING010 == "YES")) FCreate 3, STRING012 + "." + STRING010, 1, 0
  503.         FClose 3
  504.         If (Exist(STRING012 + ".lck")) Then
  505.             AnsiPos 3, STRING011
  506.             PrintLn "@X79(@X7E" + STRING012 + "@X79)@X78   " + STRING003 + "@POS:32@@X74Completed@X71" + "@POS:46@" + STRING010
  507.             AnsiPos 3 + 55, STRING011
  508.             PrintLn "@X71" + "Complete InfoForm " + STRING012
  509.         Else
  510.             AnsiPos 3, STRING011
  511.             PrintLn "@X79(@X7E" + STRING012 + "@X79)@X78   " + STRING003 + "@POS:32@@X71InCompleted@X74" + "@POS:46@" + STRING010
  512.             AnsiPos 3 + 55, STRING011
  513.             PrintLn "@X71" + "Complete InfoForm " + STRING012
  514.         Endif
  515.         Inc STRING011
  516.         Inc STRING012
  517.         FClose 2
  518.     Next
  519.     FClose 1
  520.     AnsiPos 2, STRING011
  521.     PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71   Quit Infoform Booth   @X08█@X07"
  522.     Inc STRING011
  523.     AnsiPos 2, STRING011
  524.     PrintLn "@X0F█@X71                                                 @X08█ @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  525.     Inc STRING011
  526.     AnsiPos 2, STRING011
  527.     PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  528.     If (STRING025 == S2I(STRING032, 33)) Goto LABEL002
  529.     STRING033 = "@X0C" + Chr(60) + Chr(60) + Chr(60) + "@X0C" + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + "@X0C" + Chr(62) + Chr(62) + Chr(62)
  530.     If (STRING033 <> "@X0C<<<@X0CUnRegistered@X0C>>>") Then
  531.         AnsiPos 16, 7
  532.         Print STRING033
  533.         AnsiPos 58, 9
  534.         Print STRING033
  535.         AnsiPos 10, 19
  536.         STRING017 = "@X8C" + Chr(72) + Chr(97) + Chr(99) + Chr(107) + Chr(101) + Chr(100) + "!!!! Copy oF InFoForM"
  537.         Print STRING017
  538.         AnsiPos 10, 20
  539.         Print "@X0FPlease Get a Real Copy from <<THT>> @ 314-355-5472"
  540.         Goto LABEL020
  541.     Else
  542.         AnsiPos 20, 7
  543.         Print STRING033
  544.         AnsiPos 58, 9
  545.         Print STRING033
  546.     Endif
  547.     :LABEL002
  548.     Inc STRING011
  549.     Inc STRING011
  550.     Inc STRING011
  551.     STRING009 = ""
  552.     RestScrn
  553.     AnsiPos 2, STRING011 - 2
  554.     STRING014 = GetY()
  555.     STRING015 = STRING014 - 3
  556.     KbdStuff Chr(32)
  557.     :LABEL003
  558.     If (BOOLEAN001) Goto LABEL005
  559.     STRING013 = Inkey()
  560.     If (STRING013 == Chr(13)) Then
  561.         STRING004 = Left(ScrText(58, STRING015 + 1, 19, 0), 1)
  562.         STRING004 = STRING004 + Right(ScrText(58, STRING015 + 1, 19, 0), 1)
  563.         STRING004 = Right(STRING004, 1)
  564.     Else
  565.         If ((STRING013 == "Q") || (STRING013 == "q")) Goto LABEL020
  566.         If (((((((((STRING013 == Chr(32)) || (STRING013 == "UP")) || (STRING013 == "DOWN")) || (STRING013 == "LEFT")) || (STRING013 == "RIGHT")) || (STRING013 == "z")) || (STRING013 == "Z")) || (STRING013 == "a")) || (STRING013 == "A")) Then
  567.             AnsiPos 55, STRING015
  568.             If (STRING015 == STRING014 - 3) Then
  569.                 Print STRING009
  570.                 Goto LABEL004
  571.             Endif
  572.             AnsiPos 55, STRING015 + 1
  573.             Print STRING009
  574.             :LABEL004
  575.             AnsiPos 55, STRING015
  576.             If (STRING015 == 9) STRING015 = STRING015 + INTEGER007 + 1
  577.             AnsiPos 55, STRING015
  578.             STRING009 = ScrText(55, STRING015, 25, 1) + "@X08"
  579.             Color 78
  580.             AnsiPos 55, STRING015
  581.             Print ScrText(55, STRING015, 25, 0) + "@X08"
  582.             Dec STRING015
  583.         Endif
  584.         Goto LABEL003
  585.     Endif
  586.     :LABEL005
  587.     If (Exist(STRING004 + ".lck")) Then
  588.         Inc STRING011
  589.         AnsiPos 15, 21
  590.         PrintLn "@X0EYou have Already Filled Out that One@X07"
  591.         Dec STRING011
  592.         Wait
  593.         Goto LABEL001
  594.     ElseIf ((STRING004 <= INTEGER007) && (STRING004 <> "h")) Then
  595.         FCreate 1, STRING004 + ".lck", 1, 0
  596.         FClose 1
  597.         Goto LABEL009
  598.     ElseIf (!Exist("*.YES") && (STRING004 == "h")) Then
  599.         Goto LABEL013
  600.     Else
  601.         Goto LABEL006
  602.     Endif
  603.     FClose 1
  604.     :LABEL006
  605.     Inc STRING011
  606.     AnsiPos 15, STRING011
  607.     For STRING008 = 1 To INTEGER007
  608.         FreshLine
  609.         If (Exist(STRING008 + ".YES")) PrintLn "@X0EInfoForm @X8C" + STRING008 + "@X0E is Required!!!"
  610.     Next
  611.     Wait
  612.     AnsiPos 15, STRING011
  613.     For STRING008 = 1 To INTEGER007
  614.         FreshLine
  615.         If (Exist(STRING008 + ".YES")) PrintLn "                                            "
  616.     Next
  617.     Dec STRING011
  618.     Goto LABEL001
  619.     End
  620.     :LABEL007
  621.     Tokenize U_Name()
  622.     If (TokCount() == 3) Then
  623.         GetToken STRING026
  624.         GetToken STRING027
  625.         GetToken STRING028
  626.         STRING026 = Strip(STRING026, " ")
  627.         STRING027 = Strip(STRING027, " ")
  628.         STRING026 = Strip(STRING026, ".")
  629.         STRING027 = Strip(STRING027, ".")
  630.         STRING026 = Left(STRING026, 3)
  631.         STRING027 = Right(STRING028, 4)
  632.         If (Exist(PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + STRING012)) Then
  633.             FCreate 5, STRING012 + ".lck", 1, 0
  634.             FClose 5
  635.         Endif
  636.     ElseIf (TokCount() <= 2) Then
  637.         GetToken STRING026
  638.         GetToken STRING027
  639.         STRING026 = Strip(STRING026, " ")
  640.         STRING027 = Strip(STRING027, " ")
  641.         STRING026 = Strip(STRING026, ".")
  642.         STRING027 = Strip(STRING027, ".")
  643.         STRING026 = Left(STRING026, 3)
  644.         STRING027 = Right(STRING027, 4)
  645.         If (Exist(PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + STRING012)) Then
  646.             FCreate 5, STRING012 + ".lck", 1, 0
  647.             FClose 5
  648.             If (Exist(PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + ".grp")) Goto LABEL008
  649.             FCreate 5, PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + ".GRP", 1, 0
  650.             FPutLn 5, U_City
  651.             FClose 5
  652.         Endif
  653.     Endif
  654.     :LABEL008
  655.     Return
  656.     :LABEL009
  657.     FClose 2
  658.     Newline
  659.     StartDisp 1
  660.     FCreate 5, PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + "vot", 1, 0
  661.     FClose 5
  662.     DispFile PPEPath() + PPEName() + "." + STRING004, 0
  663.     FAppend 3, PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + STRING004, 1, 0
  664.     FAppend 4, PPEPath() + "APPS\answers." + STRING004, 1, 0
  665.     FOpen 2, PPEPath() + "infocfg." + STRING004, 0, 0
  666.     FGet 2, STRING010
  667.     FGet 2, STRING002
  668.     FreshLine
  669.     FPutLn 3, "─────────────────────────────────────────"
  670.     FPutLn 4, "─────────────────────────────────────────"
  671.     FPutLn 3, " InfoForm PPE   " + STRING006 + "        " + STRING007
  672.     FPutLn 4, " InfoForm PPE   " + STRING006 + "        " + STRING007
  673.     FPutLn 3, "                                         "
  674.     FPutLn 4, "                                         "
  675.     FPutLn 3, "User: " + U_Name() + "   " + "City " + U_City
  676.     FPutLn 4, "User: " + U_Name() + "   " + "City " + U_City
  677.     FPutLn 3, "Connected @ " + STRING023 + "    To Node " + String(PcbNode())
  678.     FPutLn 4, "Connected @ " + STRING023 + "    To Node " + String(PcbNode())
  679.     FPutLn 3, "─────────────────────────────────────────"
  680.     FPutLn 4, "─────────────────────────────────────────"
  681.     For INTEGER005 = 1 To STRING002
  682.         FGet 2, STRING001
  683.         Tokenize STRING001
  684.         GetToken INTEGER002
  685.         GetToken INTEGER003
  686.         GetToken INTEGER004
  687.         AnsiPos INTEGER002, INTEGER003
  688.         :LABEL010
  689.         STRING005 = ""
  690.         InputStr "_", STRING005, 14, INTEGER004, Mask_Ascii(), 0
  691.         If (STRING005 == "") Goto LABEL010
  692.         FPutLn 3, STRING005
  693.         FPutLn 4, STRING005
  694.     Next
  695.     FClose 4
  696.     FClose 3
  697.     FClose 2
  698.     STRING011 = 1
  699.     For INTEGER005 = 1 To INTEGER007
  700.         FOpen 2, PPEPath() + "infocfg." + STRING011, 0, 0
  701.         FGet 2, STRING010
  702.         If (Exist(STRING011 + "." + STRING010) && Exist(STRING011 + ".lck")) Delete STRING011 + "." + STRING010
  703.         Inc STRING011
  704.         FClose 2
  705.     Next
  706.     FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  707.     :LABEL011
  708.     If (Ferr(1)) Goto LABEL012
  709.     FDGet STRING029
  710.     If (STRING029 == U_Name()) Then
  711.         FClose 1
  712.         Goto LABEL001
  713.     Endif
  714.     Goto LABEL011
  715.     :LABEL012
  716.     FClose 1
  717.     Goto LABEL001
  718.     :LABEL013
  719.     Cls
  720.     FClose 1
  721.     STRING019 = 1
  722.     STRING020 = 1
  723.     FClose 1
  724.     FCreate 1, "MESS.TMP", 1, 0
  725.     DispFile PPEPath() + "goodbye.pcb", 0
  726.     :LABEL014
  727.     If (Abort()) Goto LABEL015
  728.     STRING018 = ""
  729.     FreshLine
  730.     InputStr STRING020 + " >_", STRING018, 9, 74, Mask_Ascii(), 512 + 2 + 4 + 256
  731.     If ((STRING019 == 1) && (STRING018 == "")) Goto LABEL013
  732.     If (STRING018 == "") Goto LABEL015
  733.     FPutLn 1, STRING018
  734.     Inc STRING019
  735.     Inc STRING020
  736.     Goto LABEL014
  737.     :LABEL015
  738.     FClose 1
  739.     Message INTEGER006, "SYSOP", U_Name(), "Validation Please!!!", "R", 0, 0, 0, "MESS.TMP"
  740.     FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  741.     FDGet STRING022
  742.     If (STRING022 == "NONE") Goto LABEL017
  743.     If (U_Sec >= STRING022) Goto LABEL020
  744.     If (CDOn()) Goto LABEL016
  745.     For INTEGER008 = 1 To INTEGER007
  746.         If (Exist(PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + INTEGER008)) Delete PPEPath() + "APPS\" + STRING026 + "_" + STRING027 + "." + INTEGER008
  747.     Next
  748.     Goto LABEL020
  749.     :LABEL016
  750.     :LABEL017
  751.     FClose 1
  752.     FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  753.     :LABEL018
  754.     If (Ferr(1)) Goto LABEL019
  755.     FDGet STRING029
  756.     If (STRING029 == U_Name()) Then
  757.         FClose 1
  758.     Else
  759.         Goto LABEL018
  760.         :LABEL019
  761.         FClose 4
  762.         FAppend 4, PPEPath() + "APPS\WAITING.app", 1, 0
  763.         FDPutLn U_Name() + Chr(13)
  764.         FClose 4
  765.     Endif
  766.     If (STRING022 <> "NONE") Then
  767.         U_Sec = STRING022
  768.     Endif
  769.     FClose 1
  770.     PutUser
  771.     :LABEL020
  772.     FClose 1
  773.     For STRING008 = 1 To INTEGER007
  774.         Delete STRING008 + ".lck"
  775.     Next
  776.     For STRING008 = 1 To INTEGER007
  777.         Delete STRING008 + ".YES"
  778.     Next
  779.     BOOLEAN001 = 1
  780.     If (STRING016 == "TRUE") Hangup
  781.     End
  782.  
  783. ;------------------------------------------------------------------------------
  784. ;
  785. ; Usage report (before postprocessing)
  786. ;
  787. ; ■ Statements used :
  788. ;
  789. ;    2       End
  790. ;    2       Cls
  791. ;    2       Wait
  792. ;    1       Color 
  793. ;    70      Goto 
  794. ;    431     Let 
  795. ;    9       Print 
  796. ;    20      PrintLn 
  797. ;    47      If 
  798. ;    3       DispFile 
  799. ;    7       FCreate 
  800. ;    8       FOpen 
  801. ;    3       FAppend 
  802. ;    28      FClose 
  803. ;    5       FGet 
  804. ;    16      FPutLn 
  805. ;    3       StartDisp 
  806. ;    2       Hangup
  807. ;    1       GetUser
  808. ;    2       PutUser
  809. ;    4       Delete 
  810. ;    1       DelUser
  811. ;    2       InputStr 
  812. ;    1       InputYN 
  813. ;    1       Gosub 
  814. ;    1       Return
  815. ;    12      Inc 
  816. ;    3       Dec 
  817. ;    1       Newline
  818. ;    2       Tokenize 
  819. ;    8       GetToken 
  820. ;    1       KbdStuff 
  821. ;    33      AnsiPos 
  822. ;    4       FreshLine
  823. ;    1       Message 
  824. ;    2       RestScrn
  825. ;    1       FDefIn 
  826. ;    1       FDefOut 
  827. ;    9       FDGet 
  828. ;    1       FDPutLn 
  829. ;
  830. ;
  831. ; ■ Functions used :
  832. ;
  833. ;    196     +
  834. ;    3       -
  835. ;    27      ==
  836. ;    4       <>
  837. ;    10      <
  838. ;    10      <=
  839. ;    17      >=
  840. ;    33      !
  841. ;    21      &&
  842. ;    17      ||
  843. ;    2       Len(
  844. ;    3       Left()
  845. ;    6       Right()
  846. ;    2       Ferr()
  847. ;    42      Chr()
  848. ;    1       Abort()
  849. ;    1       Date()
  850. ;    1       Time()
  851. ;    7       U_Name()
  852. ;    1       YesChar()
  853. ;    376     Strip()
  854. ;    1       Inkey()
  855. ;    2       String()
  856. ;    2       Mask_Ascii()
  857. ;    2       PCBDat()
  858. ;    21      PPEPath()
  859. ;    2       PcbNode()
  860. ;    2       ReadLine()
  861. ;    12      Exist()
  862. ;    1       S2I()
  863. ;    1       Carrier()
  864. ;    1       CDOn()
  865. ;    1       GetY()
  866. ;    4       PPEName()
  867. ;    2       TokCount()
  868. ;    4       ScrText()
  869. ;
  870. ;------------------------------------------------------------------------------
  871. ;
  872. ; Analysis flags : WDBd
  873. ;
  874. ; W - Write user ■ 5
  875. ;     Program writes a user record. Although this may be normal for a
  876. ;     User Editor, it may also be a way to modify an account level.
  877. ;     ■ Search for : PUTUSER
  878. ;
  879. ; D - Delete user ■ 5
  880. ;     Program is deleting account(s)... Check!
  881. ;     ■ Search for : DELUSER
  882. ;
  883. ; B - Brute hangup ■ 1
  884. ;     Program hangup without notification. This may be a good way to
  885. ;     disconnect a user, but if used randomly, may be very nasty
  886. ;     ■ Search for : HANGUP, DTROFF
  887. ;
  888. ; d - Access PCBOARD.DAT ■ 2
  889. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  890. ;     for many PPE so they can find various informations on the system
  891. ;     (system paths, max number of lines in messages, ...) but it may also
  892. ;     be a way to gather vital informations.
  893. ;     ■ Search for : PCBDAT()
  894. ;
  895. ;------------------------------------------------------------------------------
  896. ;
  897. ; Postprocessing report
  898. ;
  899. ;    8       For/Next
  900. ;    0       While/EndWhile
  901. ;    16      If/Then or If/Then/Else
  902. ;    0       Select Case
  903. ;
  904. ;------------------------------------------------------------------------------
  905. ;                 AEGiS Corp - Break the routines, code against the machines!
  906. ;------------------------------------------------------------------------------
  907.