home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTCK231.ZIP / UPCHK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-22  |  28KB  |  1,515 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Date     DATE001
  26.     Date     DATE002
  27.     Date     DATE003
  28.     Date     DATE004
  29.     Date     DATE005
  30.     Date     DATE006
  31.     Date     DATE007
  32.     Integer  INTEGER001
  33.     Integer  INTEGER002
  34.     Integer  INTEGER003
  35.     Integer  INTEGER004
  36.     Integer  INTEGER005
  37.     Integer  INTEGER006
  38.     Integer  INTEGER007
  39.     Integer  INTEGER008
  40.     Integer  INTEGER009
  41.     Integer  INTEGER010
  42.     Integer  INTEGER011
  43.     Integer  INTEGER012
  44.     Integer  INTEGER013
  45.     Integer  INTEGER014
  46.     Integer  INTEGER015
  47.     Integer  INTEGER016
  48.     Integer  INTEGER017
  49.     Integer  INTEGER018
  50.     Integer  INTEGER019
  51.     Integer  INTEGER020
  52.     Integer  INTEGER021
  53.     Integer  INTEGER022
  54.     Integer  INTEGER023
  55.     Integer  INTEGER024
  56.     Integer  INTEGER025
  57.     Integer  INTEGER026
  58.     Integer  INTEGER027
  59.     Integer  INTEGER028
  60.     Integer  INTEGER029
  61.     Integer  INTEGER030
  62.     Integer  INTEGER031
  63.     Integer  INTEGER032
  64.     Integer  INTEGER033
  65.     Integer  INTEGER034
  66.     String   STRING001
  67.     String   STRING002
  68.     String   STRING003
  69.     String   STRING004
  70.     String   STRING005
  71.     String   STRING006
  72.     String   STRING007
  73.     String   STRING008
  74.     String   STRING009
  75.     String   STRING010
  76.     String   STRING011
  77.     String   STRING012
  78.     String   STRING013
  79.     String   STRING014
  80.     String   STRING015
  81.     String   STRING016
  82.     String   STRING017
  83.     String   STRING018
  84.     String   STRING019
  85.     String   STRING020
  86.     String   STRING021
  87.     String   STRING022
  88.     String   STRING023
  89.     String   STRING024
  90.     String   STRING025
  91.     String   STRING026
  92.     String   STRING027
  93.     String   STRING028
  94.     String   STRING029
  95.     String   STRING030
  96.     String   STRING031
  97.     String   STRING032
  98.     String   STRING033
  99.     String   STRING034
  100.     String   STRING035
  101.     String   STRING036
  102.     String   STRING037
  103.     String   STRING038
  104.     String   STRING039
  105.     String   STRING040
  106.     String   STRING041
  107.     String   STRING042
  108.     String   STRING043
  109.     String   STRING044
  110.     String   STRING045
  111.     String   STRING046
  112.     String   STRING047
  113.     String   STRING048
  114.     String   STRING049
  115.     String   STRING050
  116.     String   STRING051
  117.     String   STRING052
  118.     String   STRING053
  119.     String   STRING054
  120.     String   STRING055
  121.     String   STRING056
  122.     String   STRING057
  123.     String   STRING058
  124.     String   STRING059
  125.     String   STRING060
  126.     String   STRING061
  127.     String   STRING062
  128.     String   STRING063
  129.     String   STRING064
  130.     String   STRING065
  131.     String   STRING066
  132.     String   STRING067
  133.     String   STRING068
  134.     String   STRING069
  135.     String   STRING070
  136.     String   STRING071
  137.     String   STRING072
  138.     String   STRING073
  139.     String   STRING074
  140.     String   STRING075
  141.     String   STRING076
  142.     String   STRING077
  143.     String   STRING078
  144.     String   STRING079
  145.     String   STRING080
  146.     String   STRING081
  147.     String   STRING082
  148.     String   STRING083
  149.     String   STRING084
  150.     String   STRING085
  151.     String   STRING086
  152.     String   STRING087
  153.     String   STRING088
  154.     String   STRING089
  155.     String   STRING090
  156.     String   STRING091
  157.     String   STRING092
  158.     String   STRING093
  159.     String   STRING094
  160.     String   STRING095
  161.     String   STRING096
  162.     String   STRING097
  163.     String   STRING098
  164.     String   STRING099
  165.     String   STRING100
  166.     String   STRING101
  167.     String   STRING102
  168.     String   STRING103
  169.     String   STRING104
  170.     String   STRING105
  171.     String   STRING106
  172.     String   STRING107
  173.     String   STRING108
  174.     String   STRING109
  175.     String   STRING110
  176.     String   STRING111
  177.     String   STRING112
  178.     String   STRING113
  179.     String   STRING114
  180.     String   STRING115
  181.     String   STRING116
  182.     String   STRING117
  183.     String   STRING118
  184.     String   STRING119
  185.     String   STRING120
  186.     String   STRING121
  187.     String   STRING122
  188.     String   STRING123
  189.     String   STRING124
  190.     String   STRING125
  191.     String   STRING126
  192.     String   STRING127
  193.     String   STRING128
  194.     String   STRING129
  195.     String   STRING130
  196.     String   STRING131
  197.     String   STRING132
  198.     String   STRING133
  199.     String   STRING134
  200.     String   TSTRING135(65)
  201.     String   TSTRING136(1)
  202.     String   STRING137
  203.     String   STRING138
  204.     String   STRING139
  205.     String   STRING140
  206.     String   STRING141
  207.     String   STRING142
  208.     String   STRING143
  209.     String   STRING144
  210.     String   STRING145
  211.     String   STRING146
  212.     String   STRING147
  213.     String   STRING148
  214.     String   STRING149
  215.  
  216. ;------------------------------------------------------------------------------
  217.  
  218.     CdChkOff
  219.     If (STRING006 == "test") Then
  220.         Goto LABEL001
  221.     Else
  222.         Goto LABEL002
  223.     Endif
  224.     :LABEL001
  225.     If (!(STRING006 == 0)) Stop ; PPLC BUG!
  226.     Select Case (INTEGER001)
  227.         Case 0
  228.             PrintLn KbdBufSize()
  229.             PrintLn PPLBufSize()
  230.             :LABEL002
  231.             INTEGER012 = 999999
  232.             FDefIn 1
  233.             FDefOut 3
  234.             BOOLEAN005 = 0
  235.             STRING072 = ReadLine(PCBDat(), 244)
  236.             INTEGER005 = ReadLine(PCBDat(), 198)
  237.             INTEGER002 = ReadLine(PCBDat(), 108)
  238.             STRING081 = ReadLine(PCBDat(), 31)
  239.             STRING045 = ReadLine(PCBDat(), 96)
  240.             STRING129 = ReadLine(PCBDat(), 179)
  241.             STRING062 = ReadLine(PCBDat(), 94)
  242.             STRING062 = RTrim(Mid(STRING062, 1, 30), " ")
  243.             FClose -1
  244.             If (Exist(TempPath() + "PCBFAIL.TXT")) Delete TempPath() + "PCBFAIL.TXT"
  245.             If (Exist(TempPath() + "PCBPASS.TXT")) Delete TempPath() + "PCBPASS.TXT"
  246.             If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "TODO.LST")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "TODO.LST"
  247.             If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "FILELIST.ARC")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "FILELIST.ARC"
  248.             If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBPASS.TXT")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBPASS.TXT"
  249.             If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBFAIL.TXT")) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\" + "PCBFAIL.TXT"
  250.             STRING101 = Chr(50) + Chr(46) + Chr(51) + Chr(49)
  251.             STRING100 = Chr(64) + Chr(88) + Chr(52) + Chr(70) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(85) + Chr(80) + Chr(45) + Chr(67) + Chr(104) + Chr(101) + Chr(99) + Chr(107) + " " + Chr(64) + Chr(88) + Chr(52) + Chr(66) + Chr(118) + STRING101
  252.             RestScrn
  253.             INTEGER013 = CurConf()
  254.             StartDisp 1
  255.             If (Exist(PPEPath() + PPEName() + String(INTEGER013) + ".cnf")) Then
  256.                 FOpen 1, PPEPath() + PPEName() + String(INTEGER013) + ".cnf", 0, 0
  257.                 Goto LABEL003
  258.             Endif
  259.             FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  260.             :LABEL003
  261.             FDGet STRING115
  262.             FDGet STRING127
  263.             FDGet INTEGER011
  264.             FDGet STRING006
  265.             FDGet STRING017
  266.             FDGet STRING001
  267.             FDGet STRING114
  268.             FDGet STRING104
  269.             FDGet STRING102
  270.             FDGet STRING090
  271.             FDGet STRING106
  272.             FDGet STRING073
  273.             FDGet STRING066
  274.             FDGet STRING061
  275.             FDGet STRING043
  276.             FDGet STRING034
  277.             FDGet STRING035
  278.             FDGet STRING014
  279.             FDGet INTEGER018
  280.             FDGet STRING109
  281.             FClose 1
  282.             FOpen 1, PPEPath() + PPEName() + "c.cnf", 0, 0
  283.             FDGet STRING116
  284.             FDGet STRING087
  285.             FDGet STRING091
  286.             FDGet STRING088
  287.             FDGet STRING063
  288.             FDGet STRING064
  289.             FDGet STRING044
  290.             FDGet STRING036
  291.             FDGet STRING015
  292.             FDGet STRING016
  293.             FClose 1
  294.             FOpen 1, PPEPath() + PPEName() + "d.cnf", 0, 0
  295.             FDGet STRING108
  296.             FDGet STRING117
  297.             FDGet STRING118
  298.             FDGet STRING119
  299.             FDGet STRING120
  300.             FDGet STRING121
  301.             FDGet STRING122
  302.             FDGet STRING123
  303.             FDGet STRING124
  304.             FDGet STRING125
  305.             FDGet STRING126
  306.             FDGet STRING103
  307.             FDGet STRING089
  308.             FDGet STRING133
  309.             FDGet STRING134
  310.             FDGet STRING107
  311.             FDGet STRING065
  312.             FDGet STRING070
  313.             FDGet STRING067
  314.             FDGet STRING042
  315.             FDGet STRING032
  316.             FDGet STRING037
  317.             FDGet STRING024
  318.             FDGet STRING025
  319.             FDGet STRING026
  320.             FDGet STRING008
  321.             FDGet STRING010
  322.             FDGet STRING018
  323.             FDGet STRING074
  324.             FDGet STRING004
  325.             FDGet STRING005
  326.             FClose 1
  327.             FOpen 1, PPEPath() + PPEName() + "a.cnf", 0, 0
  328.             FDGet STRING046
  329.             FDGet STRING047
  330.             FDGet STRING048
  331.             FDGet STRING049
  332.             FDGet STRING050
  333.             FDGet STRING052
  334.             FDGet STRING053
  335.             FDGet STRING054
  336.             FDGet STRING055
  337.             FDGet STRING056
  338.             FDGet STRING057
  339.             FDGet STRING058
  340.             FDGet STRING068
  341.             FDGet STRING069
  342.             FDGet STRING002
  343.             FDGet STRING033
  344.             FDGet STRING011
  345.             FDGet STRING012
  346.             FDGet STRING019
  347.             FDGet STRING020
  348.             FClose 1
  349.             FOpen 1, PPEPath() + "error.msg", 0, 0
  350.             FDGet STRING038
  351.             FDGet STRING039
  352.             FDGet STRING040
  353.             FDGet STRING041
  354.             FDGet STRING003
  355.             FClose 1
  356.             STRING092 = ""
  357.             STRING092 = TokenStr()
  358.             If (STRING092 <> "") Then
  359.                 Tokenize STRING092
  360.                 GetToken STRING092
  361.                 GetToken STRING095
  362.                 If ((((Upper(STRING092) == "*.ZIP") || (Upper(STRING092) == "*.ARJ")) || (Upper(STRING092) == "*.LZH")) || (Upper(STRING092) == "*.*")) Then
  363.                     Shell 1, BOOLEAN002, "dir " + STRING073 + Mid(STRING092, 2, 4), " /b>todo.lst"
  364.                     FOpen 7, "todo.lst", 0, 0
  365.                     :LABEL004
  366.                     If (Ferr(7)) Goto LABEL006
  367.                     :LABEL005
  368.                     FGet 7, STRING092
  369.                     If (STRING092 == "") Stop
  370.                     OpText STRING092
  371.                     Goto LABEL008
  372.                     Goto LABEL004
  373.                     :LABEL006
  374.                     Goto LABEL007
  375.                 Endif
  376.                 OpText STRING092
  377.             Endif
  378.             :LABEL007
  379.             FClose 7
  380.             Goto LABEL008
  381.             PrintLn PPLBufSize()
  382.             PrintLn KbdBufSize()
  383.             :LABEL008
  384.             STRING031 = ""
  385.             STRING027 = ""
  386.             INTEGER031 = ""
  387.             DATE004 = ""
  388.             DATE003 = ""
  389.             INTEGER030 = ""
  390.             STRING028 = ""
  391.             If (Upper(STRING095) == "/L") STRING071 = STRING073
  392.             If (Upper(STRING095) == "TEST") Then
  393.                 Gosub LABEL009
  394.                 If (STRING092 == "") Then
  395.                     DispText 326, 2048 + 64
  396.                     DispStr "!" + PPEPath() + "test574.ppe"
  397.                     Goto LABEL088
  398.                 Endif
  399.             Endif
  400.             Goto LABEL013
  401.             :LABEL009
  402.             FOpen 1, STRING072, 2, 0
  403.             :LABEL010
  404.             If (Ferr(1)) Goto LABEL011
  405.             FGet 1, STRING071
  406.             If (Exist(STRING071 + STRING092)) Then
  407.                 FClose 1
  408.                 Return
  409.             Endif
  410.             Goto LABEL010
  411.             :LABEL011
  412.             FClose 1
  413.             STRING092 = ""
  414.             Return
  415.             :LABEL012
  416.             GetToken STRING094
  417.             GetToken INTEGER015
  418.             AnsiPos STRING094, INTEGER015
  419.             Return
  420.             :LABEL013
  421.             DispFile PPEPath() + PPEName() + ".dsp", 0
  422.             Tokenize STRING019
  423.             Gosub LABEL012
  424.             Print "@X70" + STRING062 + " Up-Check!"
  425.             Tokenize STRING020
  426.             Gosub LABEL012
  427.             If (INTEGER015 == 0) INTEGER015 = 2
  428.             AnsiPos STRING094, INTEGER015
  429.             Print STRING100
  430.             STRING138 = ""
  431.             STRING139 = ""
  432.             STRING140 = ""
  433.             STRING141 = ""
  434.             STRING142 = ""
  435.             STRING143 = ""
  436.             STRING144 = ""
  437.             STRING145 = ""
  438.             TSTRING136(0) = Upper(ReadLine(PCBDat(), 2))
  439.             TSTRING136(1) = Upper(ReadLine(PCBDat(), 94))
  440.             FClose -1
  441.             INTEGER033 = Len(TSTRING136(0))
  442.             If (INTEGER033 < 2) TSTRING136(0) = Chr(109) + Chr(101)
  443.             INTEGER032 = Len(TSTRING136(1))
  444.             If (INTEGER032 < 2) TSTRING136(1) = Chr(109) + Chr(101)
  445.             For INTEGER034 = 1 To INTEGER033
  446.                 TSTRING135(INTEGER034) = Mid(TSTRING136(0), INTEGER034, 1) + I2S(11, 36) + I2S(13, 36) + I2S(15, 36)
  447.                 STRING138 = STRING138 + S2I(TSTRING135(INTEGER034), 31) + S2I(TSTRING135(INTEGER034), 33)
  448.                 STRING139 = STRING139 + I2S(S2I(TSTRING135(INTEGER034), 31), 25) + I2S(S2I(99, 29), 32)
  449.             Next
  450.             STRING138 = STRING138 + S2I(I2S(14, 36) + I2S(11, 36), 31)
  451.             STRING138 = STRING138 * INTEGER033
  452.             STRING139 = STRING139 + I2S(S2I(56, 31), 35)
  453.             For INTEGER034 = 1 To INTEGER032
  454.                 TSTRING135(INTEGER034) = Mid(TSTRING136(1), INTEGER034, 1) + I2S(15, 36) + I2S(11, 36) + I2S(13, 36)
  455.                 STRING140 = STRING140 + S2I(TSTRING135(INTEGER034), 35) + S2I(TSTRING135(INTEGER034), 32)
  456.                 STRING141 = STRING141 + I2S(S2I(TSTRING135(INTEGER034), 31), 30) + I2S(S2I(79, 29), 35)
  457.             Next
  458.             STRING140 = STRING140 + S2I(I2S(11, 36) + I2S(14, 36), 31)
  459.             STRING140 = STRING140 * INTEGER032
  460.             STRING141 = STRING141 + I2S(S2I(65, 31), 32)
  461.             FClose 1
  462.             If (Exist(PPEPath() + PPEName() + ".key")) FOpen 1, PPEPath() + PPEName() + ".key", 0, 0
  463.             FGet 1, STRING142
  464.             FGet 1, STRING143
  465.             FGet 1, STRING144
  466.             FGet 1, STRING145
  467.             FClose 1
  468.             If (Exist(PPEPath() + PPEName() + ".key")) Then
  469.                 If (((!(STRING138 == STRING142) || !(STRING139 == STRING143)) || !(STRING140 == STRING144)) || !(STRING141 == STRING145)) Then
  470.                     PrintLn "@X8FInvalid @X0C" + PPEName() + "@X0F.KEY File has been found"
  471.                     Delete PPEPath() + PPEName() + ".key"
  472.                 Endif
  473.             Endif
  474.             STRING137 = Chr(64) + I2S(33, 36) + I2S(0, 36) + I2S(12, 36) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + I2S(0, 36) + I2S(12, 36) + I2S(30, 36) + I2S(23, 36) + I2S(27, 36) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + I2S(0, 36) + I2S(12, 36) + Chr(62) + Chr(62) + Chr(62)
  475.             If (((!(STRING138 == STRING142) || !(STRING139 == STRING143)) || !(STRING140 == STRING144)) || !(STRING141 == STRING145)) Then
  476.                 Newline
  477.                 AnsiPos 22, 3
  478.                 Print STRING137
  479.                 Print "  " + Chr(64) + Chr(88) + Chr(48) + I2S(15, 36) + I2S(25, 36) + I2S(21, 26) + I2S(14, 36) + I2S(10, 36) + I2S(28, 36) + I2S(14, 36) + " " + I2S(27, 36) + I2S(14, 36) + I2S(16, 36) + I2S(18, 36) + I2S(28, 36) + I2S(29, 36) + I2S(14, 36) + I2S(27, 36) + " "
  480.             Endif
  481.             Tokenize STRING047
  482.             Gosub LABEL012
  483.             Print STRING091 + "@OPTEXT@"
  484.             STRING092 = ScrText(STRING094, INTEGER015, 12, 0)
  485.             STRING092 = RTrim(STRING092, " ")
  486.             If (FileInf(STRING092, 9) == "") Then
  487.                 STRING092 = STRING092 + STRING045
  488.             Endif
  489.             Tokenize STRING046
  490.             Gosub LABEL012
  491.             GetUser
  492.             If (Alias() == 1) Then
  493.                 AnsiPos STRING094, INTEGER015
  494.                 Print STRING116 + U_Alias
  495.                 Goto LABEL014
  496.             Endif
  497.             AnsiPos STRING094, INTEGER015
  498.             Print STRING116 + U_Name()
  499.             :LABEL014
  500.             If ((Upper(STRING095) == "TEST") || (Upper(STRING095) == "/L")) Then
  501.                 STRING092 = STRING071 + STRING092
  502.                 Goto LABEL016
  503.             Endif
  504.             If (INTEGER013 == 0) Then
  505.                 INTEGER014 = 243
  506.                 Goto LABEL015
  507.             Endif
  508.             INTEGER014 = INTEGER013 * 548 + 243
  509.             :LABEL015
  510.             FOpen 1, STRING081 + ".@@@", 0, 0
  511.             FSeek 1, INTEGER014, 0
  512.             FRead 1, STRING093, 25
  513.             FClose 1
  514.             STRING092 = STRING093 + STRING092
  515.             STRING095 = "Upload"
  516.             :LABEL016
  517.             If ((Upper(STRING095) == "/L") || (Upper(STRING095) == "TEST")) Then
  518.                 INTEGER028 = Len(STRING071)
  519.                 Goto LABEL017
  520.             Endif
  521.             INTEGER029 = Len(STRING093)
  522.             :LABEL017
  523.             If ((((Upper(STRING095) == "/L") && (INTEGER028 < 7)) || ((Upper(STRING095) == "UPLOAD") && (INTEGER029 < 7))) || ((Upper(STRING095) == "ATTACH") && (INTEGER029 < 7))) Then
  524.                 STRING099 = FileInf(STRING092, 8) + "." + FileInf(STRING092, 9)
  525.                 Goto LABEL018
  526.             Endif
  527.             STRING099 = FileInf(STRING092, 8)
  528.             :LABEL018
  529.             STRING077 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
  530.             STRING078 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FDESC." + String(PcbNode())
  531.             If (Exist(STRING078)) Goto LABEL019
  532.             Tokenize STRING033
  533.             Gosub LABEL012
  534.             Print STRING032
  535.             :LABEL019
  536.             If (Exist(STRING078)) FOpen 6, STRING078, 2, 0
  537.             If (Exist(STRING077)) FOpen 5, STRING077, 0, 0
  538.             FSeek 5, 66, 0
  539.             FRead 5, STRING076, 12
  540.             FSeek 6, 0, 0
  541.             FRead 6, STRING075, 45
  542.             If (STRING076 == STRING099) Then
  543.                 FClose 5
  544.                 FClose 6
  545.                 Tokenize STRING033
  546.                 Gosub LABEL012
  547.                 Print "@X03" + STRING075
  548.             Endif
  549.             :LABEL020
  550.             If (Ferr(5)) Goto LABEL022
  551.             FSeek 5, 117, 1
  552.             FRead 5, STRING076, 12
  553.             If (Ferr(5)) Goto LABEL021
  554.             STRING076 = RTrim(STRING076, " ")
  555.             INTEGER006 = INTEGER005 * 48 - 45
  556.             FSeek 6, INTEGER006, 1
  557.             FRead 6, STRING075, 45
  558.             If (Ferr(6)) Goto LABEL021
  559.             If (STRING076 == STRING099) Then
  560.                 FClose 5
  561.                 FClose 6
  562.                 Tokenize STRING033
  563.                 Gosub LABEL012
  564.                 Print "@X03" + STRING075
  565.             Endif
  566.             :LABEL021
  567.             Tokenize STRING033
  568.             Gosub LABEL012
  569.             If (Exist(STRING077) && (STRING076 <> STRING099)) Print "@X03" + STRING074
  570.             Goto LABEL022
  571.             Goto LABEL020
  572.             :LABEL022
  573.             STRING075 = ""
  574.             FClose 5
  575.             FClose 6
  576.             If (Exist(STRING092)) Then
  577.                 If ((Upper(STRING095) == "UPLOAD") || (Upper(STRING095) == "/L")) Then
  578.                     Tokenize STRING048
  579.                     Gosub LABEL012
  580.                     If (STRING115 == YesChar()) Print STRING087 + String(INTEGER011) + STRING065
  581.                 Endif
  582.                 Tokenize STRING049
  583.                 Gosub LABEL012
  584.                 If (Exist(STRING092)) Print STRING044 + FileInf(STRING092, 9)
  585.                 Tokenize STRING050
  586.                 Gosub LABEL012
  587.                 Gosub LABEL043
  588.                 AnsiPos STRING094, INTEGER015
  589.                 Print STRING125
  590.                 If (OnLocal()) AnsiPos 78, 22
  591.                 If (OnLocal()) SaveScrn
  592.                 If (Exist(STRING092)) Shell 1, INTEGER007, STRING006, STRING092 + " UNZ"
  593.                 If (OnLocal()) RestScrn
  594.                 If (Exist(STRING092)) Goto LABEL023
  595.                 Gosub LABEL044
  596.                 STRING007 = STRING122
  597.                 Gosub LABEL045
  598.                 AnsiPos STRING094, INTEGER015
  599.                 Print STRING122
  600.                 If (STRING066 == YesChar()) Message CurConf() , U_Name() , STRING034, STRING099, "R", 0, 0, 0, PPEPath() + "failed.vrf"
  601.                 If (STRING043 == YesChar()) Then
  602.                     FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  603.                     FPutLn 3, STRING099 + " " + STRING039 + " " + STRING038 + " " + U_Name()
  604.                     FClose 3
  605.                 Endif
  606.                 Goto LABEL088
  607.                 Goto LABEL024
  608.                 :LABEL023
  609.                 If (OnLocal()) RestScrn
  610.                 Gosub LABEL044
  611.                 AnsiPos STRING094, INTEGER015
  612.                 If (Exist(STRING092)) Print STRING121
  613.                 :LABEL024
  614.                 If (Upper(STRING095) == "TEST") Goto LABEL088
  615.                 Tokenize STRING052
  616.                 Gosub LABEL012
  617.                 Gosub LABEL043
  618.                 AnsiPos STRING094, INTEGER015
  619.                 If (STRING115 <> YesChar()) Then
  620.                     Print STRING042
  621.                     Gosub LABEL044
  622.                     Goto LABEL025
  623.                 Endif
  624.                 Print STRING125
  625.                 :LABEL025
  626.                 If ((STRING106 <> YesChar()) && (STRING115 <> YesChar())) Goto LABEL050
  627.                 FOpen 4, PPEPath() + "exclude", 0, 0
  628.                 FClose 1
  629.                 If (Exist("filelist.arc")) FOpen 1, "FILELIST.arc", 0, 0
  630.                 If (Exist("filelist.arc")) Goto LABEL026
  631.                 FClose 1
  632.                 FClose 4
  633.                 INTEGER026 = FileInf(STRING092, 2)
  634.                 INTEGER027 = FileInf(STRING092, 2)
  635.                 Goto LABEL032
  636.                 :LABEL026
  637.                 If (Ferr(1)) Goto LABEL031
  638.                 :LABEL027
  639.                 FDGet STRING110
  640.                 If ((Mid(STRING110, 1, 6) <> "======") && (BOOLEAN001 == 0)) Goto LABEL027
  641.                 If ((Mid(STRING110, 1, 6) == "======") && (BOOLEAN001 == 0)) Then
  642.                     BOOLEAN001 = 1
  643.                     Goto LABEL027
  644.                 Endif
  645.                 If ((Mid(STRING110, 2, 6) == "======") && (BOOLEAN001 == 1)) Then
  646.                     FDGet STRING110
  647.                     Tokenize STRING110
  648.                     GetToken STRING096
  649.                     GetToken STRING096
  650.                     GetToken STRING029
  651.                     GetToken STRING096
  652.                     If ((FileInf(STRING092, 9) == "LZH") || (FileInf(STRING092, 9) == "LHA")) Then
  653.                         GetToken STRING030
  654.                         Goto LABEL028
  655.                     Endif
  656.                     GetToken STRING096
  657.                     :LABEL028
  658.                     GetToken STRING030
  659.                     Goto LABEL031
  660.                 Endif
  661.                 If (STRING110 == "") Goto LABEL031
  662.                 STRING113 = Mid(STRING110, 1, 12)
  663.                 STRING113 = RTrim(STRING113, " ")
  664.                 Inc STRING082
  665.                 STRING105 = LTrim(Mid(STRING110, 15, 8), " ")
  666.                 If (STRING105 == 0) Goto LABEL027
  667.                 INTEGER017 = STRING105
  668.                 If (STRING014 == YesChar()) Then
  669.                     If (((INTEGER017 < INTEGER018) && (FileInf(STRING113, 9) == "EXE")) || ((INTEGER017 < INTEGER018) && (FileInf(STRING113, 9) == "COM"))) Goto LABEL027
  670.                 Endif
  671.                 STRING112 = Mid(STRING110, 51, 9)
  672.                 STRING085 = Mid(STRING112, 1, 2)
  673.                 STRING083 = Upper(Mid(STRING112, 4, 3))
  674.                 If (STRING083 == "JAN") Then
  675.                     STRING083 = "01"
  676.                     Goto LABEL029
  677.                 Endif
  678.                 If (STRING083 == "FEB") Then
  679.                     STRING083 = "02"
  680.                     Goto LABEL029
  681.                 Endif
  682.                 If (STRING083 == "MAR") Then
  683.                     STRING083 = "03"
  684.                     Goto LABEL029
  685.                 Endif
  686.                 If (STRING083 == "APR") Then
  687.                     STRING083 = "04"
  688.                     Goto LABEL029
  689.                 Endif
  690.                 If (STRING083 == "MAY") Then
  691.                     STRING083 = "05"
  692.                     Goto LABEL029
  693.                 Endif
  694.                 If (STRING083 == "JUN") Then
  695.                     STRING083 = "06"
  696.                     Goto LABEL029
  697.                 Endif
  698.                 If (STRING083 == "JUL") Then
  699.                     STRING083 = "07"
  700.                     Goto LABEL029
  701.                 Endif
  702.                 If (STRING083 == "AUG") Then
  703.                     STRING083 = "08"
  704.                     Goto LABEL029
  705.                 Endif
  706.                 If (STRING083 == "SEP") Then
  707.                     STRING083 = "09"
  708.                     Goto LABEL029
  709.                 Endif
  710.                 If (STRING083 == "OCT") Then
  711.                     STRING083 = "10"
  712.                     Goto LABEL029
  713.                 Endif
  714.                 If (STRING083 == "NOV") Then
  715.                     STRING083 = "11"
  716.                     Goto LABEL029
  717.                 Endif
  718.                 If (STRING083 == "DEC") Then
  719.                     STRING083 = "12"
  720.                 Endif
  721.                 :LABEL029
  722.                 STRING084 = Mid(STRING112, 8, 2)
  723.                 DATE005 = STRING083 + "-" + STRING085 + "-" + STRING084
  724.                 INTEGER019 = DATE005
  725.                 If ((STRING090 == YesChar()) && (FileInf(STRING113, 9) == "DIZ")) Then
  726.                     STRING031 = ""
  727.                     If (FileInf(STRING113, 8) + "." + FileInf(STRING113, 9) == "FILE_ID.DIZ") STRING031 = String(INTEGER019)
  728.                     Goto LABEL027
  729.                 Endif
  730.                 If ((STRING090 == YesChar()) && (FileInf(STRING113, 9) == "NFO")) Then
  731.                     If (FileInf(STRING113, 9) == "NFO") STRING027 = String(INTEGER019)
  732.                     If ((FileInf(STRING113, 9) == "NFO") && (STRING028 < STRING027)) STRING028 = STRING027
  733.                     If ((FileInf(STRING113, 9) <> "NFO") && (STRING028 == "")) STRING027 = "N/A"
  734.                     Goto LABEL027
  735.                 Endif
  736.                 Gosub LABEL041
  737.                 If (((DATE005 > Date() + 1) || (INTEGER019 == "0")) || (INTEGER019 == "29220")) Goto LABEL027
  738.                 If (INTEGER019 < INTEGER012) Then
  739.                     INTEGER027 = DATE005
  740.                     DATE007 = INTEGER027
  741.                 Endif
  742.                 INTEGER012 = INTEGER019
  743.                 If (INTEGER019 > INTEGER026) Then
  744.                     INTEGER026 = DATE005
  745.                     DATE006 = INTEGER026
  746.                 Endif
  747.                 If (Upper(STRING127) == "MORE") Then
  748.                     If (Date() - INTEGER019 > INTEGER011) Then
  749.                         Inc INTEGER024
  750.                         Goto LABEL030
  751.                     Endif
  752.                     Inc INTEGER025
  753.                 Endif
  754.                 :LABEL030
  755.                 If (Upper(STRING127) == "AVG") Then
  756.                     INTEGER020 = INTEGER020 + DATE005
  757.                     Inc INTEGER021
  758.                 Endif
  759.                 Goto LABEL026
  760.                 :LABEL031
  761.                 FClose 1
  762.                 :LABEL032
  763.                 If (STRING027 == "") STRING027 = "N/A"
  764.                 If (STRING027 == "N/A") Goto LABEL033
  765.                 INTEGER030 = STRING028
  766.                 DATE003 = INTEGER030
  767.                 STRING027 = DATE003
  768.                 :LABEL033
  769.                 FClose 1
  770.                 FClose 4
  771.                 If (Date() - INTEGER027 >= 34525) Then
  772.                     INTEGER026 = STRING031
  773.                     INTEGER027 = STRING031
  774.                 Endif
  775.                 INTEGER031 = STRING031
  776.                 DATE004 = INTEGER031
  777.                 STRING031 = DATE004
  778.                 DATE001 = INTEGER026
  779.                 DATE002 = INTEGER027
  780.                 STRING079 = DATE001
  781.                 STRING080 = DATE002
  782.                 Tokenize STRING052
  783.                 Gosub LABEL012
  784.                 If (STRING115 <> YesChar()) Goto LABEL050
  785.                 If (Upper(STRING127) == "AVG") Goto LABEL039
  786.                 If (Upper(STRING127) == "MORE") Goto LABEL037
  787.                 If (Upper(STRING127) == "NEW") Goto LABEL035
  788.                 If (Upper(STRING127) == "OLD") Goto LABEL000
  789.                 STRING086 = Date() - INTEGER027
  790.                 If (STRING086 > INTEGER011) Then
  791.                     Gosub LABEL044
  792.                     AnsiPos STRING094, INTEGER015
  793.                     Print STRING123
  794.                     INTEGER010 = Len(StripAtx(STRING123))
  795.                     AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  796.                     Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  797.                     Copy STRING092, STRING104 + STRING099
  798.                     Delete STRING092
  799.                     STRING007 = STRING123 + " " + STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  800.                     Gosub LABEL045
  801.                     If (STRING043 == YesChar()) Then
  802.                         FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  803.                         FPutLn 3, STRING099 + " " + STRING040 + " " + STRING038 + " " + U_Name()
  804.                         FClose 3
  805.                     Endif
  806.                     If (STRING066 == YesChar()) Gosub LABEL049
  807.                     Goto LABEL088
  808.                     Goto LABEL034
  809.                 Endif
  810.                 Gosub LABEL044
  811.                 AnsiPos STRING094, INTEGER015
  812.                 Print STRING124
  813.                 INTEGER010 = Len(StripAtx(STRING124))
  814.                 AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  815.                 Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  816.                 :LABEL034
  817.                 Goto LABEL050
  818.                 :LABEL035
  819.                 STRING086 = Date() - INTEGER026
  820.                 If (STRING086 > INTEGER011) Then
  821.                     Gosub LABEL044
  822.                     AnsiPos STRING094, INTEGER015
  823.                     Print STRING123
  824.                     INTEGER010 = Len(StripAtx(STRING123))
  825.                     AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  826.                     Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  827.                     Copy STRING092, STRING104 + STRING099
  828.                     Delete STRING092
  829.                     STRING007 = STRING123 + " " + STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  830.                     Gosub LABEL045
  831.                     If (STRING043 == YesChar()) Then
  832.                         FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  833.                         FPutLn 3, STRING099 + " " + STRING040 + " " + STRING038 + " " + U_Name()
  834.                         FClose 3
  835.                     Endif
  836.                     If (STRING066 == YesChar()) Gosub LABEL049
  837.                     Goto LABEL088
  838.                     Goto LABEL036
  839.                 Endif
  840.                 Gosub LABEL044
  841.                 AnsiPos STRING094, INTEGER015
  842.                 Print STRING124
  843.                 INTEGER010 = Len(StripAtx(STRING124))
  844.                 AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  845.                 Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  846.                 :LABEL036
  847.                 Goto LABEL050
  848.                 :LABEL037
  849.                 STRING086 = INTEGER025
  850.                 If (INTEGER024 > INTEGER025) Then
  851.                     STRING086 = INTEGER024
  852.                     Gosub LABEL044
  853.                     AnsiPos STRING094, INTEGER015
  854.                     Print STRING123
  855.                     INTEGER010 = Len(StripAtx(STRING123))
  856.                     AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  857.                     Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING134
  858.                     Copy STRING092, STRING104 + STRING099
  859.                     Delete STRING092
  860.                     STRING007 = STRING123 + " " + STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING134
  861.                     Gosub LABEL045
  862.                     If (STRING043 == YesChar()) Then
  863.                         FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  864.                         FPutLn 3, STRING099 + " " + STRING040 + " " + STRING038 + " " + U_Name()
  865.                         FClose 3
  866.                     Endif
  867.                     If (STRING066 == YesChar()) Gosub LABEL049
  868.                     Goto LABEL088
  869.                     Goto LABEL038
  870.                 Endif
  871.                 Gosub LABEL044
  872.                 AnsiPos STRING094, INTEGER015
  873.                 Print STRING124
  874.                 INTEGER010 = Len(StripAtx(STRING124))
  875.                 AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  876.                 Print STRING116 + "(" + STRING087 + STRING086 + STRING116 + ")" + STRING133
  877.                 :LABEL038
  878.                 Goto LABEL050
  879.                 :LABEL039
  880.                 INTEGER022 = Date()
  881.                 INTEGER023 = INTEGER020 / INTEGER021
  882.                 STRING086 = INTEGER022 - INTEGER023
  883.                 If (INTEGER022 - INTEGER023 > INTEGER011) Then
  884.                     Gosub LABEL044
  885.                     AnsiPos STRING094, INTEGER015
  886.                     Print STRING123
  887.                     INTEGER010 = Len(StripAtx(STRING123))
  888.                     AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  889.                     Print STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  890.                     Copy STRING092, STRING104 + STRING099
  891.                     Delete STRING092
  892.                     STRING007 = STRING123 + " " + STRING088 + "(" + STRING087 + STRING086 + STRING088 + ")" + STRING089
  893.                     Gosub LABEL045
  894.                     If (STRING043 == YesChar()) Then
  895.                         FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  896.                         FPutLn 3, STRING099 + " " + STRING040 + " " + STRING038 + " " + U_Name()
  897.                         FClose 3
  898.                     Endif
  899.                     If (STRING066 == YesChar()) Gosub LABEL049
  900.                     Goto LABEL088
  901.                     Goto LABEL040
  902.                 Endif
  903.                 Gosub LABEL044
  904.                 AnsiPos STRING094, INTEGER015
  905.                 Print STRING124
  906.                 INTEGER010 = Len(StripAtx(STRING124))
  907.                 AnsiPos STRING094 + INTEGER010 + 1, INTEGER015
  908.                 Print STRING116 + "(" + STRING087 + STRING086 + STRING116 + ")" + STRING089
  909.                 :LABEL040
  910.                 Goto LABEL050
  911.                 If (!(STRING006 == 0)) Stop
  912.             Case 0
  913.                 PrintLn KbdBufSize()
  914.                 PrintLn PPLBufSize()
  915.                 :LABEL041
  916.                 If (Ferr(4)) Goto LABEL042
  917.                 FGet 4, STRING111
  918.                 If (STRING111 == "") Goto LABEL042
  919.                 If ((STRING111 == STRING113) || (STRING111 == FileInf(STRING113, 9))) Then
  920.                     Frewind 4
  921.                     Goto LABEL027
  922.                 Endif
  923.                 Goto LABEL041
  924.                 :LABEL042
  925.                 Frewind 4
  926.                 Return
  927.                 :LABEL043
  928.                 AnsiPos STRING068, INTEGER015
  929.                 Print STRING063 + STRING070
  930.                 Return
  931.                 :LABEL044
  932.                 AnsiPos STRING068, INTEGER015
  933.                 Print STRING064 + STRING070
  934.                 AnsiPos STRING069, INTEGER015
  935.                 Print STRING064 + STRING070
  936.                 Return
  937.                 :LABEL045
  938.                 FCreate 3, TempPath() + "pcbfail.txt", 1, 0
  939.                 FOpen 1, PPEPath() + "pcbfail.msg", 0, 0
  940.                 :LABEL046
  941.                 If (Ferr(1)) Goto LABEL048
  942.                 FGet 1, STRING096
  943.                 If (Ferr(1)) Goto LABEL048
  944.                 Gosub LABEL080
  945.                 If (BOOLEAN003 == 1) Then
  946.                     Print ""
  947.                     Goto LABEL047
  948.                 Endif
  949.                 FPutLn 3, STRING096
  950.                 :LABEL047
  951.                 Goto LABEL046
  952.                 :LABEL048
  953.                 FClose 1
  954.                 FClose 3
  955.                 Return
  956.                 :LABEL049
  957.                 Message CurConf(), U_Name(), STRING034, STRING099, "R", 0, 0, 0, PPEPath() + "failed.age"
  958.                 Return
  959.                 :LABEL050
  960.                 Tokenize STRING053
  961.                 Gosub LABEL012
  962.                 Gosub LABEL043
  963.                 If (STRING017 <> YesChar()) Then
  964.                     AnsiPos STRING094, INTEGER015
  965.                     Print STRING018
  966.                     Gosub LABEL044
  967.                     Goto LABEL052
  968.                 Endif
  969.                 AnsiPos STRING094, INTEGER015
  970.                 Print STRING125
  971.                 If (OnLocal()) AnsiPos 78, 22
  972.                 If (OnLocal()) SaveScrn
  973.                 If (Exist(STRING092)) Shell 1, INTEGER007, STRING006, STRING092 + " VIRUS"
  974.                 If (OnLocal()) RestScrn
  975.                 If (Exist(STRING092)) Goto LABEL051
  976.                 STRING007 = STRING067
  977.                 Gosub LABEL045
  978.                 AnsiPos STRING094, INTEGER015
  979.                 Print STRING067
  980.                 If (STRING043 == YesChar()) Then
  981.                     FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  982.                     FPutLn 3, STRING099 + " " + STRING041 + " " + STRING038 + " " + U_Name()
  983.                     FClose 3
  984.                 Endif
  985.                 If (STRING066 == YesChar()) Message CurConf() , U_Name() , STRING034, STRING099, "R", 0, 0, 0, PPEPath() + "failed.vir"
  986.                 Goto LABEL088
  987.                 Goto LABEL052
  988.                 :LABEL051
  989.                 Gosub LABEL044
  990.                 AnsiPos STRING094, INTEGER015
  991.                 Print STRING121
  992.                 :LABEL052
  993.                 If (Exist(STRING078)) FOpen 6, STRING078, 2, 0
  994.                 If (Exist(STRING077)) FOpen 5, STRING077, 0, 0
  995.                 FSeek 5, 66, 0
  996.                 FRead 5, STRING076, 12
  997.                 FSeek 6, 0, 0
  998.                 FRead 6, STRING075, 45
  999.                 If (STRING076 == STRING099) Then
  1000.                     FSeek 6, 0, 0
  1001.                     FWrite 6, " ", 1
  1002.                     FClose 5
  1003.                     FClose 6
  1004.                     Goto LABEL055
  1005.                 Endif
  1006.                 :LABEL053
  1007.                 If (Ferr(5)) Goto LABEL054
  1008.                 FSeek 5, 117, 1
  1009.                 FRead 5, STRING076, 12
  1010.                 If (Ferr(5)) Goto LABEL054
  1011.                 FSeek 6, 915, 1
  1012.                 FRead 6, STRING075, 45
  1013.                 If (Ferr(6)) Goto LABEL054
  1014.                 If (STRING076 == STRING099) Then
  1015.                     FSeek 6, -45, 1
  1016.                     FWrite 6, " ", 1
  1017.                     FClose 5
  1018.                     FClose 6
  1019.                     Goto LABEL055
  1020.                 Endif
  1021.                 Goto LABEL053
  1022.                 :LABEL054
  1023.                 STRING075 = ""
  1024.                 FClose 5
  1025.                 FClose 6
  1026.                 :LABEL055
  1027.                 Tokenize STRING054
  1028.                 Gosub LABEL012
  1029.                 Gosub LABEL043
  1030.                 AnsiPos STRING094, INTEGER015
  1031.                 Print STRING118
  1032.                 FClose 6
  1033.                 INTEGER008 = Len(String(FileInf(STRING092, 4)))
  1034.                 STRING130 = 9 - INTEGER008
  1035.                 INTEGER009 = Len(STRING099)
  1036.                 STRING131 = 12 - INTEGER009
  1037.                 If (Exist("diz." + String(PcbNode()))) Then
  1038.                     If (Exist("diz." + String(PcbNode()))) FOpen 1, "diz." + String(PcbNode()) , 0, 0
  1039.                     FSeek 1, 43, 0
  1040.                     FRead 1, STRING128, 1
  1041.                     FRead 1, STRING132, 1
  1042.                     If ((STRING128 == Chr(13)) || (STRING132 == Chr(13))) Then
  1043.                         Frewind 1
  1044.                         Goto LABEL058
  1045.                     Endif
  1046.                     If (STRING132 == Chr(10)) Then
  1047.                         FCreate 5, "diz" + String(PcbNode()) + ".tmp", 1, 0
  1048.                         FSeek 1, 0, 0
  1049.                         FRead 1, STRING128, 44
  1050.                         FPutLn 5, STRING128
  1051.                         :LABEL056
  1052.                         If (Ferr(1)) Goto LABEL057
  1053.                         FSeek 1, 1, 1
  1054.                         FRead 1, STRING128, 44
  1055.                         If (Ferr(1)) Goto LABEL057
  1056.                         FPutLn 5, STRING128
  1057.                         Goto LABEL056
  1058.                         :LABEL057
  1059.                         FClose 5
  1060.                         FClose 1
  1061.                         Delete "diz." + String(PcbNode())
  1062.                         Rename "diz" + String(PcbNode()) + ".tmp", "diz." + String(PcbNode())
  1063.                         If (Exist("diz." + String(PcbNode()))) FOpen 1, "diz." + String(PcbNode()) , 0, 0
  1064.                         Goto LABEL058
  1065.                     Endif
  1066.                     FClose 1
  1067.                     If (Exist("diz." + String(PcbNode()))) FOpen 1, "diz." + String(PcbNode()) , 0, 0
  1068.                 Endif
  1069.                 :LABEL058
  1070.                 If (Exist("diz." + String(PcbNode()))) FCreate 4, "dizz." + String(PcbNode()) , 1, 0
  1071.                 FCreate 3, STRING129 + "updesc." + String(PcbNode()), 1, 0
  1072.                 If (Exist("diz." + String(PcbNode()))) Then
  1073.                     :LABEL059
  1074.                     FDGet STRING128
  1075.                     STRING051 = LTrim(STRING128, " ")
  1076.                     STRING051 = RTrim(STRING051, " ")
  1077.                     If (STRING051 == "") Goto LABEL059
  1078.                     STRING051 = StripAtx(STRING128)
  1079.                     Gosub LABEL065
  1080.                     If (BOOLEAN002 == 1) Goto LABEL059
  1081.                     STRING128 = Mid(STRING128, 1, 45)
  1082.                     FPutLn 4, STRING128
  1083.                 Endif
  1084.                 If (!Exist("diz." + String(PcbNode()))) BOOLEAN005 = 1
  1085.                 If ((Mid(STRING075, 1, 1) == "/") && !Exist("diz." + String(PcbNode()))) Then
  1086.                     FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING075
  1087.                     Goto LABEL060
  1088.                 Endif
  1089.                 If (Exist("diz." + String(PcbNode())) && (Mid(STRING075, 1, 1) == "/")) Then
  1090.                     FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING075
  1091.                     Goto LABEL060
  1092.                 Endif
  1093.                 If (!Exist("diz." + String(PcbNode())) && (STRING075 == "")) Then
  1094.                     FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING108
  1095.                     Goto LABEL060
  1096.                 Endif
  1097.                 If (!Exist("diz." + String(PcbNode())) && (STRING075 <> "")) Then
  1098.                     FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING075
  1099.                     Goto LABEL060
  1100.                 Endif
  1101.                 If (Exist("diz." + String(PcbNode())) && (Mid(STRING075, 1, 1) <> "/")) Then
  1102.                     FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING128
  1103.                 Endif
  1104.                 :LABEL060
  1105.                 If (Ferr(1)) Goto LABEL062
  1106.                 :LABEL061
  1107.                 FDGet STRING128
  1108.                 If (Ferr(1)) Goto LABEL062
  1109.                 STRING051 = StripAtx(STRING128)
  1110.                 STRING128 = ReplaceStr(STRING128, "@CLS@", "CLS")
  1111.                 STRING128 = ReplaceStr(STRING128, "@PAUSE@", "Pause")
  1112.                 STRING051 = LTrim(STRING128, " ")
  1113.                 STRING051 = RTrim(STRING051, " ")
  1114.                 If (STRING051 == "") Goto LABEL061
  1115.                 BOOLEAN002 = 0
  1116.                 Gosub LABEL065
  1117.                 If (BOOLEAN002 == 1) Goto LABEL061
  1118.                 STRING128 = Mid(STRING128, 1, 45)
  1119.                 FPutLn 4, STRING128
  1120.                 FDPutLn Space(31) + "| " + STRING128
  1121.                 Goto LABEL060
  1122.                 :LABEL062
  1123.                 FClose 1
  1124.                 FClose 4
  1125.                 STRING059 = U_Name()
  1126.                 If (STRING106 == YesChar()) FDPutLn Space(31) + "| Files: (" + STRING082 + ")  Newest:" + STRING079 + " Oldest:" + STRING080
  1127.                 If (STRING109 == YesChar()) FDPutLn Space(31) + "| DIZ-Date: " + STRING031 + "   Nfo-date: " + STRING027
  1128.                 If (STRING102 == YesChar()) Then
  1129.                     If (Exist(STRING061)) Then
  1130.                         FOpen 1, STRING061, 0, 0
  1131.                         :LABEL063
  1132.                         If (Ferr(1)) Goto LABEL064
  1133.                         FDGet STRING060
  1134.                         If (STRING059 == STRING060) Then
  1135.                             FDGet STRING060
  1136.                             STRING059 = STRING060
  1137.                         Endif
  1138.                         Goto LABEL063
  1139.                         :LABEL064
  1140.                         FClose 1
  1141.                     Endif
  1142.                     FDPutLn Space(31) + "| " + STRING103 + " " + STRING059
  1143.                 Endif
  1144.                 Tokenize STRING054
  1145.                 Gosub LABEL012
  1146.                 Gosub LABEL044
  1147.                 Goto LABEL068
  1148.                 :LABEL065
  1149.                 FOpen 0, PPEPath() + PPEName() + ".rmv", 0, 0
  1150.                 :LABEL066
  1151.                 If (Ferr(0)) Goto LABEL067
  1152.                 FGet 0, STRING132
  1153.                 If (STRING132 == "") Goto LABEL067
  1154.                 SearchInit STRING132, 0
  1155.                 SearchFind STRING051, BOOLEAN002
  1156.                 If (BOOLEAN002 == 1) Then
  1157.                     Inc INTEGER016
  1158.                     If ((BOOLEAN002 == 1) && (INTEGER016 == 1)) Then
  1159.                         Tokenize STRING055
  1160.                         GetToken STRING094
  1161.                         GetToken INTEGER015
  1162.                         AnsiPos STRING094, INTEGER015
  1163.                         Print STRING117
  1164.                     Endif
  1165.                     Tokenize STRING056
  1166.                     GetToken STRING094
  1167.                     GetToken INTEGER015
  1168.                     AnsiPos STRING094, INTEGER015
  1169.                     Print Space(45)
  1170.                     AnsiPos STRING094, INTEGER015
  1171.                     Print "@X03" + STRING128
  1172.                     FClose 0
  1173.                 Endif
  1174.                 Goto LABEL066
  1175.                 :LABEL067
  1176.                 FClose 0
  1177.                 Return
  1178.                 :LABEL068
  1179.                 FClose 3
  1180.                 Tokenize STRING002
  1181.                 Gosub LABEL012
  1182.                 Gosub LABEL043
  1183.                 If (STRING001 == YesChar()) Then
  1184.                     AnsiPos STRING094, INTEGER015
  1185.                     Print STRING125
  1186.                     AnsiPos 1, 23
  1187.                     If (OnLocal()) AnsiPos 78, 22
  1188.                     If (OnLocal()) SaveScrn
  1189.                     If (Exist(STRING092)) Shell 1, INTEGER007, STRING006, STRING092 + " DUP"
  1190.                     If (OnLocal()) RestScrn
  1191.                     FOpen 1, "zdcsfc.out", 0, 0
  1192.                     FDGet STRING096
  1193.                     FDGet STRING096
  1194.                     FDGet STRING096
  1195.                     :LABEL069
  1196.                     If (Ferr(1)) Goto LABEL070
  1197.                     FDGet STRING096
  1198.                     If (Ferr(1)) Goto LABEL070
  1199.                     If (Mid(STRING096, 1, 5) == "-----") Then
  1200.                         FDGet STRING146
  1201.                         STRING146 = Mid(STRING146, 2, 3)
  1202.                         FDGet STRING147
  1203.                         STRING147 = Mid(STRING147, 2, 16)
  1204.                     Endif
  1205.                     Goto LABEL069
  1206.                     :LABEL070
  1207.                     FClose 1
  1208.                     Gosub LABEL044
  1209.                     If (Exist(STRING092)) Goto LABEL071
  1210.                     STRING007 = STRING004 + " Dup Check!! @X0B" + STRING146 + "Dup's" + " " + STRING147
  1211.                     Gosub LABEL045
  1212.                     AnsiPos STRING094, INTEGER015
  1213.                     Print STRING004 + " @X0B" + STRING146 + "Dup's" + " " + STRING147
  1214.                     If (STRING066 == YesChar()) Message CurConf() , U_Name() , STRING034, STRING099, "R", 0, 0, 0, PPEPath() + "failed.dup"
  1215.                     If (STRING043 == YesChar()) Then
  1216.                         FAppend 3, PPEPath() + PPEName() + String(PcbNode()) + ".err", 1, 0
  1217.                         FPutLn 3, STRING099 + " " + STRING003 + " " + STRING038 + " " + U_Name()
  1218.                         FClose 3
  1219.                         Goto LABEL088
  1220.                     Endif
  1221.                     Goto LABEL072
  1222.                     :LABEL071
  1223.                     If (OnLocal()) RestScrn
  1224.                     Gosub LABEL044
  1225.                     AnsiPos STRING094, INTEGER015
  1226.                     If (Exist(STRING092)) Print STRING121 + " @X0B" + STRING146 + "Dup's" + " " + STRING147
  1227.                     :LABEL072
  1228.                     Goto LABEL073
  1229.                 Endif
  1230.                 Gosub LABEL044
  1231.                 AnsiPos STRING094, INTEGER015
  1232.                 Print STRING005
  1233.                 :LABEL073
  1234.                 INTEGER013 = Len(StripAtx(STRING118))
  1235.                 Tokenize STRING054
  1236.                 Gosub LABEL012
  1237.                 Gosub LABEL044
  1238.                 AnsiPos STRING094, INTEGER015
  1239.                 Print Space(INTEGER013)
  1240.                 AnsiPos STRING094, INTEGER015
  1241.                 Print STRING119
  1242.                 Tokenize STRING057
  1243.                 Gosub LABEL012
  1244.                 Gosub LABEL043
  1245.                 AnsiPos STRING094, INTEGER015
  1246.                 If (FileInf(STRING092, 9) <> "ZIP") Then
  1247.                     Gosub LABEL044
  1248.                     AnsiPos STRING094, INTEGER015
  1249.                     Goto LABEL087
  1250.                 Endif
  1251.                 Print STRING126 + STRING099
  1252.                 BOOLEAN004 = 1
  1253.                 BOOLEAN003 = 0
  1254.                 FCreate 3, PPEPath() + PPEName() + ".cm" + String(PcbNode()), 1, 0
  1255.                 FOpen 1, PPEPath() + PPEName() + ".cmt", 0, 0
  1256.                 :LABEL074
  1257.                 If (Ferr(1)) Goto LABEL076
  1258.                 :LABEL075
  1259.                 FGet 1, STRING096
  1260.                 If (Ferr(1)) Goto LABEL076
  1261.                 Gosub LABEL080
  1262.                 If (BOOLEAN003 == 1) Then
  1263.                     BOOLEAN003 = 0
  1264.                     Goto LABEL075
  1265.                 Endif
  1266.                 FPutLn 3, STRING096
  1267.                 Goto LABEL074
  1268.                 :LABEL076
  1269.                 FClose 1
  1270.                 FClose 3
  1271.                 BOOLEAN004 = 0
  1272.                 BOOLEAN003 = 0
  1273.                 FCreate 3, TempPath() + "pcbpass.txt", 1, 0
  1274.                 FOpen 1, PPEPath() + "pcbpass.msg", 0, 0
  1275.                 :LABEL077
  1276.                 If (Ferr(1)) Goto LABEL079
  1277.                 FGet 1, STRING096
  1278.                 If (Ferr(1)) Goto LABEL079
  1279.                 Gosub LABEL080
  1280.                 If (BOOLEAN003 == 1) Then
  1281.                     Print ""
  1282.                     Goto LABEL078
  1283.                 Endif
  1284.                 FPutLn 3, STRING096
  1285.                 :LABEL078
  1286.                 Goto LABEL077
  1287.                 :LABEL079
  1288.                 FClose 1
  1289.                 FClose 3
  1290.                 Goto LABEL086
  1291.                 PrintLn PPLBufSize()
  1292.                 PrintLn KbdBufSize()
  1293.                 If (!(STRING006 == 0)) Stop
  1294.             Case 0
  1295.                 PrintLn KbdBufSize()
  1296.                 PrintLn PPLBufSize()
  1297.                 :LABEL080
  1298.                 BOOLEAN002 = 0
  1299.                 FOpen 2, PPEPath() + PPEName() + ".mcr", 0, 0
  1300.                 :LABEL081
  1301.                 If (Ferr(2)) Goto LABEL085
  1302.                 FGet 2, STRING097
  1303.                 If (Ferr(2)) Goto LABEL085
  1304.                 SearchInit STRING097, 0
  1305.                 SearchFind STRING096, BOOLEAN002
  1306.                 If (BOOLEAN002 == 1) Then
  1307.                     STRING096 = ReplaceStr(STRING096, "|fn", STRING099)
  1308.                     STRING096 = ReplaceStr(STRING096, "|un", String(PcbNode()))
  1309.                     STRING096 = ReplaceStr(STRING096, "|ut", String(Time()))
  1310.                     STRING096 = ReplaceStr(STRING096, "|ud", String(Date()))
  1311.                     STRING096 = ReplaceStr(STRING096, "|fs", String(FileInf(STRING092, 4)))
  1312.                     STRING096 = ReplaceStr(STRING096, "|us", STRING029)
  1313.                     STRING096 = ReplaceStr(STRING096, "|cr", STRING030)
  1314.                     STRING096 = ReplaceStr(STRING096, "|#f", STRING082)
  1315.                     STRING096 = ReplaceStr(STRING096, "|nf", STRING079)
  1316.                     STRING096 = ReplaceStr(STRING096, "|of", STRING080)
  1317.                     STRING096 = ReplaceStr(STRING096, "|dd", STRING031)
  1318.                     STRING096 = ReplaceStr(STRING096, "|fl", STRING007)
  1319.                     STRING096 = ReplaceStr(STRING096, "|nd", STRING027)
  1320.                     STRING096 = ReplaceStr(STRING096, "|vs", STRING101)
  1321.                     If (STRING097 == "|dz") Then
  1322.                         BOOLEAN003 = 1
  1323.                         If (Exist("dizz." + String(PcbNode()))) FOpen 0, "dizz." + String(PcbNode()) , 0, 0
  1324.                         :LABEL082
  1325.                         If (Ferr(0)) Goto LABEL084
  1326.                         FGet 0, STRING098
  1327.                         If (Ferr(0)) Goto LABEL084
  1328.                         If (BOOLEAN004 == 0) Then
  1329.                             FPutLn 3, Space(STRING035), STRING036, STRING037, "@X07 ", STRING098
  1330.                             Goto LABEL083
  1331.                         Endif
  1332.                         FPutLn 3, Space(STRING035), STRING098
  1333.                         :LABEL083
  1334.                         Goto LABEL082
  1335.                         :LABEL084
  1336.                         FClose 0
  1337.                     Endif
  1338.                 Endif
  1339.                 Goto LABEL081
  1340.                 :LABEL085
  1341.                 FClose 2
  1342.                 Return
  1343.                 :LABEL086
  1344.                 If (OnLocal()) AnsiPos 78, 22
  1345.                 If (OnLocal()) SaveScrn
  1346.                 If (Exist(STRING092)) Shell 1, INTEGER007, STRING006, STRING092 + " rec"
  1347.                 If (OnLocal()) RestScrn
  1348.                 Delete PPEPath() + PPEName() + ".cm" + String(PcbNode())
  1349.                 Gosub LABEL044
  1350.                 AnsiPos STRING094, INTEGER015
  1351.                 :LABEL087
  1352.                 If (STRING114 <> YesChar()) Goto LABEL088
  1353.                 Tokenize STRING058
  1354.                 Gosub LABEL012
  1355.                 Gosub LABEL043
  1356.                 AnsiPos STRING094, INTEGER015
  1357.                 Print STRING120
  1358.                 If (OnLocal()) AnsiPos 78, 22
  1359.                 If (OnLocal()) SaveScrn
  1360.                 If (Exist(STRING092)) Shell 1, INTEGER007, STRING006, STRING092 + " ADS"
  1361.                 If (OnLocal()) RestScrn
  1362.                 INTEGER014 = Len(StripAtx(STRING120))
  1363.                 Tokenize STRING058
  1364.                 Gosub LABEL012
  1365.                 Gosub LABEL044
  1366.                 AnsiPos STRING094, INTEGER015
  1367.                 Print Space(INTEGER014)
  1368.                 AnsiPos STRING094, INTEGER015
  1369.                 Print STRING107
  1370.         End Select
  1371.         :LABEL088
  1372.         AnsiPos 1, 23
  1373.         If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZ." + String(PcbNode()))) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZ." + String(PcbNode())
  1374.         If (Exist(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZZ." + String(PcbNode()))) Delete GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\DIZZ." + String(PcbNode())
  1375.         If (OnLocal()) RestScrn
  1376.         If (Upper(STRING095) == "/L") Then
  1377.             If (Exist(STRING092)) Then
  1378.                 InputStr STRING024, STRING021, "", 1, "YyNn", 0 + 8
  1379.                 If (STRING021 == "") Goto LABEL098
  1380.                 If (STRING021 == "N") Goto LABEL098
  1381.                 If (STRING021 == YesChar()) Then
  1382.                     If (BOOLEAN005 == 1) Then
  1383.                         Cls
  1384.                         BOOLEAN006 = 0
  1385.                         DispFile PPEPath() + PPEName() + "d.pcb", 0
  1386.                         Tokenize STRING011
  1387.                         Gosub LABEL012
  1388.                         Print "@X09(@X0F" + STRING099 + "@X09)@X07" + " @X09Has no File_Id.Diz!!!"
  1389.                         AnsiPos 6, INTEGER015 + 2
  1390.                         Print "@X0F" + STRING108
  1391.                         INTEGER015 = STRING012
  1392.                         STRING148 = 1
  1393.                         FCreate 3, TempPath() + "updesc." + String(PcbNode()), 1, 0
  1394.                         FCreate 4, PPEPath() + "file_id.tmp", 1, 0
  1395.                         :LABEL089
  1396.                         If (BOOLEAN006) Goto LABEL091
  1397.                         If (BOOLEAN006) Goto LABEL091
  1398.                         STRING149 = ""
  1399.                         AnsiPos 1, INTEGER015
  1400.                         InputStr "@X0F" + STRING148 + " @X09>_", STRING149, "", 45, Mask_Ascii(), 0 + 512
  1401.                         If (STRING149 == "") BOOLEAN006 = 1
  1402.                         If (BOOLEAN006 && (STRING148 <> 1)) Goto LABEL091
  1403.                         If (STRING148 == 1) Then
  1404.                             If (BOOLEAN006 && (STRING148 == 1)) Then
  1405.                                 FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING108
  1406.                                 Goto LABEL091
  1407.                             Endif
  1408.                             FDPutLn STRING099 + Space(STRING131) + Space(STRING130) + String(FileInf(STRING092, 4)) + "  " + String(Date()) + "  " + STRING149
  1409.                             FPutLn 4, STRING149
  1410.                             Goto LABEL090
  1411.                         Endif
  1412.                         FDPutLn Space(31) + "| " + STRING149
  1413.                         FPutLn 4, STRING149
  1414.                         :LABEL090
  1415.                         Inc INTEGER015
  1416.                         Inc STRING148
  1417.                         Goto LABEL089
  1418.                         :LABEL091
  1419.                         FClose 3
  1420.                         FClose 4
  1421.                         AnsiPos 1, 21
  1422.                         InputStr STRING010, STRING021, "", 1, "YyNn", 0 + 8
  1423.                         If (STRING021 == "") Goto LABEL092
  1424.                         If (STRING021 == "N") Goto LABEL092
  1425.                         If (STRING021 == YesChar()) Then
  1426.                             Shell 1, BOOLEAN002, STRING006, STRING092 + " ADDIZ"
  1427.                         Endif
  1428.                     Endif
  1429.                     :LABEL092
  1430.                     Cls
  1431.                     INTEGER015 = 4
  1432.                     DispFile PPEPath() + PPEName() + "c.pcb", 0
  1433.                     INTEGER014 = 2
  1434.                     For INTEGER004 = 0 To INTEGER002
  1435.                         FOpen 1, STRING081 + ".@@@", 0, 0
  1436.                         FSeek 1, INTEGER014, 0
  1437.                         FRead 1, STRING093, 25
  1438.                         AnsiPos 14, INTEGER015
  1439.                         Print STRING015 + String(INTEGER004)
  1440.                         AnsiPos 25, INTEGER015
  1441.                         Print STRING016 + STRING093
  1442.                         INTEGER014 = INTEGER014 + 548
  1443.                         Inc INTEGER015
  1444.                     Next
  1445.                     FClose 1
  1446.                     :LABEL093
  1447.                     AnsiPos 2, 23
  1448.                     InputStr STRING025, STRING023, "", 2, "0123456789Qq", 0 + 8
  1449.                     If (STRING023 == "Q") Goto LABEL098
  1450.                     INTEGER003 = STRING023
  1451.                     If (INTEGER003 > INTEGER002) Then
  1452.                         Newline
  1453.                         PrintLn STRING026
  1454.                         Goto LABEL093
  1455.                         Goto LABEL095
  1456.                     Endif
  1457.                     If (INTEGER003 == 0) Then
  1458.                         INTEGER014 = 158
  1459.                         INTEGER001 = 187
  1460.                         Goto LABEL094
  1461.                     Endif
  1462.                     INTEGER014 = INTEGER003 * 548 + 158
  1463.                     INTEGER001 = INTEGER003 * 548 + 187
  1464.                     :LABEL094
  1465.                     FOpen 1, STRING081 + ".@@@", 0, 0
  1466.                     FSeek 1, INTEGER014, 0
  1467.                     FRead 1, STRING093, 25
  1468.                     FSeek 1, INTEGER001, 0
  1469.                     FRead 1, STRING022, 25
  1470.                     FClose 1
  1471.                     :LABEL095
  1472.                     If (Exist(STRING022 + STRING099)) Then
  1473.                         FreshLine
  1474.                         InputStr STRING008, STRING009, "", 1, "YyNn", 0 + 8
  1475.                         If (STRING009 == NoChar()) Goto LABEL098
  1476.                     Endif
  1477.                     FOpen 1, STRING129 + "updesc." + String(PcbNode()), 0, 0
  1478.                     FAppend 3, STRING093, 1, 0
  1479.                     :LABEL096
  1480.                     If (Ferr(1)) Goto LABEL097
  1481.                     FDGet STRING096
  1482.                     If (Ferr(1)) Goto LABEL097
  1483.                     FDPutLn STRING096
  1484.                     Goto LABEL096
  1485.                     :LABEL097
  1486.                     FClose 1
  1487.                     FClose 3
  1488.                     Copy STRING092, STRING022 + STRING099
  1489.                     Delete STRING092
  1490.                 Endif
  1491.             Endif
  1492.         Endif
  1493.     Endif
  1494.     :LABEL098
  1495.     AnsiPos 1, 23
  1496.     If (Exist("todo.lst")) Then
  1497.         OpText ""
  1498.         BOOLEAN001 = 0
  1499.         Goto LABEL005
  1500.     Endif
  1501.     AnsiPos 1, 23
  1502.     Stop
  1503.     STRING013 = " PPLD.EXE No-MoreAnti De-Compiler Code v 1.02     by <<THT>>
  1504. ;
  1505. ; Postprocessing report
  1506. ;
  1507. ;    3       For/Next
  1508. ;    0       While/EndWhile
  1509. ;    94      If/Then or If/Then/Else
  1510. ;    1       Select Case
  1511. ;
  1512. ;------------------------------------------------------------------------------
  1513. ;                 AEGiS Corp - Break the routines, code against the machines!
  1514. ;------------------------------------------------------------------------------
  1515.