home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / BBS-PCBOARD-STUFF / BCNUK080.ZIP / MAIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-12-23  |  42KB  |  2,957 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Boolean  BOOLEAN015
  34.     Boolean  BOOLEAN016
  35.     Boolean  BOOLEAN017
  36.     Boolean  BOOLEAN018
  37.     Boolean  BOOLEAN019
  38.     Boolean  BOOLEAN020
  39.     Boolean  BOOLEAN021
  40.     Boolean  BOOLEAN022
  41.     Boolean  BOOLEAN023
  42.     Boolean  BOOLEAN024
  43.     Boolean  BOOLEAN025
  44.     Boolean  BOOLEAN026
  45.     Boolean  BOOLEAN027
  46.     Boolean  BOOLEAN028
  47.     Boolean  BOOLEAN029
  48.     Boolean  BOOLEAN030
  49.     Boolean  BOOLEAN031
  50.     Boolean  BOOLEAN032
  51.     Boolean  BOOLEAN033
  52.     Boolean  BOOLEAN034
  53.     Boolean  BOOLEAN035
  54.     Boolean  BOOLEAN036
  55.     Boolean  BOOLEAN037
  56.     Boolean  BOOLEAN038
  57.     Integer  INTEGER001
  58.     Integer  INTEGER002
  59.     Integer  INTEGER003
  60.     Integer  INTEGER004
  61.     Integer  INTEGER005
  62.     Integer  INTEGER006
  63.     Integer  INTEGER007
  64.     Integer  INTEGER008
  65.     Integer  INTEGER009
  66.     Integer  INTEGER010
  67.     Integer  INTEGER011
  68.     Integer  INTEGER012
  69.     Integer  INTEGER013
  70.     Integer  INTEGER014
  71.     Integer  INTEGER015
  72.     Integer  INTEGER016
  73.     Integer  INTEGER017
  74.     Integer  INTEGER018
  75.     Integer  INTEGER019
  76.     Integer  INTEGER020
  77.     Integer  INTEGER021
  78.     Integer  INTEGER022
  79.     Integer  INTEGER023
  80.     Integer  INTEGER024
  81.     Integer  INTEGER025
  82.     Integer  INTEGER026
  83.     Integer  INTEGER027
  84.     Integer  INTEGER028
  85.     Integer  INTEGER029
  86.     Integer  INTEGER030
  87.     String   STRING001
  88.     String   STRING002
  89.     String   STRING003
  90.     String   STRING004
  91.     String   STRING005
  92.     String   STRING006
  93.     String   STRING007
  94.     String   STRING008
  95.     String   STRING009
  96.     String   STRING010
  97.     String   TSTRING011(5)
  98.     String   TSTRING012(60)
  99.     String   STRING013
  100.     String   STRING014
  101.     String   STRING015
  102.     String   STRING016
  103.     String   STRING017
  104.     String   STRING018
  105.     String   STRING019
  106.     String   STRING020
  107.     String   STRING021
  108.     String   STRING022
  109.     String   STRING023
  110.     String   STRING024
  111.     String   STRING025
  112.     String   STRING026
  113.     String   STRING027
  114.     String   STRING028
  115.     String   STRING029
  116.     String   TSTRING030(3)
  117.     String   STRING031
  118.     String   STRING032
  119.     String   STRING033
  120.     String   TSTRING034(20)
  121.     String   TSTRING035(20)
  122.     String   STRING036
  123.     String   STRING037
  124.     String   STRING038
  125.     String   STRING039
  126.     String   STRING040
  127.     String   STRING041
  128.     String   STRING042
  129.     String   STRING043
  130.     String   STRING044
  131.     String   STRING045
  132.     String   STRING046
  133.     String   TSTRING047(15)
  134.     String   TSTRING048(15)
  135.     String   STRING049
  136.     String   STRING050
  137.     String   STRING051
  138.     String   STRING052
  139.     String   STRING053
  140.     String   STRING054
  141.     String   STRING055
  142.     String   STRING056
  143.     String   STRING057
  144.     String   STRING058
  145.     String   TSTRING059(60)
  146.     String   STRING060
  147.     String   STRING061
  148.     String   STRING062
  149.     String   STRING063
  150.     String   TSTRING064(8)
  151.     String   STRING065
  152.     String   STRING066
  153.     String   STRING067
  154.     String   STRING068
  155.     Int      INT001
  156.     Int      INT002
  157.     Int      INT003
  158.     Int      INT004
  159.     Int      INT005
  160.     Int      INT006
  161.     Int      INT007
  162.     Int      INT008
  163.     Int      INT009
  164.     Int      INT010
  165.     Int      TINT011(20)
  166.     Int      TINT012(20)
  167.     Int      INT013
  168.     Int      INT014
  169.     Int      INT015
  170.     Int      INT016
  171.     Int      INT017
  172.     Int      INT018
  173.     Int      INT019
  174.     Int      INT020
  175.     Int      INT021
  176.     Int      INT022
  177.     Int      INT023
  178.     Int      INT024
  179.     BigStr   TBIGSTR001(8)
  180.     Double   DOUBLE001
  181.  
  182. ;------------------------------------------------------------------------------
  183.  
  184.     INT001 = String(PCBMac("@NUMDIR@"))
  185.     STRING008 = ReadLine(PCBDat(), 46)
  186.     STRING013 = ReadLine(PCBDat(), 33)
  187.     STRING018 = PPEPath() + "graph\text"
  188.     STRING015 = PPEPath() + "nuke.cfg"
  189.     TSTRING030(0) = ReadLine(STRING018, 15)
  190.     TSTRING030(1) = ReadLine(STRING018, 16)
  191.     TSTRING030(2) = ReadLine(STRING018, 17)
  192.     TSTRING030(3) = ReadLine(STRING018, 18)
  193.     STRING003 = ReadLine(STRING018, 6)
  194.     STRING005 = ReadLine(STRING018, 7)
  195.     STRING006 = ReadLine(STRING018, 8)
  196.     STRING007 = ReadLine(STRING018, 9)
  197.     Log "BlackCat NUKE started at (" + String(Time()) + ")", 0
  198.     FreshLine
  199.     PrintLn "@X07Nuke v@X0F0.80 @X07(@X0FC@X07) BlackCat 1994"
  200.     STRING025 = ReadLine(STRING015, 1)
  201.     If (Upper(STRING025) == "N") Then
  202.         BOOLEAN026 = 0
  203.     Else
  204.         BOOLEAN026 = 1
  205.     Endif
  206.     Tokenize ReadLine(STRING015, 2)
  207.     INT004 = GetToken()
  208.     INT005 = GetToken()
  209.     STRING026 = ReadLine(STRING015, 3)
  210.     STRING027 = Upper(ReadLine(STRING015, 4))
  211.     STRING031 = ReadLine(STRING015, 6)
  212.     If (Upper(ReadLine(STRING015, 7)) == "YES") Then
  213.         BOOLEAN027 = 1
  214.     Else
  215.         BOOLEAN027 = 0
  216.     Endif
  217.     Gosub LABEL142
  218.     INTEGER009 = ReadLine(STRING015, 10)
  219.     If (Upper(ReadLine(STRING015, 11)) == "YES") Then
  220.         BOOLEAN028 = 1
  221.     Else
  222.         BOOLEAN028 = 0
  223.     Endif
  224.     If (Upper(ReadLine(STRING015, 12)) == "YES") Then
  225.         BOOLEAN025 = 1
  226.         STRING019 = ReadLine(STRING015, 13)
  227.     Else
  228.         BOOLEAN025 = 0
  229.     Endif
  230.     Tokenize ReadLine(STRING015, 14)
  231.     If (GetToken() == "YES") Then
  232.         BOOLEAN009 = 1
  233.     Else
  234.         BOOLEAN009 = 0
  235.     Endif
  236.     If (GetToken() == "YES") Then
  237.         BOOLEAN010 = 1
  238.     Else
  239.         BOOLEAN010 = 0
  240.     Endif
  241.     If (GetToken() == "YES") Then
  242.         INT003 = 2
  243.     Else
  244.         INT003 = 1
  245.     Endif
  246.     STRING032 = PPEPath() + "work\bcnk" + String(CurConf()) + "." + String(PcbNode())
  247.     If (Exist(STRING032)) Then
  248.         If (Upper(ReadLine(STRING032, 1)) <> Upper(U_Name())) Then
  249.             FClose -1
  250.             Delete STRING032
  251.         Endif
  252.     Endif
  253.     BOOLEAN029 = 0
  254.     INT009 = 1
  255.     Goto LABEL005
  256.     :LABEL001
  257.     DefColor
  258.     Print STRING005
  259.     INT013 = GetX()
  260.     INT014 = GetY()
  261.     For INT010 = 1 To INT007
  262.         TINT011(INT010) = GetX()
  263.         TINT012(INT010) = GetY()
  264.         Print TSTRING034(INT010)
  265.         If (INT006 == 1) Then
  266.             If (INT010 == INT007) Then
  267.                 Print STRING007
  268.             Else
  269.                 Print STRING006
  270.             Endif
  271.         Else
  272.             AnsiPos INT013, GetY() + 1
  273.         Endif
  274.         TSTRING035(INT010) = Left(Strip(StripAtx(TSTRING034(INT010)), " "), 1)
  275.     Next
  276.     INT008 = INT009
  277.     Gosub LABEL004
  278.     Print STRING003, StripAtx(TSTRING034(INT008))
  279.     :LABEL002
  280.     STRING004 = Inkey()
  281.     Select Case (STRING004)
  282.         Case Chr(13)
  283.             DefColor
  284.             Return
  285.         Case "RIGHT", "DOWN", "."
  286.             Gosub LABEL004
  287.             Print TSTRING034(INT008)
  288.             If (INT008 == INT007) Then
  289.                 INT008 = 1
  290.             Else
  291.                 Inc INT008
  292.             Endif
  293.             Gosub LABEL004
  294.             Print STRING003, StripAtx(TSTRING034(INT008))
  295.         Case "LEFT", "UP", ","
  296.             Gosub LABEL004
  297.             Print TSTRING034(INT008)
  298.             If (INT008 == 1) Then
  299.                 INT008 = INT007
  300.             Else
  301.                 Dec INT008
  302.             Endif
  303.             Gosub LABEL004
  304.             Print STRING003, StripAtx(TSTRING034(INT008))
  305.         Case "END"
  306.             Gosub LABEL004
  307.             Print TSTRING034(INT008)
  308.             INT008 = INT007
  309.             Gosub LABEL004
  310.             Print STRING003, StripAtx(TSTRING034(INT008))
  311.         Case "HOME"
  312.             Gosub LABEL004
  313.             Print TSTRING034(INT008)
  314.             INT008 = 1
  315.             Gosub LABEL004
  316.             Print STRING003, StripAtx(TSTRING034(INT008))
  317.         Case "?"
  318.             If (BOOLEAN022) Then
  319.                 SaveScrn
  320.                 STRING014 = PPEPath() + "help\"
  321.                 If (INT008 == 1) Then
  322.                     DispFile STRING014 + "nuke", 0
  323.                     Goto LABEL003
  324.                 Endif
  325.                 If (INT008 == 2) Then
  326.                     DispFile STRING014 + "award", 0
  327.                     Goto LABEL003
  328.                 Endif
  329.                 If (INT008 == 3) Then
  330.                     DispFile STRING014 + "delete", 0
  331.                     Goto LABEL003
  332.                 Endif
  333.                 If (INT008 == 4) Then
  334.                     DispFile STRING014 + "skip", 0
  335.                     Goto LABEL003
  336.                 Endif
  337.                 If (INT008 == 5) Then
  338.                     DispFile STRING014 + "edit", 0
  339.                     Goto LABEL003
  340.                 Endif
  341.                 If (INT008 == 6) Then
  342.                     DispFile STRING014 + "free", 0
  343.                     Goto LABEL003
  344.                 Endif
  345.                 If (INT008 == 7) Then
  346.                     DispFile STRING014 + "comment", 0
  347.                     Goto LABEL003
  348.                 Endif
  349.                 If (INT008 == 8) Then
  350.                     DispFile STRING014 + "quit", 0
  351.                 Endif
  352.                 :LABEL003
  353.                 Wait
  354.                 RestScrn
  355.             Endif
  356.         Case ""
  357.             For INT010 = 1 To INT007
  358.                 If (Upper(STRING004) == Upper(TSTRING035(INT010))) Then
  359.                     Gosub LABEL004
  360.                     Print TSTRING034(INT008)
  361.                     INT008 = INT010
  362.                     Gosub LABEL004
  363.                     Print STRING003, StripAtx(TSTRING034(INT008))
  364.                     KbdStuff Chr(13)
  365.                 Endif
  366.             Next
  367.     End Select
  368.     Goto LABEL002
  369.     :LABEL004
  370.     INT015 = GetX()
  371.     If (INT015 > TINT011(INT008)) Then
  372.         Backup INT015 - TINT011(INT008)
  373.     ElseIf (INT015 < TINT011(INT008)) Then
  374.         Forward TINT011(INT008) - INT015
  375.     Endif
  376.     Return
  377.     :LABEL005
  378.     If (Exist(STRING041)) Then
  379.         PrintLn "@X0CSorry, but the nuker is being run on another node, try again later.."
  380.         End
  381.     Endif
  382.     STRING041 = PPEPath() + "running"
  383.     FCreate 1, STRING041, 1, 3
  384.     FClose 1
  385.     Gosub LABEL031
  386.     Gosub LABEL030
  387.     End
  388.     :LABEL006
  389.     Gosub LABEL054
  390.     If (BOOLEAN006) Then
  391.         STRING002 = ""
  392.         InputStr "@X07Enter wildcard (enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
  393.         If (STRING002 == "") Return
  394.     Endif
  395.     If (BOOLEAN031) Then
  396.         BOOLEAN031 = 0
  397.         Return
  398.     Endif
  399.     Gosub LABEL032
  400.     If (BOOLEAN006) Then
  401.         STRING037 = ReadLine(PPEPath() + "work\tblst", 1)
  402.         STRING038 = STRING033 + "\" + STRING037
  403.     Endif
  404.     If (BOOLEAN033) Goto LABEL007
  405.     FreshLine
  406.     If (BOOLEAN008) Then
  407.         BOOLEAN011 = 0
  408.         BOOLEAN031 = 0
  409.         Return
  410.     Endif
  411.     Print ReadLine(STRING018, 95)
  412.     Gosub LABEL068
  413.     If (INT008 == 2) Then
  414.         BOOLEAN011 = 0
  415.         BOOLEAN031 = 0
  416.         Return
  417.     Endif
  418.     Goto LABEL006
  419.     :LABEL007
  420.     Gosub LABEL076
  421.     Gosub LABEL077
  422.     If (BOOLEAN015) Goto LABEL008
  423.     STRING029 = "NONAME"
  424.     :LABEL008
  425.     Gosub LABEL061
  426.     If (BOOLEAN021) Then
  427.         If (BOOLEAN004) Goto LABEL009
  428.         FreshLine
  429.         PrintLn ReadLine(STRING018, 109)
  430.         BOOLEAN021 = 0
  431.         Goto LABEL008
  432.         :LABEL009
  433.         Gosub LABEL023
  434.         If (BOOLEAN031) Then
  435.             FreshLine
  436.             Newline
  437.             BOOLEAN021 = 0
  438.             BOOLEAN031 = 0
  439.             Goto LABEL008
  440.         Endif
  441.         If (BOOLEAN008) Then
  442.             Copy PPEPath() + "work\tblst", PPEPath() + "work\tbbyte"
  443.         Endif
  444.         Gosub LABEL026
  445.         Gosub LABEL035
  446.         Gosub LABEL021
  447.         BOOLEAN021 = 0
  448.         Wait
  449.         If (BOOLEAN008) Return
  450.     Endif
  451.     If (BOOLEAN014) Then
  452.         BOOLEAN014 = 0
  453.         Goto LABEL006
  454.     Endif
  455.     If (BOOLEAN018) Then
  456.         If (BOOLEAN003) Goto LABEL010
  457.         FreshLine
  458.         PrintLn ReadLine(STRING018, 110)
  459.         BOOLEAN018 = 0
  460.         Goto LABEL008
  461.         :LABEL010
  462.         Gosub LABEL143
  463.         If (BOOLEAN019) Then
  464.             BOOLEAN018 = 0
  465.             BOOLEAN019 = 0
  466.             FreshLine
  467.             Newline
  468.             Goto LABEL008
  469.         Endif
  470.         If (BOOLEAN008) Then
  471.             Copy PPEPath() + "work\tblst", PPEPath() + "work\tbbyte"
  472.         Endif
  473.         Gosub LABEL026
  474.         Gosub LABEL035
  475.         BOOLEAN018 = 0
  476.         Gosub LABEL022
  477.         Wait
  478.         If (BOOLEAN008) Return
  479.         Goto LABEL006
  480.     Endif
  481.     If (BOOLEAN016) Then
  482.         If (BOOLEAN002) Goto LABEL011
  483.         FreshLine
  484.         PrintLn ReadLine(STRING018, 111)
  485.         BOOLEAN016 = 0
  486.         Goto LABEL008
  487.         :LABEL011
  488.         Gosub LABEL111
  489.         If (BOOLEAN017) Then
  490.             BOOLEAN016 = 0
  491.             Newline
  492.             Goto LABEL008
  493.         Endif
  494.         Gosub LABEL026
  495.         Gosub LABEL035
  496.         Gosub LABEL020
  497.         BOOLEAN016 = 0
  498.         Wait
  499.         If (BOOLEAN008) Return
  500.         Goto LABEL006
  501.     Endif
  502.     If (BOOLEAN031) Then
  503.         BOOLEAN031 = 0
  504.         Return
  505.     Endif
  506.     If (BOOLEAN030) Goto LABEL012
  507.     Goto LABEL006
  508.     :LABEL012
  509.     If (BOOLEAN001) Goto LABEL013
  510.     FreshLine
  511.     PrintLn ReadLine(STRING018, 112)
  512.     BOOLEAN030 = 0
  513.     Goto LABEL008
  514.     :LABEL013
  515.     If (BOOLEAN033) Goto LABEL014
  516.     Goto LABEL006
  517.     :LABEL014
  518.     Gosub LABEL023
  519.     If (BOOLEAN031) Then
  520.         BOOLEAN031 = 0
  521.         Goto LABEL008
  522.     Endif
  523.     Gosub LABEL115
  524.     If (BOOLEAN031) Then
  525.         BOOLEAN031 = 0
  526.         Goto LABEL008
  527.     Endif
  528.     Gosub LABEL026
  529.     Gosub LABEL119
  530.     Gosub LABEL035
  531.     Gosub LABEL089
  532.     Gosub LABEL015
  533.     If (BOOLEAN008) Return
  534.     Goto LABEL006
  535.     Return
  536.     :LABEL015
  537.     If (BOOLEAN008) Then
  538.         STRING021 = PPEPath() + "work\tbbyte"
  539.         INTEGER001 = 1
  540.         Tokenize ReadLine(STRING021, INTEGER001)
  541.         STRING022 = GetToken()
  542.         INTEGER002 = GetToken()
  543.         Gosub LABEL127
  544.         FAppend 3, PPEPath() + "nuke.log", 1, 0
  545.         If (BOOLEAN028) Then
  546.             STRING023 = PPEPath() + "nukelst"
  547.             If (Exist(STRING023)) Goto LABEL016
  548.             FCreate 1, STRING023, 1, 0
  549.             Goto LABEL017
  550.             :LABEL016
  551.             FAppend 1, STRING023, 1, 0
  552.         Endif
  553.         :LABEL017
  554.         While (STRING022 <> "") Do
  555.             STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "NUKE " + " " + Left(U_Name(), 20) + " " + Left(INTEGER002, 15)
  556.             FPutLn 3, STRING024
  557.             Inc INTEGER001
  558.             If (BOOLEAN028) Then
  559.                 FPutLn 1, Upper(STRING029) + "," + String(INTEGER002) + "," + "1"
  560.             Endif
  561.             Tokenize ReadLine(STRING021, INTEGER001)
  562.             STRING022 = GetToken()
  563.             INTEGER002 = GetToken()
  564.         EndWhile
  565.         FClose 3
  566.         If (BOOLEAN028) FClose 1
  567.         Return
  568.     Endif
  569.     STRING024 = Left(STRING037, 12) + " " + Left(STRING029, 20) + " " + "NUKE " + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
  570.     Gosub LABEL129
  571.     If (BOOLEAN028) Then
  572.         STRING021 = PPEPath() + "nukelst"
  573.         If (Exist(STRING021)) Goto LABEL018
  574.         FCreate 1, STRING021, 1, 0
  575.         FPutLn 1, Upper(STRING029) + "," + String(INTEGER006) + "," + "1"
  576.         Goto LABEL019
  577.         :LABEL018
  578.         FAppend 1, STRING021, 1, 0
  579.         FPutLn 1, Upper(STRING029) + "," + String(INTEGER006) + "," + "1"
  580.         :LABEL019
  581.         FClose 1
  582.     Endif
  583.     Return
  584.     :LABEL020
  585.     If (BOOLEAN008) Then
  586.         STRING021 = PPEPath() + "work\tblst"
  587.         INTEGER001 = 1
  588.         Tokenize ReadLine(STRING021, INTEGER001)
  589.         STRING022 = GetToken()
  590.         INTEGER002 = GetToken()
  591.         Gosub LABEL127
  592.         FAppend 3, PPEPath() + "nuke.log", 1, 0
  593.         While (STRING022 <> "") Do
  594.             STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "AWARD" + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
  595.             FPutLn 3, STRING024
  596.             Inc INTEGER001
  597.             Tokenize ReadLine(STRING021, INTEGER001)
  598.             STRING022 = GetToken()
  599.             INTEGER002 = GetToken()
  600.         EndWhile
  601.         FClose 3
  602.         Return
  603.     Endif
  604.     STRING024 = Left(STRING037, 12) + " " + Left(STRING029, 20) + " " + "AWARD" + " " + Left(U_Name(), 20) + " " + Left(INTEGER006, 15)
  605.     Gosub LABEL129
  606.     Return
  607.     :LABEL021
  608.     If (BOOLEAN008) Then
  609.         STRING021 = PPEPath() + "work\tblst"
  610.         INTEGER001 = 1
  611.         Tokenize ReadLine(STRING021, INTEGER001)
  612.         STRING022 = GetToken()
  613.         INTEGER002 = GetToken()
  614.         Gosub LABEL127
  615.         FAppend 3, PPEPath() + "nuke.log", 1, 0
  616.         While (STRING022 <> "") Do
  617.             STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "CMT  " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
  618.             FPutLn 3, STRING024
  619.             Inc INTEGER001
  620.             Tokenize ReadLine(STRING021, INTEGER001)
  621.             STRING022 = GetToken()
  622.         EndWhile
  623.         FClose 3
  624.         Return
  625.     Endif
  626.     STRING024 = Left(STRING037, 12) + " " + Left(STRING029, 20) + " " + "CMT  " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
  627.     Gosub LABEL129
  628.     Return
  629.     :LABEL022
  630.     If (BOOLEAN008) Then
  631.         STRING021 = PPEPath() + "work\tblst"
  632.         INTEGER001 = 1
  633.         Tokenize ReadLine(STRING021, INTEGER001)
  634.         STRING022 = GetToken()
  635.         INTEGER002 = GetToken()
  636.         Gosub LABEL127
  637.         FAppend 3, PPEPath() + "nuke.log", 1, 0
  638.         While (STRING022 <> "") Do
  639.             STRING024 = Left(STRING022, 12) + " " + Left(STRING029, 20) + " " + "FREE " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
  640.             FPutLn 3, STRING024
  641.             Inc INTEGER001
  642.             Tokenize ReadLine(STRING021, INTEGER001)
  643.             STRING022 = GetToken()
  644.             INTEGER002 = GetToken()
  645.         EndWhile
  646.         FClose 3
  647.         Return
  648.     Endif
  649.     STRING024 = Left(STRING037, 12) + " " + Left(STRING029, 20) + " " + "FREE " + " " + Left(U_Name(), 20) + " " + Left("N/A", 15)
  650.     Gosub LABEL129
  651.     Return
  652.     :LABEL023
  653.     TSTRING011(1) = ""
  654.     BOOLEAN031 = 0
  655.     If (BOOLEAN030) Then
  656.         STRING042 = PPEPath() + "nuke.cmt"
  657.     ElseIf (BOOLEAN016) Then
  658.         STRING042 = PPEPath() + "award.cmt"
  659.     ElseIf (BOOLEAN021) Then
  660.         STRING042 = PPEPath() + "comment.cmt"
  661.     Endif
  662.     INT017 = ReadLine(STRING042, 1)
  663.     :LABEL024
  664.     DefColor
  665.     Cls
  666.     DispFile PPEPath() + "graph\cmthdr", 1 + 4
  667.     FreshLine
  668.     STRING021 = ReadLine(STRING015, 5)
  669.     For INTEGER012 = 1 To INT017
  670.         PrintLn ReplaceStr(ReplaceStr(STRING021, "@NR@", String(INTEGER012)), "@CMT@", ReadLine(STRING042, INTEGER012 + 1))
  671.     Next
  672.     PrintLn ReplaceStr(ReplaceStr(STRING021, "@NR@", Left(String(INT017 + 1), 2)), "@CMT@", ReadLine(STRING018, 19))
  673.     DispFile PPEPath() + "graph\cmtftr", 1 + 4
  674.     FreshLine
  675.     STRING036 = ""
  676.     InputStr ReplaceStr(ReadLine(STRING018, 20), "%FILE%", Upper(STRING037)) + "_", STRING036, 1, 15, "0123456789 ", 8
  677.     FreshLine
  678.     Newline
  679.     STRING036 = LTrim(STRING036, " ")
  680.     Select Case (STRING036)
  681.         Case ""
  682.             BOOLEAN031 = 1
  683.             Return
  684.         Case String(INT017 + 1)
  685.             STRING036 = ""
  686.             Gosub LABEL025
  687.             If (BOOLEAN023) Then
  688.                 PrintLn ReadLine(STRING018, 21)
  689.                 Delay 30
  690.                 Goto LABEL024
  691.             Endif
  692.         Case Else
  693.             Tokenize STRING036
  694.             If (TokCount() > 5) Then
  695.                 PrintLn "@X0CToo many comments selected, MAX 5"
  696.                 Delay 30
  697.                 Goto LABEL024
  698.             Endif
  699.             STRING021 = GetToken()
  700.             INTEGER001 = 1
  701.             INTEGER011 = 0
  702.             While (STRING021 <> "") Do
  703.                 If ((STRING021 > INT017) || (STRING036 < 1)) Then
  704.                     PrintLn "@X0CInvalid comment entered!!"
  705.                     Delay 30
  706.                     Goto LABEL024
  707.                 Else
  708.                     TSTRING011(INTEGER001) = ReadLine(STRING042, STRING021 + 1)
  709.                 Endif
  710.                 Inc INTEGER001
  711.                 STRING021 = GetToken()
  712.             EndWhile
  713.             INTEGER011 = INTEGER001 - 1
  714.     End Select
  715.     Return
  716.     :LABEL025
  717.     TSTRING011(1) = ""
  718.     BOOLEAN023 = 0
  719.     FreshLine
  720.     DispFile PPEPath() + "graph\owncmt", 0
  721.     For INTEGER012 = 1 To 5
  722.         STRING036 = ""
  723.         Print ReplaceStr(ReadLine(STRING018, 108), "%NR%", String(INTEGER012))
  724.         InputStr "_", STRING036, 1, 40, Mask_Pwd(), 2
  725.         If ((STRING036 == "") && (INTEGER012 == 1)) Then
  726.             BOOLEAN023 = 1
  727.             Return
  728.         ElseIf (STRING036 == "") Then
  729.             INTEGER011 = INTEGER012 - 1
  730.             Return
  731.         Else
  732.             TSTRING011(INTEGER012) = STRING036
  733.         Endif
  734.         FreshLine
  735.     Next
  736.     Return
  737.     :LABEL026
  738.     FClose -1
  739.     BOOLEAN034 = 1
  740.     PrintLn "@X07Writing description message"
  741.     If (BOOLEAN016) Then
  742.         FOpen 3, PPEPath() + "graph\award.msg", 0, 0
  743.         STRING044 = ReadLine(STRING018, 33)
  744.     ElseIf (BOOLEAN018) Then
  745.         FOpen 3, PPEPath() + "graph\free.msg", 0, 0
  746.         STRING044 = ReadLine(STRING018, 105)
  747.     ElseIf (BOOLEAN021) Then
  748.         FOpen 3, PPEPath() + "graph\comment.msg", 0, 0
  749.         STRING044 = ReadLine(STRING018, 106)
  750.     Else
  751.         FOpen 3, PPEPath() + "graph\nuke.msg", 0, 0
  752.         STRING044 = ReadLine(STRING018, 107)
  753.     Endif
  754.     FCreate 1, PPEPath() + "work\nkname", 1, 0
  755.     INTEGER001 = 1
  756.     If (BOOLEAN008) Then
  757.         Tokenize ReadLine(PPEPath() + "work\tbbyte", 1)
  758.         STRING021 = GetToken()
  759.         STRING021 = GetToken()
  760.     Endif
  761.     STRING043 = ""
  762.     FGet 3, STRING043
  763.     :LABEL027
  764.     If (BOOLEAN009) Goto LABEL028
  765.     For INTEGER012 = 1 To INTEGER011
  766.         If (BOOLEAN034) Then
  767.             FPutLn 1, " " + STRING044 + TSTRING011(INTEGER012)
  768.             BOOLEAN034 = 0
  769.             Continue
  770.         Endif
  771.         FPutLn 1, Space(31) + "|" + " " + STRING044 + TSTRING011(INTEGER012)
  772.     Next
  773.     :LABEL028
  774.     While (!Ferr(3) && (STRING043 <> "")) Do
  775.         STRING043 = ReplaceStr(STRING043, "@NUKER@", Mixed(U_Name()))
  776.         STRING043 = ReplaceStr(STRING043, "@NALIAS@", Mixed(U_Alias))
  777.         If (BOOLEAN008) Then
  778.             STRING043 = ReplaceStr(STRING043, "@BNUKED@", String(STRING021))
  779.         Else
  780.             STRING043 = ReplaceStr(STRING043, "@BNUKED@", String(INTEGER006))
  781.         Endif
  782.         If (INTEGER005 == 0) Then
  783.             STRING043 = ReplaceStr(STRING043, "@FACTOR@", "N/A")
  784.         Else
  785.             STRING043 = ReplaceStr(STRING043, "@FACTOR@", String(INTEGER005))
  786.         Endif
  787.         If (BOOLEAN034) Then
  788.             FPutLn 1, " " + STRING043
  789.             BOOLEAN034 = 0
  790.         Else
  791.             FPutLn 1, Space(31) + "|" + " " + STRING043
  792.         Endif
  793.         FGet 3, STRING043
  794.     EndWhile
  795.     If (BOOLEAN009) Then
  796.         For INTEGER012 = 1 To INTEGER011
  797.             If (BOOLEAN034) Then
  798.                 FPutLn 1, " " + STRING044 + TSTRING011(INTEGER012)
  799.                 BOOLEAN034 = 0
  800.                 Continue
  801.             Endif
  802.             FPutLn 1, Space(31) + "|" + " " + STRING044 + TSTRING011(INTEGER012)
  803.         Next
  804.     Endif
  805.     If (BOOLEAN030 && !BOOLEAN010) Goto LABEL029
  806.     FPut 1, Space(31) + "|"
  807.     FPutLn 1, Mid(TSTRING012(1), 33, Len(TSTRING012(1)) - 32)
  808.     For INTEGER012 = 2 To INTEGER007
  809.         FPutLn 1, TSTRING012(INTEGER012)
  810.     Next
  811.     :LABEL029
  812.     If (BOOLEAN008) Then
  813.         FPutLn 1, "/EOFDESC"
  814.         Frewind 3
  815.         FGet 3, STRING043
  816.         BOOLEAN034 = 1
  817.         Inc INTEGER001
  818.         STRING021 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
  819.         If (STRING021 <> "") Then
  820.             Tokenize STRING021
  821.             STRING021 = GetToken()
  822.             STRING021 = GetToken()
  823.             Goto LABEL027
  824.         Endif
  825.     Endif
  826.     FClose 1
  827.     FClose 3
  828.     PrintLn "@X07Description message written"
  829.     Return
  830.     :LABEL030
  831.     DispFile PPEPath() + "graph\menu", 1 + 4
  832.     Tokenize PPEPath() + "lb.cfg" + " " + String(1)
  833.     FClose -1
  834.     BOOLEAN008 = 0
  835.     BOOLEAN006 = 0
  836.     Gosub LABEL046
  837.     Select Case (INTEGER014)
  838.         Case 1
  839.             DefColor
  840.             Cls
  841.             Gosub LABEL006
  842.             BOOLEAN011 = 0
  843.             BOOLEAN031 = 0
  844.         Case 2
  845.             DefColor
  846.             Cls
  847.             BOOLEAN008 = 1
  848.             Gosub LABEL006
  849.             BOOLEAN011 = 0
  850.             BOOLEAN031 = 0
  851.         Case 3
  852.             DefColor
  853.             Cls
  854.             BOOLEAN008 = 1
  855.             BOOLEAN006 = 1
  856.             Gosub LABEL006
  857.             BOOLEAN011 = 0
  858.             BOOLEAN031 = 0
  859.         Case 4
  860.             Gosub LABEL073
  861.         Case 5
  862.             Gosub LABEL074
  863.         Case 6
  864.             Gosub LABEL075
  865.         Case 7
  866.             Gosub LABEL104
  867.         Case 8
  868.             Gosub LABEL105
  869.         Case 9
  870.             Call PPEPath() + "HELP\HELP.PPE"
  871.         Case 10
  872.             End
  873.             BOOLEAN008 = 0
  874.     End Select
  875.     Goto LABEL030
  876.     Return
  877.     AnsiPos 1, 23
  878.     STRING036 = ""
  879.     InputStr "@X07Please enter file to nuke: ", STRING036, 1, 12, Mask_Pwd(), 8
  880.     AnsiPos 1, 23
  881.     ClrEol
  882.     FreshLine
  883.     If (STRING036 == "") Then
  884.         End
  885.     Endif
  886.     STRING037 = STRING036
  887.     Return
  888.     :LABEL031
  889.     STRING039 = ReadLine(PCBDat(), 31) + ".@@@"
  890.     FOpen 1, STRING039, 0, 0
  891.     FRead 1, INT016, 2
  892.     FSeek 1, CurConf() * INT016 + 2 + 156, 0
  893.     FRead 1, STRING040, 29
  894.     FRead 1, STRING033, 26
  895.     STRING009 = STRING040
  896.     STRING010 = STRING033
  897.     FreshLine
  898.     FClose 1
  899.     Return
  900.     :LABEL032
  901.     FreshLine
  902.     BOOLEAN033 = 0
  903.     Newline
  904.     If (BOOLEAN006) Then
  905.         Print ReplaceStr(ReadLine(STRING018, 1), "%FILE%", Upper(STRING002))
  906.     Else
  907.         Print ReplaceStr(ReadLine(STRING018, 1), "%FILE%", Upper(STRING037))
  908.     Endif
  909.     If (OnLocal()) SaveScrn
  910.     If (BOOLEAN006) Then
  911.         Shell 0, BOOLEAN032, PPEPath() + "findnuke.exe", Upper(STRING002) + " " + Upper(STRING040) + " " + PPEPath() + " " + "WILD"
  912.     ElseIf (BOOLEAN008) Then
  913.         Shell 0, BOOLEAN032, PPEPath() + "findnuke.exe", Upper(STRING037) + " " + Upper(STRING040) + " " + PPEPath() + " " + "YES"
  914.     Else
  915.         Shell 0, BOOLEAN032, PPEPath() + "findnuke.exe", Upper(STRING037) + " " + Upper(STRING040) + " " + PPEPath() + " " + "NO"
  916.     Endif
  917.     If (OnLocal()) RestScrn
  918.     If (BOOLEAN032) Then
  919.         PrintLn ReadLine(STRING018, 44)
  920.         If (BOOLEAN006) Then
  921.             PrintLn "@X0CNo files matching your wildcard entry were found"
  922.             STRING002 = ""
  923.             InputStr "@X07Enter wildcard (enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
  924.             If (STRING002 == "") Return
  925.             Goto LABEL032
  926.             Goto LABEL033
  927.         Endif
  928.         If (BOOLEAN008) Then
  929.             PrintLn "@X0CCouldn't find a file in the turbo batch entry.."
  930.             PrintLn "@X0CPlease make sure the files are sequentially tagged."
  931.             PrintLn "@X0Cand all in the same DIR file!!!"
  932.             Wait
  933.         Endif
  934.         :LABEL033
  935.         Return
  936.     Endif
  937.     PrintLn "@X0CFOUND!"
  938.     If (BOOLEAN008) Then
  939.         Copy PPEPath() + "work\nkname", PPEPath() + "work\replst"
  940.     Endif
  941.     If (BOOLEAN006) Then
  942.         DefColor
  943.         Cls
  944.         StartDisp 2
  945.         DispFile PPEPath() + "graph\turbomsg", 0
  946.         FreshLine
  947.         PrintLn "@X0DMatching files found:"
  948.         INTEGER012 = 1
  949.         STRING022 = PPEPath() + "work\tblst"
  950.         STRING021 = ReadLine(STRING022, INTEGER012)
  951.         INTEGER001 = 1
  952.         Print "@X07"
  953.         While (STRING021 <> "") Do
  954.             Print Left(STRING021, 13)
  955.             If (INTEGER001 % 5 == 0) Newline
  956.             Inc INTEGER001
  957.             Inc INTEGER012
  958.             STRING021 = ReadLine(STRING022, INTEGER012)
  959.             If (Abort()) Break
  960.         EndWhile
  961.         If (Abort()) ResetDisp
  962.         FClose -1
  963.         StartDisp 1
  964.         FreshLine
  965.         Print "@X0DWildCard CMD@X05? @X07"
  966.         Gosub LABEL069
  967.         FreshLine
  968.         If (INT008 == 1) Then
  969.             Goto LABEL034
  970.         Endif
  971.         Select Case (INT008)
  972.             Case 2
  973.                 Goto LABEL144
  974.                 Wait
  975.                 Return
  976.             Case 3
  977.                 STRING002 = ""
  978.                 InputStr "@X07Enter wildcard (Enter=abort)@X0C: _", STRING002, 1, 12, Mask_Pwd(), 8
  979.                 If (STRING002 == "") Return
  980.                 Goto LABEL032
  981.             Case 4
  982.                 Return
  983.         End Select
  984.         :LABEL034
  985.     Else
  986.         If (BOOLEAN008) Then
  987.             Wait
  988.         Endif
  989.     Endif
  990.     INTEGER015 = ReadLine(PPEPath() + "work\nkname", 1)
  991.     INTEGER016 = ReadLine(PPEPath() + "work\nkname", 2)
  992.     BOOLEAN033 = 1
  993.     Return
  994.     :LABEL035
  995.     BOOLEAN033 = 0
  996.     FreshLine
  997.     Print ReplaceStr(ReadLine(STRING018, 34), "%UPLOAD%", Upper(STRING040))
  998.     If (OnLocal()) SaveScrn
  999.     If (BOOLEAN008) Then
  1000.         Shell 0, BOOLEAN032, PPEPath() + "replace.exe", String(INTEGER015) + " " + Upper(STRING040) + " " + PPEPath() + " " + String(INTEGER016) + " " + "YES"
  1001.     Else
  1002.         Shell 0, BOOLEAN032, PPEPath() + "replace.exe", String(INTEGER015) + " " + Upper(STRING040) + " " + PPEPath() + " " + String(INTEGER016) + " " + "NO"
  1003.     Endif
  1004.     If (OnLocal()) RestScrn
  1005.     If (BOOLEAN032) Then
  1006.         PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 38), "%UPLOAD%", Upper(STRING040)), "%FILE%", Upper(STRING037))
  1007.         Wait
  1008.         Return
  1009.     Endif
  1010.     PrintLn ReadLine(STRING018, 26)
  1011.     :LABEL036
  1012.     Print ReplaceStr(ReadLine(STRING018, 35), "%UPLOAD%", Upper(STRING040))
  1013.     FClose -1
  1014.     Delete STRING040
  1015.     If (Exist(STRING040)) Then
  1016.         FreshLine
  1017.         PrintLn ReplaceStr(ReadLine(STRING018, 39), "%UPLOAD%", Upper(STRING040))
  1018.         Print ReadLine(STRING018, 40)
  1019.         Gosub LABEL068
  1020.         FreshLine
  1021.         If (INT008 == 1) Then
  1022.             Goto LABEL036
  1023.             Goto LABEL037
  1024.         Endif
  1025.         Return
  1026.     Endif
  1027.     :LABEL037
  1028.     PrintLn ReadLine(STRING018, 26)
  1029.     If (BOOLEAN027) Then
  1030.         :LABEL038
  1031.         Print ReplaceStr(ReadLine(STRING018, 36), "%UPLOAD%", Upper(STRING040))
  1032.         Copy Upper(STRING040) + ".NUK", Upper(STRING040)
  1033.         If (!Exist(STRING040) || (FileInf(STRING040, 4) <> FileInf(STRING040 + ".nuk", 4))) Then
  1034.             FreshLine
  1035.             PrintLn ReadLine(STRING018, 41)
  1036.             Print ReadLine(STRING018, 40)
  1037.             Gosub LABEL068
  1038.             FreshLine
  1039.             If (INT008 == 1) Then
  1040.                 Goto LABEL038
  1041.                 Goto LABEL039
  1042.             Endif
  1043.             Return
  1044.             :LABEL039
  1045.             Return
  1046.         Endif
  1047.         PrintLn ReadLine(STRING018, 26)
  1048.     Else
  1049.         :LABEL040
  1050.         Print ReplaceStr(ReadLine(STRING018, 37), "%UPLOAD%", Upper(STRING040))
  1051.         Rename Upper(STRING040) + ".nuk", Upper(STRING040)
  1052.         If (Exist(STRING040)) Goto LABEL041
  1053.         FreshLine
  1054.         PrintLn ReadLine(STRING018, 42)
  1055.         Print ReadLine(STRING018, 40)
  1056.         Gosub LABEL068
  1057.         FreshLine
  1058.         If (INT008 == 1) Then
  1059.             Goto LABEL040
  1060.         Else
  1061.             Return
  1062.         Endif
  1063.         Return
  1064.         :LABEL041
  1065.         PrintLn ReadLine(STRING018, 26)
  1066.     Endif
  1067.     If (BOOLEAN008) Then
  1068.         If (BOOLEAN006) Goto LABEL042
  1069.         FClose -1
  1070.         FreshLine
  1071.         Print ReadLine(STRING018, 120)
  1072.         Delete STRING032
  1073.         PrintLn ReadLine(STRING018, 26)
  1074.         Return
  1075.         :LABEL042
  1076.     Else
  1077.         Gosub LABEL043
  1078.     Endif
  1079.     Return
  1080.     :LABEL043
  1081.     FreshLine
  1082.     Print ReplaceStr(ReadLine(STRING018, 43), "%FILE%", Upper(STRING037))
  1083.     FClose -1
  1084.     FOpen 1, STRING032, 0, 0
  1085.     FCreate 2, PPEPath() + "bctp" + String(PcbNode()), 1, 0
  1086.     :LABEL044
  1087.     If (Ferr(1)) Goto LABEL045
  1088.     FGet 1, STRING021
  1089.     Tokenize STRING021
  1090.     If (Upper(((GetToken() <> Upper(STRING037)) && (STRING021 <> "")))) Then
  1091.         FPutLn 2, STRING021
  1092.     Endif
  1093.     Goto LABEL044
  1094.     :LABEL045
  1095.     If (INTEGER013 >= 2) Dec INTEGER013
  1096.     FClose 1
  1097.     FClose 2
  1098.     Delete STRING032
  1099.     Rename PPEPath() + "bctp" + String(PcbNode()), STRING032
  1100.     Print ReadLine(STRING018, 26)
  1101.     Return
  1102.     STRING049 = PPEPath() + "POS" + String(PcbNode())
  1103.     Goto LABEL053
  1104.     :LABEL046
  1105.     STRING046 = PPEPath()
  1106.     STRING045 = GetToken()
  1107.     STRING056 = GetToken()
  1108.     If (STRING056 <> "") Then
  1109.         INTEGER018 = STRING056
  1110.     Else
  1111.         INTEGER018 = 1
  1112.     Endif
  1113.     If (STRING045 == "") Then
  1114.         PrintLn "No configuration parameter given"
  1115.         Wait
  1116.         End
  1117.     Endif
  1118.     If (Exist(STRING045)) Goto LABEL047
  1119.     If (Exist(STRING046 + STRING045)) Then
  1120.         STRING045 = STRING046 + STRING045
  1121.     Else
  1122.         PrintLn "Cannot find configuration ", STRING045
  1123.         Wait
  1124.         End
  1125.     Endif
  1126.     :LABEL047
  1127.     If (AnsiOn()) Goto LABEL048
  1128.     PrintLn 
  1129.     PrintLn "No ansi capability, exiting lightbar kit"
  1130.     End
  1131.     :LABEL048
  1132.     Tokenize ReadLine(STRING045, 1)
  1133.     INTEGER019 = GetToken()
  1134.     STRING055 = GetToken()
  1135.     BOOLEAN037 = 0
  1136.     BOOLEAN036 = 0
  1137.     If (INTEGER019 > 15) Then
  1138.         Redim TSTRING047, INTEGER019
  1139.         Redim TSTRING048, INTEGER019
  1140.     Endif
  1141.     INTEGER014 = 1
  1142.     STRING052 = Chr(13)
  1143.     STRING053 = Chr(27)
  1144.     BOOLEAN035 = IsNonStop()
  1145.     StartDisp 1
  1146.     INTEGER014 = INTEGER018
  1147.     INTEGER022 = INTEGER019
  1148.     DefColor
  1149.     DefColor
  1150.     INTEGER023 = 3
  1151.     For INTEGER012 = 1 To INTEGER019
  1152.         Tokenize ReadLine(STRING045, INTEGER012 + 1)
  1153.         INTEGER020 = GetToken()
  1154.         STRING054 = GetToken()
  1155.         If (STRING054 == "C") Then
  1156.             INTEGER021 = GetY()
  1157.         Else
  1158.             INTEGER021 = STRING054
  1159.         Endif
  1160.         INTEGER017 = GetToken()
  1161.         TSTRING047(INTEGER012) = ScrText(INTEGER020, INTEGER021, INTEGER017, 1)
  1162.         TSTRING048(INTEGER012) = GetToken()
  1163.         INTEGER023 = INTEGER023 + 3
  1164.     Next
  1165.     INTEGER026 = 1
  1166.     INTEGER025 = 1 + INTEGER019 - 1
  1167.     Gosub LABEL052
  1168.     Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1169.     :LABEL049
  1170.     STRING050 = Inkey()
  1171.     Select Case (STRING050)
  1172.         Case "UP", "LEFT", ","
  1173.             Gosub LABEL052
  1174.             Print TSTRING047(INTEGER014)
  1175.             If (INTEGER014 == 1) Then
  1176.                 INTEGER014 = INTEGER022
  1177.             Else
  1178.                 INTEGER014 = INTEGER014 - 1
  1179.             Endif
  1180.             Gosub LABEL052
  1181.             Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1182.             Goto LABEL049
  1183.         Case "DOWN", "RIGHT", "."
  1184.             Gosub LABEL052
  1185.             Print TSTRING047(INTEGER014)
  1186.             If (INTEGER014 == INTEGER022) Then
  1187.                 INTEGER014 = 1
  1188.             Else
  1189.                 INTEGER014 = INTEGER014 + 1
  1190.             Endif
  1191.             Gosub LABEL052
  1192.             Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1193.             Goto LABEL049
  1194.         Case "?"
  1195.             Tokenize ReadLine(STRING045, INTEGER014 + 1)
  1196.             INTEGER020 = GetX()
  1197.             INTEGER021 = GetY()
  1198.             STRING054 = GetToken()
  1199.             STRING054 = GetToken()
  1200.             STRING054 = GetToken()
  1201.             STRING054 = GetToken()
  1202.             STRING054 = ""
  1203.             STRING054 = GetToken()
  1204.             If (STRING054 == "NOHLP") Goto LABEL049
  1205.             If (STRING054 <> "") Then
  1206.                 STRING051 = STRING054
  1207.                 If (Exist(STRING051)) Then
  1208.                     Goto LABEL050
  1209.                     Goto LABEL050
  1210.                 Endif
  1211.                 If (Exist(HelpPath() + "hlp" + STRING051)) Then
  1212.                     STRING051 = HelpPath() + "hlp" + STRING051
  1213.                     Goto LABEL050
  1214.                     Goto LABEL050
  1215.                 Endif
  1216.                 If (Exist(STRING046 + STRING051)) Then
  1217.                     STRING051 = STRING046 + STRING051
  1218.                     Goto LABEL050
  1219.                 Endif
  1220.             Endif
  1221.             :LABEL050
  1222.             AnsiPos 1, 23
  1223.             SaveScrn
  1224.             StartDisp 2
  1225.             DefColor
  1226.             Cls
  1227.             DispFile STRING051, 1 + 4
  1228.             Wait
  1229.             StartDisp 1
  1230.             RestScrn
  1231.             AnsiPos INTEGER020, INTEGER021
  1232.             Goto LABEL049
  1233.         Case STRING052
  1234.             INTEGER012 = INTEGER014
  1235.             INTEGER020 = GetX()
  1236.             INTEGER021 = GetY()
  1237.             Gosub LABEL052
  1238.             Print TSTRING047(INTEGER014)
  1239.             Goto LABEL051
  1240.             Return
  1241.             Goto LABEL049
  1242.         Case "HOME"
  1243.             Gosub LABEL052
  1244.             Print TSTRING047(INTEGER014)
  1245.             INTEGER014 = INTEGER026
  1246.             Gosub LABEL052
  1247.             Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1248.             Goto LABEL049
  1249.         Case "END"
  1250.             Gosub LABEL052
  1251.             Print TSTRING047(INTEGER014)
  1252.             INTEGER014 = INTEGER025
  1253.             Gosub LABEL052
  1254.             Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1255.             Goto LABEL049
  1256.         Case STRING053
  1257.             If (!BOOLEAN036) Goto LABEL049
  1258.             DefColor
  1259.             If (BOOLEAN037) Then
  1260.                 DefColor
  1261.                 Cls
  1262.             Endif
  1263.             If (!BOOLEAN035) StartDisp 2
  1264.             End
  1265.         Case ""
  1266.             INTEGER023 = (INTEGER014 + 1) * 3
  1267.             INTEGER024 = INTEGER023 - 3
  1268.             For INTEGER012 = 1 To INTEGER022
  1269.                 If (Upper(TSTRING048(INTEGER012)) == Upper(STRING050)) Then
  1270.                     Gosub LABEL052
  1271.                     Print TSTRING047(INTEGER014)
  1272.                     INTEGER014 = INTEGER012
  1273.                     Gosub LABEL052
  1274.                     Print STRING055, StripAtx(TSTRING047(INTEGER014))
  1275.                     Goto LABEL051
  1276.                 Endif
  1277.             Next
  1278.             Goto LABEL049
  1279.             For INTEGER012 = INTEGER014 To INTEGER022
  1280.                 If (Upper(Left(StripAtx(TSTRING047(INTEGER012)), 1)) == Upper(STRING050)) Then
  1281.                     Gosub LABEL052
  1282.                     Print TSTRING047(INTEGER014)
  1283.                     INTEGER014 = INTEGER012
  1284.                     Goto LABEL051
  1285.                 Endif
  1286.                 INTEGER023 = INTEGER023 + 3
  1287.             Next
  1288.             INTEGER023 = INTEGER026 * 3
  1289.             For INTEGER012 = 1 To INTEGER014 - 1
  1290.                 If (Upper(Left(StripAtx(TSTRING047(INTEGER012)), 1)) == Upper(STRING050)) Then
  1291.                     Gosub LABEL052
  1292.                     Print TSTRING047(INTEGER014)
  1293.                     INTEGER014 = INTEGER012
  1294.                     Goto LABEL051
  1295.                 Endif
  1296.                 INTEGER023 = INTEGER023 + 3
  1297.             Next
  1298.             Goto LABEL049
  1299.     End Select
  1300.     Goto LABEL049
  1301.     :LABEL051
  1302.     DefColor
  1303.     Return
  1304.     Return
  1305.     :LABEL052
  1306.     Tokenize ReadLine(STRING045, INTEGER014 + 1)
  1307.     INTEGER020 = GetToken()
  1308.     STRING054 = GetToken()
  1309.     If (STRING054 == "C") Then
  1310.         INTEGER021 = GetY()
  1311.     Else
  1312.         INTEGER021 = STRING054
  1313.     Endif
  1314.     AnsiPos INTEGER020, INTEGER021
  1315.     Return
  1316.     :LABEL053
  1317.     DispFile PPEPath() + "graph\menu", 0
  1318.     Tokenize PPEPath() + "lb3.cfg"
  1319.     Gosub LABEL046
  1320.     :LABEL054
  1321.     If (BOOLEAN006) Then
  1322.         FreshLine
  1323.         STRING036 = "U"
  1324.         INT002 = 0
  1325.         STRING036 = "U"
  1326.         InputStr "@X07Enter wildcard Dir (@X0C1-@NUMDIR@, U@X07)", STRING036, 7, Len(String(INT001)), Mask_Num() + "U", 8 + 2
  1327.         FreshLine
  1328.         If (STRING036 == "") STRING036 = "U"
  1329.         If ((ToInteger(STRING036) >= 1) && ToInteger((STRING036 <= INT001))) Then
  1330.             INT018 = ToInteger(STRING036)
  1331.             Goto LABEL055
  1332.         Endif
  1333.         If (STRING036 == "U") Then
  1334.             INT018 = INT001
  1335.         Endif
  1336.         :LABEL055
  1337.         Gosub LABEL059
  1338.         STRING038 = STRING033 + "\" + STRING037
  1339.         Return
  1340.     Endif
  1341.     If (BOOLEAN011) Goto LABEL057
  1342.     BOOLEAN011 = 1
  1343.     If (Exist(STRING032)) Goto LABEL056
  1344.     FreshLine
  1345.     PrintLn ReadLine(STRING018, 45)
  1346.     Wait
  1347.     BOOLEAN031 = 1
  1348.     BOOLEAN011 = 0
  1349.     Return
  1350.     :LABEL056
  1351.     INTEGER013 = 2
  1352.     Tokenize ReadLine(STRING032, INTEGER013)
  1353.     STRING037 = GetToken()
  1354.     INT018 = GetToken()
  1355.     If (STRING037 == "") Then
  1356.         FreshLine
  1357.         PrintLn ReadLine(STRING018, 45)
  1358.         Wait
  1359.         BOOLEAN031 = 1
  1360.         BOOLEAN011 = 0
  1361.         Return
  1362.     Endif
  1363.     Gosub LABEL059
  1364.     STRING038 = STRING033 + "\" + STRING037
  1365.     If (BOOLEAN008) Then
  1366.         FreshLine
  1367.         DispFile PPEPath() + "graph\turbomsg", 0
  1368.         Gosub LABEL058
  1369.     Endif
  1370.     Return
  1371.     :LABEL057
  1372.     Inc INTEGER013
  1373.     Tokenize ReadLine(STRING032, INTEGER013)
  1374.     STRING037 = GetToken()
  1375.     If (STRING037 == "") Then
  1376.         BOOLEAN031 = 1
  1377.         BOOLEAN011 = 0
  1378.         Return
  1379.     Endif
  1380.     INT018 = GetToken()
  1381.     Gosub LABEL059
  1382.     If (BOOLEAN008) Then
  1383.         Gosub LABEL058
  1384.     Endif
  1385.     STRING038 = STRING033 + "\" + STRING037
  1386.     Return
  1387.     Return
  1388.     :LABEL058
  1389.     PrintLn "@X07Writing turbo list"
  1390.     INT019 = INTEGER013 + 1
  1391.     FCreate 1, PPEPath() + "work\tblst", 1, 0
  1392.     FPutLn 1, STRING037
  1393.     STRING057 = ReadLine(STRING032, INT019)
  1394.     While (STRING057 <> "") Do
  1395.         Tokenize STRING057
  1396.         FPutLn 1, GetToken()
  1397.         Inc INT019
  1398.         STRING057 = ReadLine(STRING032, INT019)
  1399.     EndWhile
  1400.     FClose 1
  1401.     Return
  1402.     :LABEL059
  1403.     If (INT018 == INT001) Then
  1404.         STRING040 = STRING009
  1405.         STRING033 = STRING010
  1406.         Return
  1407.     Endif
  1408.     If (INT002 == INT018) Return
  1409.     FOpen 1, STRING039, 0, 0
  1410.     FSeek 1, CurConf() * INT016 + 2 + 482, 0
  1411.     FRead 1, STRING058, 33
  1412.     FClose 1
  1413.     If (Exist(STRING058)) Goto LABEL060
  1414.     STRING040 = STRING009
  1415.     STRING033 = STRING010
  1416.     Return
  1417.     :LABEL060
  1418.     INT002 = INT018
  1419.     FOpen 1, STRING058, 0, 0
  1420.     FSeek 1, 95 * (INT018 - 1), 0
  1421.     If (Ferr(1)) Then
  1422.         STRING040 = STRING009
  1423.         STRING033 = STRING010
  1424.     Else
  1425.         FRead 1, STRING040, 30
  1426.         FRead 1, STRING033, 30
  1427.         STRING040 = RTrim(STRING040, " ")
  1428.         STRING033 = RTrim(STRING033, " ")
  1429.     Endif
  1430.     FClose 1
  1431.     Return
  1432.     :LABEL061
  1433.     BOOLEAN014 = 0
  1434.     BOOLEAN016 = 0
  1435.     BOOLEAN030 = 0
  1436.     BOOLEAN018 = 0
  1437.     BOOLEAN021 = 0
  1438.     :LABEL062
  1439.     FreshLine
  1440.     Print ReplaceStr(ReadLine(STRING018, 3), "%FILE%", Upper(STRING037))
  1441.     Gosub LABEL072
  1442.     Select Case (INT008)
  1443.         Case 1
  1444.             BOOLEAN030 = 1
  1445.         Case 2
  1446.             BOOLEAN016 = 1
  1447.         Case 3
  1448.             If (BOOLEAN008) Then
  1449.                 FreshLine
  1450.                 PrintLn ReadLine(STRING018, 118)
  1451.                 Goto LABEL062
  1452.             Endif
  1453.             BOOLEAN014 = 1
  1454.             Gosub LABEL043
  1455.         Case 4
  1456.             If (BOOLEAN008) Then
  1457.                 FreshLine
  1458.                 PrintLn ReadLine(STRING018, 118)
  1459.                 Goto LABEL062
  1460.             Endif
  1461.             BOOLEAN030 = 0
  1462.         Case 5
  1463.             Gosub LABEL063
  1464.             Goto LABEL061
  1465.             BOOLEAN030 = 0
  1466.         Case 6
  1467.             BOOLEAN018 = 1
  1468.         Case 7
  1469.             BOOLEAN021 = 1
  1470.         Case 8
  1471.             BOOLEAN011 = 0
  1472.             BOOLEAN031 = 1
  1473.     End Select
  1474.     FreshLine
  1475.     Return
  1476.     :LABEL063
  1477.     For INTEGER012 = 1 To INTEGER007
  1478.         TSTRING059(INTEGER012) = TSTRING012(INTEGER012)
  1479.     Next
  1480.     INTEGER027 = INTEGER007
  1481.     INT022 = 1
  1482.     BOOLEAN020 = 0
  1483.     :LABEL064
  1484.     Gosub LABEL138
  1485.     FreshLine
  1486.     Newline
  1487.     :LABEL065
  1488.     Backup 80
  1489.     ClrEol
  1490.     Gosub LABEL067
  1491.     Select Case (INT008)
  1492.         Case 1
  1493.             Gosub LABEL135
  1494.         Case 2
  1495.             Gosub LABEL136
  1496.         Case 3
  1497.             Gosub LABEL137
  1498.         Case 4
  1499.             If (BOOLEAN020) Then
  1500.                 FreshLine
  1501.                 Print ReadLine(STRING018, 96)
  1502.                 Gosub LABEL068
  1503.                 If (INT008 == 1) Then
  1504.                     INTEGER007 = INTEGER027
  1505.                     For INTEGER012 = 1 To INTEGER027
  1506.                         TSTRING012(INTEGER012) = TSTRING059(INTEGER012)
  1507.                     Next
  1508.                     FreshLine
  1509.                     PrintLn ReadLine(STRING018, 98)
  1510.                 Endif
  1511.                 FreshLine
  1512.             Endif
  1513.             Return
  1514.         Case 5
  1515.             Select Case (INT022)
  1516.                 Case 1
  1517.                     If (INTEGER007 > 20) Then
  1518.                         Inc INT022
  1519.                         Goto LABEL064
  1520.                     Else
  1521.                         Backup 80
  1522.                         ClrEol
  1523.                         Print ReadLine(STRING018, 97)
  1524.                         Delay 25
  1525.                     Endif
  1526.                 Case 2
  1527.                     If (INTEGER007 > 40) Then
  1528.                         Inc INT022
  1529.                         Goto LABEL064
  1530.                     Else
  1531.                         Backup 80
  1532.                         ClrEol
  1533.                         Print ReadLine(STRING018, 97)
  1534.                         Delay 25
  1535.                     Endif
  1536.                 Case Else
  1537.                     Backup 80
  1538.                     ClrEol
  1539.                     Print ReadLine(STRING018, 97)
  1540.                     Delay 25
  1541.             End Select
  1542.         Case 6
  1543.             If (INT022 > 1) Then
  1544.                 Dec INT022
  1545.                 Goto LABEL064
  1546.                 Goto LABEL066
  1547.             Endif
  1548.             Backup 80
  1549.             ClrEol
  1550.             Print ReadLine(STRING018, 99)
  1551.             Delay 25
  1552.     End Select
  1553.     :LABEL066
  1554.     Goto LABEL065
  1555.     Return
  1556.     :LABEL067
  1557.     INT006 = 1
  1558.     INT007 = 6
  1559.     TSTRING034(1) = ReadLine(STRING018, 82)
  1560.     TSTRING034(2) = ReadLine(STRING018, 83)
  1561.     TSTRING034(3) = ReadLine(STRING018, 84)
  1562.     TSTRING034(4) = ReadLine(STRING018, 85)
  1563.     TSTRING034(5) = ReadLine(STRING018, 86)
  1564.     TSTRING034(6) = ReadLine(STRING018, 87)
  1565.     Goto LABEL001
  1566.     :LABEL068
  1567.     INT006 = 1
  1568.     INT007 = 2
  1569.     TSTRING034(1) = ReadLine(STRING018, 4)
  1570.     TSTRING034(2) = ReadLine(STRING018, 5)
  1571.     Gosub LABEL001
  1572.     Return
  1573.     :LABEL069
  1574.     INT006 = 1
  1575.     INT007 = 4
  1576.     TSTRING034(1) = "@X0FT@X07urboNuke"
  1577.     TSTRING034(2) = "@X0FA@X07ddToBatch"
  1578.     TSTRING034(3) = "@X0FN@X07ewWildcard"
  1579.     TSTRING034(4) = "@X0FQ@X07uit"
  1580.     Gosub LABEL001
  1581.     Return
  1582.     INT006 = 1
  1583.     INT007 = 3
  1584.     INT009 = INT003
  1585.     TSTRING034(1) = ReadLine(STRING018, 5)
  1586.     TSTRING034(2) = ReadLine(STRING018, 4)
  1587.     TSTRING034(3) = ReadLine(STRING018, 117)
  1588.     Gosub LABEL001
  1589.     INT009 = 1
  1590.     Return
  1591.     :LABEL070
  1592.     INT006 = 1
  1593.     INT007 = 3
  1594.     TSTRING034(1) = ReadLine(STRING018, 102)
  1595.     TSTRING034(2) = ReadLine(STRING018, 104)
  1596.     TSTRING034(3) = ReadLine(STRING018, 103)
  1597.     Goto LABEL001
  1598.     :LABEL071
  1599.     INT006 = 1
  1600.     INT007 = 4
  1601.     TSTRING034(1) = ReadLine(STRING018, 101)
  1602.     TSTRING034(2) = ReadLine(STRING018, 102)
  1603.     TSTRING034(3) = ReadLine(STRING018, 103)
  1604.     TSTRING034(4) = ReadLine(STRING018, 104)
  1605.     Goto LABEL001
  1606.     :LABEL072
  1607.     INT006 = 1
  1608.     INT007 = 8
  1609.     TSTRING034(1) = ReadLine(STRING018, 10)
  1610.     TSTRING034(2) = ReadLine(STRING018, 11)
  1611.     TSTRING034(3) = ReadLine(STRING018, 12)
  1612.     TSTRING034(4) = ReadLine(STRING018, 13)
  1613.     TSTRING034(8) = ReadLine(STRING018, 14)
  1614.     TSTRING034(5) = ReadLine(STRING018, 79)
  1615.     TSTRING034(6) = ReadLine(STRING018, 80)
  1616.     TSTRING034(7) = ReadLine(STRING018, 81)
  1617.     BOOLEAN022 = 1
  1618.     Gosub LABEL001
  1619.     BOOLEAN022 = 0
  1620.     Return
  1621.     :LABEL073
  1622.     DefColor
  1623.     Cls
  1624.     Dir "Z"
  1625.     Return
  1626.     :LABEL074
  1627.     DefColor
  1628.     Cls
  1629.     Dir "L"
  1630.     Return
  1631.     :LABEL075
  1632.     DefColor
  1633.     Cls
  1634.     Dir "N U"
  1635.     Return
  1636.     :LABEL076
  1637.     StartDisp 2
  1638.     FreshLine
  1639.     DispFile PPEPath() + "graph\deschdr", 1 + 4
  1640.     FClose -1
  1641.     FOpen 1, STRING040, 0, 0
  1642.     If (Ferr(1)) Then
  1643.         PrintLn "Breaking off, ferr failed 2, report to sysop please"
  1644.         Wait
  1645.     Endif
  1646.     FSeek 1, INTEGER015 - 32, 0
  1647.     If (Ferr(1)) Then
  1648.     Endif
  1649.     FGet 1, TSTRING012(1)
  1650.     If (Ferr(1)) Then
  1651.         PrintLn "Breaking off, ferr failed 1, report to sysop please"
  1652.         Wait
  1653.     Endif
  1654.     Print TSTRING030(0), Left(TSTRING012(1), 12)
  1655.     Print TSTRING030(1), Mid(TSTRING012(1), 13, 19)
  1656.     PrintLn TSTRING030(2), Mid(TSTRING012(1), 33, Len(TSTRING012(1)) - 32)
  1657.     INTEGER012 = 2
  1658.     While (1) Do
  1659.         FGet 1, TSTRING012(INTEGER012)
  1660.         If (Ferr(1)) Then
  1661.             Break
  1662.         Endif
  1663.         If ((Left(TSTRING012(INTEGER012), 1) <> " ") && (Left(TSTRING012(INTEGER012), 1) <> " ")) Break
  1664.         Print Space(31)
  1665.         PrintLn TSTRING030(3), Mid(TSTRING012(INTEGER012), 33, Len(TSTRING012(INTEGER012)) - 32)
  1666.         Inc INTEGER012
  1667.     EndWhile
  1668.     If (INTEGER012 > 0) Then
  1669.         INTEGER007 = INTEGER012 - 1
  1670.     Else
  1671.         INTEGER007 = 0
  1672.     Endif
  1673.     If (Abort()) Then
  1674.         ResetDisp
  1675.     Endif
  1676.     StartDisp 1
  1677.     INT023 = INTEGER012 - 1
  1678.     FClose 1
  1679.     Return
  1680.     :LABEL077
  1681.     STRING028 = ""
  1682.     BOOLEAN015 = 0
  1683.     Select Case (STRING027)
  1684.         Case "NOSTR"
  1685.             For INTEGER012 = INT023 To 1 Step -1
  1686.                 STRING021 = Mid(TSTRING012(INTEGER012), INT004, INT005)
  1687.                 STRING021 = RTrim(STRING021, " ")
  1688.                 If (STRING021 <> "") Then
  1689.                     STRING028 = Mid(TSTRING012(INTEGER012), INT004, INT005)
  1690.                     Break
  1691.                 Endif
  1692.             Next
  1693.         Case "B"
  1694.             For INTEGER012 = INT023 To 1 Step -1
  1695.                 If (InStr(Upper(TSTRING012(INTEGER012)), Upper(STRING026))) Then
  1696.                     STRING028 = Mid(TSTRING012(INTEGER012), INT004, INT005)
  1697.                     Break
  1698.                 Endif
  1699.             Next
  1700.         Case "T"
  1701.             For INTEGER012 = 1 To INT023
  1702.                 If (InStr(Upper(TSTRING012(INTEGER012)), Upper(STRING026))) Then
  1703.                     STRING028 = Mid(TSTRING012(INTEGER012), INT004, INT005)
  1704.                     Break
  1705.                 Endif
  1706.             Next
  1707.     End Select
  1708.     FreshLine
  1709.     If (STRING028 == "") Then
  1710.         :LABEL078
  1711.         STRING036 = ""
  1712.         FreshLine
  1713.         Print "@X07No name found, enter manual name? "
  1714.         Gosub LABEL070
  1715.         If (INT008 == 1) Then
  1716.             :LABEL079
  1717.             FreshLine
  1718.             Print ReadLine(STRING018, 46)
  1719.             InputStr "_", STRING036, 1, 30, Mask_Pwd(), 8
  1720.             FreshLine
  1721.             If (STRING036 == "") Then
  1722.                 Goto LABEL078
  1723.                 Goto LABEL080
  1724.             Endif
  1725.             STRING029 = Upper(STRING036)
  1726.             INTEGER004 = U_RecNum(STRING029)
  1727.             If (INTEGER004 == -1) Then
  1728.                 FreshLine
  1729.                 PrintLn ReadLine(STRING018, 47)
  1730.                 Goto LABEL079
  1731.             Endif
  1732.             PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
  1733.             BOOLEAN015 = 1
  1734.             Return
  1735.             :LABEL080
  1736.             Goto LABEL081
  1737.         Endif
  1738.         If (INT008 == 2) Then
  1739.             BOOLEAN015 = 0
  1740.             Return
  1741.             Goto LABEL081
  1742.         Endif
  1743.         If (INT008 == 3) Then
  1744.             Gosub LABEL088
  1745.             If (BOOLEAN024) Then
  1746.                 STRING029 = ReadLine(PPEPath() + "work\nkname", 1)
  1747.                 PrintLn "@X07User name (@X0C", Upper(STRING029), "@X07) found in DOWNLOAD.TXT"
  1748.                 INTEGER004 = U_RecNum(STRING029)
  1749.                 If (INTEGER004 == -1) Then
  1750.                     FreshLine
  1751.                     Goto LABEL078
  1752.                 Endif
  1753.                 BOOLEAN015 = 1
  1754.                 Return
  1755.                 Goto LABEL081
  1756.             Endif
  1757.             Goto LABEL078
  1758.         Endif
  1759.     Endif
  1760.     :LABEL081
  1761.     STRING028 = LTrim(STRING028, " ")
  1762.     STRING028 = Upper(RTrim(STRING028, " "))
  1763.     If (BOOLEAN026) Then
  1764.         BOOLEAN038 = 0
  1765.         INTEGER012 = 2
  1766.         STRING060 = ReadLine(STRING025, INTEGER012)
  1767.         While (STRING060 <> "") Do
  1768.             If (Upper(STRING060) == STRING028) Then
  1769.                 STRING029 = ReadLine(STRING025, INTEGER012 - 1)
  1770.                 BOOLEAN038 = 1
  1771.                 Break
  1772.             Endif
  1773.             Inc INTEGER012
  1774.             Inc INTEGER012
  1775.             STRING060 = ReadLine(STRING025, INTEGER012)
  1776.         EndWhile
  1777.         If (BOOLEAN038) Goto LABEL082
  1778.         FreshLine
  1779.         PrintLn ReplaceStr(ReadLine(STRING018, 51), "%NAME%", Upper(STRING028))
  1780.         STRING029 = Upper(STRING028)
  1781.         :LABEL082
  1782.     Else
  1783.         STRING029 = StripAtx(STRING028)
  1784.     Endif
  1785.     :LABEL083
  1786.     FreshLine
  1787.     Print ReplaceStr(ReadLine(STRING018, 2), "%NAME%", Upper(STRING029))
  1788.     Gosub LABEL071
  1789.     FreshLine
  1790.     Select Case (INT008)
  1791.         Case 4
  1792.             BOOLEAN015 = 0
  1793.             Return
  1794.         Case 2
  1795.             :LABEL084
  1796.             STRING036 = ""
  1797.             Print ReadLine(STRING018, 49)
  1798.             InputStr "_", STRING036, 1, 30, Mask_Pwd(), 8
  1799.             FreshLine
  1800.             If (STRING036 == "") Then
  1801.                 Goto LABEL083
  1802.             Else
  1803.                 STRING029 = Upper(STRING036)
  1804.                 INTEGER004 = U_RecNum(STRING029)
  1805.                 If (INTEGER004 == -1) Then
  1806.                     FreshLine
  1807.                     PrintLn ReadLine(STRING018, 47)
  1808.                     Goto LABEL084
  1809.                 Endif
  1810.                 PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
  1811.                 BOOLEAN015 = 1
  1812.                 Return
  1813.             Endif
  1814.         Case 3
  1815.             Gosub LABEL088
  1816.             If (BOOLEAN024) Then
  1817.                 STRING029 = ReadLine(PPEPath() + "work\nkname", 1)
  1818.                 PrintLn "@X07User name (@X0C", Upper(STRING029), "@X07) found in DOWNLOAD.TXT"
  1819.                 Goto LABEL083
  1820.                 Goto LABEL085
  1821.             Endif
  1822.             BOOLEAN015 = 0
  1823.             Goto LABEL083
  1824.     End Select
  1825.     :LABEL085
  1826.     INTEGER004 = U_RecNum(Upper(STRING029))
  1827.     If (INTEGER004 == -1) Then
  1828.         FreshLine
  1829.         PrintLn ReadLine(STRING018, 50)
  1830.         Goto LABEL083
  1831.         :LABEL086
  1832.         FreshLine
  1833.         STRING036 = ""
  1834.         Print ReadLine(STRING018, 49)
  1835.         InputStr "_", STRING036, 1, 30, Mask_Pwd(), 8
  1836.         FreshLine
  1837.         If (STRING036 == "") Then
  1838.             BOOLEAN015 = 0
  1839.             Return
  1840.             Goto LABEL087
  1841.         Endif
  1842.         STRING029 = Upper(STRING036)
  1843.         INTEGER004 = U_RecNum(STRING029)
  1844.         If (INTEGER004 == -1) Then
  1845.             FreshLine
  1846.             PrintLn ReadLine(STRING018, 47)
  1847.             Goto LABEL086
  1848.         Endif
  1849.         PrintLn ReplaceStr(ReadLine(STRING018, 48), "%NAME%", Upper(STRING029))
  1850.         BOOLEAN015 = 1
  1851.         Return
  1852.     Endif
  1853.     :LABEL087
  1854.     BOOLEAN015 = 1
  1855.     Return
  1856.     :LABEL088
  1857.     BOOLEAN024 = 0
  1858.     FreshLine
  1859.     PrintLn "@X07Searching download.txt for file (@X0C", Upper(STRING037), "@X07), please wait..."
  1860.     If (OnLocal()) SaveScrn
  1861.     Shell 0, BOOLEAN032, PPEPath() + "search.exe", Upper(STRING037) + " " + STRING008 + " " + PPEPath()
  1862.     If (OnLocal()) RestScrn
  1863.     If (BOOLEAN032) Then
  1864.         PrintLn "Couldn't find file (@X0C" + Upper(STRING037) + "@X07) in DOWNLOAD.TXT"
  1865.         Return
  1866.     Endif
  1867.     BOOLEAN024 = 1
  1868.     Return
  1869.     :LABEL089
  1870.     FClose -1
  1871.     FreshLine
  1872.     If (Exist(STRING038)) Goto LABEL090
  1873.     BOOLEAN013 = 1
  1874.     Goto LABEL091
  1875.     :LABEL090
  1876.     BOOLEAN013 = 0
  1877.     :LABEL091
  1878.     FreshLine
  1879.     Newline
  1880.     DispFile PPEPath() + "graph\delmenu", 1 + 4
  1881.     STRING036 = ""
  1882.     InputStr ReadLine(STRING018, 22) + "_", STRING036, 1, 1, "12345", 8
  1883.     FreshLine
  1884.     If (STRING036 == "") Then
  1885.         Goto LABEL091
  1886.     Endif
  1887.     FreshLine
  1888.     Select Case (STRING036)
  1889.         Case "1"
  1890.             If (BOOLEAN013) Then
  1891.                 If (!BOOLEAN008) PrintLn ReplaceStr(ReadLine(STRING018, 23), "%FILE%", Upper(STRING038))
  1892.             Endif
  1893.             If (BOOLEAN008) Then
  1894.                 Gosub LABEL100
  1895.                 Return
  1896.             Else
  1897.                 :LABEL092
  1898.                 Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING038)), "%OFFLINE%", Upper(STRING031))
  1899.                 Rename Upper(STRING038), Upper(STRING031) + "\" + Upper(STRING037)
  1900.                 If (Exist(STRING038)) Then
  1901.                     Copy Upper(STRING038), Upper(STRING031) + "\" + Upper(STRING037)
  1902.                     Delete STRING038
  1903.                 Endif
  1904.                 If (Exist(STRING038)) Then
  1905.                     FreshLine
  1906.                     PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING038)), "%OFFLINE%", Upper(STRING031))
  1907.                     Gosub LABEL110
  1908.                     If (BOOLEAN012) Goto LABEL092
  1909.                     Return
  1910.                 Endif
  1911.             Endif
  1912.             PrintLn ReadLine(STRING018, 26)
  1913.         Case "2"
  1914.             If (BOOLEAN005) Goto LABEL093
  1915.             FreshLine
  1916.             PrintLn ReadLine(STRING018, 28)
  1917.             Wait
  1918.             Goto LABEL091
  1919.             :LABEL093
  1920.             If (BOOLEAN008) Then
  1921.                 Gosub LABEL102
  1922.                 Return
  1923.             Else
  1924.                 :LABEL094
  1925.                 Delete STRING038
  1926.                 If (Exist(STRING038)) Then
  1927.                     FreshLine
  1928.                     PrintLn ReplaceStr(ReadLine(STRING018, 29), "%FILE%", Upper(STRING038))
  1929.                     Gosub LABEL110
  1930.                     If (BOOLEAN012) Goto LABEL094
  1931.                     Return
  1932.                 Endif
  1933.                 FreshLine
  1934.                 PrintLn ReplaceStr(ReadLine(STRING018, 30), "%FILE%", Upper(STRING038))
  1935.             Endif
  1936.         Case "3"
  1937.             If (BOOLEAN013) Then
  1938.                 If (!BOOLEAN008) PrintLn ReplaceStr(ReadLine(STRING018, 23), "%FILE%", Upper(STRING038))
  1939.             Endif
  1940.             If (BOOLEAN008) Then
  1941.                 Gosub LABEL100
  1942.                 Gosub LABEL098
  1943.                 Return
  1944.             Endif
  1945.             :LABEL095
  1946.             Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING038)), "%OFFLINE%", Upper(STRING031))
  1947.             Rename Upper(STRING038), Upper(STRING031) + "\" + Upper(STRING037)
  1948.             If (Exist(STRING038)) Then
  1949.                 Copy Upper(STRING038), Upper(STRING031) + "\" + Upper(STRING037)
  1950.                 Delete STRING038
  1951.             Endif
  1952.             If (Exist(STRING038)) Then
  1953.                 FreshLine
  1954.                 Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING038)), "%OFFLINE%", Upper(STRING031))
  1955.                 Gosub LABEL110
  1956.                 If (BOOLEAN012) Goto LABEL095
  1957.                 Return
  1958.             Endif
  1959.             PrintLn ReadLine(STRING018, 26)
  1960.             :LABEL096
  1961.             If (BOOLEAN025) Then
  1962.                 STRING020 = STRING019 + "\\" + STRING037
  1963.             Else
  1964.                 STRING020 = STRING038
  1965.             Endif
  1966.             FCreate 1, STRING020, 1, 0
  1967.             FClose 1
  1968.             If (!Exist(STRING020) || (FileInf(STRING020, 4) <> 0)) Then
  1969.                 PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING020))
  1970.                 Gosub LABEL110
  1971.                 If (BOOLEAN012) Goto LABEL096
  1972.                 Return
  1973.             Endif
  1974.             PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING020))
  1975.         Case "4"
  1976.             If (BOOLEAN005) Goto LABEL097
  1977.             FreshLine
  1978.             PrintLn ReadLine(STRING018, 28)
  1979.             Wait
  1980.             Goto LABEL091
  1981.             :LABEL097
  1982.             If (BOOLEAN025) Then
  1983.                 STRING020 = STRING019 + "\\" + STRING037
  1984.             Else
  1985.                 STRING020 = STRING038
  1986.             Endif
  1987.             FreshLine
  1988.             FClose -1
  1989.             If (BOOLEAN008) Then
  1990.                 Gosub LABEL098
  1991.                 Return
  1992.             Endif
  1993.             Delete STRING038
  1994.             FCreate 1, STRING020, 1, 0
  1995.             FClose 0
  1996.             If (!Exist(STRING020) || (FileInf(STRING020, 4) <> 0)) Then
  1997.                 PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING020))
  1998.                 Gosub LABEL110
  1999.                 If (BOOLEAN012) Goto LABEL097
  2000.                 Return
  2001.             Endif
  2002.             PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING020))
  2003.         Case "5"
  2004.             FreshLine
  2005.             PrintLn ReadLine(STRING018, 32)
  2006.     End Select
  2007.     Return
  2008.     :LABEL098
  2009.     FOpen 1, PPEPath() + "work\tblst", 0, 0
  2010.     FGet 1, STRING021
  2011.     While (STRING021 <> "") Do
  2012.         If (BOOLEAN025) Then
  2013.             STRING022 = STRING019 + "\" + STRING021
  2014.         Else
  2015.             STRING022 = STRING033 + "\" + STRING021
  2016.         Endif
  2017.         :LABEL099
  2018.         FCreate 2, STRING022, 1, 0
  2019.         FClose 2
  2020.         If (!Exist(STRING022) || (FileInf(STRING022, 4) <> 0)) Then
  2021.             PrintLn ReplaceStr(ReadLine(STRING018, 31), "%FILE%", Upper(STRING022))
  2022.             Gosub LABEL110
  2023.             If (BOOLEAN012) Goto LABEL099
  2024.             FClose 1
  2025.             Return
  2026.         Endif
  2027.         PrintLn ReplaceStr(ReadLine(STRING018, 52), "%FILE%", Upper(STRING022))
  2028.         FGet 1, STRING021
  2029.     EndWhile
  2030.     FClose 1
  2031.     Return
  2032.     :LABEL100
  2033.     FOpen 1, PPEPath() + "work\tblst", 0, 0
  2034.     FGet 1, STRING021
  2035.     While (STRING021 <> "") Do
  2036.         STRING022 = STRING033 + STRING021
  2037.         :LABEL101
  2038.         FreshLine
  2039.         Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 24), "%FILE%", Upper(STRING022)), "%OFFLINE%", Upper(STRING031))
  2040.         Rename Upper(STRING022), Upper(STRING031) + "\" + STRING021
  2041.         If (Exist(STRING022)) Then
  2042.             Copy Upper(STRING022), Upper(STRING031) + "\" + Upper(STRING021)
  2043.             Delete Upper(STRING022)
  2044.         Endif
  2045.         If (Exist(STRING022)) Then
  2046.             FreshLine
  2047.             PrintLn ReplaceStr(ReplaceStr(ReadLine(STRING018, 25), "%FILE%", Upper(STRING022)), "%OFFLINE%", Upper(STRING031))
  2048.             Gosub LABEL110
  2049.             If (BOOLEAN012) Goto LABEL101
  2050.             FClose 1
  2051.             Return
  2052.         Endif
  2053.         PrintLn ReadLine(STRING018, 26)
  2054.         FGet 1, STRING021
  2055.     EndWhile
  2056.     FClose 1
  2057.     Return
  2058.     :LABEL102
  2059.     FOpen 1, PPEPath() + "work\tblst", 0, 0
  2060.     FGet 1, STRING021
  2061.     While (STRING021 <> "") Do
  2062.         STRING022 = STRING033 + STRING021
  2063.         :LABEL103
  2064.         Delete STRING022
  2065.         If (Exist(STRING022)) Then
  2066.             FreshLine
  2067.             PrintLn ReplaceStr(ReadLine(STRING018, 29), "%FILE%", Upper(STRING022))
  2068.             Gosub LABEL110
  2069.             If (BOOLEAN012) Goto LABEL103
  2070.             Return
  2071.         Endif
  2072.         FreshLine
  2073.         PrintLn ReplaceStr(ReadLine(STRING018, 30), "%FILE%", Upper(STRING022))
  2074.         FGet 1, STRING021
  2075.     EndWhile
  2076.     FClose 1
  2077.     Return
  2078.     :LABEL104
  2079.     DefColor
  2080.     Cls
  2081.     If (Exist(STRING032)) Then
  2082.         Print ReadLine(STRING018, 53)
  2083.         Gosub LABEL068
  2084.         If (INT008 == 1) Then
  2085.             FClose -1
  2086.             FreshLine
  2087.             Print ReadLine(STRING018, 54)
  2088.             PrintLn ReadLine(STRING018, 26)
  2089.             PrintLn 
  2090.             Wait
  2091.             Delete Upper(STRING032)
  2092.         Else
  2093.             Return
  2094.         Endif
  2095.     Else
  2096.         PrintLn ReadLine(STRING018, 55)
  2097.         Wait
  2098.     Endif
  2099.     FreshLine
  2100.     Return
  2101.     :LABEL105
  2102.     DefColor
  2103.     Cls
  2104.     PrintLn ReadLine(STRING018, 56)
  2105.     INTEGER012 = 2
  2106.     STRING021 = ReadLine(STRING032, INTEGER012)
  2107.     Print "@X0B"
  2108.     StartDisp 2
  2109.     While (STRING021 <> "") Do
  2110.         Tokenize STRING021
  2111.         Print Left(GetToken(), 12), " "
  2112.         STRING021 = ReadLine(STRING032, INTEGER012 + 2)
  2113.         STRING021 = ReadLine(STRING032, INTEGER012 + 1)
  2114.         If (STRING021 == "") Break
  2115.         Tokenize STRING021
  2116.         Print Left(GetToken(), 12), " "
  2117.         STRING021 = ReadLine(STRING032, INTEGER012 + 2)
  2118.         If (STRING021 == "") Break
  2119.         Tokenize STRING021
  2120.         Print Left(GetToken(), 12), " "
  2121.         STRING021 = ReadLine(STRING032, INTEGER012 + 3)
  2122.         If (STRING021 == "") Break
  2123.         Tokenize STRING021
  2124.         Print Left(GetToken(), 12), " "
  2125.         STRING021 = ReadLine(STRING032, INTEGER012 + 4)
  2126.         If (STRING021 == "") Break
  2127.         Tokenize STRING021
  2128.         Print Left(GetToken(), 12), " "
  2129.         INTEGER012 = INTEGER012 + 5
  2130.         STRING021 = ReadLine(STRING032, INTEGER012)
  2131.         FreshLine
  2132.         If (Abort()) Then
  2133.             ResetDisp
  2134.             Break
  2135.         Endif
  2136.     EndWhile
  2137.     FreshLine
  2138.     StartDisp 1
  2139.     INT024 = INT001
  2140.     :LABEL106
  2141.     Backup 80
  2142.     ClrEol
  2143.     Print ReplaceStr(ReadLine(STRING018, 57), "%DIR%", INT024)
  2144.     Gosub LABEL109
  2145.     FClose -1
  2146.     Select Case (INT008)
  2147.         Case 1
  2148.             STRING036 = ""
  2149.             Backup 80
  2150.             ClrEol
  2151.             InputStr ReadLine(STRING018, 58), STRING036, 1, 12, Mask_File(), 8
  2152.             If (STRING036 == "") Goto LABEL106
  2153.             If (Exist(STRING032)) Goto LABEL107
  2154.             FCreate 1, STRING032, 1, 0
  2155.             FPutLn 1, Upper(U_Name())
  2156.             FPutLn 1, STRING036 + " " + String(INT001)
  2157.             FClose 1
  2158.             Goto LABEL108
  2159.             :LABEL107
  2160.             FAppend 1, STRING032, 1, 0
  2161.             FPutLn 1, STRING036 + " " + String(INT001)
  2162.             FClose 1
  2163.             :LABEL108
  2164.         Case 2
  2165.             STRING036 = ""
  2166.             Backup 80
  2167.             ClrEol
  2168.             InputStr ReadLine(STRING018, 59), STRING036, 1, 12, Mask_File(), 8
  2169.             If (STRING036 == "") Goto LABEL106
  2170.             STRING037 = STRING036
  2171.             Gosub LABEL043
  2172.         Case 3
  2173.             STRING036 = ""
  2174.             Backup 80
  2175.             ClrEol
  2176.             INT002 = 0
  2177.             STRING036 = "U"
  2178.             InputStr "@X07Enter directory (@X0C1-@NUMDIR@, U@X07)", STRING036, 7, Len(String(INT001)), Mask_Num() + "U", 8 + 2
  2179.             If ((ToInteger(STRING036) >= 1) && ToInteger((STRING036 <= INT001))) Then
  2180.                 INT024 = ToInteger(STRING036)
  2181.             ElseIf (STRING036 == "U") Then
  2182.                 INT024 = INT001
  2183.             Endif
  2184.             Goto LABEL106
  2185.         Case Else
  2186.             Return
  2187.     End Select
  2188.     Goto LABEL105
  2189.     :LABEL109
  2190.     INT006 = 1
  2191.     INT007 = 4
  2192.     TSTRING034(1) = ReadLine(STRING018, 60)
  2193.     TSTRING034(2) = ReadLine(STRING018, 61)
  2194.     TSTRING034(3) = "@X0FC@X07hangeDir"
  2195.     TSTRING034(4) = ReadLine(STRING018, 62)
  2196.     Goto LABEL001
  2197.     Return
  2198.     :LABEL110
  2199.     FreshLine
  2200.     Print ReadLine(STRING018, 40)
  2201.     Gosub LABEL068
  2202.     FreshLine
  2203.     If (INT008 == 1) Then
  2204.         BOOLEAN012 = 1
  2205.     Else
  2206.         BOOLEAN012 = 0
  2207.     Endif
  2208.     Return
  2209.     :LABEL111
  2210.     BOOLEAN017 = 0
  2211.     INTEGER005 = 0
  2212.     BOOLEAN007 = 0
  2213.     INTEGER006 = 0
  2214.     If (BOOLEAN015) Goto LABEL112
  2215.     PrintLn ReadLine(STRING018, 63)
  2216.     BOOLEAN017 = 1
  2217.     Return
  2218.     :LABEL112
  2219.     FreshLine
  2220.     STRING016 = ""
  2221.     Newline
  2222.     Gosub LABEL023
  2223.     If (BOOLEAN031) Then
  2224.         BOOLEAN031 = 0
  2225.         INTEGER006 = 0
  2226.         BOOLEAN017 = 1
  2227.         Return
  2228.     Endif
  2229.     FreshLine
  2230.     If (TSTRING011(1) == "") Then
  2231.         FreshLine
  2232.         INTEGER006 = 0
  2233.         BOOLEAN017 = 1
  2234.         Return
  2235.     Endif
  2236.     FreshLine
  2237.     INTEGER004 = U_RecNum(Upper(STRING029))
  2238.     If (INTEGER004 == -1) Then
  2239.         FreshLine
  2240.         PrintLn ReadLine(STRING018, 69)
  2241.         Wait
  2242.         BOOLEAN017 = 1
  2243.         INTEGER005 = 0
  2244.         INTEGER006 = 0
  2245.         Return
  2246.     Endif
  2247.     GetAltUser INTEGER004
  2248.     INTEGER003 = FileInf(STRING038, 4)
  2249.     Gosub LABEL130
  2250.     FreshLine
  2251.     BOOLEAN007 = 0
  2252.     If (INTEGER003 <= 0) Then
  2253.         PrintLn ReadLine(STRING018, 65)
  2254.         STRING036 = ""
  2255.         FreshLine
  2256.         InputStr ReadLine(STRING018, 66) + "_", STRING036, 1, 9, Mask_Num(), 8
  2257.         FreshLine
  2258.         If (STRING036 == "") Then
  2259.             INTEGER006 = 0
  2260.             BOOLEAN017 = 1
  2261.             GetUser
  2262.             Return
  2263.         Endif
  2264.         INTEGER006 = ToInteger(STRING036)
  2265.         BOOLEAN007 = 1
  2266.         INTEGER005 = 0
  2267.     Endif
  2268.     If (BOOLEAN007) Goto LABEL113
  2269.     STRING036 = ""
  2270.     InputStr ReadLine(STRING018, 68) + "_", STRING036, 1, 3, Mask_Num(), 8
  2271.     FreshLine
  2272.     If ((STRING036 == "") || (ToInteger(STRING036) < 0)) Then
  2273.         INTEGER006 = 0
  2274.         BOOLEAN017 = 1
  2275.         GetUser
  2276.         Return
  2277.     Endif
  2278.     INTEGER005 = STRING036
  2279.     INTEGER006 = ToInteger(STRING036) * INTEGER003
  2280.     :LABEL113
  2281.     INTEGER010 = U_Bul()
  2282.     If (BOOLEAN008) Then
  2283.         Gosub LABEL114
  2284.     Endif
  2285.     If (U_Bul() + INTEGER006 > 0) Then
  2286.         STRING036 = String(U_Bul() + INTEGER006)
  2287.         Gosub LABEL133
  2288.     Endif
  2289.     GetAltUser INTEGER004
  2290.     If (INTEGER010 == U_Bul()) Then
  2291.         PrintLn ReadLine(STRING018, 100)
  2292.     Else
  2293.         PrintLn ReplaceStr(ReadLine(STRING018, 70), "%SIZE%", String(INTEGER006))
  2294.         PrintLn ReplaceStr(ReadLine(STRING018, 67), "%SIZE%", String(U_Bul()))
  2295.     Endif
  2296.     GetUser
  2297.     FreshLine
  2298.     Gosub LABEL123
  2299.     Return
  2300.     :LABEL114
  2301.     INTEGER028 = INTEGER006
  2302.     INTEGER001 = 1
  2303.     STRING021 = ReadLine(PPEPath() + "work\tblst", INTEGER001)
  2304.     FCreate 1, PPEPath() + "work\tbbyte", 1, 0
  2305.     FreshLine
  2306.     While (STRING021 <> "") Do
  2307.         If (BOOLEAN007) Then
  2308.             INTEGER002 = INTEGER028
  2309.         Else
  2310.             INTEGER002 = FileInf(STRING033 + STRING021, 4) * INTEGER005
  2311.         Endif
  2312.         If (INTEGER001 <> 1) Then
  2313.             If (BOOLEAN015) Then
  2314.                 PrintLn "@X07Adding nuke bytes for (", Upper(STRING021), ")"
  2315.                 INTEGER006 = INTEGER006 + INTEGER002
  2316.             Endif
  2317.         Endif
  2318.         FPutLn 1, STRING021 + " " + String(INTEGER002)
  2319.         Inc INTEGER001
  2320.         STRING021 = ReadLine(PPEPath() + "work\tblst", INTEGER001)
  2321.     EndWhile
  2322.     FClose 1
  2323.     Return
  2324.     :LABEL115
  2325.     BOOLEAN007 = 0
  2326.     INTEGER005 = 0
  2327.     INTEGER006 = 0
  2328.     If (BOOLEAN015) Goto LABEL116
  2329.     PrintLn ReadLine(STRING018, 71)
  2330.     Print ReadLine(STRING018, 113)
  2331.     Gosub LABEL068
  2332.     FreshLine
  2333.     If (INT008 == 2) Then
  2334.         BOOLEAN031 = 1
  2335.     Endif
  2336.     INTEGER005 = 0
  2337.     INTEGER006 = 0
  2338.     If (BOOLEAN008) Gosub LABEL114
  2339.     Return
  2340.     :LABEL116
  2341.     FreshLine
  2342.     INTEGER004 = U_RecNum(Upper(STRING029))
  2343.     If (INTEGER004 == -1) Then
  2344.         FreshLine
  2345.         PrintLn ReadLine(STRING018, 72)
  2346.         Print ReadLine(STRING018, 113)
  2347.         Gosub LABEL068
  2348.         FreshLine
  2349.         If (INT008 == 2) Then
  2350.             BOOLEAN031 = 1
  2351.             Goto LABEL117
  2352.         Endif
  2353.         Gosub LABEL114
  2354.         :LABEL117
  2355.         INTEGER005 = 0
  2356.         INTEGER006 = 0
  2357.         Return
  2358.     Endif
  2359.     GetAltUser INTEGER004
  2360.     INTEGER003 = FileInf(STRING038, 4)
  2361.     Gosub LABEL130
  2362.     FreshLine
  2363.     BOOLEAN007 = 0
  2364.     If (INTEGER003 <= 0) Then
  2365.         PrintLn ReadLine(STRING018, 65)
  2366.         FreshLine
  2367.         STRING036 = ""
  2368.         InputStr ReadLine(STRING018, 74) + "_", STRING036, 1, 9, Mask_Num(), 8
  2369.         FreshLine
  2370.         If (STRING036 == "") Then
  2371.             INTEGER006 = 0
  2372.             GetUser
  2373.             BOOLEAN031 = 1
  2374.             Return
  2375.         Endif
  2376.         INTEGER006 = ToInteger(STRING036)
  2377.         BOOLEAN007 = 1
  2378.         INTEGER005 = 0
  2379.     Endif
  2380.     If (BOOLEAN007) Goto LABEL118
  2381.     FreshLine
  2382.     STRING036 = ""
  2383.     InputStr ReadLine(STRING018, 27) + "_", STRING036, 1, 3, Mask_Num(), 8
  2384.     FreshLine
  2385.     If (STRING036 <> "") Then
  2386.         INTEGER005 = STRING036
  2387.     Else
  2388.         INTEGER006 = 0
  2389.         INTEGER005 = 0
  2390.         BOOLEAN031 = 1
  2391.         GetUser
  2392.         Return
  2393.     Endif
  2394.     INTEGER006 = ToInteger(STRING036) * INTEGER003
  2395.     :LABEL118
  2396.     INTEGER010 = U_Bul()
  2397.     If (BOOLEAN008) Then
  2398.         Gosub LABEL114
  2399.     Endif
  2400.     If (U_Bul() - INTEGER006 > 0) Then
  2401.         STRING036 = String(U_Bul() - INTEGER006)
  2402.         Gosub LABEL133
  2403.     Endif
  2404.     GetAltUser INTEGER004
  2405.     If (INTEGER010 == U_Bul()) Then
  2406.         PrintLn ReadLine(STRING018, 100)
  2407.     Else
  2408.         PrintLn ReplaceStr(ReadLine(STRING018, 73), "%SIZE%", String(INTEGER006))
  2409.         PrintLn ReplaceStr(ReadLine(STRING018, 67), "%SIZE%", String(U_Bul()))
  2410.     Endif
  2411.     GetUser
  2412.     FreshLine
  2413.     Return
  2414.     :LABEL119
  2415.     FreshLine
  2416.     If (BOOLEAN015) Goto LABEL120
  2417.     PrintLn ReadLine(STRING018, 75)
  2418.     Return
  2419.     :LABEL120
  2420.     If (BOOLEAN008) Then
  2421.         STRING017 = PPEPath() + "graph\tbnuke"
  2422.     Else
  2423.         STRING017 = PPEPath() + "graph\msgnuke"
  2424.     Endif
  2425.     STRING021 = PPEPath() + "bcms" + String(PcbNode())
  2426.     FOpen 1, STRING017, 0, 0
  2427.     FCreate 2, STRING021, 1, 0
  2428.     If (BOOLEAN008) Then
  2429.         FPutLn 2, ReadLine(STRING018, 121)
  2430.         FPutLn 2, ""
  2431.         STRING001 = ReadLine(PPEPath() + "work\tbbyte", 1)
  2432.         INTEGER001 = 1
  2433.         STRING023 = ReadLine(STRING018, 123)
  2434.         While (STRING001 <> "") Do
  2435.             Tokenize STRING001
  2436.             STRING022 = GetToken()
  2437.             FPutLn 2, ReplaceStr(ReplaceStr(STRING023, "@NFILE@", STRING022), "@NUKEBYTES@", GetToken())
  2438.             Inc INTEGER001
  2439.             STRING001 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
  2440.         EndWhile
  2441.     Endif
  2442.     :LABEL121
  2443.     If (Ferr(1)) Goto LABEL122
  2444.     FGet 1, STRING022
  2445.     STRING022 = ReplaceStr(STRING022, "@NUKEE@", Mixed(STRING029))
  2446.     STRING022 = ReplaceStr(STRING022, "@NUKER@", Mixed(U_Name()))
  2447.     STRING022 = ReplaceStr(STRING022, "@NALIAS@", Mixed(U_Alias))
  2448.     STRING022 = ReplaceStr(STRING022, "@NUKEBYTES@", INTEGER006)
  2449.     STRING022 = ReplaceStr(STRING022, "@NFILE@", STRING037)
  2450.     STRING022 = ReplaceStr(STRING022, "@REASON@", Mixed(TSTRING011(1)))
  2451.     FPutLn 2, STRING022
  2452.     Goto LABEL121
  2453.     :LABEL122
  2454.     FClose 1
  2455.     FClose 2
  2456.     FReAltUser
  2457.     Message 0, Upper(STRING029), Upper(U_Name()), "@X7CNUKED!!", "R", 0, 0, 0, STRING021
  2458.     PrintLn ReplaceStr(ReadLine(STRING018, 76), "%NAME%", Upper(STRING029))
  2459.     FClose -1
  2460.     Delete STRING021
  2461.     Return
  2462.     :LABEL123
  2463.     FreshLine
  2464.     If (BOOLEAN015) Goto LABEL124
  2465.     PrintLn ReadLine(STRING018, 77)
  2466.     Return
  2467.     :LABEL124
  2468.     STRING017 = PPEPath() + "graph\msgaward"
  2469.     If (BOOLEAN008) STRING017 = PPEPath() + "graph\tbaward"
  2470.     STRING021 = PPEPath() + "bcms" + String(PcbNode())
  2471.     FOpen 1, STRING017, 0, 0
  2472.     FCreate 2, STRING021, 1, 0
  2473.     If (BOOLEAN008) Then
  2474.         FPutLn 2, ReadLine(STRING018, 122)
  2475.         FPutLn 2, ""
  2476.         STRING001 = ReadLine(PPEPath() + "work\tbbyte", 1)
  2477.         INTEGER001 = 1
  2478.         STRING023 = ReadLine(STRING018, 124)
  2479.         While (STRING001 <> "") Do
  2480.             Tokenize STRING001
  2481.             STRING022 = GetToken()
  2482.             FPutLn 2, ReplaceStr(ReplaceStr(STRING023, "@NFILE@", STRING022), "@NUKEBYTES@", GetToken())
  2483.             Inc INTEGER001
  2484.             STRING001 = ReadLine(PPEPath() + "work\tbbyte", INTEGER001)
  2485.         EndWhile
  2486.     Endif
  2487.     :LABEL125
  2488.     If (Ferr(1)) Goto LABEL126
  2489.     FGet 1, STRING022
  2490.     STRING022 = ReplaceStr(STRING022, "@NUKEE@", Mixed(STRING029))
  2491.     STRING022 = ReplaceStr(STRING022, "@NUKER@", Mixed(U_Name()))
  2492.     STRING022 = ReplaceStr(STRING022, "@NALIAS@", Mixed(U_Alias))
  2493.     STRING022 = ReplaceStr(STRING022, "@NUKEBYTES@", INTEGER006)
  2494.     STRING022 = ReplaceStr(STRING022, "@NFILE@", STRING037)
  2495.     STRING022 = ReplaceStr(STRING022, "@REASON@", Mixed(TSTRING011(1)))
  2496.     FPutLn 2, STRING022
  2497.     Goto LABEL125
  2498.     :LABEL126
  2499.     FClose 1
  2500.     FClose 2
  2501.     FReAltUser
  2502.     Message 0, Upper(STRING029), Upper(U_Name()), "@X7CAWARD!!", "R", 0, 0, 0, STRING021
  2503.     PrintLn ReplaceStr(ReadLine(STRING018, 78), "%NAME%", Upper(STRING029))
  2504.     FClose -1
  2505.     Delete STRING021
  2506.     Return
  2507.     :LABEL127
  2508.     If (Exist(PPEPath() + "nuke.log")) Goto LABEL128
  2509.     FCreate 3, PPEPath() + "nuke.log", 1, 0
  2510.     FPutLn 3, "File         From                 Type  Nuker                Bytes"
  2511.     FPutLn 3, "──────────────────────────────────────────────────────────────────"
  2512.     FClose 3
  2513.     :LABEL128
  2514.     Return
  2515.     :LABEL129
  2516.     Gosub LABEL127
  2517.     FAppend 3, PPEPath() + "nuke.log", 1, 0
  2518.     FPutLn 3, STRING024
  2519.     FClose 3
  2520.     Return
  2521.     :LABEL130
  2522.     FOpen 1, PPEPath() + "graph\credhdr", 0, 0
  2523.     FGet 1, STRING022
  2524.     :LABEL131
  2525.     If (Ferr(1)) Goto LABEL132
  2526.     STRING022 = ReplaceStr(STRING022, "%FILE%", Upper(STRING037))
  2527.     STRING022 = ReplaceStr(STRING022, "%BYTES%", String(INTEGER003))
  2528.     STRING022 = ReplaceStr(STRING022, "%USER%", String(U_Name()))
  2529.     STRING022 = ReplaceStr(STRING022, "%BUL%", String(U_Bul()))
  2530.     STRING022 = ReplaceStr(STRING022, "%BDL%", String(U_Bdl()))
  2531.     PrintLn STRING022
  2532.     FGet 1, STRING022
  2533.     Goto LABEL131
  2534.     :LABEL132
  2535.     FClose 1
  2536.     Return
  2537.     :LABEL133
  2538.     STRING065 = ReadLine(PCBDat(), 29)
  2539.     STRING061 = U_Bul()
  2540.     STRING061 = STRING036
  2541.     STRING066 = STRING036
  2542.     If (STRING066 <> "") Goto LABEL134
  2543.     PrintLn "No input"
  2544.     End
  2545.     :LABEL134
  2546.     DOUBLE001 = STRING066
  2547.     If (DOUBLE001 < -999999999) DOUBLE001 = -999999999
  2548.     If (DOUBLE001 > DOUBLE001) DOUBLE001 = DOUBLE001
  2549.     STRING061 = DOUBLE001
  2550.     STRING062 = "0"
  2551.     If (DOUBLE001 < 0) Then
  2552.         STRING062 = "1"
  2553.         DOUBLE001 = -DOUBLE001
  2554.     Endif
  2555.     STRING063 = I2S(DOUBLE001, 2)
  2556.     INTEGER029 = Len(STRING063) - 1 + 129
  2557.     TBIGSTR001(8) = Chr(INTEGER029)
  2558.     STRING063 = Left(Right(STRING063, Len(STRING063) - 1) + "00000000000000000000000000000000000000000000000000000000000000000", 55)
  2559.     TSTRING064(7) = STRING062 + Left(STRING063, 7)
  2560.     STRING063 = Right(STRING063, Len(STRING063) - 7)
  2561.     For INTEGER030 = -6 To -1
  2562.         TSTRING064(-INTEGER030) = Left(STRING063, 8)
  2563.         STRING063 = Right(STRING063, Len(STRING063) - 8)
  2564.     Next
  2565.     For INTEGER030 = 1 To 7
  2566.         TBIGSTR001(INTEGER030) = Chr(S2I(TSTRING064(INTEGER030), 2))
  2567.     Next
  2568.     FOpen 4, STRING065, 2, 0
  2569.     FSeek 4, (U_RecNum(U_Name()) - 1) * 400 + 216, 0
  2570.     For INTEGER030 = 1 To 8
  2571.         FWrite 4, TBIGSTR001(INTEGER030), 1
  2572.     Next
  2573.     FClose 4
  2574.     Return
  2575.     :LABEL135
  2576.     Backup 80
  2577.     ClrEol
  2578.     If (INTEGER027 >= 60) Then
  2579.         Print ReadLine(STRING018, 90)
  2580.         Delay 25
  2581.         Return
  2582.     Endif
  2583.     STRING036 = ""
  2584.     Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 91), "%FROM%", String(INT020 - 1)), "%TO%", String(INT021 - 1))
  2585.     InputStr "", STRING036, 7, 2, Mask_Num(), 8 + 2
  2586.     If (STRING036 == "") Return
  2587.     If ((ToInteger(STRING036) < INT020 - 1) || (ToInteger(STRING036) > INT021 - 1)) Goto LABEL135
  2588.     INTEGER012 = INTEGER027
  2589.     While (((-1 < 0) && (INTEGER012 >= ToInteger(STRING036) + 1)) || ((-1 >= 0) && (INTEGER012 <= ToInteger(STRING036) + 1))) Do
  2590.         TSTRING059(INTEGER012 + 1) = TSTRING059(INTEGER012)
  2591.         INTEGER012 = INTEGER012 + -1
  2592.     EndWhile
  2593.     Inc INTEGER027
  2594.     TSTRING059(ToInteger(STRING036) + 1) = ""
  2595.     Gosub LABEL138
  2596.     FreshLine
  2597.     Newline
  2598.     INTEGER008 = GetY()
  2599.     If ((STRING036 + 1) % 20 == 0) Then
  2600.         AnsiPos 5, 20
  2601.     Else
  2602.         AnsiPos 5, (ToInteger(STRING036) + 1) % 20
  2603.     Endif
  2604.     STRING021 = ""
  2605.     InputStr "_", STRING021, 1, 45, Mask_Pwd(), 0
  2606.     TSTRING059(ToInteger(STRING036) + 1) = Space(31) + "| " + STRING021
  2607.     AnsiPos 1, INTEGER008
  2608.     BOOLEAN020 = 1
  2609.     Return
  2610.     :LABEL136
  2611.     Backup 80
  2612.     ClrEol
  2613.     STRING036 = ""
  2614.     Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 92), "%FROM%", String(INT020)), "%TO%", String(INT021))
  2615.     InputStr "", STRING036, 7, 2, Mask_Num(), 8 + 2
  2616.     If (STRING036 == "") Return
  2617.     If ((ToInteger(STRING036) < INT020) || (ToInteger(STRING036) > INT021)) Goto LABEL137
  2618.     Dec INTEGER027
  2619.     For INTEGER012 = STRING036 To INTEGER027
  2620.         TSTRING059(INTEGER012) = TSTRING059(INTEGER012 + 1)
  2621.     Next
  2622.     Gosub LABEL138
  2623.     FreshLine
  2624.     Newline
  2625.     BOOLEAN020 = 1
  2626.     Return
  2627.     :LABEL137
  2628.     Backup 80
  2629.     ClrEol
  2630.     STRING036 = ""
  2631.     Print ReplaceStr(ReplaceStr(ReadLine(STRING018, 93), "%FROM%", String(INT020)), "%TO%", String(INT021))
  2632.     InputStr "", STRING036, 7, 2, Mask_Num(), 8 + 2
  2633.     If (STRING036 == "") Return
  2634.     If ((ToInteger(STRING036) < INT020) || (ToInteger(STRING036) > INT021)) Goto LABEL137
  2635.     TSTRING059(ToInteger(STRING036)) = ""
  2636.     Backup 80
  2637.     ClrEol
  2638.     INTEGER008 = GetY()
  2639.     If ((STRING036 + 1) % 20 == 0) Then
  2640.         AnsiPos 5, 20
  2641.     Else
  2642.         AnsiPos 5, ToInteger(STRING036) % 20
  2643.     Endif
  2644.     ClrEol
  2645.     STRING021 = ""
  2646.     InputStr "_", STRING021, 1, 45, Mask_Pwd(), 0
  2647.     TSTRING059(ToInteger(STRING036)) = Space(31) + "| " + STRING021
  2648.     AnsiPos 1, INTEGER008
  2649.     BOOLEAN020 = 1
  2650.     Return
  2651.     :LABEL138
  2652.     Select Case (INT022)
  2653.         Case 1
  2654.             INT020 = 1
  2655.             If (INTEGER027 >= 20) Then
  2656.                 INT021 = 20
  2657.             Else
  2658.                 INT021 = INTEGER027
  2659.             Endif
  2660.         Case 2
  2661.             If (INTEGER027 > 20) Then
  2662.                 INT020 = 21
  2663.                 If (INTEGER027 >= 40) Then
  2664.                     INT021 = 40
  2665.                     Goto LABEL139
  2666.                 Endif
  2667.                 INT021 = INTEGER027
  2668.             Endif
  2669.             :LABEL139
  2670.         Case 3
  2671.         Case 40
  2672.             INT020 = 41
  2673.             If (INTEGER027 >= 60) Then
  2674.                 INT021 = 60
  2675.                 Goto LABEL140
  2676.             Endif
  2677.             INT021 = INTEGER027
  2678.     End Select
  2679.     :LABEL140
  2680.     DefColor
  2681.     Cls
  2682.     STRING067 = ReadLine(STRING018, 94)
  2683.     For INTEGER012 = INT020 To INT021
  2684.         If (INTEGER012 == 1) Then
  2685.             Print STRING067, "1 ", TSTRING030(3), ":" + Mid(TSTRING059(1), 33, Len(TSTRING059(1)) - 30)
  2686.         Else
  2687.             If (INTEGER012 == INT020) Then
  2688.                 Goto LABEL141
  2689.             Endif
  2690.             Newline
  2691.         Endif
  2692.         :LABEL141
  2693.         If (INTEGER012 <> 1) Print STRING067, Left(String(INTEGER012), 2) , TSTRING030(3) , ":" + Mid(TSTRING059(INTEGER012), 33, Len(TSTRING059(INTEGER012)) - 30)
  2694.     Next
  2695.     Return
  2696.     :LABEL142
  2697.     Print "@X07Checking access, please wait..."
  2698.     If (Upper(ReadLine(STRING015, 9)) == "NO") Then
  2699.         Tokenize ReadLine(STRING015, 8)
  2700.         If (CurSec() >= GetToken()) BOOLEAN001 = 1
  2701.         If (CurSec() >= GetToken()) BOOLEAN002 = 1
  2702.         If (CurSec() >= GetToken()) BOOLEAN003 = 1
  2703.         If (CurSec() >= GetToken()) BOOLEAN004 = 1
  2704.         If (CurSec() >= GetToken()) BOOLEAN005 = 1
  2705.         PrintLn "@X0CDONE!"
  2706.         Return
  2707.     Endif
  2708.     STRING021 = PPEPath() + "users.cfg"
  2709.     STRING022 = Upper(ReadLine(STRING021, 1))
  2710.     INTEGER012 = 1
  2711.     While (STRING022 <> "") Do
  2712.         If (STRING022 == Upper(U_Name())) Then
  2713.             Tokenize ReadLine(STRING021, INTEGER012 + 1)
  2714.             If (GetToken() == "YES") BOOLEAN001 = 1
  2715.             If (GetToken() == "YES") BOOLEAN002 = 1
  2716.             If (GetToken() == "YES") BOOLEAN003 = 1
  2717.             If (GetToken() == "YES") BOOLEAN004 = 1
  2718.             If (GetToken() == "YES") BOOLEAN005 = 1
  2719.             PrintLn "@X0CDONE!"
  2720.             Return
  2721.         Endif
  2722.         Inc INTEGER012
  2723.         Inc INTEGER012
  2724.         STRING022 = Upper(ReadLine(STRING021, INTEGER012))
  2725.     EndWhile
  2726.     FreshLine
  2727.     DispFile PPEPath() + "graph\noaxx", 0
  2728.     Wait
  2729.     End
  2730.     Return
  2731.     :LABEL143
  2732.     FreshLine
  2733.     BOOLEAN019 = 0
  2734.     If (BOOLEAN008) Then
  2735.         Print ReadLine(STRING018, 119)
  2736.     Else
  2737.         Print ReadLine(STRING018, 88)
  2738.     Endif
  2739.     Gosub LABEL068
  2740.     If (INT008 == 2) Then
  2741.         BOOLEAN019 = 1
  2742.         Return
  2743.     Endif
  2744.     FreshLine
  2745.     STRING016 = ""
  2746.     STRING036 = ""
  2747.     Gosub LABEL025
  2748.     If (BOOLEAN023) Then
  2749.         BOOLEAN019 = 1
  2750.         Return
  2751.     Endif
  2752.     FClose -1
  2753.     FAppend 1, STRING013, 1, 0
  2754.     If (BOOLEAN008) Then
  2755.         STRING021 = PPEPath() + "work\tblst"
  2756.         INTEGER001 = 1
  2757.         STRING022 = ReadLine(STRING021, INTEGER001)
  2758.         While (STRING022 <> "") Do
  2759.             FPutLn 1, Upper(STRING033) + "," + Upper(STRING022) + "," + String(INTEGER009) + "," + "FREE" + "," + "1"
  2760.             Inc INTEGER001
  2761.             STRING022 = ReadLine(STRING021, INTEGER001)
  2762.         EndWhile
  2763.     Else
  2764.         FPutLn 1, Upper(STRING033) + "," + Upper(STRING037) + "," + String(INTEGER009) + "," + "FREE" + "," + "1"
  2765.     Endif
  2766.     FClose 1
  2767.     Return
  2768.     :LABEL144
  2769.     FClose -1
  2770.     Print "@X0DAdding files to batch, please wait..."
  2771.     If (Exist(STRING032)) Goto LABEL145
  2772.     FCreate 1, STRING032, 1, 0
  2773.     FPutLn 1, Upper(U_Name())
  2774.     Goto LABEL146
  2775.     :LABEL145
  2776.     FAppend 1, STRING032, 1, 0
  2777.     :LABEL146
  2778.     FOpen 2, PPEPath() + "work\tblst", 0, 0
  2779.     FGet 2, STRING068
  2780.     :LABEL147
  2781.     If (Ferr(2)) Goto LABEL148
  2782.     FPutLn 1, STRING068 + " " + String(INT018)
  2783.     FGet 2, STRING068
  2784.     Goto LABEL147
  2785.     :LABEL148
  2786.     FClose 2
  2787.     FClose 1
  2788.     PrintLn "@X0CDONE!"
  2789.     Wait
  2790.     Return
  2791.     Return
  2792.  
  2793. ;------------------------------------------------------------------------------
  2794. ;
  2795. ; Usage report (before postprocessing)
  2796. ;
  2797. ; ■ Statements used :
  2798. ;
  2799. ;    10      End
  2800. ;    13      Cls
  2801. ;    15      ClrEol
  2802. ;    22      Wait
  2803. ;    652     Goto 
  2804. ;    638     Let 
  2805. ;    86      Print 
  2806. ;    101     PrintLn 
  2807. ;    420     If 
  2808. ;    19      DispFile 
  2809. ;    15      FCreate 
  2810. ;    17      FOpen 
  2811. ;    10      FAppend 
  2812. ;    54      FClose 
  2813. ;    18      FGet 
  2814. ;    1       FPut 
  2815. ;    38      FPutLn 
  2816. ;    3       ResetDisp
  2817. ;    10      StartDisp 
  2818. ;    6       GetUser
  2819. ;    19      DefColor
  2820. ;    13      Delete 
  2821. ;    1       Log 
  2822. ;    23      InputStr 
  2823. ;    133     Gosub 
  2824. ;    139     Return
  2825. ;    8       Delay 
  2826. ;    23      Inc 
  2827. ;    4       Dec 
  2828. ;    12      Newline
  2829. ;    32      Tokenize 
  2830. ;    6       Shell 
  2831. ;    1       KbdStuff 
  2832. ;    1       Call 
  2833. ;    3       Dir 
  2834. ;    12      AnsiPos 
  2835. ;    14      Backup 
  2836. ;    1       Forward 
  2837. ;    108     FreshLine
  2838. ;    2       Message 
  2839. ;    5       SaveScrn
  2840. ;    5       RestScrn
  2841. ;    5       Rename 
  2842. ;    1       Frewind 
  2843. ;    5       FSeek 
  2844. ;    6       FRead 
  2845. ;    1       FWrite 
  2846. ;    2       Redim 
  2847. ;    7       Copy 
  2848. ;    4       GetAltUser 
  2849. ;    2       FReAltUser
  2850. ;
  2851. ;
  2852. ; ■ Functions used :
  2853. ;
  2854. ;    39      -
  2855. ;    9       *
  2856. ;    5       %
  2857. ;    392     +
  2858. ;    30      -
  2859. ;    167     ==
  2860. ;    37      <>
  2861. ;    30      <
  2862. ;    26      <=
  2863. ;    16      >
  2864. ;    56      >=
  2865. ;    368     !
  2866. ;    51      &&
  2867. ;    39      ||
  2868. ;    11      Len(
  2869. ;    128     Upper()
  2870. ;    10      Mid()
  2871. ;    49      Left()
  2872. ;    3       Right()
  2873. ;    7       Space()
  2874. ;    11      Ferr()
  2875. ;    6       Chr()
  2876. ;    2       InStr()
  2877. ;    4       Abort()
  2878. ;    2       LTrim()
  2879. ;    4       RTrim()
  2880. ;    1       Time()
  2881. ;    19      U_Name()
  2882. ;    1       U_Bdl()
  2883. ;    12      U_Bul()
  2884. ;    16      StripAtx()
  2885. ;    1       Strip()
  2886. ;    2       Inkey()
  2887. ;    49      String()
  2888. ;    10      Mask_Pwd()
  2889. ;    9       Mask_Num()
  2890. ;    2       Mask_File()
  2891. ;    3       CurConf()
  2892. ;    4       PCBDat()
  2893. ;    90      PPEPath()
  2894. ;    6       PcbNode()
  2895. ;    230     ReadLine()
  2896. ;    6       OnLocal()
  2897. ;    5       CurSec()
  2898. ;    66      GetToken()
  2899. ;    30      Exist()
  2900. ;    1       I2S()
  2901. ;    1       S2I()
  2902. ;    1       AnsiOn()
  2903. ;    5       GetX()
  2904. ;    9       GetY()
  2905. ;    8       FileInf()
  2906. ;    2       HelpPath()
  2907. ;    1       TokCount()
  2908. ;    8       U_RecNum()
  2909. ;    1       ScrText()
  2910. ;    86      ReplaceStr()
  2911. ;    25      ToInteger()
  2912. ;    10      Mixed()
  2913. ;    1       IsNonStop()
  2914. ;    1       PCBMac()
  2915. ;
  2916. ;------------------------------------------------------------------------------
  2917. ;
  2918. ; Analysis flags : RSCd
  2919. ;
  2920. ; R - Read user ■ 5
  2921. ;     User records are read, this may signify that someone wants to get
  2922. ;     various informations about a user (for example his password), but
  2923. ;     this may also be normal for a program accessing user records (for
  2924. ;     example a User Editor)
  2925. ;     ■ Search for : GETALTUSER
  2926. ;
  2927. ; S - Shell to DOS ■ 5
  2928. ;     This may be normal if the PPE need to execute an external command,
  2929. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  2930. ;     or usefull (sorting, maintenance,...). Check!
  2931. ;     ■ Search for : SHELL
  2932. ;
  2933. ; C - Call child PPE ■ 3
  2934. ;     This is usually normal, but may be a tricky way to launch some
  2935. ;     sysop-only commands.
  2936. ;     ■ Search for : CALL
  2937. ;
  2938. ; d - Access PCBOARD.DAT ■ 2
  2939. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  2940. ;     for many PPE so they can find various informations on the system
  2941. ;     (system paths, max number of lines in messages, ...) but it may also
  2942. ;     be a way to gather vital informations.
  2943. ;     ■ Search for : PCBDAT()
  2944. ;
  2945. ;------------------------------------------------------------------------------
  2946. ;
  2947. ; Postprocessing report
  2948. ;
  2949. ;    21      For/Next
  2950. ;    20      While/EndWhile
  2951. ;    216     If/Then or If/Then/Else
  2952. ;    13      Select Case
  2953. ;
  2954. ;------------------------------------------------------------------------------
  2955. ;                 AEGiS Corp - Break the routines, code against the machines!
  2956. ;------------------------------------------------------------------------------
  2957.