home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / XPS!AREQ.ZIP / ANSIREQ.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-11-28  |  14KB  |  376 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     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.     String   STRING001
  39.     String   STRING002
  40.     String   STRING003
  41.     String   STRING004
  42.     String   STRING005
  43.     String   STRING006
  44.     String   STRING007
  45.     String   STRING008
  46.     String   STRING009
  47.     String   STRING010
  48.     String   STRING011
  49.     String   STRING012
  50.     String   STRING013
  51.     String   STRING014
  52.     String   STRING015
  53.     String   STRING016
  54.     String   STRING017
  55.     String   STRING018
  56.     String   STRING019
  57.     Declare  Procedure PROC001(String STRING020, String STRING021)
  58.  
  59. ;------------------------------------------------------------------------------
  60.  
  61.     If (Exist(PPEPath() + "ANSIREQ.CFG")) Goto LABEL001
  62.     FCreate 1, PPEPath() + "ANSIREQ.CFG", 3, 0
  63.     FPutLn 1, "28"
  64.     FPutLn 1, "12"
  65.     FPutLn 1, "43"
  66.     FPutLn 1, "29"
  67.     FPutLn 1, "13"
  68.     FPutLn 1, "42"
  69.     FPutLn 1, "13"
  70.     FPutLn 1, "16"
  71.     FPutLn 1, "57"
  72.     FPutLn 1, "32"
  73.     FPutLn 1, "19"
  74.     FPutLn 1, "5"
  75.     FPutLn 1, "24"
  76.     FPutLn 1, "20"
  77.     FPutLn 1, "2"
  78.     FPutLn 1, "35"
  79.     FPutLn 1, "21"
  80.     FPutLn 1, "28"
  81.     FPutLn 1, "22"
  82.     FPutLn 1, "40"
  83.     FPutLn 1, "20"
  84.     FPutLn 1, "31"
  85.     FPutLn 1, "40"
  86.     FPutLn 1, "22"
  87.     FPutLn 1, "31"
  88.     FPutLn 1, "Sysop"
  89.     FPutLn 1, "0"
  90.     FPutLn 1, ""
  91.     FPutLn 1, "-----------------------------------------------------------------------------"
  92.     FPutLn 1, " ░░░ Config Instructions   ---   eXPReSS_MoDDiNG_CReW   ---   ANSi Req.  ░░░"
  93.     FPutLn 1, "-----------------------------------------------------------------------------"
  94.     FPutLn 1, ""
  95.     FPutLn 1, " Line 1   -- X_Position of artists name"
  96.     FPutLn 1, " Line 2   -- Y_Position of artists name"
  97.     FPutLn 1, " Line 3   -- Length of artists name"
  98.     FPutLn 1, " Line 4   -- X_Position of artists group"
  99.     FPutLn 1, " Line 5   -- Y_Position of artists group"
  100.     FPutLn 1, " Line 6   -- Length of artists group"
  101.     FPutLn 1, " Line 7   -- X_Position of the ansi descriptions"
  102.     FPutLn 1, " Line 8   -- Y_Position of the ansi descriptions"
  103.     FPutLn 1, " Line 9   -- Length of the ansi descriptions"
  104.     FPutLn 1, " Line 10  -- X_Position of fav. colour"
  105.     FPutLn 1, " Line 11  -- Y_Position of fav. colour"
  106.     FPutLn 1, " Line 12  -- Length of fav. colour"
  107.     FPutLn 1, " Line 13  -- X_Position of users age"
  108.     FPutLn 1, " Line 14  -- Y_Position of users age"
  109.     FPutLn 1, " Line 15  -- Length of users age"
  110.     FPutLn 1, " Line 16  -- X_Position of " + Chr(126) + "Willing to pay" + Chr(126) + " question"
  111.     FPutLn 1, " Line 17  -- Y_Position of " + Chr(126) + "Willing to pay" + Chr(126) + " question"
  112.     FPutLn 1, " Line 18  -- X_Position of " + Chr(126) + "How much" + Chr(126) + " question"
  113.     FPutLn 1, " Line 19  -- Y_Position of " + Chr(126) + "How much" + Chr(126) + " question"
  114.     FPutLn 1, " Line 20  -- X_Position of EMail address"
  115.     FPutLn 1, " Line 21  -- Y_Position of EMail address"
  116.     FPutLn 1, " Line 22  -- Length of EMail address"
  117.     FPutLn 1, " Line 23  -- X_Position of contact place"
  118.     FPutLn 1, " Line 24  -- Y_Position of contact place"
  119.     FPutLn 1, " Line 25  -- Length of contact place"
  120.     FPutLn 1, " Line 26  -- Name of user to mail the request to -- (ie. Sysop)"
  121.     FPutLn 1, " Line 27  -- Conference number to mail the request"
  122.     FClose 1
  123.     :LABEL001
  124.     FOpen 1, PPEPath() + "ANSIREQ.CFG", 2, 0
  125.     FGet 1, INTEGER001
  126.     FGet 1, INTEGER002
  127.     FGet 1, STRING001
  128.     FGet 1, INTEGER003
  129.     FGet 1, INTEGER004
  130.     FGet 1, STRING002
  131.     FGet 1, INTEGER005
  132.     FGet 1, INTEGER006
  133.     FGet 1, STRING003
  134.     FGet 1, INTEGER007
  135.     FGet 1, INTEGER008
  136.     FGet 1, STRING004
  137.     FGet 1, INTEGER009
  138.     FGet 1, INTEGER010
  139.     FGet 1, STRING005
  140.     FGet 1, INTEGER011
  141.     FGet 1, INTEGER012
  142.     FGet 1, INTEGER013
  143.     FGet 1, INTEGER014
  144.     FGet 1, INTEGER015
  145.     FGet 1, INTEGER016
  146.     FGet 1, STRING006
  147.     FGet 1, INTEGER017
  148.     FGet 1, INTEGER018
  149.     FGet 1, STRING007
  150.     FGet 1, STRING019
  151.     FGet 1, INTEGER019
  152.     FClose 1
  153.     If (Exist(PPEPath() + "ANSIREQ.PC1")) Goto LABEL002
  154.     FCreate 3, PPEPath() + "ANSIREQ.PC1", 1, 3
  155.     FPutLn 3, "@X0F@CLS@@POFF@@X07                                                                    "
  156.     FPutLn 3, "@X08xps^modding!@X07                                                                   "
  157.     FPutLn 3, "             - --- ---  -------------- ----- ----------  -                     "
  158.     FPutLn 3, "            @X0F     @X07   @X0F @X07  @X0Fa @X07n@X0F @X07s@X0F @X07i@X0F     r @X07e@X0F @X07q@X0F @X07u@X0F @X07e@X0F @X07s@X0F @X07t@X0F @X07e@X0F @X07r                           "
  159.     FPutLn 3, "               -  -------- -----------  --------------- --  -                  "
  160.     FPutLn 3, " @X0FS@X07o @X0Fy@X07ou @X0Fn@X07eed @X0Fa@X07n @X0Fa@X07nsi? @X0FY@X07ou've @X0Fc@X07ome @X0Ft@X07o @X0Ft@X07he @X0Fr@X07ight @X0Fp@X07lace. @X0FI@X07f @X0Fy@X07our @X0Fi@X07n @X0Fd@X07oubt @X0Fo@X07f @X0Fa@X07    "
  161.     FPutLn 3, " @X0Fq@X07uestion @X0Fw@X07e @X0Fa@X07re @X0Fg@X07oing @X0Ft@X07o @X0Fb@X07e @X0Fa@X07sking @X0Fy@X07ou, @X0Fj@X07ust @X0Fs@X07kip @X0Fi@X07t @X0Fa@X07nd @X0Fw@X07e @X0Fw@X07ill @X0Fu@X07nderstand.  "
  162.     FPutLn 3, " @X0FF@X07irstly, @X0Fy@X07our @X0Fd@X07escription @X0Fo@X07f @X0Ft@X07he @X0Fa@X07rtist @X0Fi@X07s @X0Fv@X07ery @X0Fi@X07mportant @X0Fs@X07o @X0Fa@X07s @X0Fw@X07e @X0Fc@X07an @X0Fg@X07et    "
  163.     FPutLn 3, " @X0Ft@X07he @X0Fr@X07equest @X0Fo@X07ver @X0Ft@X07o @X0Ft@X07hem. @X0FI@X07f @X0Fy@X07ou @X0Fe@X07nter @X0Fa@X07 @X0Fn@X07ame @X0Fl@X07ike @X0FR@X07a@X0FDM@X07a@X0FN@X07 @X0Ff@X07rom @X0FAC@X07i@X0FD@X07, @X0Fw@X07e @X0Fh@X07ave  "
  164.     FPutLn 3, " @X0Fn@X07o @X0Fw@X07ay @X0Fo@X07f @X0Fc@X07ontacting @X0Ft@X07hem, @X0Fs@X07o @X0Fp@X07lease @X0Fn@X07one @X0Fo@X07f @X0Ft@X07hat @X0Ft@X07hanks @X0Fa@X07nd @X0Fo@X07nly @X0Ft@X07he @X0Fl@X07ocal   "
  165.     FPutLn 3, " @X0Fa@X07rtists.                                                                      "
  166.     FPutLn 3, " @X0FS@X07econdly, @X0Ft@X07he @X0Fa@X07rtists @X0Fm@X07ay @X0Fb@X07e @X0Fv@X07ery @X0Fb@X07ussie @X0Fa@X07t @X0Ft@X07he @X0Fm@X07om. @X0Fa@X07nd @X0Fc@X07annot @X0Fd@X07o @X0Fa@X07n @X0Fa@X07nsi    "
  167.     FPutLn 3, " @X0Ff@X07or @X0Fy@X07ou. @X0FI@X07f @X0Ft@X07his @X0Fi@X07s @X0Fa@X07 @X0Fc@X07ase, @X0Fp@X07lease @X0Fd@X07ont @X0Fg@X07o @X0Fa@X07ttempting @X0Ft@X07o @X0Fb@X07e @X0Fa@X07 @X0F3|_3+3@X07 @X0Ff@X07ucker   "
  168.     FPutLn 3, " @X03(@X0Blike tba@X03)@X07 @X0Fa@X07nd @X0Fb@X07e @X0Fp@X07atient.                                                    "
  169.     FPutLn 3, " @X0FT@X07hirdly @X0Fa@X07nd @X0Fl@X07astly, @X0Fp@X07lease @X0Fd@X07o @X0Fg@X07ive @X0Fc@X07redit @X0Ft@X07o @X0Ft@X07he @X0Fa@X07rtists @X0Fb@X07y @X0Fn@X07otifying @X0Ft@X07he     "
  170.     FPutLn 3, " @X0Fu@X07sers @X0Ft@X07o @X0Ft@X07he @X0Fb@X07est @X0Fo@X07f @X0Fy@X07our @X0Fa@X07bility @X0Fw@X07ho @X0Ft@X07he @X0Fa@X07nsi @X0Fw@X07as @X0Ff@X07rom. @X0FT@X07he @X0Fa@X07rtists @X0Fw@X07ill @X0Fm@X07ost"
  171.     FPutLn 3, " @X0Fo@X07f @X0Ft@X07he @X0Ft@X07ime @X0Fl@X07eave @X0Ft@X07heir @X0Fl@X07ittle @X0Fs@X07ignature @X0Fo@X07n @X0Ft@X07he @X0Fa@X07nsi @X0Ff@X07ile, @X0Fw@X07hich @X0Fy@X07ou @X0Fm@X07ay @X0Fn@X07ot  "
  172.     FPutLn 3, " @X0Fd@X07elete @X0Fo@X07r @X0Fy@X07ou @X0Fw@X07ill @X0Fb@X07e @X0Fe@X07xpected @X0Ft@X07o @X0Fs@X07how @X0Fy@X07ourself @X0Fb@X07efore@X0F c@X07ourt.                 "
  173.     FPutLn 3, " @X0FW@X07ell @X0Fh@X07appy @X0Fr@X07equesting@X0F a@X07nd @X0Fh@X07ope @X0Fy@X07ar @X0Fg@X07et @X0Fw@X07hat @X0Fy@X07ou @X0Fl@X07ike....                      "
  174.     FClose 3
  175.     :LABEL002
  176.     DispFile PPEPath() + "ANSIREQ.PC1", 1
  177.     FreshLine
  178.     Wait
  179.     While (Exist(PPEPath() + "ANSIREQ.PC2")) DispFile PPEPath() + "ANSIREQ.PC2", 1
  180.     FCreate 2, PPEPath() + "ANSIREQ.PC2", 1, 3
  181.     FPutLn 2, "@CLS@@POFF@                 @X0C░░@X07               @X0C░░@X07"
  182.     FPutLn 2, "@X0F---------------@X07- @X0C░░@X07 @X0C▓@X07▄@X0C▄▄▄▄▄@X07 @X0C▄▄▄▄@X07  @X0C░░@X07 - @X0C▄@X7C▓@X0C▄▄▄▄▄▄@X07 @X0F-@X07-- @X0C░░@X07 @X0F---------@X07-@X0F-----@X07--@X0F------@X07-"
  183.     FPutLn 2, "           ▄ ▄ @X0C▄@X07▄@X0C▓▓▄▄▄▄@X6C█@X7C▓▓@X6C█@X07 @X0C▓@X6C█@X0C▀▀▀▀▓▓▀▀▀@X7C▓▒▓@X6C█@X0C▄▄▄▄@X07▄@X0C▄@X07▄@X7C ▒@X0C▓▓@X07"
  184.     FPutLn 2, "          @X08xps.mod@X6C▓▓@X0C▄▄@X07  @X0C▄▄@X6C▓▓@X07 @X6C▓▓@X0C▄@X6C▓@X07  @X6C▓▓▓▓@X07 @X0C▄▄▄▄@X07  @X6C▓▓@X70█@X0C▄@X70█@X0C▄▄@X6C▓▓@X07  ▄▄@X0C▄▄@X07"
  185.     FPutLn 2, "@X08▓▓▄▄▄▄▄▄▄▄▄▄▄▓▄▄@X70█@X06▐@X6C▒▒▒@X0C▌@X07 @X60▌@X6C▒▒▒@X60▐@X0C▐@X6C▒@X0C▄@X6C▒@X60▐@X08▄@X60▌@X6C▒▒▒@X0C▌@X60▌@X6C▒▒▒@X0C▌@X08▄@X6C▒▒@X0C▀▓@X07 @X0C▐@X6C▒▒▒@X0C▌@X08▄@X07▐@X6C▒▒▒@X0C▌@X08▄▄▄▄▄▄▄▄▄▄▓▓▄▄▄▄▄▄@X07"
  186.     FPutLn 2, "                 @X06█@X6C░░@X60▄@X07  @X6C░@X60▄@X6C░@X60▄█▄▄@X6C░░@X07  @X6C░@X60▄@X6C░@X60▄@X07 @X60▄▄@X6C░░@X07  @X60▌@X6C░░░@X60▐@X6C░@X06▀@X6C░@X60▄@X07  @X6C░░░@X60▄@X07"
  187.     FPutLn 2, "              @X60▄@X07 @X60▄@X06▓▓@X6C  @X60▄▄▄▄▄▄▄▄▄▄▄@X06░░▓▓@X6C  @X60▄@X6C   @X06▓@X60▄▄▄▄▄▄@X07 @X6C  @X06▓▓@X60▄▄▄▄▄▄▄▄@X07 @X60▄▄@X07 @X60▄@X07"
  188.     FPutLn 2, "---------------- @X06░░@X07 ------------- @X06░░@X07 ---- @X06░@X07 ------- @X06░░@X07 ------------------------"
  189.     FPutLn 2, "         @X08.---------------,       @X07 @X06░░@X07"
  190.     FPutLn 2, "@X08  @X07       @X08| @X0Fa@X07nsi@X0F r@X07equest  @X08|@X07"
  191.     FPutLn 2, "         @X08)---------------%---------------------------------------------,@X07"
  192.     FPutLn 2, "         @X08|@X07 @X0Ba@X03rtists @X0Bn@X03ame@X07 @X08--@X07                                             @X08|@X07"
  193.     FPutLn 2, "         @X08|@X07 @X0Ba@X03rtists @X0Bg@X03roup@X07 @X08--@X07                                            @X08|@X07"
  194.     FPutLn 2, "         @X08)-------------------------------------------------------------(@X07"
  195.     FPutLn 2, "         @X08|@X07 @X0A2@X02 @X0Al@X02ine @X0Ad@X02iscription @X0Ao@X02f @X0Aa@X02nsi.@X07 @X08(Logo, picture..etc)@X07            @X08|@X07"
  196.     FPutLn 2, "         @X08|@X07 @X0F(@X07                                                 @X0F @X07       @X0F)@X07 @X08|@X07"
  197.     FPutLn 2, "         @X08|@X07 @X0F(@X07                                                 @X0F @X07       @X0F)@X07 @X08|@X07"
  198.     FPutLn 2, "         @X08)---------------------------%---------------------------------(@X07"
  199.     FPutLn 2, "         @X08|@X07 @X0Dy@X05our @X0Df@X05av. @X0Dc@X05olour@X07 @X08--@X07       @X08|@X07 @X0Dy@X05our @X0De@X05mail @X0Da@X05ddress@X07   @X08 @X07          @X08|@X07"
  200.     FPutLn 2, "         @X08|@X07 @X0Dy@X05our @X0Da@X05ge @X08--@X07               @X08|@X07                      @X08 @X07          @X08|@X07"
  201.     FPutLn 2, "         @X08|@X07 @X0Dw@X05illing @X0Dt@X05o @X0Dp@X05ay?@X07 @X08y/n --@X07    @X08|@X07 @X0Dp@X05lace @X0Dt@X05o @X0Dc@X05ontact @X0Dy@X05ou@X07 @X08 @X07          @X08|@X07"
  202.     FPutLn 2, "         @X08|@X07  @X0F--@X05 @X0Dh@X05ow @X0Dm@X05uch @X08--@X07           @X08|@X07          @X08 @X07                      @X08|@X07"
  203.     FPutLn 2, "         @X08`---------------------------%---------------------------------(@X07"
  204.     FClose 2
  205.     Print "@POFF@"
  206.     Cls
  207.     DispFile PPEPath() + "ANSIREQ.PC2", 1
  208.     :LABEL003
  209.     AnsiPos INTEGER001, INTEGER002
  210.     PROC001(STRING001, Mask_Ascii() + Mask_Num())
  211.     If (STRING008 == "") Goto LABEL003
  212.     STRING009 = STRING008
  213.     :LABEL004
  214.     AnsiPos INTEGER003, INTEGER004
  215.     PROC001(STRING002, Mask_Ascii() + Mask_Num())
  216.     If (STRING008 == "") Goto LABEL004
  217.     STRING010 = STRING008
  218.     :LABEL005
  219.     AnsiPos INTEGER005, INTEGER006
  220.     PROC001(STRING003, Mask_Ascii() + Mask_Num())
  221.     If (STRING008 == "") Goto LABEL005
  222.     STRING011 = STRING008
  223.     :LABEL006
  224.     AnsiPos INTEGER005, INTEGER006 + 1
  225.     PROC001(STRING003, Mask_Ascii() + Mask_Num())
  226.     If (STRING008 == "") Goto LABEL006
  227.     STRING012 = STRING008
  228.     :LABEL007
  229.     AnsiPos INTEGER007, INTEGER008
  230.     PROC001(STRING004, Mask_Ascii())
  231.     If (STRING008 == "") Goto LABEL007
  232.     STRING013 = STRING008
  233.     :LABEL008
  234.     AnsiPos INTEGER009, INTEGER010
  235.     PROC001(STRING005, Mask_Num())
  236.     If (STRING008 == "") Goto LABEL008
  237.     STRING014 = STRING008
  238.     :LABEL009
  239.     AnsiPos INTEGER011, INTEGER012
  240.     PROC001(1, "YyNn")
  241.     If (STRING008 == "") Goto LABEL009
  242.     While ((Upper(STRING008) == "Y")) STRING015 = STRING008
  243.     Goto LABEL010
  244.     While ((Upper(STRING008) == "N")) STRING015 = STRING008
  245.     :LABEL010
  246.     Goto LABEL009
  247.     :LABEL011
  248.     AnsiPos INTEGER013, INTEGER014
  249.     PROC001(3, Mask_Num())
  250.     If (STRING008 == "") Goto LABEL011
  251.     STRING016 = STRING008
  252.     :LABEL012
  253.     AnsiPos INTEGER015, INTEGER016
  254.     PROC001(STRING006, Mask_Ascii() + Mask_Num())
  255.     If (STRING008 == "") Goto LABEL012
  256.     STRING017 = STRING008
  257.     :LABEL013
  258.     AnsiPos INTEGER017, INTEGER018
  259.     PROC001(STRING007, Mask_Ascii() + Mask_Num())
  260.     If (STRING008 == "") Goto LABEL013
  261.     STRING018 = STRING008
  262.     Goto LABEL014
  263.     End
  264.  
  265. ;------------------------------------------------------------------------------
  266.  
  267.     Procedure PROC001(String STRING020, String STRING021)
  268.  
  269.     STRING008 = ""
  270.     InputStr "_", STRING008, 0, STRING020, STRING021, 8
  271.  
  272.     EndProc
  273.  
  274.     :LABEL014
  275.     Cls
  276.     Print "@X0Bs@X03ending @X0Br@X03equest @X0Bt@X03o @X0B" + STRING019 + Space(1)
  277.     If (Exist(PPEPath() + "MAILME.TMP")) Delete PPEPath() + "MAILME.TMP"
  278.     FCreate 1, PPEPath() + "MAILME.TMP", 3, 0
  279.     FPutLn 1, "@X03XPS ANSI REQUESTER_Vo.3   --   coded by trippah [xps/senior!]"
  280.     FPutLn 1, "@X08---------- --------------  ---------------- --------------- --- -- -"
  281.     FPutLn 1, ""
  282.     FPutLn 1, "@X0FRequested artist @X08-- @X0B" + STRING009
  283.     Print "@X08. "
  284.     FPutLn 1, "@X0FThe artists group @X08-- @X0B" + STRING010
  285.     Print "@X08. "
  286.     FPutLn 1, "@X0FTwo lines of the ansi request@X08.."
  287.     FPutLn 1, ""
  288.     FPutLn 1, "@X0B" + STRING011
  289.     FPutLn 1, "@X0B" + STRING012
  290.     FPutLn 1, ""
  291.     Print "@X08. "
  292.     FPutLn 1, "@X0FRequesters fav. colour @X08-- @X0B" + STRING013
  293.     Print "@X08. "
  294.     FPutLn 1, "@X0FRequesters age @X08--@X07 @X0B" + STRING014
  295.     Print "@X08. "
  296.     While ((Upper(STRING015) == "Y")) FPutLn 1, "@X0FThe user is willing to pay a price of @X0B" + STRING016
  297.     Goto LABEL015
  298.     FPutLn 1, "@X0FThe user is @X0B*NOT* @X0Fwilling to pay for the artwork so fuck him/her :}"
  299.     :LABEL015
  300.     Print "@X08. "
  301.     FPutLn 1, "@X0FUsers EMail address is @X0B" + STRING017
  302.     Print "@X08. "
  303.     FPutLn 1, "@X0FBest place to contact user is @X0B" + STRING018
  304.     FPutLn 1, ""
  305.     Print "@X08. "
  306.     FPutLn 1, "@X08-------------------------------------------(endofrequest!)-------- --"
  307.     FClose 1
  308.     GetUser
  309.     Message INTEGER019, STRING019, U_Name(), "ansi request!", "N", 0, 0, 0, PPEPath() + "MAILME.TMP"
  310.     Delete PPEPath() + "MAILME.TMP"
  311.     Print "@X08. @X09done!"
  312.     FreshLine
  313.     PrintLn "@X0FP@X07lease @X0Fw@X07ait @X0Fp@X07atiently @X0Ff@X07or @X0Fy@X07our @X0Fr@X07eply.."
  314.     PrintLn ""
  315.     Wait
  316.     End
  317.  
  318. ;------------------------------------------------------------------------------
  319. ;
  320. ; Usage report (before postprocessing)
  321. ;
  322. ; ■ Statements used :
  323. ;
  324. ;    2       End
  325. ;    2       Cls
  326. ;    2       Wait
  327. ;    21      Goto 
  328. ;    12      Let 
  329. ;    11      Print 
  330. ;    2       PrintLn 
  331. ;    17      If 
  332. ;    3       DispFile 
  333. ;    4       FCreate 
  334. ;    1       FOpen 
  335. ;    5       FClose 
  336. ;    27      FGet 
  337. ;    119     FPutLn 
  338. ;    1       GetUser
  339. ;    2       Delete 
  340. ;    1       InputStr 
  341. ;    10      AnsiPos 
  342. ;    2       FreshLine
  343. ;    1       Message 
  344. ;    1       EndProc
  345. ;
  346. ;
  347. ; ■ Functions used :
  348. ;
  349. ;    49      +
  350. ;    13      ==
  351. ;    3       Upper()
  352. ;    1       Space()
  353. ;    8       Chr()
  354. ;    1       U_Name()
  355. ;    8       Mask_Num()
  356. ;    7       Mask_Ascii()
  357. ;    15      PPEPath()
  358. ;    4       Exist()
  359. ;
  360. ;------------------------------------------------------------------------------
  361. ;
  362. ; Analysis flags : No flag
  363. ;
  364. ;------------------------------------------------------------------------------
  365. ;
  366. ; Postprocessing report
  367. ;
  368. ;    0       For/Next
  369. ;    0       While/EndWhile
  370. ;    0       If/Then or If/Then/Else
  371. ;    0       Select Case
  372. ;
  373. ;------------------------------------------------------------------------------
  374. ;                 AEGiS Corp - Break the routines, code against the machines!
  375. ;------------------------------------------------------------------------------
  376.