home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / VO_PPE10.ZIP / VOODOO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-03  |  15KB  |  503 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  TINTEGER003(6)
  26.     Integer  TINTEGER004(6)
  27.     Integer  TINTEGER005(6)
  28.     Integer  INTEGER006
  29.     Integer  INTEGER007
  30.     String   TSTRING001(4)
  31.     String   STRING002
  32.     String   STRING003
  33.     String   TSTRING004(6)
  34.     String   TSTRING005(2)
  35.     String   STRING006
  36.     String   STRING007
  37.     String   STRING008
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING006 = "HiT [ENTER] To εXiT"
  42.     TSTRING005(1) = "@X0DL@X05aeM @X0De@X05RS @X0DD@X05'eN"
  43.     TSTRING005(2) = "@X0DD@X05eN @X0DB@X05'oH @X0DM@X05'iN"
  44.     TSTRING001(1) = "         aPPLy SPεLL         "
  45.     TSTRING001(2) = "         SεLεCT uSεR         "
  46.     TSTRING001(3) = "            HεLP             "
  47.     TSTRING001(4) = "            QuiT             "
  48.     TSTRING004(1) = "            Head             "
  49.     TSTRING004(2) = "            Arms             "
  50.     TSTRING004(3) = "           Heart             "
  51.     TSTRING004(4) = "           Groin             "
  52.     TSTRING004(5) = "           Knees             "
  53.     TSTRING004(6) = "            Feet             "
  54.     TINTEGER003(1) = 17
  55.     TINTEGER003(2) = 22
  56.     TINTEGER003(3) = 19
  57.     TINTEGER003(4) = 17
  58.     TINTEGER003(5) = 19
  59.     TINTEGER003(6) = 22
  60.     TINTEGER004(1) = 8
  61.     TINTEGER004(2) = 12
  62.     TINTEGER004(3) = 11
  63.     TINTEGER004(4) = 14
  64.     TINTEGER004(5) = 16
  65.     TINTEGER004(6) = 19
  66.     TINTEGER005(1) = 239
  67.     TINTEGER005(2) = 207
  68.     TINTEGER005(3) = 207
  69.     TINTEGER005(4) = 159
  70.     TINTEGER005(5) = 159
  71.     TINTEGER005(6) = 143
  72.     STRING002 = "NoNε"
  73.     INTEGER001 = 1
  74.     BOOLEAN001 = 0
  75.     BOOLEAN002 = 1
  76.     If ((GrafMode() <> "G") && (GrafMode() <> "R")) Then
  77.         PrintLn "Sorry, this PPE requires ANSi graphics..."
  78.         Delay 50
  79.         End
  80.     Endif
  81.     FOpen 2, PPEPath() + "\VOODOO.CFG", 0, 2
  82.     FGet 2, STRING007
  83.     FGet 2, BOOLEAN004
  84.     FGet 2, INTEGER007
  85.     FGet 2, STRING007
  86.     FClose 2
  87.     GetUser
  88.     Print "@POFF@"
  89.     Gosub LABEL019
  90.     :LABEL001
  91.     If (BOOLEAN001) Goto LABEL005
  92.     If (BOOLEAN002) Then
  93.         Color 7
  94.         For INTEGER002 = 1 To 4
  95.             AnsiPos 36, 10 + INTEGER002
  96.             Print "   ", TSTRING001(INTEGER002), "   "
  97.         Next
  98.         AnsiPos 36, 10 + INTEGER001
  99.         Print "@X01░▒▓@X1E", TSTRING001(INTEGER001), "@X01▓▒░"
  100.         BOOLEAN002 = 0
  101.     Endif
  102.     STRING003 = Inkey()
  103.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Then
  104.         Inc INTEGER001
  105.         If (INTEGER001 == 5) Then
  106.             INTEGER001 = 1
  107.         Endif
  108.         BOOLEAN002 = 1
  109.     Endif
  110.     If ((STRING003 == "UP") || (STRING003 == "8")) Then
  111.         Dec INTEGER001
  112.         If (INTEGER001 == 0) Then
  113.             INTEGER001 = 4
  114.         Endif
  115.         BOOLEAN002 = 1
  116.     Endif
  117.     If (STRING003 == Chr(13)) Then
  118.         If (INTEGER001 == 4) Then
  119.             BOOLEAN001 = 1
  120.         Endif
  121.         If (INTEGER001 == 2) Then
  122.             Gosub LABEL006
  123.         Endif
  124.         If (INTEGER001 == 1) Then
  125.             If (STRING002 <> "NoNε") Then
  126.                 Gosub LABEL007
  127.                 Goto LABEL002
  128.             Endif
  129.             AnsiPos 36, 16
  130.             Print "@X0C  you MuST SεLεCT a ViCTiM FiRST !"
  131.             Delay 25
  132.             AnsiPos 36, 16
  133.             Print "@X0F                                   "
  134.             :LABEL002
  135.             BOOLEAN002 = 1
  136.         Endif
  137.         If (INTEGER001 == 3) Then
  138.             AnsiPos 1, 1
  139.             PrintLn "@CLS@@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  140.             PrintLn "  @X03[@X0BJMJ@X03] @X08PR@X07oD@X0FuCT@X07io@X08NS        V o @X07o D @X0Fo o   S P @X07ε L @X08L S           @X0EoNLiNε HεLP"
  141.             PrintLn "@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  142.             PrintLn ""
  143.             PrintLn "  @X07This little program is intended to annoy that kind of users we often call"
  144.             PrintLn "  lamers, those little assholes that keep annoying everyone else."
  145.             PrintLn "  With this program you can take action against them. Similar to the Hate"
  146.             PrintLn "  programs, this PPE allows you to put a voodoo spell on another user on"
  147.             PrintLn "  the BBS. You can select where the pin should come in the doll, and then"
  148.             If (BOOLEAN004) Then
  149.                 PrintLn "  VooDoo will put a spell on the user, and write him an anonymous message"
  150.                 PrintLn "  (the creator of the spell will never be known) showing his doll and some"
  151.                 PrintLn "  text which advises him to change his habits..."
  152.                 Goto LABEL003
  153.             Endif
  154.             PrintLn "  VooDoo will put a spell on the user, and write him a message with you as"
  155.             PrintLn "  as sender showing his doll and some text which advises him to change his"
  156.             PrintLn "  habits..."
  157.             :LABEL003
  158.             PrintLn ""
  159.             PrintLn "  To put a spell on a user, first select @X0BSεLεCT uSεR @X07in VooDoo's Main Menu."
  160.             PrintLn "  You are then asked for his name or alias. After you have selected a valid"
  161.             PrintLn "  user, select @X0BaPPLy SPεLL @X07from the Main Menu. You will be shown a selection"
  162.             PrintLn "  of locations to put the pin, and after you have chosen one the spell will"
  163.             PrintLn "  be applied using the magic words @X0DL@X05ae @X0DM@X05ers @X0DD@X05'eN @X0DB@X05'oH @X0DM@X05'iN@X07, and the message"
  164.             PrintLn "  to the user will be written."
  165.             PrintLn ""
  166.             PrintLn "@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  167.             STRING003 = " "
  168.             BOOLEAN003 = 1
  169.             INTEGER006 = 0
  170.             While (STRING003 <> Chr(13)) Do
  171.                 STRING003 = Inkey()
  172.                 If (BOOLEAN003) Then
  173.                     Inc INTEGER006
  174.                     Goto LABEL004
  175.                 Endif
  176.                 Dec INTEGER006
  177.                 :LABEL004
  178.                 If (INTEGER006 == 17) Then
  179.                     BOOLEAN003 = 0
  180.                 Endif
  181.                 If (INTEGER006 == 1) Then
  182.                     BOOLEAN003 = 1
  183.                 Endif
  184.                 AnsiPos 31, 22
  185.                 Print "@X08", STRING006
  186.                 AnsiPos 30 + INTEGER006, 22
  187.                 Print "@X07", Mid(STRING006, INTEGER006, 1), "@X0F", Mid(STRING006, INTEGER006 + 1, 1), "@X07", Mid(STRING006, INTEGER006 + 2, 1)
  188.             EndWhile
  189.             Gosub LABEL019
  190.             BOOLEAN002 = 1
  191.         Endif
  192.     Endif
  193.     If (STRING003 == Chr(27)) Then
  194.         BOOLEAN001 = 1
  195.     Endif
  196.     Goto LABEL001
  197.     :LABEL005
  198.     Print "@PON@@X07"
  199.     Cls
  200.     End
  201.     :LABEL006
  202.     Color 15
  203.     For INTEGER002 = 1 To 4
  204.         AnsiPos 36, 10 + INTEGER002
  205.         Print "                                   "
  206.     Next
  207.     AnsiPos 36, 11
  208.     Print "εNTεR NaMε/aLiaS oF THε ViCTiM"
  209.     AnsiPos 36, 12
  210.     InputText "_", STRING002, 15, 25
  211.     If (U_RecNum(Upper(STRING002)) == -1) Then
  212.         AnsiPos 36, 14
  213.         Print "@X0CTHεRε iS No uSεR WiTH THε NaMε"
  214.         AnsiPos 36, 15
  215.         Print STRING002
  216.         Delay 25
  217.         STRING002 = "NoNε"
  218.     Else
  219.         STRING002 = Mixed(STRING002)
  220.     Endif
  221.     Color 15
  222.     For INTEGER002 = 1 To 10
  223.         AnsiPos 36, 10 + INTEGER002
  224.         Print "                                   "
  225.     Next
  226.     AnsiPos 36, 19
  227.     Print "@X09CuRRεNT ViCTiM :"
  228.     AnsiPos 36, 20
  229.     Print "@X0B", STRING002
  230.     BOOLEAN002 = 1
  231.     Return
  232.     :LABEL007
  233.     Color 15
  234.     For INTEGER002 = 1 To 10
  235.         AnsiPos 36, 10 + INTEGER002
  236.         Print "                                   "
  237.     Next
  238.     AnsiPos 39, 7
  239.     Print "@X5F WHεRε Do you WaNT THε PiN ?"
  240.     BOOLEAN002 = 1
  241.     INTEGER001 = 1
  242.     :LABEL008
  243.     If (BOOLEAN001) Goto LABEL018
  244.     If (BOOLEAN002) Then
  245.         For INTEGER002 = 1 To 6
  246.             AnsiPos 36, 10 + INTEGER002
  247.             Print "@X07   ", TSTRING004(INTEGER002), "   "
  248.             AnsiPos TINTEGER003(INTEGER002), TINTEGER004(INTEGER002)
  249.             Color TINTEGER005(INTEGER002)
  250.             Print " "
  251.         Next
  252.         AnsiPos 36, 10 + INTEGER001
  253.         Print "@X01░▒▓@X1E", TSTRING004(INTEGER001), "@X01▓▒░"
  254.         AnsiPos TINTEGER003(INTEGER001), TINTEGER004(INTEGER001)
  255.         Color TINTEGER005(INTEGER001)
  256.         Print "/"
  257.         BOOLEAN002 = 0
  258.     Endif
  259.     STRING003 = Inkey()
  260.     If (STRING003 == Chr(27)) Then
  261.         BOOLEAN001 = 1
  262.     Endif
  263.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Then
  264.         Inc INTEGER001
  265.         If (INTEGER001 == 7) Then
  266.             INTEGER001 = 1
  267.         Endif
  268.         BOOLEAN002 = 1
  269.     Endif
  270.     If ((STRING003 == "UP") || (STRING003 == "8")) Then
  271.         Dec INTEGER001
  272.         If (INTEGER001 == 0) Then
  273.             INTEGER001 = 6
  274.         Endif
  275.         BOOLEAN002 = 1
  276.     Endif
  277.     If (STRING003 == Chr(13)) Then
  278.         AnsiPos TINTEGER003(INTEGER001), TINTEGER004(INTEGER001)
  279.         Color TINTEGER005(INTEGER001) - 128
  280.         Print "/"
  281.         AnsiPos 36, 18
  282.         Print "@X07PuTTiNG SPεLL oN"
  283.         AnsiPos 36, 19
  284.         Print "@X0B", STRING002
  285.         AnsiPos 11, 20
  286.         Print TSTRING005(1)
  287.         For INTEGER002 = 9 To 20
  288.             If (INTEGER002 == 16) Then
  289.                 AnsiPos 11, 20
  290.                 Print TSTRING005(2)
  291.             Endif
  292.             AnsiPos 10, INTEGER002 - 2
  293.             Print "@X08│"
  294.             AnsiPos 24, INTEGER002 - 2
  295.             Print "│"
  296.             AnsiPos 10, INTEGER002 - 1
  297.             Print "@X07│"
  298.             AnsiPos 24, INTEGER002 - 1
  299.             Print "│"
  300.             AnsiPos 10, INTEGER002
  301.             Print "@X0F│"
  302.             AnsiPos 24, INTEGER002
  303.             Print "│"
  304.             Delay 5
  305.         Next
  306.         If (BOOLEAN004) Then
  307.             STRING008 = "[JMJ]'s VooDoo"
  308.             Goto LABEL009
  309.         Endif
  310.         STRING008 = Mixed(U_Name())
  311.         :LABEL009
  312.         FCreate 1, PPEPath() + "\VOODOO.TMP", 1, 3
  313.         FPutLn 1, "@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  314.         FPutLn 1, "  @X03[@X0BJMJ@X03] @X08PR@X07oD@X0FuCT@X07io@X08NS        V o @X07o D @X0Fo o   S P @X07ε L @X08L S"
  315.         FPutLn 1, "··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  316.         FPutLn 1, "     @X0E▄▄▄"
  317.         If (INTEGER001 == 1) Then
  318.             FPutLn 1, "    @X6E▀@X60.@X6F/@X60.@X6E▀@X06       @X07Gee ", STRING002, ", this isn't your lucky day..."
  319.             Goto LABEL010
  320.         Endif
  321.         FPutLn 1, "    @X6E▀@X60.@X06█@X60.@X6E▀@X06       @X07Gee ", STRING002, ", this isn't your lucky day..."
  322.         :LABEL010
  323.         FPutLn 1, "    @X06▀@X60 - @X06▀"
  324.         If (BOOLEAN004) Then
  325.             FPutLn 1, "  @X04▄▄█████▄▄     @X07Someone put a voodoo spell on your ", Trim(TSTRING004(INTEGER001), " "), ","
  326.             Goto LABEL011
  327.         Endif
  328.         FPutLn 1, "  @X04▄▄█████▄▄     @X07", STRING008, " put a voodoo spell on your ", Trim(TSTRING004(INTEGER001), " "), ","
  329.         :LABEL011
  330.         If (INTEGER001 == 3) Then
  331.             FPutLn 1, " @X04███████@X4F/@X04███    @X07right where the needle is pinned in the doll..."
  332.             Goto LABEL012
  333.         Endif
  334.         FPutLn 1, " @X04███████████    @X07right where the needle is pinned in the doll..."
  335.         :LABEL012
  336.         FPutLn 1, " @X04█▌███████▐█"
  337.         If (INTEGER001 == 2) Then
  338.             FPutLn 1, " @X04█▌███████▐@X4F/@X07    Well, you probably deserve it, since only"
  339.             Goto LABEL013
  340.         Endif
  341.         FPutLn 1, " @X04█▌███████▐█    @X07Well, you probably deserve it, since only"
  342.         :LABEL013
  343.         If (INTEGER001 == 4) Then
  344.             FPutLn 1, " @X04█▌@X01▐██@X1F/@X01██▌@X04▐█    @X07MegaLamers get this treatment..."
  345.             Goto LABEL014
  346.         Endif
  347.         FPutLn 1, " @X04█▌@X01▐█████▌@X04▐█    @X07MegaLamers get this treatment..."
  348.         :LABEL014
  349.         FPutLn 1, " @X06▀ @X01███ ███ @X06▀"
  350.         If (INTEGER001 == 5) Then
  351.             FPutLn 1, "   @X01███ █@X1F/@X01█      @X07Try being nice for a change, and stop being lame..."
  352.             Goto LABEL015
  353.         Endif
  354.         FPutLn 1, "   @X01███ ███      @X07Try being nice for a change, and stop being lame..."
  355.         :LABEL015
  356.         FPutLn 1, "   @X01███ ███"
  357.         FPutLn 1, "   @X01███ ███"
  358.         If (INTEGER001 == 6) Then
  359.             FPutLn 1, "  @X40▀@X4F▀▀▀@X0F @X4F▀▀▀@X40▀@X0F/@X07"
  360.             Goto LABEL016
  361.         Endif
  362.         FPutLn 1, "  @X40▀@X4F▀▀▀@X0F @X4F▀▀▀@X40▀@X07"
  363.         :LABEL016
  364.         FPutLn 1, " "
  365.         FPutLn 1, "@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  366.         FClose 1
  367.         Message INTEGER007, STRING002, STRING008, "You've been cursed...", "R", 0, 0, 0, PPEPath() + "\VOODOO.TMP"
  368.         Delete PPEPath() + "\VOODOO.TMP"
  369.         Log "    ■          " + STRING002 + "'s " + Trim(TSTRING004(INTEGER001), " "), 1
  370.         Log "    ■ VooDoo : " + U_Name() + " put a spell on", 1
  371.         For INTEGER002 = 1 To 10
  372.             AnsiPos 36, 10 + INTEGER002
  373.             Print "                                   "
  374.         Next
  375.         AnsiPos 36, 11
  376.         Print "@X0ESPεLL aPPLiεD To ViCTiM'S @X0B", Trim(TSTRING004(INTEGER001), " ")
  377.         STRING003 = " "
  378.         BOOLEAN003 = 1
  379.         INTEGER006 = 0
  380.         While (STRING003 <> Chr(13)) Do
  381.             STRING003 = Inkey()
  382.             If (BOOLEAN003) Then
  383.                 Inc INTEGER006
  384.                 Goto LABEL017
  385.             Endif
  386.             Dec INTEGER006
  387.             :LABEL017
  388.             If (INTEGER006 == 17) Then
  389.                 BOOLEAN003 = 0
  390.             Endif
  391.             If (INTEGER006 == 1) Then
  392.                 BOOLEAN003 = 1
  393.             Endif
  394.             AnsiPos 43, 20
  395.             Print "@X08", STRING006
  396.             AnsiPos 42 + INTEGER006, 20
  397.             Print "@X07", Mid(STRING006, INTEGER006, 1), "@X0F", Mid(STRING006, INTEGER006 + 1, 1), "@X07", Mid(STRING006, INTEGER006 + 2, 1)
  398.         EndWhile
  399.         INTEGER001 = 4
  400.         BOOLEAN001 = 1
  401.     Endif
  402.     Goto LABEL008
  403.     :LABEL018
  404.     Return
  405.     :LABEL019
  406.     PrintLn "@CLS@@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  407.     PrintLn "  @X03[@X0BJMJ@X03] @X08PR@X07oD@X0FuCT@X07io@X08NS        V o @X07o D @X0Fo o   S P @X07ε L @X08L S        @X0C@BOARDNAME:16C@"
  408.     PrintLn "@X08··──@X05──@X0D─────────@X05──@X08──·· ··──@X05──@X0D───────────────────────@X05──@X08──·· ··──@X05──@X0D─────────@X05──@X08──··"
  409.     PrintLn "     @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X08▄  @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X08▄"
  410.     PrintLn "     @X0F█@X7F▓▓▒▒░░@X07█████████@X78░░▒▒▓▓@X08█  @X0F█@X7F▓▓▒▒░░@X07███████████████████████████████@X78░░▒▒▓▓@X08█"
  411.     PrintLn "     @X0F█@X7F▒▒@X08█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F█@X78▓▓@X08█  @X0F█@X7F▒▒@X08█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F█@X78▓▓@X08█"
  412.     PrintLn "     @X0F█@X7F░░@X08█      @X0E▄▄▄      @X0F█@X78▒▒@X08█  @X0F█@X7F░░@X08█ @X05░▒▓@X5E      εNTεR youR CHoiCε      @X05▓▒░ @X0F█@X78▒▒@X08█"
  413.     PrintLn "     @X0F█@X07██@X08█     @X6E▀@X60.@X06█@X60.@X6E▀@X06     @X0F█@X78░░@X08█  @X0F█@X07██@X08█@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X78░░@X08█"
  414.     PrintLn "     @X0F█@X07██@X08█     @X06▀@X60 - @X06▀     @X0F█@X07██@X08█  @X0F█@X07███████████████████████████████████████████@X08█"
  415.     PrintLn "     @X0F█@X07██@X08█   @X04▄▄█████▄▄   @X0F█@X07██@X08█  @X0F█@X07██@X08█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F█@X07██@X08█"
  416.     PrintLn "     @X0F█@X07██@X08█  @X04█████@XCF @X04█████  @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  417.     PrintLn "     @X0F█@X07██@X08█  @X04█▌███████▐@XCF @X0F  █@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  418.     PrintLn "     @X0F█@X07██@X08█  @X04█▌███████▐█  @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  419.     PrintLn "     @X0F█@X07██@X08█  @X04█▌@X01▐█████▌@X04▐█  @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  420.     PrintLn "     @X0F█@X07██@X08█  @X06▀ @X01███ ███ @X06▀  @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  421.     PrintLn "     @X0F█@X07██@X08█    @X01███ ███    @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  422.     PrintLn "     @X0F█@X07██@X08█    @X01███ ███    @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  423.     PrintLn "     @X0F█@X07██@X08█    @X01███ ███    @X0F█@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  424.     PrintLn "     @X0F█@X07██@X08█   @X40▀@X4F▀▀▀@X0F @X4F▀▀▀@X40▀@X0F   █@X07██@X08█  @X0F█@X07██@X08█                                     @X0F█@X07██@X08█"
  425.     PrintLn "     @X0F█@X78░░@X08█               @X0F█@X7F░░@X08█  @X0F█@X78░░@X08█                                     @X0F█@X7F░░@X08█"
  426.     PrintLn "     @X0F█@X78▒▒@X08█@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X7F▒▒@X08█  @X0F█@X78▒▒@X08█@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X7F▒▒@X08█"
  427.     PrintLn "     @X0F█@X78▓▓▒▒░░@X07█████████@X7F░░▒▒▓▓@X08█  @X0F█@X78▓▓▒▒░░@X07███████████████████████████████@X7F░░▒▒▓▓@X08█"
  428.     Print "     @X0F▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X0F▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  429.     Return
  430.  
  431. ;------------------------------------------------------------------------------
  432. ;
  433. ; Usage report (before postprocessing)
  434. ;
  435. ; ■ Statements used :
  436. ;
  437. ;    2       End
  438. ;    1       Cls
  439. ;    7       Color 
  440. ;    72      Goto 
  441. ;    87      Let 
  442. ;    37      Print 
  443. ;    47      PrintLn 
  444. ;    48      If 
  445. ;    1       FCreate 
  446. ;    1       FOpen 
  447. ;    2       FClose 
  448. ;    4       FGet 
  449. ;    25      FPutLn 
  450. ;    1       GetUser
  451. ;    1       Delete 
  452. ;    2       Log 
  453. ;    4       Gosub 
  454. ;    3       Return
  455. ;    4       Delay 
  456. ;    4       Inc 
  457. ;    4       Dec 
  458. ;    1       InputText 
  459. ;    36      AnsiPos 
  460. ;    1       Message 
  461. ;
  462. ;
  463. ; ■ Functions used :
  464. ;
  465. ;    1       -
  466. ;    30      +
  467. ;    5       -
  468. ;    32      ==
  469. ;    5       <>
  470. ;    7       <
  471. ;    7       <=
  472. ;    14      >=
  473. ;    48      !
  474. ;    15      &&
  475. ;    11      ||
  476. ;    1       Upper()
  477. ;    6       Mid()
  478. ;    6       Chr()
  479. ;    4       Trim()
  480. ;    2       U_Name()
  481. ;    4       Inkey()
  482. ;    4       PPEPath()
  483. ;    2       GrafMode()
  484. ;    1       U_RecNum()
  485. ;    2       Mixed()
  486. ;
  487. ;------------------------------------------------------------------------------
  488. ;
  489. ; Analysis flags : No flag
  490. ;
  491. ;------------------------------------------------------------------------------
  492. ;
  493. ; Postprocessing report
  494. ;
  495. ;    7       For/Next
  496. ;    2       While/EndWhile
  497. ;    37      If/Then or If/Then/Else
  498. ;    0       Select Case
  499. ;
  500. ;------------------------------------------------------------------------------
  501. ;                 AEGiS Corp - Break the routines, code against the machines!
  502. ;------------------------------------------------------------------------------
  503.