home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_MNU10.ZIP / PPEMENU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-08-18  |  17KB  |  1,125 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.     String   STRING038
  57.     String   STRING039
  58.     String   STRING040
  59.     String   STRING041
  60.     String   STRING042
  61.     String   STRING043
  62.     String   STRING044
  63.     String   STRING045
  64.     String   STRING046
  65.     String   STRING047
  66.     String   STRING048
  67.     String   STRING049
  68.     String   STRING050
  69.     String   STRING051
  70.     String   STRING052
  71.     String   STRING053
  72.     String   STRING054
  73.     String   STRING055
  74.     String   STRING056
  75.     String   STRING057
  76.     String   STRING058
  77.     String   STRING059
  78.     String   STRING060
  79.     String   STRING061
  80.     String   STRING062
  81.     String   STRING063
  82.     String   STRING064
  83.     String   STRING065
  84.     String   STRING066
  85.     String   STRING067
  86.     String   STRING068
  87.     String   STRING069
  88.     String   STRING070
  89.     String   STRING071
  90.     String   STRING072
  91.     String   STRING073
  92.     String   STRING074
  93.     String   STRING075
  94.     String   STRING076
  95.     String   STRING077
  96.     String   STRING078
  97.     String   STRING079
  98.     String   STRING080
  99.     String   STRING081
  100.     String   STRING082
  101.     String   STRING083
  102.     String   STRING084
  103.     String   STRING085
  104.     String   STRING086
  105.     String   STRING087
  106.     String   STRING088
  107.     String   STRING089
  108.     String   STRING090
  109.     String   STRING091
  110.     String   STRING092
  111.     String   STRING093
  112.     String   STRING094
  113.     String   STRING095
  114.     String   STRING096
  115.     String   STRING097
  116.     String   STRING098
  117.     String   STRING099
  118.     String   STRING100
  119.     String   STRING101
  120.     String   STRING102
  121.     String   STRING103
  122.     String   STRING104
  123.     String   STRING105
  124.     String   STRING106
  125.     String   STRING107
  126.     String   STRING108
  127.     String   STRING109
  128.     String   STRING110
  129.     String   STRING111
  130.     String   STRING112
  131.     String   STRING113
  132.     String   STRING114
  133.     String   STRING115
  134.     String   STRING116
  135.     String   STRING117
  136.     String   STRING118
  137.     String   STRING119
  138.     String   STRING120
  139.     String   STRING121
  140.     String   STRING122
  141.     String   STRING123
  142.     String   STRING124
  143.     String   STRING125
  144.     String   STRING126
  145.     String   STRING127
  146.     String   STRING128
  147.     String   STRING129
  148.     String   STRING130
  149.     String   STRING131
  150.     String   STRING132
  151.     String   STRING133
  152.     String   STRING134
  153.     String   STRING135
  154.     String   STRING136
  155.     String   STRING137
  156.     String   STRING138
  157.     String   STRING139
  158.     String   STRING140
  159.     String   STRING141
  160.     String   STRING142
  161.     String   STRING143
  162.     String   STRING144
  163.     String   STRING145
  164.     String   STRING146
  165.     String   STRING147
  166.     String   STRING148
  167.     String   STRING149
  168.     String   STRING150
  169.     String   STRING151
  170.     String   STRING152
  171.     String   STRING153
  172.     String   STRING154
  173.     String   STRING155
  174.     String   STRING156
  175.     String   STRING157
  176.     String   STRING158
  177.     String   STRING159
  178.     String   STRING160
  179.     String   STRING161
  180.     String   STRING162
  181.     String   STRING163
  182.     String   STRING164
  183.     String   STRING165
  184.     String   STRING166
  185.     String   STRING167
  186.     String   STRING168
  187.     String   STRING169
  188.     String   STRING170
  189.     String   STRING171
  190.     String   STRING172
  191.     String   STRING173
  192.     String   STRING174
  193.     String   STRING175
  194.     String   STRING176
  195.     String   STRING177
  196.     String   STRING178
  197.     String   STRING179
  198.     String   STRING180
  199.     String   STRING181
  200.     String   STRING182
  201.     String   STRING183
  202.     String   STRING184
  203.     String   STRING185
  204.     String   STRING186
  205.     String   STRING187
  206.     String   STRING188
  207.     String   STRING189
  208.     String   STRING190
  209.     String   STRING191
  210.     String   STRING192
  211.     String   STRING193
  212.     String   STRING194
  213.     String   STRING195
  214.     String   STRING196
  215.     String   STRING197
  216.     String   STRING198
  217.     String   STRING199
  218.     String   STRING200
  219.     String   STRING201
  220.     String   STRING202
  221.     String   STRING203
  222.     String   STRING204
  223.  
  224. ;------------------------------------------------------------------------------
  225.  
  226.     If (Exist(PPEPath() + "PPEMENU.LST") == 0) Then
  227.         PrintLn 
  228.         PrintLn "@X0CError!  File PPEMENU.LST not found!@X07"
  229.         PrintLn "This file contains all the PPE Menu command line configurations"
  230.         PrintLn "to CALL and Launch PPE files from within PCBoard and is required"
  231.         PrintLn "for this program to work correctly."
  232.         PrintLn "Please notify the SysOp!"
  233.         PrintLn 
  234.         Wait
  235.         End
  236.     Endif
  237.     FOpen 1, PPEPath() + "PPEMENU.LST", 0, 0
  238.     FGet 1, STRING005
  239.     FGet 1, STRING105
  240.     FGet 1, STRING006
  241.     FGet 1, STRING106
  242.     FGet 1, STRING007
  243.     FGet 1, STRING107
  244.     FGet 1, STRING008
  245.     FGet 1, STRING108
  246.     FGet 1, STRING009
  247.     FGet 1, STRING109
  248.     FGet 1, STRING010
  249.     FGet 1, STRING110
  250.     FGet 1, STRING011
  251.     FGet 1, STRING111
  252.     FGet 1, STRING012
  253.     FGet 1, STRING112
  254.     FGet 1, STRING013
  255.     FGet 1, STRING113
  256.     FGet 1, STRING014
  257.     FGet 1, STRING114
  258.     FGet 1, STRING015
  259.     FGet 1, STRING115
  260.     FGet 1, STRING016
  261.     FGet 1, STRING116
  262.     FGet 1, STRING017
  263.     FGet 1, STRING117
  264.     FGet 1, STRING018
  265.     FGet 1, STRING118
  266.     FGet 1, STRING019
  267.     FGet 1, STRING119
  268.     FGet 1, STRING020
  269.     FGet 1, STRING120
  270.     FGet 1, STRING021
  271.     FGet 1, STRING121
  272.     FGet 1, STRING022
  273.     FGet 1, STRING122
  274.     FGet 1, STRING023
  275.     FGet 1, STRING123
  276.     FGet 1, STRING024
  277.     FGet 1, STRING124
  278.     FGet 1, STRING025
  279.     FGet 1, STRING125
  280.     FGet 1, STRING026
  281.     FGet 1, STRING126
  282.     FGet 1, STRING027
  283.     FGet 1, STRING127
  284.     FGet 1, STRING028
  285.     FGet 1, STRING128
  286.     FGet 1, STRING029
  287.     FGet 1, STRING129
  288.     FGet 1, STRING030
  289.     FGet 1, STRING130
  290.     FGet 1, STRING031
  291.     FGet 1, STRING131
  292.     FGet 1, STRING032
  293.     FGet 1, STRING132
  294.     FGet 1, STRING033
  295.     FGet 1, STRING133
  296.     FGet 1, STRING034
  297.     FGet 1, STRING134
  298.     FGet 1, STRING035
  299.     FGet 1, STRING135
  300.     FGet 1, STRING036
  301.     FGet 1, STRING136
  302.     FGet 1, STRING037
  303.     FGet 1, STRING137
  304.     FGet 1, STRING038
  305.     FGet 1, STRING138
  306.     FGet 1, STRING039
  307.     FGet 1, STRING139
  308.     FGet 1, STRING040
  309.     FGet 1, STRING140
  310.     FGet 1, STRING041
  311.     FGet 1, STRING141
  312.     FGet 1, STRING042
  313.     FGet 1, STRING142
  314.     FGet 1, STRING043
  315.     FGet 1, STRING143
  316.     FGet 1, STRING044
  317.     FGet 1, STRING144
  318.     FGet 1, STRING045
  319.     FGet 1, STRING145
  320.     FGet 1, STRING046
  321.     FGet 1, STRING146
  322.     FGet 1, STRING047
  323.     FGet 1, STRING147
  324.     FGet 1, STRING048
  325.     FGet 1, STRING148
  326.     FGet 1, STRING049
  327.     FGet 1, STRING149
  328.     FGet 1, STRING050
  329.     FGet 1, STRING150
  330.     FGet 1, STRING051
  331.     FGet 1, STRING151
  332.     FGet 1, STRING052
  333.     FGet 1, STRING152
  334.     FGet 1, STRING053
  335.     FGet 1, STRING153
  336.     FGet 1, STRING054
  337.     FGet 1, STRING154
  338.     FGet 1, STRING055
  339.     FGet 1, STRING155
  340.     FGet 1, STRING056
  341.     FGet 1, STRING156
  342.     FGet 1, STRING057
  343.     FGet 1, STRING157
  344.     FGet 1, STRING058
  345.     FGet 1, STRING158
  346.     FGet 1, STRING059
  347.     FGet 1, STRING159
  348.     FGet 1, STRING060
  349.     FGet 1, STRING160
  350.     FGet 1, STRING061
  351.     FGet 1, STRING161
  352.     FGet 1, STRING062
  353.     FGet 1, STRING162
  354.     FGet 1, STRING063
  355.     FGet 1, STRING163
  356.     FGet 1, STRING064
  357.     FGet 1, STRING164
  358.     FGet 1, STRING065
  359.     FGet 1, STRING165
  360.     FGet 1, STRING066
  361.     FGet 1, STRING166
  362.     FGet 1, STRING067
  363.     FGet 1, STRING167
  364.     FGet 1, STRING068
  365.     FGet 1, STRING168
  366.     FGet 1, STRING069
  367.     FGet 1, STRING169
  368.     FGet 1, STRING070
  369.     FGet 1, STRING170
  370.     FGet 1, STRING071
  371.     FGet 1, STRING171
  372.     FGet 1, STRING072
  373.     FGet 1, STRING172
  374.     FGet 1, STRING073
  375.     FGet 1, STRING173
  376.     FGet 1, STRING074
  377.     FGet 1, STRING174
  378.     FGet 1, STRING075
  379.     FGet 1, STRING175
  380.     FGet 1, STRING076
  381.     FGet 1, STRING176
  382.     FGet 1, STRING077
  383.     FGet 1, STRING177
  384.     FGet 1, STRING078
  385.     FGet 1, STRING178
  386.     FGet 1, STRING079
  387.     FGet 1, STRING179
  388.     FGet 1, STRING080
  389.     FGet 1, STRING180
  390.     FGet 1, STRING081
  391.     FGet 1, STRING181
  392.     FGet 1, STRING082
  393.     FGet 1, STRING182
  394.     FGet 1, STRING083
  395.     FGet 1, STRING183
  396.     FGet 1, STRING084
  397.     FGet 1, STRING184
  398.     FGet 1, STRING085
  399.     FGet 1, STRING185
  400.     FGet 1, STRING086
  401.     FGet 1, STRING186
  402.     FGet 1, STRING087
  403.     FGet 1, STRING187
  404.     FGet 1, STRING088
  405.     FGet 1, STRING188
  406.     FGet 1, STRING089
  407.     FGet 1, STRING189
  408.     FGet 1, STRING090
  409.     FGet 1, STRING190
  410.     FGet 1, STRING091
  411.     FGet 1, STRING191
  412.     FGet 1, STRING092
  413.     FGet 1, STRING192
  414.     FGet 1, STRING093
  415.     FGet 1, STRING193
  416.     FGet 1, STRING094
  417.     FGet 1, STRING194
  418.     FGet 1, STRING095
  419.     FGet 1, STRING195
  420.     FGet 1, STRING096
  421.     FGet 1, STRING196
  422.     FGet 1, STRING097
  423.     FGet 1, STRING197
  424.     FGet 1, STRING098
  425.     FGet 1, STRING198
  426.     FGet 1, STRING099
  427.     FGet 1, STRING199
  428.     FGet 1, STRING100
  429.     FGet 1, STRING200
  430.     FGet 1, STRING101
  431.     FGet 1, STRING201
  432.     FGet 1, STRING102
  433.     FGet 1, STRING202
  434.     FGet 1, STRING103
  435.     FGet 1, STRING203
  436.     FGet 1, STRING104
  437.     FGet 1, STRING204
  438.     FClose 1
  439.     If (Exist(PPEPath() + "PPEMENU.CNF") == 0) Then
  440.         PrintLn 
  441.         PrintLn "@X0CError!  File PPEMENU.CNF not found!@X07"
  442.         PrintLn "This file contains all the PPE Menu command line configurations"
  443.         PrintLn "and is required for this program to work correctly."
  444.         PrintLn "Please notify the SysOp!"
  445.         PrintLn 
  446.         Wait
  447.         End
  448.     Endif
  449.     FOpen 2, PPEPath() + "PPEMENU.CNF", 0, 0
  450.     FGet 2, STRING002
  451.     FGet 2, STRING003
  452.     FGet 2, STRING004
  453.     FClose 2
  454.     :LABEL001
  455.     PrintLn 
  456.     If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1
  457.     PrintLn 
  458.     STRING001 = ""
  459.     InputStr STRING004 + " @X07_", STRING001, 15, 8, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~!@#$%^&*()_+|`1234567890-=<>?/\;':., ", 2 + 4 + 8 + 64
  460.     If (STRING001 == "") Gosub LABEL003
  461.     If (STRING001 == "Q") Gosub LABEL003
  462.     If (STRING001 == STRING005) Goto LABEL004
  463.     If (STRING001 == STRING006) Goto LABEL005
  464.     If (STRING001 == STRING007) Goto LABEL006
  465.     If (STRING001 == STRING008) Goto LABEL007
  466.     If (STRING001 == STRING009) Goto LABEL008
  467.     If (STRING001 == STRING010) Goto LABEL009
  468.     If (STRING001 == STRING011) Goto LABEL010
  469.     If (STRING001 == STRING012) Goto LABEL011
  470.     If (STRING001 == STRING013) Goto LABEL012
  471.     If (STRING001 == STRING014) Goto LABEL013
  472.     If (STRING001 == STRING015) Goto LABEL014
  473.     If (STRING001 == STRING016) Goto LABEL015
  474.     If (STRING001 == STRING017) Goto LABEL016
  475.     If (STRING001 == STRING018) Goto LABEL017
  476.     If (STRING001 == STRING019) Goto LABEL018
  477.     If (STRING001 == STRING020) Goto LABEL019
  478.     If (STRING001 == STRING021) Goto LABEL020
  479.     If (STRING001 == STRING022) Goto LABEL021
  480.     If (STRING001 == STRING023) Goto LABEL022
  481.     If (STRING001 == STRING024) Goto LABEL023
  482.     If (STRING001 == STRING025) Goto LABEL024
  483.     If (STRING001 == STRING026) Goto LABEL025
  484.     If (STRING001 == STRING027) Goto LABEL026
  485.     If (STRING001 == STRING028) Goto LABEL027
  486.     If (STRING001 == STRING029) Goto LABEL028
  487.     If (STRING001 == STRING030) Goto LABEL029
  488.     If (STRING001 == STRING031) Goto LABEL030
  489.     If (STRING001 == STRING032) Goto LABEL031
  490.     If (STRING001 == STRING033) Goto LABEL032
  491.     If (STRING001 == STRING034) Goto LABEL033
  492.     If (STRING001 == STRING035) Goto LABEL034
  493.     If (STRING001 == STRING036) Goto LABEL035
  494.     If (STRING001 == STRING037) Goto LABEL036
  495.     If (STRING001 == STRING038) Goto LABEL037
  496.     If (STRING001 == STRING039) Goto LABEL038
  497.     If (STRING001 == STRING040) Goto LABEL039
  498.     If (STRING001 == STRING041) Goto LABEL040
  499.     If (STRING001 == STRING042) Goto LABEL041
  500.     If (STRING001 == STRING043) Goto LABEL042
  501.     If (STRING001 == STRING044) Goto LABEL043
  502.     If (STRING001 == STRING045) Goto LABEL044
  503.     If (STRING001 == STRING046) Goto LABEL045
  504.     If (STRING001 == STRING047) Goto LABEL046
  505.     If (STRING001 == STRING048) Goto LABEL047
  506.     If (STRING001 == STRING049) Goto LABEL048
  507.     If (STRING001 == STRING050) Goto LABEL049
  508.     If (STRING001 == STRING051) Goto LABEL050
  509.     If (STRING001 == STRING052) Goto LABEL051
  510.     If (STRING001 == STRING053) Goto LABEL052
  511.     If (STRING001 == STRING054) Goto LABEL053
  512.     If (STRING001 == STRING055) Goto LABEL054
  513.     If (STRING001 == STRING056) Goto LABEL055
  514.     If (STRING001 == STRING057) Goto LABEL056
  515.     If (STRING001 == STRING058) Goto LABEL057
  516.     If (STRING001 == STRING059) Goto LABEL058
  517.     If (STRING001 == STRING060) Goto LABEL059
  518.     If (STRING001 == STRING061) Goto LABEL060
  519.     If (STRING001 == STRING062) Goto LABEL061
  520.     If (STRING001 == STRING063) Goto LABEL062
  521.     If (STRING001 == STRING064) Goto LABEL063
  522.     If (STRING001 == STRING065) Goto LABEL064
  523.     If (STRING001 == STRING066) Goto LABEL065
  524.     If (STRING001 == STRING067) Goto LABEL066
  525.     If (STRING001 == STRING068) Goto LABEL067
  526.     If (STRING001 == STRING069) Goto LABEL068
  527.     If (STRING001 == STRING070) Goto LABEL069
  528.     If (STRING001 == STRING071) Goto LABEL070
  529.     If (STRING001 == STRING072) Goto LABEL071
  530.     If (STRING001 == STRING073) Goto LABEL072
  531.     If (STRING001 == STRING074) Goto LABEL073
  532.     If (STRING001 == STRING075) Goto LABEL074
  533.     If (STRING001 == STRING076) Goto LABEL075
  534.     If (STRING001 == STRING077) Goto LABEL076
  535.     If (STRING001 == STRING078) Goto LABEL077
  536.     If (STRING001 == STRING079) Goto LABEL078
  537.     If (STRING001 == STRING080) Goto LABEL079
  538.     If (STRING001 == STRING081) Goto LABEL080
  539.     If (STRING001 == STRING082) Goto LABEL081
  540.     If (STRING001 == STRING083) Goto LABEL082
  541.     If (STRING001 == STRING084) Goto LABEL083
  542.     If (STRING001 == STRING085) Goto LABEL084
  543.     If (STRING001 == STRING086) Goto LABEL085
  544.     If (STRING001 == STRING087) Goto LABEL086
  545.     If (STRING001 == STRING088) Goto LABEL087
  546.     If (STRING001 == STRING089) Goto LABEL088
  547.     If (STRING001 == STRING090) Goto LABEL089
  548.     If (STRING001 == STRING091) Goto LABEL090
  549.     If (STRING001 == STRING092) Goto LABEL091
  550.     If (STRING001 == STRING093) Goto LABEL092
  551.     If (STRING001 == STRING094) Goto LABEL093
  552.     If (STRING001 == STRING095) Goto LABEL094
  553.     If (STRING001 == STRING096) Goto LABEL095
  554.     If (STRING001 == STRING097) Goto LABEL096
  555.     If (STRING001 == STRING098) Goto LABEL097
  556.     If (STRING001 == STRING099) Goto LABEL098
  557.     If (STRING001 == STRING100) Goto LABEL099
  558.     If (STRING001 == STRING101) Goto LABEL100
  559.     If (STRING001 == STRING102) Goto LABEL101
  560.     If (STRING001 == STRING103) Goto LABEL102
  561.     If (STRING001 == STRING104) Goto LABEL103
  562.     If (STRING001 == "1") Gosub LABEL004
  563.     If (STRING001 == "2") Gosub LABEL005
  564.     If (STRING001 == "3") Gosub LABEL006
  565.     If (STRING001 == "4") Gosub LABEL007
  566.     If (STRING001 == "5") Gosub LABEL008
  567.     If (STRING001 == "6") Gosub LABEL009
  568.     If (STRING001 == "7") Gosub LABEL010
  569.     If (STRING001 == "8") Gosub LABEL011
  570.     If (STRING001 == "9") Gosub LABEL012
  571.     If (STRING001 == "10") Gosub LABEL013
  572.     If (STRING001 == "11") Gosub LABEL014
  573.     If (STRING001 == "12") Gosub LABEL015
  574.     If (STRING001 == "13") Gosub LABEL016
  575.     If (STRING001 == "14") Gosub LABEL017
  576.     If (STRING001 == "15") Gosub LABEL018
  577.     If (STRING001 == "16") Gosub LABEL019
  578.     If (STRING001 == "17") Gosub LABEL020
  579.     If (STRING001 == "18") Gosub LABEL021
  580.     If (STRING001 == "19") Gosub LABEL022
  581.     If (STRING001 == "20") Gosub LABEL023
  582.     If (STRING001 == "21") Gosub LABEL024
  583.     If (STRING001 == "22") Gosub LABEL025
  584.     If (STRING001 == "23") Gosub LABEL026
  585.     If (STRING001 == "24") Gosub LABEL027
  586.     If (STRING001 == "25") Gosub LABEL028
  587.     If (STRING001 == "26") Gosub LABEL029
  588.     If (STRING001 == "27") Gosub LABEL030
  589.     If (STRING001 == "28") Gosub LABEL031
  590.     If (STRING001 == "29") Gosub LABEL032
  591.     If (STRING001 == "30") Gosub LABEL033
  592.     If (STRING001 == "31") Gosub LABEL034
  593.     If (STRING001 == "32") Gosub LABEL035
  594.     If (STRING001 == "33") Gosub LABEL036
  595.     If (STRING001 == "34") Gosub LABEL037
  596.     If (STRING001 == "35") Gosub LABEL038
  597.     If (STRING001 == "36") Gosub LABEL039
  598.     If (STRING001 == "37") Gosub LABEL040
  599.     If (STRING001 == "38") Gosub LABEL041
  600.     If (STRING001 == "39") Gosub LABEL042
  601.     If (STRING001 == "40") Gosub LABEL043
  602.     If (STRING001 == "41") Gosub LABEL044
  603.     If (STRING001 == "42") Gosub LABEL045
  604.     If (STRING001 == "43") Gosub LABEL046
  605.     If (STRING001 == "44") Gosub LABEL047
  606.     If (STRING001 == "45") Gosub LABEL048
  607.     If (STRING001 == "46") Gosub LABEL049
  608.     If (STRING001 == "47") Gosub LABEL050
  609.     If (STRING001 == "48") Gosub LABEL051
  610.     If (STRING001 == "49") Gosub LABEL052
  611.     If (STRING001 == "50") Gosub LABEL053
  612.     If (STRING001 == "51") Gosub LABEL054
  613.     If (STRING001 == "52") Gosub LABEL055
  614.     If (STRING001 == "53") Gosub LABEL056
  615.     If (STRING001 == "54") Gosub LABEL057
  616.     If (STRING001 == "55") Gosub LABEL058
  617.     If (STRING001 == "56") Gosub LABEL059
  618.     If (STRING001 == "57") Gosub LABEL060
  619.     If (STRING001 == "58") Gosub LABEL061
  620.     If (STRING001 == "59") Gosub LABEL062
  621.     If (STRING001 == "60") Gosub LABEL063
  622.     If (STRING001 == "61") Gosub LABEL064
  623.     If (STRING001 == "62") Gosub LABEL065
  624.     If (STRING001 == "63") Gosub LABEL066
  625.     If (STRING001 == "64") Gosub LABEL067
  626.     If (STRING001 == "65") Gosub LABEL068
  627.     If (STRING001 == "66") Gosub LABEL069
  628.     If (STRING001 == "67") Gosub LABEL070
  629.     If (STRING001 == "68") Gosub LABEL071
  630.     If (STRING001 == "69") Gosub LABEL072
  631.     If (STRING001 == "70") Gosub LABEL073
  632.     If (STRING001 == "71") Gosub LABEL074
  633.     If (STRING001 == "72") Gosub LABEL075
  634.     If (STRING001 == "73") Gosub LABEL076
  635.     If (STRING001 == "74") Gosub LABEL077
  636.     If (STRING001 == "75") Gosub LABEL078
  637.     If (STRING001 == "76") Gosub LABEL079
  638.     If (STRING001 == "77") Gosub LABEL080
  639.     If (STRING001 == "78") Gosub LABEL081
  640.     If (STRING001 == "79") Gosub LABEL082
  641.     If (STRING001 == "80") Gosub LABEL083
  642.     If (STRING001 == "81") Gosub LABEL084
  643.     If (STRING001 == "82") Gosub LABEL085
  644.     If (STRING001 == "83") Gosub LABEL086
  645.     If (STRING001 == "84") Gosub LABEL087
  646.     If (STRING001 == "85") Gosub LABEL088
  647.     If (STRING001 == "86") Gosub LABEL089
  648.     If (STRING001 == "87") Gosub LABEL090
  649.     If (STRING001 == "88") Gosub LABEL091
  650.     If (STRING001 == "89") Gosub LABEL092
  651.     If (STRING001 == "90") Gosub LABEL093
  652.     If (STRING001 == "91") Gosub LABEL094
  653.     If (STRING001 == "92") Gosub LABEL095
  654.     If (STRING001 == "93") Gosub LABEL096
  655.     If (STRING001 == "94") Gosub LABEL097
  656.     If (STRING001 == "95") Gosub LABEL098
  657.     If (STRING001 == "96") Gosub LABEL099
  658.     If (STRING001 == "97") Gosub LABEL100
  659.     If (STRING001 == "98") Gosub LABEL101
  660.     If (STRING001 == "99") Gosub LABEL102
  661.     If (STRING001 == "100") Gosub LABEL103
  662.     :LABEL002
  663.     Newlines 1
  664.     PrintLn "@X0C(@X0F" + Upper(STRING001) + "@X0C) is an invalid PPE Menu selection... Try again @FIRST@!@X07"
  665.     Newlines 1
  666.     Wait
  667.     Goto LABEL001
  668.     :LABEL003
  669.     Goto LABEL104
  670.     :LABEL004
  671.     If (STRING005 == "") Goto LABEL002
  672.     Call STRING105 + STRING005 + ".PPE"
  673.     End
  674.     :LABEL005
  675.     If (STRING006 == "") Goto LABEL002
  676.     Call STRING106 + STRING006 + ".PPE"
  677.     End
  678.     :LABEL006
  679.     If (STRING007 == "") Goto LABEL002
  680.     Call STRING107 + STRING007 + ".PPE"
  681.     End
  682.     :LABEL007
  683.     If (STRING008 == "") Goto LABEL002
  684.     Call STRING108 + STRING008 + ".PPE"
  685.     End
  686.     :LABEL008
  687.     If (STRING009 == "") Goto LABEL002
  688.     Call STRING109 + STRING009 + ".PPE"
  689.     End
  690.     :LABEL009
  691.     If (STRING010 == "") Goto LABEL002
  692.     Call STRING110 + STRING010 + ".PPE"
  693.     End
  694.     :LABEL010
  695.     If (STRING011 == "") Goto LABEL002
  696.     Call STRING111 + STRING011 + ".PPE"
  697.     End
  698.     :LABEL011
  699.     If (STRING012 == "") Goto LABEL002
  700.     Call STRING112 + STRING012 + ".PPE"
  701.     End
  702.     :LABEL012
  703.     If (STRING013 == "") Goto LABEL002
  704.     Call STRING113 + STRING013 + ".PPE"
  705.     End
  706.     :LABEL013
  707.     If (STRING014 == "") Goto LABEL002
  708.     Call STRING114 + STRING014 + ".PPE"
  709.     End
  710.     :LABEL014
  711.     If (STRING015 == "") Goto LABEL002
  712.     Call STRING115 + STRING015 + ".PPE"
  713.     End
  714.     :LABEL015
  715.     If (STRING016 == "") Goto LABEL002
  716.     Call STRING116 + STRING016 + ".PPE"
  717.     End
  718.     :LABEL016
  719.     If (STRING017 == "") Goto LABEL002
  720.     Call STRING117 + STRING017 + ".PPE"
  721.     End
  722.     :LABEL017
  723.     If (STRING018 == "") Goto LABEL002
  724.     Call STRING118 + STRING018 + ".PPE"
  725.     End
  726.     :LABEL018
  727.     If (STRING019 == "") Goto LABEL002
  728.     Call STRING119 + STRING019 + ".PPE"
  729.     End
  730.     :LABEL019
  731.     If (STRING020 == "") Goto LABEL002
  732.     Call STRING120 + STRING020 + ".PPE"
  733.     End
  734.     :LABEL020
  735.     If (STRING021 == "") Goto LABEL002
  736.     Call STRING121 + STRING021 + ".PPE"
  737.     End
  738.     :LABEL021
  739.     If (STRING022 == "") Goto LABEL002
  740.     Call STRING122 + STRING022 + ".PPE"
  741.     End
  742.     :LABEL022
  743.     If (STRING023 == "") Goto LABEL002
  744.     Call STRING123 + STRING023 + ".PPE"
  745.     End
  746.     :LABEL023
  747.     If (STRING024 == "") Goto LABEL002
  748.     Call STRING124 + STRING024 + ".PPE"
  749.     End
  750.     :LABEL024
  751.     If (STRING025 == "") Goto LABEL002
  752.     Call STRING125 + STRING025 + ".PPE"
  753.     End
  754.     :LABEL025
  755.     If (STRING026 == "") Goto LABEL002
  756.     Call STRING126 + STRING026 + ".PPE"
  757.     End
  758.     :LABEL026
  759.     If (STRING027 == "") Goto LABEL002
  760.     Call STRING127 + STRING027 + ".PPE"
  761.     End
  762.     :LABEL027
  763.     If (STRING028 == "") Goto LABEL002
  764.     Call STRING128 + STRING028 + ".PPE"
  765.     End
  766.     :LABEL028
  767.     If (STRING029 == "") Goto LABEL002
  768.     Call STRING129 + STRING029 + ".PPE"
  769.     End
  770.     :LABEL029
  771.     If (STRING030 == "") Goto LABEL002
  772.     Call STRING130 + STRING030 + ".PPE"
  773.     End
  774.     :LABEL030
  775.     If (STRING031 == "") Goto LABEL002
  776.     Call STRING131 + STRING031 + ".PPE"
  777.     End
  778.     :LABEL031
  779.     If (STRING032 == "") Goto LABEL002
  780.     Call STRING132 + STRING032 + ".PPE"
  781.     End
  782.     :LABEL032
  783.     If (STRING033 == "") Goto LABEL002
  784.     Call STRING133 + STRING033 + ".PPE"
  785.     End
  786.     :LABEL033
  787.     If (STRING034 == "") Goto LABEL002
  788.     Call STRING134 + STRING034 + ".PPE"
  789.     End
  790.     :LABEL034
  791.     If (STRING035 == "") Goto LABEL002
  792.     Call STRING135 + STRING035 + ".PPE"
  793.     End
  794.     :LABEL035
  795.     If (STRING036 == "") Goto LABEL002
  796.     Call STRING136 + STRING036 + ".PPE"
  797.     End
  798.     :LABEL036
  799.     If (STRING037 == "") Goto LABEL002
  800.     Call STRING137 + STRING037 + ".PPE"
  801.     End
  802.     :LABEL037
  803.     If (STRING038 == "") Goto LABEL002
  804.     Call STRING138 + STRING038 + ".PPE"
  805.     End
  806.     :LABEL038
  807.     If (STRING039 == "") Goto LABEL002
  808.     Call STRING139 + STRING039 + ".PPE"
  809.     End
  810.     :LABEL039
  811.     If (STRING040 == "") Goto LABEL002
  812.     Call STRING140 + STRING040 + ".PPE"
  813.     End
  814.     :LABEL040
  815.     If (STRING041 == "") Goto LABEL002
  816.     Call STRING141 + STRING041 + ".PPE"
  817.     End
  818.     :LABEL041
  819.     If (STRING042 == "") Goto LABEL002
  820.     Call STRING142 + STRING042 + ".PPE"
  821.     End
  822.     :LABEL042
  823.     If (STRING043 == "") Goto LABEL002
  824.     Call STRING143 + STRING043 + ".PPE"
  825.     End
  826.     :LABEL043
  827.     If (STRING044 == "") Goto LABEL002
  828.     Call STRING144 + STRING044 + ".PPE"
  829.     End
  830.     :LABEL044
  831.     If (STRING045 == "") Goto LABEL002
  832.     Call STRING145 + STRING045 + ".PPE"
  833.     End
  834.     :LABEL045
  835.     If (STRING046 == "") Goto LABEL002
  836.     Call STRING146 + STRING046 + ".PPE"
  837.     End
  838.     :LABEL046
  839.     If (STRING047 == "") Goto LABEL002
  840.     Call STRING147 + STRING047 + ".PPE"
  841.     End
  842.     :LABEL047
  843.     If (STRING048 == "") Goto LABEL002
  844.     Call STRING148 + STRING048 + ".PPE"
  845.     End
  846.     :LABEL048
  847.     If (STRING049 == "") Goto LABEL002
  848.     Call STRING149 + STRING049 + ".PPE"
  849.     End
  850.     :LABEL049
  851.     If (STRING050 == "") Goto LABEL002
  852.     Call STRING150 + STRING050 + ".PPE"
  853.     End
  854.     :LABEL050
  855.     If (STRING051 == "") Goto LABEL002
  856.     Call STRING151 + STRING051 + ".PPE"
  857.     End
  858.     :LABEL051
  859.     If (STRING052 == "") Goto LABEL002
  860.     Call STRING152 + STRING052 + ".PPE"
  861.     End
  862.     :LABEL052
  863.     If (STRING053 == "") Goto LABEL002
  864.     Call STRING153 + STRING053 + ".PPE"
  865.     End
  866.     :LABEL053
  867.     If (STRING054 == "") Goto LABEL002
  868.     Call STRING154 + STRING054 + ".PPE"
  869.     End
  870.     :LABEL054
  871.     If (STRING055 == "") Goto LABEL002
  872.     Call STRING155 + STRING055 + ".PPE"
  873.     End
  874.     :LABEL055
  875.     If (STRING056 == "") Goto LABEL002
  876.     Call STRING156 + STRING056 + ".PPE"
  877.     End
  878.     :LABEL056
  879.     If (STRING057 == "") Goto LABEL002
  880.     Call STRING157 + STRING057 + ".PPE"
  881.     End
  882.     :LABEL057
  883.     If (STRING058 == "") Goto LABEL002
  884.     Call STRING158 + STRING058 + ".PPE"
  885.     End
  886.     :LABEL058
  887.     If (STRING059 == "") Goto LABEL002
  888.     Call STRING159 + STRING059 + ".PPE"
  889.     End
  890.     :LABEL059
  891.     If (STRING060 == "") Goto LABEL002
  892.     Call STRING160 + STRING060 + ".PPE"
  893.     End
  894.     :LABEL060
  895.     If (STRING061 == "") Goto LABEL002
  896.     Call STRING161 + STRING061 + ".PPE"
  897.     End
  898.     :LABEL061
  899.     If (STRING062 == "") Goto LABEL002
  900.     Call STRING162 + STRING062 + ".PPE"
  901.     End
  902.     :LABEL062
  903.     If (STRING063 == "") Goto LABEL002
  904.     Call STRING163 + STRING063 + ".PPE"
  905.     End
  906.     :LABEL063
  907.     If (STRING064 == "") Goto LABEL002
  908.     Call STRING164 + STRING064 + ".PPE"
  909.     End
  910.     :LABEL064
  911.     If (STRING065 == "") Goto LABEL002
  912.     Call STRING165 + STRING065 + ".PPE"
  913.     End
  914.     :LABEL065
  915.     If (STRING066 == "") Goto LABEL002
  916.     Call STRING166 + STRING066 + ".PPE"
  917.     End
  918.     :LABEL066
  919.     If (STRING067 == "") Goto LABEL002
  920.     Call STRING167 + STRING067 + ".PPE"
  921.     End
  922.     :LABEL067
  923.     If (STRING068 == "") Goto LABEL002
  924.     Call STRING168 + STRING068 + ".PPE"
  925.     End
  926.     :LABEL068
  927.     If (STRING069 == "") Goto LABEL002
  928.     Call STRING169 + STRING069 + ".PPE"
  929.     End
  930.     :LABEL069
  931.     If (STRING070 == "") Goto LABEL002
  932.     Call STRING170 + STRING070 + ".PPE"
  933.     End
  934.     :LABEL070
  935.     If (STRING071 == "") Goto LABEL002
  936.     Call STRING171 + STRING071 + ".PPE"
  937.     End
  938.     :LABEL071
  939.     If (STRING072 == "") Goto LABEL002
  940.     Call STRING172 + STRING072 + ".PPE"
  941.     End
  942.     :LABEL072
  943.     If (STRING073 == "") Goto LABEL002
  944.     Call STRING173 + STRING073 + ".PPE"
  945.     End
  946.     :LABEL073
  947.     If (STRING074 == "") Goto LABEL002
  948.     Call STRING174 + STRING074 + ".PPE"
  949.     End
  950.     :LABEL074
  951.     If (STRING075 == "") Goto LABEL002
  952.     Call STRING175 + STRING075 + ".PPE"
  953.     End
  954.     :LABEL075
  955.     If (STRING076 == "") Goto LABEL002
  956.     Call STRING176 + STRING076 + ".PPE"
  957.     End
  958.     :LABEL076
  959.     If (STRING077 == "") Goto LABEL002
  960.     Call STRING177 + STRING077 + ".PPE"
  961.     End
  962.     :LABEL077
  963.     If (STRING078 == "") Goto LABEL002
  964.     Call STRING178 + STRING078 + ".PPE"
  965.     End
  966.     :LABEL078
  967.     If (STRING079 == "") Goto LABEL002
  968.     Call STRING179 + STRING079 + ".PPE"
  969.     End
  970.     :LABEL079
  971.     If (STRING080 == "") Goto LABEL002
  972.     Call STRING180 + STRING080 + ".PPE"
  973.     End
  974.     :LABEL080
  975.     If (STRING081 == "") Goto LABEL002
  976.     Call STRING181 + STRING081 + ".PPE"
  977.     End
  978.     :LABEL081
  979.     If (STRING082 == "") Goto LABEL002
  980.     Call STRING182 + STRING082 + ".PPE"
  981.     End
  982.     :LABEL082
  983.     If (STRING083 == "") Goto LABEL002
  984.     Call STRING183 + STRING083 + ".PPE"
  985.     End
  986.     :LABEL083
  987.     If (STRING084 == "") Goto LABEL002
  988.     Call STRING184 + STRING084 + ".PPE"
  989.     End
  990.     :LABEL084
  991.     If (STRING085 == "") Goto LABEL002
  992.     Call STRING185 + STRING085 + ".PPE"
  993.     End
  994.     :LABEL085
  995.     If (STRING086 == "") Goto LABEL002
  996.     Call STRING186 + STRING086 + ".PPE"
  997.     End
  998.     :LABEL086
  999.     If (STRING087 == "") Goto LABEL002
  1000.     Call STRING187 + STRING087 + ".PPE"
  1001.     End
  1002.     :LABEL087
  1003.     If (STRING088 == "") Goto LABEL002
  1004.     Call STRING188 + STRING088 + ".PPE"
  1005.     End
  1006.     :LABEL088
  1007.     If (STRING089 == "") Goto LABEL002
  1008.     Call STRING189 + STRING089 + ".PPE"
  1009.     End
  1010.     :LABEL089
  1011.     If (STRING090 == "") Goto LABEL002
  1012.     Call STRING190 + STRING090 + ".PPE"
  1013.     End
  1014.     :LABEL090
  1015.     If (STRING091 == "") Goto LABEL002
  1016.     Call STRING191 + STRING091 + ".PPE"
  1017.     End
  1018.     :LABEL091
  1019.     If (STRING092 == "") Goto LABEL002
  1020.     Call STRING192 + STRING092 + ".PPE"
  1021.     End
  1022.     :LABEL092
  1023.     If (STRING093 == "") Goto LABEL002
  1024.     Call STRING193 + STRING093 + ".PPE"
  1025.     End
  1026.     :LABEL093
  1027.     If (STRING094 == "") Goto LABEL002
  1028.     Call STRING194 + STRING094 + ".PPE"
  1029.     End
  1030.     :LABEL094
  1031.     If (STRING095 == "") Goto LABEL002
  1032.     Call STRING195 + STRING095 + ".PPE"
  1033.     End
  1034.     :LABEL095
  1035.     If (STRING096 == "") Goto LABEL002
  1036.     Call STRING196 + STRING096 + ".PPE"
  1037.     End
  1038.     :LABEL096
  1039.     If (STRING097 == "") Goto LABEL002
  1040.     Call STRING197 + STRING097 + ".PPE"
  1041.     End
  1042.     :LABEL097
  1043.     If (STRING098 == "") Goto LABEL002
  1044.     Call STRING198 + STRING098 + ".PPE"
  1045.     End
  1046.     :LABEL098
  1047.     If (STRING099 == "") Goto LABEL002
  1048.     Call STRING199 + STRING099 + ".PPE"
  1049.     End
  1050.     :LABEL099
  1051.     If (STRING100 == "") Goto LABEL002
  1052.     Call STRING200 + STRING100 + ".PPE"
  1053.     End
  1054.     :LABEL100
  1055.     If (STRING101 == "") Goto LABEL002
  1056.     Call STRING201 + STRING101 + ".PPE"
  1057.     End
  1058.     :LABEL101
  1059.     If (STRING102 == "") Goto LABEL002
  1060.     Call STRING202 + STRING102 + ".PPE"
  1061.     End
  1062.     :LABEL102
  1063.     If (STRING103 == "") Goto LABEL002
  1064.     Call STRING203 + STRING103 + ".PPE"
  1065.     End
  1066.     :LABEL103
  1067.     If (STRING104 == "") Goto LABEL002
  1068.     Call STRING204 + STRING104 + ".PPE"
  1069.     End
  1070.     :LABEL104
  1071.     End
  1072.  
  1073. ;------------------------------------------------------------------------------
  1074. ;
  1075. ; Usage report (before postprocessing)
  1076. ;
  1077. ; ■ Statements used :
  1078. ;
  1079. ;    103     End
  1080. ;    3       Wait
  1081. ;    204     Goto 
  1082. ;    1       Let 
  1083. ;    16      PrintLn 
  1084. ;    305     If 
  1085. ;    1       DispFile 
  1086. ;    2       FOpen 
  1087. ;    2       FClose 
  1088. ;    203     FGet 
  1089. ;    1       InputStr 
  1090. ;    102     Gosub 
  1091. ;    2       Newlines 
  1092. ;    100     Call 
  1093. ;
  1094. ;
  1095. ; ■ Functions used :
  1096. ;
  1097. ;    214     +
  1098. ;    304     ==
  1099. ;    2       !
  1100. ;    1       Upper()
  1101. ;    6       PPEPath()
  1102. ;    3       Exist()
  1103. ;
  1104. ;------------------------------------------------------------------------------
  1105. ;
  1106. ; Analysis flags : C
  1107. ;
  1108. ; C - Call child PPE ■ 3
  1109. ;     This is usually normal, but may be a tricky way to launch some
  1110. ;     sysop-only commands.
  1111. ;     ■ Search for : CALL
  1112. ;
  1113. ;------------------------------------------------------------------------------
  1114. ;
  1115. ; Postprocessing report
  1116. ;
  1117. ;    0       For/Next
  1118. ;    0       While/EndWhile
  1119. ;    2       If/Then or If/Then/Else
  1120. ;    0       Select Case
  1121. ;
  1122. ;------------------------------------------------------------------------------
  1123. ;                 AEGiS Corp - Break the routines, code against the machines!
  1124. ;------------------------------------------------------------------------------
  1125.