home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT224.ZIP / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-06  |  14KB  |  674 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  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.     String   STRING011
  38.     String   STRING012
  39.     String   STRING013
  40.     String   STRING014
  41.     String   STRING015
  42.     String   STRING016
  43.     String   STRING017
  44.     String   STRING018
  45.     String   STRING019
  46.     String   STRING020
  47.     String   STRING021
  48.     String   STRING022
  49.     String   STRING023
  50.     String   STRING024
  51.     String   STRING025
  52.     String   STRING026
  53.     String   STRING027
  54.     String   STRING028
  55.     String   STRING029
  56.     String   STRING030
  57.     String   STRING031
  58.     String   STRING032
  59.     String   STRING033
  60.     String   STRING034
  61.     String   STRING035
  62.     String   STRING036
  63.     String   STRING037
  64.     String   STRING038
  65.     String   STRING039
  66.     String   STRING040
  67.     String   STRING041
  68.     String   STRING042
  69.     String   STRING043
  70.     String   STRING044
  71.     String   STRING045
  72.     String   STRING046
  73.     String   STRING047
  74.     String   STRING048
  75.     String   STRING049
  76.     String   STRING050
  77.     String   STRING051
  78.     String   STRING052
  79.     String   STRING053
  80.     String   STRING054
  81.     String   STRING055
  82.     String   STRING056
  83.     String   STRING057
  84.  
  85. ;------------------------------------------------------------------------------
  86.  
  87.     FDefIn 1
  88.     STRING054 = Chr(50) + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(46) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + Chr(49) + Chr(57)
  89.     STRING044 = 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)
  90.     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) + STRING054 + 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)
  91.     DATE001 = Chr(48) + Chr(50) + "-" + Chr(50) + Chr(54) + "-" + Chr(57) + Chr(52)
  92.     STRING041 = Upper(ReadLine(PCBDat(), 2))
  93.     STRING042 = Upper(ReadLine(PCBDat(), 94))
  94.     For STRING057 = 0 To 64
  95.         STRING041 = Strip(STRING041, Chr(STRING057))
  96.         STRING042 = Strip(STRING042, Chr(STRING057))
  97.     Next
  98.     For STRING057 = 85 To 96
  99.         STRING041 = Strip(STRING041, Chr(STRING057))
  100.         STRING042 = Strip(STRING042, Chr(STRING057))
  101.     Next
  102.     For STRING057 = 117 To 255
  103.         STRING041 = Strip(STRING041, Chr(STRING057))
  104.         STRING042 = Strip(STRING042, Chr(STRING057))
  105.     Next
  106.     INTEGER005 = Len(STRING041)
  107.     If (INTEGER005 < 2) STRING041 = "uv"
  108.     STRING041 = Right(STRING041, 2)
  109.     INTEGER006 = Len(STRING042)
  110.     If (INTEGER006 < 2) STRING042 = "uv"
  111.     STRING042 = Right(STRING042, 2)
  112.     STRING043 = STRING041 + STRING042 + "VU"
  113.     GetUser
  114.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  115.     FDGet STRING036
  116.     FDGet STRING034
  117.     FDGet STRING028
  118.     FDGet STRING029
  119.     FDGet STRING030
  120.     FDGet STRING045
  121.     FDGet STRING046
  122.     FDGet STRING050
  123.     FDGet STRING049
  124.     FDGet STRING047
  125.     FDGet STRING048
  126.     FDGet STRING051
  127.     FDGet STRING052
  128.     FDGet STRING053
  129.     FDGet STRING055
  130.     FDGet STRING056
  131.     FClose 1
  132.     If (STRING034 > CurSec()) Goto LABEL035
  133.     If (Exist(PPEPath() + "apps\waiting.app")) Then
  134.         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) + STRING054 + 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
  135.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  136.             Goto LABEL035
  137.         Endif
  138.         STRING031 = STRING050
  139.         STRING031 = Upper(STRING031)
  140.         Cls
  141.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  142.         INTEGER003 = 0
  143.         :LABEL001
  144.         If (Ferr(1)) Goto LABEL002
  145.         FGet 1, STRING006
  146.         If (STRING006 == "") Goto LABEL003
  147.         Inc INTEGER003
  148.         Goto LABEL001
  149.         :LABEL002
  150.         FClose 1
  151.         :LABEL003
  152.         FClose 1
  153.         If ((INTEGER003 == 0) && (STRING036 == S2I(STRING043, 34))) Then
  154.             Goto LABEL035
  155.         Endif
  156.         If ((STRING055 == YesChar()) && (STRING036 == S2I(STRING043, 34))) Goto LABEL004
  157.         AnsiPos 12, 3
  158.         PrintLn STRING008
  159.         If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
  160.         Newline
  161.         InputYN STRING053, STRING031, " "
  162.         If (STRING031 == NoChar()) Goto LABEL035
  163.         :LABEL004
  164.         DefColor
  165.         STRING001 = 7
  166.         FClose 2
  167.         FClose 1
  168.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  169.         INTEGER003 = 0
  170.         :LABEL005
  171.         If (Ferr(1)) Goto LABEL010
  172.         STRING009 = ""
  173.         FDGet STRING006
  174.         If (STRING006 == "") Goto LABEL017
  175.         Tokenize STRING006
  176.         If (TokCount() == 3) Then
  177.             GetToken STRING025
  178.             GetToken STRING026
  179.             GetToken STRING032
  180.             STRING025 = Left(STRING025, 3)
  181.             STRING026 = Right(STRING032, 4)
  182.             STRING025 = Strip(STRING025, " ")
  183.             STRING025 = Strip(STRING025, ".")
  184.             STRING026 = Strip(STRING026, " ")
  185.             STRING026 = Strip(STRING026, ".")
  186.             Goto LABEL006
  187.         Endif
  188.         If (TokCount() == 2) Then
  189.             GetToken STRING025
  190.             GetToken STRING026
  191.             STRING025 = Left(STRING025, 3)
  192.             STRING026 = Right(STRING026, 4)
  193.             STRING025 = Strip(STRING025, " ")
  194.             STRING025 = Strip(STRING025, ".")
  195.             STRING026 = Strip(STRING026, " ")
  196.             STRING026 = Strip(STRING026, ".")
  197.             Goto LABEL006
  198.         Endif
  199.         If (TokCount() == 1) Then
  200.             GetToken STRING025
  201.             GetToken STRING026
  202.             STRING025 = Strip(STRING025, ".")
  203.             STRING025 = Strip(STRING025, " ")
  204.             STRING026 = Strip(STRING026, ".")
  205.             STRING026 = Strip(STRING026, " ")
  206.             STRING025 = Left(STRING025, 3)
  207.             Goto LABEL006
  208.         Endif
  209.         :LABEL006
  210.         STRING035 = ReadLine(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".GRP", 1)
  211.         If (Exist(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot")) Goto LABEL007
  212.         FCreate 3, PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot", 1, 0
  213.         FClose 3
  214.         :LABEL007
  215.         Gosub LABEL013
  216.         If (!Exist(PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".1")) STRING009 = YesChar()
  217.         If (STRING006 == U_Name()) STRING009 = YesChar()
  218.         If (STRING009 == "") Then
  219.             Inc STRING001
  220.             Inc INTEGER003
  221.             If (INTEGER003 == 1) Gosub LABEL011
  222.             If (INTEGER003 <= 13) Then
  223.                 Gosub LABEL012
  224.                 Goto LABEL008
  225.             Endif
  226.             Dec INTEGER003
  227.             Dec STRING001
  228.             :LABEL008
  229.             FClose 2
  230.             Goto LABEL009
  231.         Endif
  232.         FClose 2
  233.         :LABEL009
  234.         Goto LABEL005
  235.         :LABEL010
  236.         Goto LABEL017
  237.         :LABEL011
  238.         StartDisp 1
  239.         Cls
  240.         AnsiPos 6, 1
  241.         PrintLn "@POS:18@" + STRING008
  242.         AnsiPos 9, 2
  243.         PrintLn STRING051
  244.         AnsiPos 35, 3
  245.         PrintLn STRING052
  246.         AnsiPos 6, 4
  247.         PrintLn "@POS:13@" + STRING048 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  248.         AnsiPos 6, 5
  249.         PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "  UserName/Handle               Location/Group             " + STRING048 + "█"
  250.         AnsiPos 6, 6
  251.         PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "─────────────────────────────┬─────────────────────────────" + STRING048 + "█"
  252.         AnsiPos 6, 7
  253.         PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "                             │                             " + STRING048 + "█"
  254.         Return
  255.         :LABEL012
  256.         AnsiPos 6, STRING001
  257.         PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "    " + STRING006 + "@POS:43@│    " + STRING035 + "@POS:73@" + STRING048 + "█"
  258.         Return
  259.         :LABEL013
  260.         STRING017 = 0
  261.         STRING018 = 0
  262.         STRING015 = ReadLine(PPEPath() + "check.cnf", 2)
  263.         STRING016 = ReadLine(PPEPath() + "check.cnf", 3)
  264.         FOpen 2, PPEPath() + "apps\" + STRING025 + "_" + STRING026 + ".vot", 0, 0
  265.         :LABEL014
  266.         If (Ferr(2)) Goto LABEL015
  267.         FGet 2, STRING019
  268.         If (STRING019 == " ") Goto LABEL016
  269.         Tokenize STRING019
  270.         If (TokCount() == 4) Then
  271.             GetToken STRING020
  272.             GetToken STRING021
  273.             GetToken STRING022
  274.             GetToken STRING023
  275.             If (STRING023 == "Y") Inc STRING017
  276.             If (STRING023 == "N") Inc STRING018
  277.             If (((U_Name() == STRING020 + " " + STRING021 + " " + STRING022) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
  278.                 STRING009 = YesChar()
  279.                 FClose 2
  280.                 Return
  281.             Endif
  282.         Endif
  283.         If (TokCount() == 3) Then
  284.             GetToken STRING020
  285.             GetToken STRING021
  286.             GetToken STRING023
  287.             If (STRING023 == "Y") Inc STRING017
  288.             If (STRING023 == "N") Inc STRING018
  289.             If (((U_Name() == STRING020 + " " + STRING021) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
  290.                 STRING009 = YesChar()
  291.                 FClose 2
  292.             Endif
  293.         Endif
  294.         If (TokCount() == 2) Then
  295.             GetToken STRING020
  296.             GetToken STRING023
  297.             If (STRING023 == "Y") Inc STRING017
  298.             If (STRING023 == "N") Inc STRING018
  299.             If (((U_Name() == STRING020) || (STRING017 >= STRING015)) || (STRING018 >= STRING016)) Then
  300.                 STRING009 = YesChar()
  301.                 FClose 2
  302.             Endif
  303.         Endif
  304.         Goto LABEL014
  305.         :LABEL015
  306.         Return
  307.         :LABEL016
  308.         Return
  309.         :LABEL017
  310.         If ((INTEGER003 == 0) && (STRING036 == S2I(STRING043, 34))) Then
  311.             Goto LABEL035
  312.         Endif
  313.         If ((INTEGER003 == 0) && (STRING036 <> S2I(STRING043, 34))) Then
  314.             Gosub LABEL011
  315.         Endif
  316.         Inc STRING001
  317.         AnsiPos 6, STRING001
  318.         PrintLn "@POS:13@" + STRING048 + "█" + STRING047 + "    Quit New User Voting.    │                             " + STRING048 + "█"
  319.         Inc STRING001
  320.         AnsiPos 6, STRING001
  321.         PrintLn "@POS:13@" + STRING048 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  322.         FClose 1
  323.         If (STRING036 == S2I(STRING043, 34)) Goto LABEL018
  324.         If (STRING044 <> 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
  325.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  326.             PrintLn "@X8FYou tried to HACK this PPE Registration is Cheap"
  327.             Goto LABEL035
  328.         Endif
  329.         If (Date() >= DATE001) Then
  330.             PrintLn "@X8FThis PPE has Expired!!!"
  331.             Goto LABEL035
  332.         Endif
  333.         AnsiPos 48, 7
  334.         Print STRING044
  335.         :LABEL018
  336.         Inc STRING001
  337.         AnsiPos 6, STRING001
  338.         STRING033 = ""
  339.         STRING027 = GetY()
  340.         STRING001 = STRING027 - 2
  341.         KbdStuff Chr(32)
  342.         :LABEL019
  343.         If (BOOLEAN001) Goto LABEL022
  344.         STRING010 = Inkey()
  345.         If (STRING010 == Chr(13)) Then
  346.             STRING002 = RTrim(ScrText(18, STRING001 + 1, 25, 0), " ")
  347.             If (STRING002 <> "Quit New User Voting.") Then
  348.                 STRING013 = STRING002
  349.                 Goto LABEL023
  350.             Endif
  351.             If (((STRING002 == "Quit New User Voting.") && (STRING055 <> NoChar())) && (STRING036 == S2I(STRING043, 34))) Then
  352.                 DefColor
  353.                 Cls
  354.                 AnsiPos 10, 3
  355.                 PrintLn STRING056
  356.                 Newline
  357.                 Wait
  358.                 Goto LABEL004
  359.                 Goto LABEL020
  360.             Endif
  361.             Goto LABEL035
  362.             :LABEL020
  363.             If (STRING002 == "Quit New User Voting.") Then
  364.                 Goto LABEL035
  365.             Endif
  366.         Endif
  367.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
  368.             AnsiPos 18, STRING001
  369.             If (STRING003 == STRING027 - 2) Then
  370.                 Print STRING033
  371.                 AnsiPos 18, STRING001
  372.                 Goto LABEL021
  373.             Endif
  374.             AnsiPos 18, STRING001 + 1
  375.             Print STRING033
  376.             :LABEL021
  377.             If (STRING001 == 7) STRING001 = STRING001 + INTEGER003 + 1
  378.             AnsiPos 18, STRING001
  379.             STRING033 = ScrText(18, STRING001, 25, 1)
  380.             Print STRING049 + RTrim(ScrText(18, STRING001, 25, 0), " ")
  381.             Dec STRING001
  382.         Endif
  383.         Goto LABEL019
  384.         :LABEL022
  385.         :LABEL023
  386.         STRING012 = 1
  387.         STRING011 = 6
  388.         Inc STRING001
  389.         Tokenize STRING013
  390.         If (TokCount() == 3) Then
  391.             GetToken STRING003
  392.             GetToken STRING004
  393.             GetToken STRING005
  394.             STRING003 = Strip(STRING003, " ")
  395.             STRING004 = Strip(STRING004, " ")
  396.             STRING003 = Strip(STRING003, ".")
  397.             STRING004 = Strip(STRING004, ".")
  398.             STRING003 = Left(STRING003, 3)
  399.             STRING004 = Right(STRING005, 4)
  400.         Endif
  401.         If (TokCount() == 2) Then
  402.             GetToken STRING003
  403.             GetToken STRING004
  404.             STRING003 = Strip(STRING003, " ")
  405.             STRING004 = Strip(STRING004, " ")
  406.             STRING003 = Strip(STRING003, ".")
  407.             STRING004 = Strip(STRING004, ".")
  408.             STRING003 = Left(STRING003, 3)
  409.             STRING004 = Right(STRING004, 4)
  410.         Endif
  411.         If (TokCount() == 1) Then
  412.             GetToken STRING003
  413.             GetToken STRING004
  414.             STRING003 = Strip(STRING003, " ")
  415.             STRING004 = Strip(STRING004, " ")
  416.             STRING003 = Strip(STRING003, ".")
  417.             STRING004 = Strip(STRING004, ".")
  418.             STRING003 = Left(STRING003, 3)
  419.             STRING004 = Right(STRING004, 4)
  420.         Endif
  421.         FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  422.         FGet 1, STRING037
  423.         INTEGER004 = STRING037
  424.         FClose 1
  425.         STRING039 = 0
  426.         DefColor
  427.         Cls
  428.         AnsiPos 2, 3
  429.         PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  430.         AnsiPos 24, 4
  431.         PrintLn STRING048 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  432.         AnsiPos 24, 5
  433.         PrintLn STRING048 + "█" + STRING047 + "                         " + STRING048 + "█@X07"
  434.         For STRING040 = 1 To STRING037
  435.             If ((STRING045 == STRING040) && (U_Sec < STRING046)) Then
  436.                 Goto LABEL024
  437.                 Goto LABEL024
  438.             Endif
  439.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING040)) Then
  440.                 AnsiPos 24, STRING011
  441.                 PrintLn STRING048 + "█" + STRING047 + "  View Users InfoForm " + STRING012 + "  " + STRING048 + "█@X07"
  442.                 Inc STRING011
  443.                 Inc STRING039
  444.             Endif
  445.             :LABEL024
  446.             Inc STRING012
  447.         Next
  448.         STRING037 = STRING039
  449.         AnsiPos 24, STRING011
  450.         PrintLn STRING048 + "█" + STRING047 + "  Quit Infoform Viewing  " + STRING048 + "█@X07"
  451.         Inc STRING011
  452.         AnsiPos 24, STRING011
  453.         PrintLn STRING048 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  454.         STRING027 = GetY()
  455.         INTEGER002 = 6
  456.         STRING033 = ""
  457.         KbdStuff Chr(32)
  458.         If (STRING039 == 1) KbdStuff Chr(13)
  459.         :LABEL025
  460.         If (BOOLEAN001) Goto LABEL027
  461.         STRING010 = Inkey()
  462.         If (STRING010 == Chr(13)) Then
  463.             STRING038 = Left(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  464.             STRING038 = STRING038 + Right(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  465.             STRING038 = Right(STRING038, 1)
  466.             Goto LABEL027
  467.         Endif
  468.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
  469.             AnsiPos 27, STRING003
  470.             If (INTEGER002 == STRING027 - STRING039 + 1) Then
  471.                 Print STRING033
  472.                 Goto LABEL026
  473.             Endif
  474.             AnsiPos 27, INTEGER002 + 1
  475.             Print STRING033
  476.             :LABEL026
  477.             AnsiPos 27, INTEGER002
  478.             If (INTEGER002 == 5) INTEGER002 = INTEGER002 + STRING039 + 1
  479.             AnsiPos 27, INTEGER002
  480.             STRING033 = ScrText(27, INTEGER002, 21, 1) + "@X08"
  481.             AnsiPos 27, INTEGER002
  482.             Print STRING049 + ScrText(27, INTEGER002, 21, 0) + "@X08"
  483.             Dec INTEGER002
  484.         Endif
  485.         Goto LABEL025
  486.         :LABEL027
  487.         If (STRING038 == "g") Goto LABEL004
  488.         Cls
  489.         StartDisp 1
  490.         DispFile PPEPath() + "tht-info." + STRING038, 0
  491.         FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING038, 0, 0
  492.         FDGet STRING019
  493.         FDGet STRING019
  494.         FDGet STRING019
  495.         FDGet STRING019
  496.         FDGet STRING019
  497.         FDGet STRING019
  498.         FClose 2
  499.         FOpen 2, PPEPath() + "infocfg." + STRING038, 0, 0
  500.         FGet 2, STRING007
  501.         FGet 2, STRING007
  502.         :LABEL028
  503.         If (Ferr(1)) Goto LABEL029
  504.         FGet 2, STRING007
  505.         Tokenize STRING007
  506.         GetToken INTEGER001
  507.         GetToken INTEGER002
  508.         FDGet STRING024
  509.         AnsiPos INTEGER001, INTEGER002
  510.         PrintLn STRING024
  511.         Goto LABEL028
  512.         :LABEL029
  513.         FClose 1
  514.         FClose 2
  515.         :LABEL030
  516.         AnsiPos 6, 23
  517.         InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided  _", STRING002, "", 1, "YNU", 4 + 2 + 8
  518.         If (STRING002 == "") Then
  519.             Goto LABEL030
  520.         Endif
  521.         If (STRING002 <> "U") Goto LABEL031
  522.         If (STRING002 == "U") Then
  523.             Goto LABEL032
  524.         Endif
  525.         :LABEL031
  526.         FClose 1
  527.         FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  528.         FPutLn 1, U_Name() + " " + STRING002
  529.         FClose 1
  530.         :LABEL032
  531.         Cls
  532.         AnsiPos 6, 3
  533.         If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL033
  534.         PrintLn STRING029
  535.         FreshLine
  536.         Wait
  537.         Goto LABEL034
  538.         :LABEL033
  539.         AnsiPos 6, 4
  540.         InputYN STRING028, STRING031, ""
  541.         If (STRING031 == YesChar()) Then
  542.             FreshLine
  543.             DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
  544.         Endif
  545.         FreshLine
  546.         Wait
  547.         :LABEL034
  548.         If ((STRING002 == "U") && (STRING039 > 1)) Goto LABEL023
  549.         If ((STRING002 == "U") && (STRING039 == 1)) Goto LABEL004
  550.         Cls
  551.         AnsiPos 6, 5
  552.         STRING031 = ""
  553.         InputYN STRING030, STRING031, ""
  554.         If (STRING031 == YesChar()) Then
  555.             AnsiPos 6, 6
  556.             STRING002 = ""
  557.             InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
  558.             If (STRING002 == "") Goto LABEL004
  559.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
  560.             FPutLn 1, "@X0C" + U_Name() + "@X09 >@X0F " + STRING002
  561.         Endif
  562.         FClose 1
  563.         Goto LABEL004
  564.     Endif
  565.     :LABEL035
  566.     BOOLEAN001 = 1
  567.     DefColor
  568.     STRING014 = "Do Not HEX-Edit This PPE, You will be Sorry"
  569.     Cls
  570.     End
  571.  
  572. ;------------------------------------------------------------------------------
  573. ;
  574. ; Usage report (before postprocessing)
  575. ;
  576. ; ■ Statements used :
  577. ;
  578. ;    1       End
  579. ;    8       Cls
  580. ;    3       Wait
  581. ;    96      Goto 
  582. ;    104     Let 
  583. ;    7       Print 
  584. ;    22      PrintLn 
  585. ;    75      If 
  586. ;    3       DispFile 
  587. ;    1       FCreate 
  588. ;    7       FOpen 
  589. ;    2       FAppend 
  590. ;    19      FClose 
  591. ;    6       FGet 
  592. ;    2       FPutLn 
  593. ;    2       StartDisp 
  594. ;    1       GetUser
  595. ;    4       DefColor
  596. ;    2       Delete 
  597. ;    2       InputStr 
  598. ;    3       InputYN 
  599. ;    4       Gosub 
  600. ;    5       Return
  601. ;    17      Inc 
  602. ;    4       Dec 
  603. ;    2       Newline
  604. ;    4       Tokenize 
  605. ;    25      GetToken 
  606. ;    3       KbdStuff 
  607. ;    35      AnsiPos 
  608. ;    3       FreshLine
  609. ;    1       FDefIn 
  610. ;    24      FDGet 
  611. ;
  612. ;
  613. ; ■ Functions used :
  614. ;
  615. ;    429     +
  616. ;    3       -
  617. ;    71      ==
  618. ;    6       <>
  619. ;    7       <
  620. ;    5       <=
  621. ;    2       >
  622. ;    15      >=
  623. ;    50      !
  624. ;    17      &&
  625. ;    26      ||
  626. ;    2       Len(
  627. ;    3       Upper()
  628. ;    7       Left()
  629. ;    9       Right()
  630. ;    4       Ferr()
  631. ;    259     Chr()
  632. ;    2       RTrim()
  633. ;    1       Date()
  634. ;    6       U_Name()
  635. ;    2       NoChar()
  636. ;    8       YesChar()
  637. ;    30      Strip()
  638. ;    2       Inkey()
  639. ;    1       Mask_Ascii()
  640. ;    2       PCBDat()
  641. ;    24      PPEPath()
  642. ;    5       ReadLine()
  643. ;    1       CurSec()
  644. ;    6       Exist()
  645. ;    6       S2I()
  646. ;    2       GetY()
  647. ;    5       PPEName()
  648. ;    9       TokCount()
  649. ;    7       ScrText()
  650. ;
  651. ;------------------------------------------------------------------------------
  652. ;
  653. ; Analysis flags : d
  654. ;
  655. ; d - Access PCBOARD.DAT ■ 2
  656. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  657. ;     for many PPE so they can find various informations on the system
  658. ;     (system paths, max number of lines in messages, ...) but it may also
  659. ;     be a way to gather vital informations.
  660. ;     ■ Search for : PCBDAT()
  661. ;
  662. ;------------------------------------------------------------------------------
  663. ;
  664. ; Postprocessing report
  665. ;
  666. ;    4       For/Next
  667. ;    0       While/EndWhile
  668. ;    36      If/Then or If/Then/Else
  669. ;    0       Select Case
  670. ;
  671. ;------------------------------------------------------------------------------
  672. ;                 AEGiS Corp - Break the routines, code against the machines!
  673. ;------------------------------------------------------------------------------
  674.