home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / MSGQUEST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  14KB  |  851 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     String   STRING001
  41.     String   STRING002
  42.     String   STRING003
  43.     String   STRING004
  44.     String   STRING005
  45.     String   STRING006
  46.     String   STRING007
  47.     String   STRING008
  48.     String   STRING009
  49.     String   STRING010
  50.     String   STRING011
  51.     String   STRING012
  52.     String   STRING013
  53.     String   STRING014
  54.     String   STRING015
  55.     String   STRING016
  56.     String   STRING017
  57.     String   STRING018
  58.     String   STRING019
  59.     String   STRING020
  60.     String   STRING021
  61.     String   STRING022
  62.     String   STRING023
  63.     String   STRING024
  64.     String   STRING025
  65.     String   STRING026
  66.     String   STRING027
  67.     String   STRING028
  68.     String   STRING029
  69.     String   STRING030
  70.     String   STRING031
  71.     String   STRING032
  72.     String   STRING033
  73.     String   STRING034
  74.     String   STRING035
  75.     String   STRING036
  76.     String   STRING037
  77.     String   STRING038
  78.     String   STRING039
  79.     String   STRING040
  80.     String   STRING041
  81.     String   STRING042
  82.     String   STRING043
  83.     String   STRING044
  84.     String   STRING045
  85.     String   STRING046
  86.     String   STRING047
  87.     String   STRING048
  88.     String   STRING049
  89.     String   STRING050
  90.     String   STRING051
  91.     String   STRING052
  92.     String   STRING053
  93.     String   STRING054
  94.     String   STRING055
  95.     String   STRING056
  96.     String   STRING057
  97.     String   STRING058
  98.     String   STRING059
  99.     String   STRING060
  100.     String   STRING061
  101.     String   STRING062
  102.     String   STRING063
  103.     String   STRING064
  104.     String   STRING065
  105.     String   STRING066
  106.     String   STRING067
  107.     String   STRING068
  108.     String   STRING069
  109.     String   STRING070
  110.     String   STRING071
  111.     String   STRING072
  112.     String   STRING073
  113.     String   STRING074
  114.     String   STRING075
  115.     String   STRING076
  116.     String   STRING077
  117.     String   STRING078
  118.     String   STRING079
  119.     String   STRING080
  120.     String   STRING081
  121.     String   STRING082
  122.     String   STRING083
  123.     String   STRING084
  124.     String   STRING085
  125.     String   STRING086
  126.     String   STRING087
  127.     String   STRING088
  128.     String   STRING089
  129.     String   STRING090
  130.     String   STRING091
  131.     String   STRING092
  132.     String   STRING093
  133.     String   STRING094
  134.     String   STRING095
  135.     String   STRING096
  136.     String   STRING097
  137.     String   STRING098
  138.     String   STRING099
  139.     String   STRING100
  140.     String   STRING101
  141.     String   STRING102
  142.     String   STRING103
  143.     String   STRING104
  144.     String   STRING105
  145.     String   STRING106
  146.     String   STRING107
  147.     String   STRING108
  148.     String   STRING109
  149.     String   STRING110
  150.     String   STRING111
  151.     String   STRING112
  152.     String   STRING113
  153.     String   STRING114
  154.     String   STRING115
  155.     String   STRING116
  156.     String   STRING117
  157.     String   STRING118
  158.     String   STRING119
  159.     String   STRING120
  160.     String   STRING121
  161.     String   STRING122
  162.     String   STRING123
  163.     String   STRING124
  164.     String   STRING125
  165.     String   STRING126
  166.     String   STRING127
  167.     String   STRING128
  168.     String   STRING129
  169.     String   STRING130
  170.     String   STRING131
  171.     String   STRING132
  172.     String   STRING133
  173.     String   STRING134
  174.     String   STRING135
  175.  
  176. ;------------------------------------------------------------------------------
  177.  
  178.     STRING001 = "1.5"
  179.     FOpen 1, PPEPath() + "MSGQUEST.CNF", 0, 0
  180.     FGet 1, STRING126
  181.     FGet 1, INTEGER020
  182.     FGet 1, INTEGER018
  183.     FGet 1, STRING128
  184.     FGet 1, INTEGER001
  185.     FGet 1, STRING003
  186.     FGet 1, STRING093
  187.     FGet 1, STRING018
  188.     FGet 1, STRING033
  189.     FGet 1, STRING048
  190.     FGet 1, STRING063
  191.     FGet 1, STRING078
  192.     FGet 1, STRING128
  193.     FGet 1, INTEGER002
  194.     FGet 1, STRING004
  195.     FGet 1, STRING094
  196.     FGet 1, STRING019
  197.     FGet 1, STRING034
  198.     FGet 1, STRING049
  199.     FGet 1, STRING064
  200.     FGet 1, STRING079
  201.     FGet 1, STRING128
  202.     FGet 1, INTEGER003
  203.     FGet 1, STRING005
  204.     FGet 1, STRING095
  205.     FGet 1, STRING020
  206.     FGet 1, STRING035
  207.     FGet 1, STRING050
  208.     FGet 1, STRING065
  209.     FGet 1, STRING080
  210.     FGet 1, STRING128
  211.     FGet 1, INTEGER004
  212.     FGet 1, STRING006
  213.     FGet 1, STRING096
  214.     FGet 1, STRING021
  215.     FGet 1, STRING036
  216.     FGet 1, STRING051
  217.     FGet 1, STRING066
  218.     FGet 1, STRING081
  219.     FGet 1, STRING128
  220.     FGet 1, INTEGER005
  221.     FGet 1, STRING007
  222.     FGet 1, STRING097
  223.     FGet 1, STRING022
  224.     FGet 1, STRING037
  225.     FGet 1, STRING052
  226.     FGet 1, STRING067
  227.     FGet 1, STRING082
  228.     FGet 1, STRING128
  229.     FGet 1, INTEGER006
  230.     FGet 1, STRING008
  231.     FGet 1, STRING098
  232.     FGet 1, STRING023
  233.     FGet 1, STRING038
  234.     FGet 1, STRING053
  235.     FGet 1, STRING068
  236.     FGet 1, STRING083
  237.     FGet 1, STRING128
  238.     FGet 1, INTEGER007
  239.     FGet 1, STRING009
  240.     FGet 1, STRING099
  241.     FGet 1, STRING024
  242.     FGet 1, STRING039
  243.     FGet 1, STRING054
  244.     FGet 1, STRING069
  245.     FGet 1, STRING084
  246.     FGet 1, STRING128
  247.     FGet 1, INTEGER008
  248.     FGet 1, STRING010
  249.     FGet 1, STRING100
  250.     FGet 1, STRING025
  251.     FGet 1, STRING040
  252.     FGet 1, STRING055
  253.     FGet 1, STRING070
  254.     FGet 1, STRING085
  255.     FGet 1, STRING128
  256.     FGet 1, INTEGER009
  257.     FGet 1, STRING011
  258.     FGet 1, STRING101
  259.     FGet 1, STRING026
  260.     FGet 1, STRING041
  261.     FGet 1, STRING056
  262.     FGet 1, STRING071
  263.     FGet 1, STRING086
  264.     FGet 1, STRING128
  265.     FGet 1, INTEGER010
  266.     FGet 1, STRING012
  267.     FGet 1, STRING102
  268.     FGet 1, STRING027
  269.     FGet 1, STRING042
  270.     FGet 1, STRING057
  271.     FGet 1, STRING072
  272.     FGet 1, STRING087
  273.     FGet 1, STRING128
  274.     FGet 1, INTEGER011
  275.     FGet 1, STRING013
  276.     FGet 1, STRING103
  277.     FGet 1, STRING028
  278.     FGet 1, STRING043
  279.     FGet 1, STRING058
  280.     FGet 1, STRING073
  281.     FGet 1, STRING088
  282.     FGet 1, STRING128
  283.     FGet 1, INTEGER012
  284.     FGet 1, STRING014
  285.     FGet 1, STRING104
  286.     FGet 1, STRING029
  287.     FGet 1, STRING044
  288.     FGet 1, STRING059
  289.     FGet 1, STRING074
  290.     FGet 1, STRING089
  291.     FGet 1, STRING128
  292.     FGet 1, INTEGER013
  293.     FGet 1, STRING015
  294.     FGet 1, STRING105
  295.     FGet 1, STRING030
  296.     FGet 1, STRING045
  297.     FGet 1, STRING060
  298.     FGet 1, STRING075
  299.     FGet 1, STRING090
  300.     FGet 1, STRING128
  301.     FGet 1, INTEGER014
  302.     FGet 1, STRING016
  303.     FGet 1, STRING106
  304.     FGet 1, STRING031
  305.     FGet 1, STRING046
  306.     FGet 1, STRING061
  307.     FGet 1, STRING076
  308.     FGet 1, STRING091
  309.     FGet 1, STRING128
  310.     FGet 1, INTEGER015
  311.     FGet 1, STRING017
  312.     FGet 1, STRING107
  313.     FGet 1, STRING032
  314.     FGet 1, STRING047
  315.     FGet 1, STRING062
  316.     FGet 1, STRING077
  317.     FGet 1, STRING092
  318.     FClose 1
  319.     Tokenize STRING126
  320.     GetToken STRING133
  321.     GetToken STRING134
  322.     If (INTEGER020 == 0) Then
  323.         STRING135 = "N"
  324.         Goto LABEL002
  325.     Else
  326.         Goto LABEL001
  327.     Endif
  328.     :LABEL001
  329.     INTEGER016 = 36
  330.     INTEGER019 = 10183
  331.     STRING130 = Left(STRING133, 1)
  332.     STRING131 = Left(STRING134, 2)
  333.     STRING132 = STRING130 + STRING131
  334.     If (STRING130 == "A") INTEGER021 = 1934
  335.     If (STRING130 == "B") INTEGER021 = 2859
  336.     If (STRING130 == "C") INTEGER021 = 3743
  337.     If (STRING130 == "D") INTEGER021 = 4660
  338.     If (STRING130 == "E") INTEGER021 = 5534
  339.     If (STRING130 == "F") INTEGER021 = 6471
  340.     If (STRING130 == "G") INTEGER021 = 7325
  341.     If (STRING130 == "H") INTEGER021 = 8287
  342.     If (STRING130 == "I") INTEGER021 = 9119
  343.     If (STRING130 == "J") INTEGER021 = 1096
  344.     If (STRING130 == "K") INTEGER021 = 2928
  345.     If (STRING130 == "L") INTEGER021 = 3885
  346.     If (STRING130 == "M") INTEGER021 = 4737
  347.     If (STRING130 == "N") INTEGER021 = 5674
  348.     If (STRING130 == "O") INTEGER021 = 6546
  349.     If (STRING130 == "P") INTEGER021 = 7463
  350.     If (STRING130 == "Q") INTEGER021 = 8355
  351.     If (STRING130 == "R") INTEGER021 = 9242
  352.     If (STRING130 == "S") INTEGER021 = 1164
  353.     If (STRING130 == "T") INTEGER021 = 2031
  354.     If (STRING130 == "U") INTEGER021 = 3973
  355.     If (STRING130 == "V") INTEGER021 = 4820
  356.     If (STRING130 == "W") INTEGER021 = 5782
  357.     If (STRING130 == "X") INTEGER021 = 6619
  358.     If (STRING130 == "Y") INTEGER021 = 7591
  359.     If (STRING130 == "Z") INTEGER021 = 8408
  360.     INTEGER017 = S2I(STRING132, INTEGER016) + INTEGER020 + INTEGER019 + INTEGER021
  361.     If (Len(INTEGER020) == 1) STRING123 = "000"
  362.     If (Len(INTEGER020) == 2) STRING123 = "00"
  363.     If (Len(INTEGER020) == 3) STRING123 = "0"
  364.     If (Len(INTEGER020) == 4) STRING123 = ""
  365.     STRING124 = INTEGER020
  366.     STRING125 = STRING123 + STRING124
  367.     :LABEL002
  368.     If (!(INTEGER018 == INTEGER017) || (STRING135 == "N")) Then
  369.         STRING002 = " ■ MsgQuest v" + STRING001 + " # " + "UNREGISTERED" + " ■ " + STRING126 + " ■ "
  370.     Else
  371.         STRING002 = " ■ MsgQuest v" + STRING001 + " #" + STRING125 + " ■ " + STRING126 + " ■ "
  372.     Endif
  373.     If (STRING048 == "") Then
  374.         STRING129 = U_Name()
  375.     Else
  376.         STRING129 = STRING048
  377.     Endif
  378.     If (STRING093 == "") Goto LABEL003
  379.     If (Exist(STRING003) > 0) Then
  380.         FAppend 1, STRING003, 2, 3
  381.         FPutLn 1, " "
  382.         FPutLn 1, STRING002
  383.         FClose 1
  384.         Message INTEGER001, STRING033, STRING129, STRING018, STRING063, "0", "0", STRING078, STRING003
  385.         STRING108 = STRING003 + " >> " + STRING093
  386.         Shell 1, STRING127, "Type", STRING108
  387.         Shell 1, STRING127, "Del", STRING003
  388.     Endif
  389.     Goto LABEL004
  390.     :LABEL003
  391.     If (Exist(STRING003) > 0) Then
  392.         FAppend 1, STRING003, 2, 3
  393.         FPutLn 1, " "
  394.         FPutLn 1, STRING002
  395.         FClose 1
  396.         Message INTEGER001, STRING033, STRING129, STRING018, STRING063, "0", "0", STRING078, STRING003
  397.         Shell 1, STRING127, "Del", STRING003
  398.     Endif
  399.     :LABEL004
  400.     If (STRING135 == "N") Goto LABEL032
  401.     If (STRING049 == "") Then
  402.         STRING129 = U_Name()
  403.     Else
  404.         STRING129 = STRING049
  405.     Endif
  406.     If (STRING094 == "") Goto LABEL005
  407.     If (Exist(STRING004) > 0) Then
  408.         FAppend 1, STRING004, 2, 3
  409.         FPutLn 1, " "
  410.         FPutLn 1, STRING002
  411.         FClose 1
  412.         STRING109 = STRING004 + " >> " + STRING094
  413.         Message INTEGER002, STRING034, STRING129, STRING019, STRING064, "0", "0", STRING079, STRING004
  414.         Shell 1, STRING127, "Type", STRING109
  415.         Shell 1, STRING127, "Del", STRING004
  416.     Endif
  417.     Goto LABEL006
  418.     :LABEL005
  419.     If (Exist(STRING004) > 0) Then
  420.         FAppend 1, STRING004, 2, 3
  421.         FPutLn 1, " "
  422.         FPutLn 1, STRING002
  423.         FClose 1
  424.         Message INTEGER002, STRING034, STRING129, STRING019, STRING064, "0", "0", STRING079, STRING004
  425.         Shell 1, STRING127, "Del", STRING004
  426.     Endif
  427.     :LABEL006
  428.     If (STRING135 == "N") Goto LABEL032
  429.     If (STRING050 == "") Then
  430.         STRING129 = U_Name()
  431.     Else
  432.         STRING129 = STRING050
  433.     Endif
  434.     If (STRING095 == "") Goto LABEL007
  435.     If (Exist(STRING005) > 0) Then
  436.         FAppend 1, STRING005, 2, 3
  437.         FPutLn 1, " "
  438.         FPutLn 1, STRING002
  439.         FClose 1
  440.         STRING110 = STRING005 + " >> " + STRING095
  441.         Message INTEGER003, STRING035, STRING129, STRING020, STRING065, "0", "0", STRING080, STRING005
  442.         Shell 1, STRING127, "Type", STRING110
  443.         Shell 1, STRING127, "Del", STRING005
  444.     Endif
  445.     Goto LABEL008
  446.     :LABEL007
  447.     If (Exist(STRING005) > 0) Then
  448.         FAppend 1, STRING005, 2, 3
  449.         FPutLn 1, " "
  450.         FPutLn 1, STRING002
  451.         FClose 1
  452.         Message INTEGER003, STRING035, STRING129, STRING020, STRING065, "0", "0", STRING080, STRING005
  453.         Shell 1, STRING127, "Del", STRING005
  454.     Endif
  455.     :LABEL008
  456.     If (STRING135 == "N") Goto LABEL032
  457.     If (STRING051 == "") Then
  458.         STRING129 = U_Name()
  459.     Else
  460.         STRING129 = STRING051
  461.     Endif
  462.     If (STRING096 == "") Goto LABEL009
  463.     If (Exist(STRING006) > 0) Then
  464.         FAppend 1, STRING006, 2, 3
  465.         FPutLn 1, " "
  466.         FPutLn 1, STRING002
  467.         FClose 1
  468.         STRING111 = STRING006 + " >> " + STRING096
  469.         Message INTEGER004, STRING036, STRING129, STRING021, STRING066, "0", "0", STRING081, STRING006
  470.         Shell 1, STRING127, "Type", STRING111
  471.         Shell 1, STRING127, "Del", STRING006
  472.     Endif
  473.     Goto LABEL010
  474.     :LABEL009
  475.     If (Exist(STRING006) > 0) Then
  476.         FAppend 1, STRING006, 2, 3
  477.         FPutLn 1, " "
  478.         FPutLn 1, STRING002
  479.         FClose 1
  480.         Message INTEGER004, STRING036, STRING129, STRING021, STRING066, "0", "0", STRING081, STRING006
  481.         Shell 1, STRING127, "Del", STRING006
  482.     Endif
  483.     :LABEL010
  484.     If (STRING135 == "N") Goto LABEL032
  485.     If (STRING052 == "") Then
  486.         STRING129 = U_Name()
  487.     Else
  488.         STRING129 = STRING052
  489.     Endif
  490.     If (STRING097 == "") Goto LABEL011
  491.     If (Exist(STRING007) > 0) Then
  492.         FAppend 1, STRING007, 2, 3
  493.         FPutLn 1, " "
  494.         FPutLn 1, STRING002
  495.         FClose 1
  496.         STRING112 = STRING007 + " >> " + STRING097
  497.         Message INTEGER005, STRING037, STRING129, STRING022, STRING067, "0", "0", STRING082, STRING007
  498.         Shell 1, STRING127, "Type", STRING112
  499.         Shell 1, STRING127, "Del", STRING007
  500.     Endif
  501.     Goto LABEL012
  502.     :LABEL011
  503.     If (Exist(STRING007) > 0) Then
  504.         FAppend 1, STRING007, 2, 3
  505.         FPutLn 1, " "
  506.         FPutLn 1, STRING002
  507.         FClose 1
  508.         Message INTEGER005, STRING037, STRING129, STRING022, STRING067, "0", "0", STRING082, STRING007
  509.         Shell 1, STRING127, "Del", STRING007
  510.     Endif
  511.     :LABEL012
  512.     If (STRING135 == "N") Goto LABEL032
  513.     If (STRING053 == "") Then
  514.         STRING129 = U_Name()
  515.     Else
  516.         STRING129 = STRING053
  517.     Endif
  518.     If (STRING098 == "") Goto LABEL013
  519.     If (Exist(STRING008) > 0) Then
  520.         FAppend 1, STRING008, 2, 3
  521.         FPutLn 1, " "
  522.         FPutLn 1, STRING002
  523.         FClose 1
  524.         Message INTEGER006, STRING038, STRING129, STRING023, STRING068, "0", "0", STRING083, STRING008
  525.         STRING113 = STRING008 + " >> " + STRING098
  526.         Shell 1, STRING127, "Type", STRING113
  527.         Shell 1, STRING127, "Del", STRING008
  528.     Endif
  529.     Goto LABEL014
  530.     :LABEL013
  531.     If (Exist(STRING008) > 0) Then
  532.         FAppend 1, STRING008, 2, 3
  533.         FPutLn 1, " "
  534.         FPutLn 1, STRING002
  535.         FClose 1
  536.         Message INTEGER006, STRING038, STRING129, STRING023, STRING068, "0", "0", STRING083, STRING008
  537.         Shell 1, STRING127, "Del", STRING008
  538.     Endif
  539.     :LABEL014
  540.     If (STRING135 == "N") Goto LABEL032
  541.     If (STRING054 == "") Then
  542.         STRING129 = U_Name()
  543.     Else
  544.         STRING129 = STRING054
  545.     Endif
  546.     If (STRING099 == "") Goto LABEL015
  547.     If (Exist(STRING009) > 0) Then
  548.         FAppend 1, STRING009, 2, 3
  549.         FPutLn 1, " "
  550.         FPutLn 1, STRING002
  551.         FClose 1
  552.         STRING114 = STRING009 + " >> " + STRING099
  553.         Message INTEGER007, STRING039, STRING129, STRING024, STRING069, "0", "0", STRING084, STRING009
  554.         Shell 1, STRING127, "Type", STRING114
  555.         Shell 1, STRING127, "Del", STRING009
  556.     Endif
  557.     Goto LABEL016
  558.     :LABEL015
  559.     If (Exist(STRING009) > 0) Then
  560.         FAppend 1, STRING009, 2, 3
  561.         FPutLn 1, " "
  562.         FPutLn 1, STRING002
  563.         FClose 1
  564.         Message INTEGER007, STRING039, STRING129, STRING024, STRING069, "0", "0", STRING084, STRING009
  565.         Shell 1, STRING127, "Del", STRING009
  566.     Endif
  567.     :LABEL016
  568.     If (STRING135 == "N") Goto LABEL032
  569.     If (STRING055 == "") Then
  570.         STRING129 = U_Name()
  571.     Else
  572.         STRING129 = STRING055
  573.     Endif
  574.     If (STRING100 == "") Goto LABEL017
  575.     If (Exist(STRING010) > 0) Then
  576.         FAppend 1, STRING010, 2, 3
  577.         FPutLn 1, " "
  578.         FPutLn 1, STRING002
  579.         FClose 1
  580.         STRING115 = STRING010 + " >> " + STRING100
  581.         Message INTEGER008, STRING040, STRING129, STRING025, STRING070, "0", "0", STRING085, STRING010
  582.         Shell 1, STRING127, "Type", STRING115
  583.         Shell 1, STRING127, "Del", STRING010
  584.     Endif
  585.     Goto LABEL018
  586.     :LABEL017
  587.     If (Exist(STRING010) > 0) Then
  588.         FAppend 1, STRING010, 2, 3
  589.         FPutLn 1, " "
  590.         FPutLn 1, STRING002
  591.         FClose 1
  592.         Message INTEGER008, STRING040, STRING129, STRING025, STRING065, "0", "0", STRING085, STRING010
  593.         Shell 1, STRING127, "Del", STRING010
  594.     Endif
  595.     :LABEL018
  596.     If (STRING135 == "N") Goto LABEL032
  597.     If (STRING056 == "") Then
  598.         STRING129 = U_Name()
  599.     Else
  600.         STRING129 = STRING056
  601.     Endif
  602.     If (STRING101 == "") Goto LABEL019
  603.     If (Exist(STRING011) > 0) Then
  604.         FAppend 1, STRING011, 2, 3
  605.         FPutLn 1, " "
  606.         FPutLn 1, STRING002
  607.         FClose 1
  608.         STRING116 = STRING011 + " >> " + STRING101
  609.         Message INTEGER009, STRING041, STRING129, STRING026, STRING071, "0", "0", STRING086, STRING011
  610.         Shell 1, STRING127, "Type", STRING116
  611.         Shell 1, STRING127, "Del", STRING011
  612.     Endif
  613.     Goto LABEL020
  614.     :LABEL019
  615.     If (Exist(STRING011) > 0) Then
  616.         FAppend 1, STRING011, 2, 3
  617.         FPutLn 1, " "
  618.         FPutLn 1, STRING002
  619.         FClose 1
  620.         Message INTEGER009, STRING041, STRING129, STRING026, STRING071, "0", "0", STRING086, STRING011
  621.         Shell 1, STRING127, "Del", STRING011
  622.     Endif
  623.     :LABEL020
  624.     If (STRING135 == "N") Goto LABEL032
  625.     If (STRING057 == "") Then
  626.         STRING129 = U_Name()
  627.     Else
  628.         STRING129 = STRING057
  629.     Endif
  630.     If (STRING102 == "") Goto LABEL021
  631.     If (Exist(STRING012) > 0) Then
  632.         FAppend 1, STRING012, 2, 3
  633.         FPutLn 1, " "
  634.         FPutLn 1, STRING002
  635.         FClose 1
  636.         STRING117 = STRING012 + " >> " + STRING102
  637.         Message INTEGER010, STRING042, STRING129, STRING027, STRING072, "0", "0", STRING087, STRING012
  638.         Shell 1, STRING127, "Type", STRING117
  639.         Shell 1, STRING127, "Del", STRING012
  640.     Endif
  641.     Goto LABEL022
  642.     :LABEL021
  643.     If (Exist(STRING012) > 0) Then
  644.         FAppend 1, STRING012, 2, 3
  645.         FPutLn 1, " "
  646.         FPutLn 1, STRING002
  647.         FClose 1
  648.         Message INTEGER010, STRING042, STRING129, STRING027, STRING072, "0", "0", STRING087, STRING012
  649.         Shell 1, STRING127, "Del", STRING012
  650.     Endif
  651.     :LABEL022
  652.     If (STRING135 == "N") Goto LABEL032
  653.     If (STRING058 == "") Then
  654.         STRING129 = U_Name()
  655.     Else
  656.         STRING129 = STRING058
  657.     Endif
  658.     If (STRING103 == "") Goto LABEL023
  659.     If (Exist(STRING013) > 0) Then
  660.         FAppend 1, STRING013, 2, 3
  661.         FPutLn 1, " "
  662.         FPutLn 1, STRING002
  663.         FClose 1
  664.         Message INTEGER011, STRING043, STRING129, STRING028, STRING073, "0", "0", STRING088, STRING013
  665.         STRING118 = STRING013 + " >> " + STRING103
  666.         Shell 1, STRING127, "Type", STRING118
  667.         Shell 1, STRING127, "Del", STRING013
  668.     Endif
  669.     Goto LABEL024
  670.     :LABEL023
  671.     If (Exist(STRING013) > 0) Then
  672.         FAppend 1, STRING013, 2, 3
  673.         FPutLn 1, " "
  674.         FPutLn 1, STRING002
  675.         FClose 1
  676.         Message INTEGER011, STRING043, STRING129, STRING028, STRING073, "0", "0", STRING088, STRING013
  677.         Shell 1, STRING127, "Del", STRING013
  678.     Endif
  679.     :LABEL024
  680.     If (STRING135 == "N") Goto LABEL032
  681.     If (STRING059 == "") Then
  682.         STRING129 = U_Name()
  683.     Else
  684.         STRING129 = STRING059
  685.     Endif
  686.     If (STRING104 == "") Goto LABEL025
  687.     If (Exist(STRING014) > 0) Then
  688.         FAppend 1, STRING014, 2, 3
  689.         FPutLn 1, " "
  690.         FPutLn 1, STRING002
  691.         FClose 1
  692.         STRING119 = STRING014 + " >> " + STRING104
  693.         Message INTEGER012, STRING044, STRING129, STRING029, STRING074, "0", "0", STRING089, STRING014
  694.         Shell 1, STRING127, "Type", STRING119
  695.         Shell 1, STRING127, "Del", STRING014
  696.     Endif
  697.     Goto LABEL026
  698.     :LABEL025
  699.     If (Exist(STRING014) > 0) Then
  700.         FAppend 1, STRING014, 2, 3
  701.         FPutLn 1, " "
  702.         FPutLn 1, STRING002
  703.         FClose 1
  704.         Message INTEGER012, STRING044, STRING129, STRING029, STRING074, "0", "0", STRING089, STRING014
  705.         Shell 1, STRING127, "Del", STRING014
  706.     Endif
  707.     :LABEL026
  708.     If (STRING135 == "N") Goto LABEL032
  709.     If (STRING060 == "") Then
  710.         STRING129 = U_Name()
  711.     Else
  712.         STRING129 = STRING060
  713.     Endif
  714.     If (STRING105 == "") Goto LABEL027
  715.     If (Exist(STRING015) > 0) Then
  716.         FAppend 1, STRING015, 2, 3
  717.         FPutLn 1, " "
  718.         FPutLn 1, STRING002
  719.         FClose 1
  720.         STRING120 = STRING015 + " >> " + STRING105
  721.         Message INTEGER013, STRING045, STRING129, STRING030, STRING075, "0", "0", STRING090, STRING015
  722.         Shell 1, STRING127, "Type", STRING120
  723.         Shell 1, STRING127, "Del", STRING015
  724.     Endif
  725.     Goto LABEL028
  726.     :LABEL027
  727.     If (Exist(STRING015) > 0) Then
  728.         FAppend 1, STRING015, 2, 3
  729.         FPutLn 1, " "
  730.         FPutLn 1, STRING002
  731.         FClose 1
  732.         Message INTEGER013, STRING045, STRING129, STRING030, STRING075, "0", "0", STRING090, STRING015
  733.         Shell 1, STRING127, "Del", STRING015
  734.     Endif
  735.     :LABEL028
  736.     If (STRING135 == "N") Goto LABEL032
  737.     If (STRING061 == "") Then
  738.         STRING129 = U_Name()
  739.     Else
  740.         STRING129 = STRING061
  741.     Endif
  742.     If (STRING106 == "") Goto LABEL029
  743.     If (Exist(STRING016) > 0) Then
  744.         FAppend 1, STRING016, 2, 3
  745.         FPutLn 1, " "
  746.         FPutLn 1, STRING002
  747.         FClose 1
  748.         STRING121 = STRING016 + " >> " + STRING106
  749.         Message INTEGER014, STRING046, STRING129, STRING031, STRING076, "0", "0", STRING091, STRING016
  750.         Shell 1, STRING127, "Type", STRING121
  751.         Shell 1, STRING127, "Del", STRING016
  752.     Endif
  753.     Goto LABEL030
  754.     :LABEL029
  755.     If (Exist(STRING016) > 0) Then
  756.         FAppend 1, STRING016, 2, 3
  757.         FPutLn 1, " "
  758.         FPutLn 1, STRING002
  759.         FClose 1
  760.         Message INTEGER014, STRING046, STRING129, STRING031, STRING076, "0", "0", STRING091, STRING016
  761.         Shell 1, STRING127, "Del", STRING016
  762.     Endif
  763.     :LABEL030
  764.     If (STRING135 == "N") Goto LABEL032
  765.     If (STRING062 == "") Then
  766.         STRING129 = U_Name()
  767.     Else
  768.         STRING129 = STRING062
  769.     Endif
  770.     If (STRING107 == "") Goto LABEL031
  771.     If (Exist(STRING017) > 0) Then
  772.         FAppend 1, STRING017, 2, 3
  773.         FPutLn 1, " "
  774.         FPutLn 1, STRING002
  775.         FClose 1
  776.         STRING122 = STRING017 + " >> " + STRING107
  777.         Message INTEGER015, STRING047, STRING129, STRING032, STRING077, "0", "0", STRING092, STRING017
  778.         Shell 1, STRING127, "Type", STRING122
  779.         Shell 1, STRING127, "Del", STRING017
  780.     Endif
  781.     :LABEL031
  782.     If (Exist(STRING017) > 0) Then
  783.         FAppend 1, STRING017, 2, 3
  784.         FPutLn 1, " "
  785.         FPutLn 1, STRING002
  786.         FClose 1
  787.         Message INTEGER015, STRING047, STRING129, STRING032, STRING077, "0", "0", STRING092, STRING017
  788.         Shell 1, STRING127, "Del", STRING017
  789.     Endif
  790.     End
  791.     :LABEL032
  792.     End
  793.  
  794. ;------------------------------------------------------------------------------
  795. ;
  796. ; Usage report (before postprocessing)
  797. ;
  798. ; ■ Statements used :
  799. ;
  800. ;    2       End
  801. ;    109     Goto 
  802. ;    87      Let 
  803. ;    106     If 
  804. ;    1       FOpen 
  805. ;    30      FAppend 
  806. ;    31      FClose 
  807. ;    138     FGet 
  808. ;    60      FPutLn 
  809. ;    1       Tokenize 
  810. ;    2       GetToken 
  811. ;    45      Shell 
  812. ;    30      Message 
  813. ;
  814. ;
  815. ; ■ Functions used :
  816. ;
  817. ;    48      +
  818. ;    77      ==
  819. ;    30      >
  820. ;    48      !
  821. ;    1       ||
  822. ;    4       Len(
  823. ;    2       Left()
  824. ;    15      U_Name()
  825. ;    1       PPEPath()
  826. ;    30      Exist()
  827. ;    1       S2I()
  828. ;
  829. ;------------------------------------------------------------------------------
  830. ;
  831. ; Analysis flags : S
  832. ;
  833. ; S - Shell to DOS ■ 5
  834. ;     This may be normal if the PPE need to execute an external command,
  835. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  836. ;     or usefull (sorting, maintenance,...). Check!
  837. ;     ■ Search for : SHELL
  838. ;
  839. ;------------------------------------------------------------------------------
  840. ;
  841. ; Postprocessing report
  842. ;
  843. ;    0       For/Next
  844. ;    0       While/EndWhile
  845. ;    47      If/Then or If/Then/Else
  846. ;    0       Select Case
  847. ;
  848. ;------------------------------------------------------------------------------
  849. ;                 AEGiS Corp - Break the routines, code against the machines!
  850. ;------------------------------------------------------------------------------
  851.