home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SMART216.ZIP / FREEMEM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-11-02  |  13KB  |  797 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.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     String   STRING002
  44.     String   STRING003
  45.     String   STRING004
  46.     String   STRING005
  47.     String   STRING006
  48.     String   STRING007
  49.     String   STRING008
  50.     String   STRING009
  51.     String   STRING010
  52.     String   STRING011
  53.     String   STRING012
  54.     String   STRING013
  55.     String   STRING014
  56.     String   STRING015
  57.     String   STRING016
  58.     String   STRING017
  59.     String   STRING018
  60.     String   STRING019
  61.     String   STRING020
  62.     String   STRING021
  63.     String   STRING022
  64.     String   STRING023
  65.     String   STRING024
  66.     String   STRING025
  67.     String   STRING026
  68.     String   STRING027
  69.     String   STRING028
  70.     String   STRING029
  71.     String   STRING030
  72.     String   STRING031
  73.     String   STRING032
  74.     String   STRING033
  75.     String   STRING034
  76.     String   STRING035
  77.     String   STRING036
  78.     String   STRING037
  79.     String   STRING038
  80.     String   STRING039
  81.     String   STRING040
  82.     String   STRING041
  83.     String   STRING042
  84.     String   STRING043
  85.     String   STRING044
  86.     String   STRING045
  87.     String   STRING046
  88.     String   STRING047
  89.     String   STRING048
  90.     String   STRING049
  91.     String   STRING050
  92.     String   STRING051
  93.     String   STRING052
  94.     String   STRING053
  95.     String   STRING054
  96.     String   STRING055
  97.     String   STRING056
  98.     String   STRING057
  99.     String   STRING058
  100.     String   STRING059
  101.     String   STRING060
  102.     String   STRING061
  103.     String   STRING062
  104.     String   STRING063
  105.     String   STRING064
  106.     String   STRING065
  107.     String   STRING066
  108.     String   STRING067
  109.     String   STRING068
  110.     String   STRING069
  111.     String   STRING070
  112.     String   STRING071
  113.     String   STRING072
  114.     String   STRING073
  115.     String   STRING074
  116.     String   STRING075
  117.     String   STRING076
  118.     String   STRING077
  119.     String   STRING078
  120.     String   STRING079
  121.     String   STRING080
  122.     String   STRING081
  123.     String   STRING082
  124.     String   STRING083
  125.     String   STRING084
  126.     String   STRING085
  127.     String   STRING086
  128.     String   STRING087
  129.     String   STRING088
  130.     String   STRING089
  131.     String   STRING090
  132.     String   STRING091
  133.     String   STRING092
  134.     String   STRING093
  135.     String   STRING094
  136.     String   STRING095
  137.     String   STRING096
  138.     String   STRING097
  139.     String   STRING098
  140.     String   STRING099
  141.     String   STRING100
  142.     String   STRING101
  143.     String   STRING102
  144.     String   STRING103
  145.     String   STRING104
  146.     String   STRING105
  147.     String   STRING106
  148.     String   STRING107
  149.     String   STRING108
  150.     String   STRING109
  151.     String   STRING110
  152.     String   STRING111
  153.     String   STRING112
  154.     String   STRING113
  155.     String   STRING114
  156.     String   STRING115
  157.     String   STRING116
  158.     String   STRING117
  159.     String   STRING118
  160.     String   STRING119
  161.     String   STRING120
  162.     String   STRING121
  163.     String   STRING122
  164.     String   STRING123
  165.     String   STRING124
  166.     String   STRING125
  167.     String   STRING126
  168.     String   STRING127
  169.     String   STRING128
  170.     String   STRING129
  171.     String   STRING130
  172.     String   STRING131
  173.     String   STRING132
  174.     String   STRING133
  175.     String   STRING134
  176.     String   STRING135
  177.     String   STRING136
  178.     String   STRING137
  179.     String   STRING138
  180.     String   STRING139
  181.     String   STRING140
  182.     String   STRING141
  183.     String   STRING142
  184.     String   STRING143
  185.     String   STRING144
  186.     String   STRING145
  187.     String   STRING146
  188.     String   STRING147
  189.     String   STRING148
  190.     String   STRING149
  191.     String   STRING150
  192.     String   STRING151
  193.     String   STRING152
  194.     String   STRING153
  195.     String   STRING154
  196.     String   STRING155
  197.     String   STRING156
  198.     String   STRING157
  199.     String   STRING158
  200.     String   STRING159
  201.     String   STRING160
  202.     String   STRING161
  203.     String   STRING162
  204.     String   STRING163
  205.     String   STRING164
  206.     String   STRING165
  207.     String   STRING166
  208.     String   STRING167
  209.     String   STRING168
  210.     String   STRING169
  211.     String   STRING170
  212.     String   STRING171
  213.     String   STRING172
  214.     String   STRING173
  215.     String   STRING174
  216.     String   STRING175
  217.     String   STRING176
  218.     String   STRING177
  219.     String   STRING178
  220.     String   STRING179
  221.     String   STRING180
  222.     String   STRING181
  223.     String   STRING182
  224.     String   STRING183
  225.     String   STRING184
  226.     String   STRING185
  227.     String   STRING186
  228.     String   STRING187
  229.     String   STRING188
  230.     String   STRING189
  231.     String   STRING190
  232.     String   STRING191
  233.     String   STRING192
  234.     String   STRING193
  235.     String   STRING194
  236.     String   STRING195
  237.     String   STRING196
  238.     String   STRING197
  239.     String   STRING198
  240.     String   STRING199
  241.     String   STRING200
  242.     String   STRING201
  243.     String   STRING202
  244.     String   STRING203
  245.     String   STRING204
  246.     String   STRING205
  247.     String   STRING206
  248.     String   STRING207
  249.     String   STRING208
  250.     String   STRING209
  251.     String   STRING210
  252.     String   STRING211
  253.     String   STRING212
  254.     String   STRING213
  255.     String   STRING214
  256.     String   STRING215
  257.     String   STRING216
  258.     String   STRING217
  259.     String   STRING218
  260.     String   STRING219
  261.     String   STRING220
  262.     String   STRING221
  263.     String   STRING222
  264.     String   STRING223
  265.     String   STRING224
  266.     String   STRING225
  267.     String   STRING226
  268.     String   STRING227
  269.     String   STRING228
  270.     String   STRING229
  271.     String   STRING230
  272.     String   STRING231
  273.     String   STRING232
  274.     String   STRING233
  275.     String   STRING234
  276.     String   STRING235
  277.     String   STRING236
  278.     String   STRING237
  279.     String   STRING238
  280.     String   STRING239
  281.     String   STRING240
  282.     String   STRING241
  283.     String   STRING242
  284.     String   STRING243
  285.     String   STRING244
  286.     String   STRING245
  287.     String   STRING246
  288.     String   STRING247
  289.     String   STRING248
  290.     String   STRING249
  291.     String   STRING250
  292.     String   STRING251
  293.     String   STRING252
  294.     String   STRING253
  295.     String   STRING254
  296.     String   STRING255
  297.     String   STRING256
  298.     String   STRING257
  299.     String   STRING258
  300.     String   STRING259
  301.     String   STRING260
  302.     String   STRING261
  303.     String   STRING262
  304.     String   STRING263
  305.     String   STRING264
  306.     String   STRING265
  307.     String   STRING266
  308.     String   STRING267
  309.     String   STRING268
  310.     String   STRING269
  311.     String   STRING270
  312.     String   STRING271
  313.     String   STRING272
  314.     String   STRING273
  315.     String   STRING274
  316.     String   STRING275
  317.     String   STRING276
  318.     String   STRING277
  319.     String   STRING278
  320.     String   STRING279
  321.     String   STRING280
  322.     String   STRING281
  323.     String   STRING282
  324.     String   STRING283
  325.     String   STRING284
  326.     String   STRING285
  327.     String   STRING286
  328.     String   STRING287
  329.     String   STRING288
  330.     String   STRING289
  331.     String   STRING290
  332.     String   STRING291
  333.     String   STRING292
  334.     String   STRING293
  335.     String   STRING294
  336.     String   STRING295
  337.     String   STRING296
  338.     String   STRING297
  339.     String   STRING298
  340.     String   STRING299
  341.     String   STRING300
  342.     String   STRING301
  343.  
  344. ;------------------------------------------------------------------------------
  345.  
  346.     GetUser
  347.     Newline
  348.     Newline
  349.     FOpen 1, PPEPath() + "smart.cfg", 0, 2
  350.     If (Ferr(1)) End
  351.     FGet 1, STRING004
  352.     FGet 1, STRING006
  353.     FGet 1, STRING007
  354.     FGet 1, INTEGER011
  355.     FGet 1, INTEGER012
  356.     FGet 1, INTEGER013
  357.     FGet 1, STRING008
  358.     FGet 1, STRING173
  359.     FGet 1, STRING174
  360.     FGet 1, STRING175
  361.     FGet 1, STRING009
  362.     FGet 1, STRING010
  363.     FGet 1, STRING118
  364.     FGet 1, STRING119
  365.     FGet 1, STRING120
  366.     FGet 1, STRING121
  367.     FGet 1, STRING197
  368.     FGet 1, STRING198
  369.     FGet 1, INTEGER024
  370.     FGet 1, STRING199
  371.     FGet 1, STRING300
  372.     FClose 1
  373.     If (Exist(PPEPath() + "prompts" + LangExt())) Then
  374.         FOpen 2, PPEPath() + "prompts" + LangExt(), 0, 2
  375.         If (Ferr(2)) End
  376.     Else
  377.         FOpen 2, PPEPath() + "prompts", 0, 2
  378.         If (Ferr(2)) End
  379.     Endif
  380.     FGet 2, STRING011
  381.     FGet 2, STRING012
  382.     FGet 2, STRING013
  383.     FGet 2, STRING014
  384.     FGet 2, STRING015
  385.     FGet 2, STRING016
  386.     FGet 2, STRING017
  387.     FClose 2
  388.     FOpen 3, PPEPath() + "bypass.usr", 0, 2
  389.     If (Ferr(3)) End
  390.     FGet 3, STRING018
  391.     FGet 3, STRING019
  392.     FGet 3, STRING020
  393.     FGet 3, STRING021
  394.     FGet 3, STRING022
  395.     FGet 3, STRING023
  396.     FGet 3, STRING024
  397.     FGet 3, STRING025
  398.     FGet 3, STRING026
  399.     FGet 3, STRING027
  400.     FGet 3, STRING028
  401.     FGet 3, STRING029
  402.     FGet 3, STRING030
  403.     FGet 3, STRING031
  404.     FGet 3, STRING032
  405.     FGet 3, STRING033
  406.     FGet 3, STRING034
  407.     FGet 3, STRING035
  408.     FGet 3, STRING036
  409.     FGet 3, STRING037
  410.     FGet 3, STRING038
  411.     FGet 3, STRING039
  412.     FGet 3, STRING040
  413.     FGet 3, STRING041
  414.     FGet 3, STRING042
  415.     FGet 3, STRING043
  416.     FGet 3, STRING044
  417.     FGet 3, STRING045
  418.     FGet 3, STRING046
  419.     FGet 3, STRING047
  420.     FGet 3, STRING048
  421.     FGet 3, STRING049
  422.     FGet 3, STRING050
  423.     FGet 3, STRING051
  424.     FGet 3, STRING052
  425.     FGet 3, STRING053
  426.     FGet 3, STRING054
  427.     FGet 3, STRING055
  428.     FGet 3, STRING056
  429.     FGet 3, STRING057
  430.     FGet 3, STRING058
  431.     FGet 3, STRING059
  432.     FGet 3, STRING060
  433.     FGet 3, STRING061
  434.     FGet 3, STRING062
  435.     FGet 3, STRING063
  436.     FGet 3, STRING064
  437.     FGet 3, STRING065
  438.     FGet 3, STRING066
  439.     FGet 3, STRING067
  440.     FClose 3
  441.     FOpen 4, PPEPath() + "forced.usr", 0, 2
  442.     If (Ferr(4)) End
  443.     FGet 4, STRING068
  444.     FGet 4, STRING069
  445.     FGet 4, STRING070
  446.     FGet 4, STRING071
  447.     FGet 4, STRING072
  448.     FGet 4, STRING073
  449.     FGet 4, STRING074
  450.     FGet 4, STRING075
  451.     FGet 4, STRING076
  452.     FGet 4, STRING077
  453.     FGet 4, STRING078
  454.     FGet 4, STRING079
  455.     FGet 4, STRING080
  456.     FGet 4, STRING081
  457.     FGet 4, STRING082
  458.     FGet 4, STRING083
  459.     FGet 4, STRING084
  460.     FGet 4, STRING085
  461.     FGet 4, STRING086
  462.     FGet 4, STRING087
  463.     FGet 4, STRING088
  464.     FGet 4, STRING089
  465.     FGet 4, STRING090
  466.     FGet 4, STRING091
  467.     FGet 4, STRING092
  468.     FGet 4, STRING093
  469.     FGet 4, STRING094
  470.     FGet 4, STRING095
  471.     FGet 4, STRING096
  472.     FGet 4, STRING097
  473.     FGet 4, STRING098
  474.     FGet 4, STRING099
  475.     FGet 4, STRING100
  476.     FGet 4, STRING101
  477.     FGet 4, STRING102
  478.     FGet 4, STRING103
  479.     FGet 4, STRING104
  480.     FGet 4, STRING105
  481.     FGet 4, STRING106
  482.     FGet 4, STRING107
  483.     FGet 4, STRING108
  484.     FGet 4, STRING109
  485.     FGet 4, STRING110
  486.     FGet 4, STRING111
  487.     FGet 4, STRING112
  488.     FGet 4, STRING113
  489.     FGet 4, STRING114
  490.     FGet 4, STRING115
  491.     FGet 4, STRING116
  492.     FGet 4, STRING117
  493.     FClose 4
  494.     FOpen 5, PPEPath() + "whocall.usr", 0, 2
  495.     If (Ferr(5)) End
  496.     FGet 5, STRING122
  497.     FGet 5, STRING123
  498.     FGet 5, STRING124
  499.     FGet 5, STRING125
  500.     FGet 5, STRING126
  501.     FGet 5, STRING127
  502.     FGet 5, STRING128
  503.     FGet 5, STRING129
  504.     FGet 5, STRING130
  505.     FGet 5, STRING131
  506.     FGet 5, STRING132
  507.     FGet 5, STRING133
  508.     FGet 5, STRING134
  509.     FGet 5, STRING135
  510.     FGet 5, STRING136
  511.     FGet 5, STRING137
  512.     FGet 5, STRING138
  513.     FGet 5, STRING139
  514.     FGet 5, STRING140
  515.     FGet 5, STRING141
  516.     FGet 5, STRING142
  517.     FGet 5, STRING143
  518.     FGet 5, STRING144
  519.     FGet 5, STRING145
  520.     FGet 5, STRING146
  521.     FGet 5, STRING147
  522.     FGet 5, STRING148
  523.     FGet 5, STRING149
  524.     FGet 5, STRING150
  525.     FGet 5, STRING151
  526.     FGet 5, STRING152
  527.     FGet 5, STRING153
  528.     FGet 5, STRING154
  529.     FGet 5, STRING155
  530.     FGet 5, STRING156
  531.     FGet 5, STRING157
  532.     FGet 5, STRING158
  533.     FGet 5, STRING159
  534.     FGet 5, STRING160
  535.     FGet 5, STRING161
  536.     FGet 5, STRING162
  537.     FGet 5, STRING163
  538.     FGet 5, STRING164
  539.     FGet 5, STRING165
  540.     FGet 5, STRING166
  541.     FGet 5, STRING167
  542.     FGet 5, STRING168
  543.     FGet 5, STRING169
  544.     FGet 5, STRING170
  545.     FGet 5, STRING171
  546.     FClose 5
  547.     FOpen 6, PPEPath() + "trashcan.id", 0, 2
  548.     If (Ferr(6)) End
  549.     FGet 6, STRING200
  550.     FGet 6, STRING201
  551.     FGet 6, STRING202
  552.     FGet 6, STRING203
  553.     FGet 6, STRING204
  554.     FGet 6, STRING205
  555.     FGet 6, STRING206
  556.     FGet 6, STRING207
  557.     FGet 6, STRING208
  558.     FGet 6, STRING209
  559.     FGet 6, STRING210
  560.     FGet 6, STRING211
  561.     FGet 6, STRING212
  562.     FGet 6, STRING213
  563.     FGet 6, STRING214
  564.     FGet 6, STRING215
  565.     FGet 6, STRING216
  566.     FGet 6, STRING217
  567.     FGet 6, STRING218
  568.     FGet 6, STRING219
  569.     FGet 6, STRING220
  570.     FGet 6, STRING221
  571.     FGet 6, STRING222
  572.     FGet 6, STRING223
  573.     FGet 6, STRING224
  574.     FGet 6, STRING225
  575.     FGet 6, STRING226
  576.     FGet 6, STRING227
  577.     FGet 6, STRING228
  578.     FGet 6, STRING229
  579.     FGet 6, STRING230
  580.     FGet 6, STRING231
  581.     FGet 6, STRING232
  582.     FGet 6, STRING233
  583.     FGet 6, STRING234
  584.     FGet 6, STRING235
  585.     FGet 6, STRING236
  586.     FGet 6, STRING237
  587.     FGet 6, STRING238
  588.     FGet 6, STRING239
  589.     FGet 6, STRING240
  590.     FGet 6, STRING241
  591.     FGet 6, STRING242
  592.     FGet 6, STRING243
  593.     FGet 6, STRING244
  594.     FGet 6, STRING245
  595.     FGet 6, STRING246
  596.     FGet 6, STRING247
  597.     FGet 6, STRING248
  598.     FGet 6, STRING249
  599.     FGet 6, STRING250
  600.     FGet 6, STRING251
  601.     FGet 6, STRING252
  602.     FGet 6, STRING253
  603.     FGet 6, STRING254
  604.     FGet 6, STRING255
  605.     FGet 6, STRING256
  606.     FGet 6, STRING257
  607.     FGet 6, STRING258
  608.     FGet 6, STRING259
  609.     FGet 6, STRING260
  610.     FGet 6, STRING261
  611.     FGet 6, STRING262
  612.     FGet 6, STRING263
  613.     FGet 6, STRING264
  614.     FGet 6, STRING265
  615.     FGet 6, STRING266
  616.     FGet 6, STRING267
  617.     FGet 6, STRING268
  618.     FGet 6, STRING269
  619.     FGet 6, STRING270
  620.     FGet 6, STRING271
  621.     FGet 6, STRING272
  622.     FGet 6, STRING273
  623.     FGet 6, STRING274
  624.     FGet 6, STRING275
  625.     FGet 6, STRING276
  626.     FGet 6, STRING277
  627.     FGet 6, STRING278
  628.     FGet 6, STRING279
  629.     FGet 6, STRING280
  630.     FGet 6, STRING281
  631.     FGet 6, STRING282
  632.     FGet 6, STRING283
  633.     FGet 6, STRING284
  634.     FGet 6, STRING285
  635.     FGet 6, STRING286
  636.     FGet 6, STRING287
  637.     FGet 6, STRING288
  638.     FGet 6, STRING289
  639.     FGet 6, STRING290
  640.     FGet 6, STRING291
  641.     FGet 6, STRING292
  642.     FGet 6, STRING293
  643.     FGet 6, STRING294
  644.     FGet 6, STRING295
  645.     FGet 6, STRING296
  646.     FGet 6, STRING297
  647.     FGet 6, STRING298
  648.     FGet 6, STRING299
  649.     FClose 6
  650.     INTEGER005 = STRING006
  651.     INTEGER006 = STRING007
  652.     INTEGER021 = STRING008
  653.     INTEGER015 = INTEGER011
  654.     INTEGER016 = INTEGER012
  655.     INTEGER017 = INTEGER013
  656.     INTEGER010 = STRING173
  657.     INTEGER004 = STRING009 - 1
  658.     INTEGER002 = U_Stat(10)
  659.     INTEGER003 = U_Stat(14)
  660.     INTEGER022 = U_Stat(11)
  661.     INTEGER014 = U_Stat(12)
  662.     INTEGER007 = U_Stat(15)
  663.     STRING005 = Trim(U_Notes(4), " ")
  664.     If (Right(STRING005, 1) <> "|") STRING005 = STRING005 + "|"
  665.     If (Right(STRING005, 2) == "||") STRING005 = "" + "|"
  666.     U_Notes(4) = STRING005
  667.     For INTEGER018 = 1 To 25
  668.         INTEGER001 = InStr(U_Notes(4), "|")
  669.         If (INTEGER001 == 0) Then
  670.             If (INTEGER018 == 1) INTEGER008 = INTEGER002
  671.             If (INTEGER018 == 2) INTEGER009 = INTEGER003
  672.             If (INTEGER018 == 3) INTEGER019 = INTEGER022
  673.             If (INTEGER018 == 4) INTEGER020 = INTEGER014
  674.             If (INTEGER018 == 5) INTEGER023 = INTEGER007
  675.             If (INTEGER018 == 6) STRING178 = "0"
  676.             If (INTEGER018 == 7) STRING179 = "0"
  677.             If (INTEGER018 == 8) STRING180 = "0"
  678.             If (INTEGER018 == 9) STRING181 = "0"
  679.             If (INTEGER018 == 10) STRING182 = "0"
  680.             If (INTEGER018 == 11) STRING183 = "0"
  681.             If (INTEGER018 == 12) STRING184 = "0"
  682.             If (INTEGER018 == 13) STRING185 = "0"
  683.             If (INTEGER018 == 14) STRING186 = "0"
  684.             If (INTEGER018 == 15) STRING187 = "0"
  685.             If (INTEGER018 == 16) STRING188 = "0"
  686.             If (INTEGER018 == 17) STRING189 = "0"
  687.             If (INTEGER018 == 18) STRING190 = "0"
  688.             If (INTEGER018 == 19) STRING191 = "0"
  689.             If (INTEGER018 == 20) STRING192 = "0"
  690.             If (INTEGER018 == 21) STRING193 = "0"
  691.             If (INTEGER018 == 22) STRING194 = "0"
  692.             If (INTEGER018 == 23) STRING195 = "0"
  693.             If (INTEGER018 == 24) STRING196 = "0"
  694.             If (INTEGER018 == 25) STRING301 = "0"
  695.             Continue
  696.         Endif
  697.         If (INTEGER018 == 1) INTEGER008 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  698.         If (INTEGER018 == 2) INTEGER009 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  699.         If (INTEGER018 == 3) INTEGER019 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  700.         If (INTEGER018 == 4) INTEGER020 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  701.         If (INTEGER018 == 5) INTEGER023 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  702.         If (INTEGER018 == 6) STRING178 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  703.         If (INTEGER018 == 7) STRING179 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  704.         If (INTEGER018 == 8) STRING180 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  705.         If (INTEGER018 == 9) STRING181 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  706.         If (INTEGER018 == 10) STRING182 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  707.         If (INTEGER018 == 11) STRING183 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  708.         If (INTEGER018 == 12) STRING184 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  709.         If (INTEGER018 == 13) STRING185 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  710.         If (INTEGER018 == 14) STRING186 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  711.         If (INTEGER018 == 15) STRING187 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  712.         If (INTEGER018 == 16) STRING188 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  713.         If (INTEGER018 == 17) STRING189 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  714.         If (INTEGER018 == 18) STRING190 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  715.         If (INTEGER018 == 19) STRING191 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  716.         If (INTEGER018 == 20) STRING192 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  717.         If (INTEGER018 == 21) STRING193 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  718.         If (INTEGER018 == 22) STRING194 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  719.         If (INTEGER018 == 23) STRING195 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  720.         If (INTEGER018 == 24) STRING196 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  721.         If (INTEGER018 == 25) STRING301 = Mid(U_Notes(4), 1, INTEGER001 - 1)
  722.         U_Notes(4) = Right(U_Notes(4), Len(U_Notes(4)) - INTEGER001)
  723.     Next
  724.     STRING002 = String(INTEGER008)
  725.     STRING003 = String(INTEGER009)
  726.     STRING176 = String(INTEGER019)
  727.     STRING177 = String(INTEGER020)
  728.     STRING172 = String(INTEGER023)
  729.     If (STRING301 == "") STRING301 = "0"
  730.     U_Notes(4) = STRING002 + "|" + STRING003 + "|" + STRING176 + "|" + STRING177 + "|" + STRING172 + "|" + STRING178 + "|" + STRING179 + "|" + STRING180 + "|" + STRING181 + "|" + STRING182 + "|" + STRING183 + "|" + STRING184 + "|" + STRING185 + "|" + STRING186 + "|" + STRING187 + "|" + STRING188 + "|" + STRING189 + "|" + STRING190 + "|" + STRING191 + "|" + STRING192 + "|" + STRING193 + "|" + STRING194 + "|" + STRING195 + "|" + STRING196 + "|" + STRING301 + "|"
  731.     PutUser
  732.     End
  733.  
  734. ;------------------------------------------------------------------------------
  735. ;
  736. ; Usage report (before postprocessing)
  737. ;
  738. ; ■ Statements used :
  739. ;
  740. ;    8       End
  741. ;    6       Goto 
  742. ;    78      Let 
  743. ;    63      If 
  744. ;    7       FOpen 
  745. ;    6       FClose 
  746. ;    278     FGet 
  747. ;    1       GetUser
  748. ;    1       PutUser
  749. ;    2       Newline
  750. ;
  751. ;
  752. ; ■ Functions used :
  753. ;
  754. ;    62      +
  755. ;    27      -
  756. ;    53      ==
  757. ;    1       <>
  758. ;    1       <
  759. ;    1       <=
  760. ;    2       >=
  761. ;    3       !
  762. ;    2       &&
  763. ;    1       ||
  764. ;    1       Len(
  765. ;    25      Mid()
  766. ;    3       Right()
  767. ;    7       Ferr()
  768. ;    1       InStr()
  769. ;    1       Trim()
  770. ;    5       String()
  771. ;    8       PPEPath()
  772. ;    1       Exist()
  773. ;    2       LangExt()
  774. ;    5       U_Stat()
  775. ;
  776. ;------------------------------------------------------------------------------
  777. ;
  778. ; Analysis flags : W
  779. ;
  780. ; W - Write user ■ 5
  781. ;     Program writes a user record. Although this may be normal for a
  782. ;     User Editor, it may also be a way to modify an account level.
  783. ;     ■ Search for : PUTUSER
  784. ;
  785. ;------------------------------------------------------------------------------
  786. ;
  787. ; Postprocessing report
  788. ;
  789. ;    1       For/Next
  790. ;    0       While/EndWhile
  791. ;    2       If/Then or If/Then/Else
  792. ;    0       Select Case
  793. ;
  794. ;------------------------------------------------------------------------------
  795. ;                 AEGiS Corp - Break the routines, code against the machines!
  796. ;------------------------------------------------------------------------------
  797.