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