home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / texts / dusel04 / dusel.ppe (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-07-26  |  30KB  |  1,383 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.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Real     REAL001
  47.     Real     REAL002
  48.     String   STRING001
  49.     String   STRING002
  50.     String   STRING003
  51.     String   STRING004
  52.     String   STRING005
  53.     String   STRING006
  54.     String   STRING007
  55.     String   STRING008
  56.     String   STRING009
  57.     String   STRING010
  58.     String   STRING011
  59.     String   STRING012
  60.     String   STRING013
  61.     String   STRING014
  62.     String   STRING015
  63.     String   STRING016
  64.     String   STRING017
  65.     String   STRING018
  66.     String   STRING019
  67.     String   STRING020
  68.     String   STRING021
  69.     String   STRING022
  70.     String   STRING023
  71.     String   STRING024
  72.     String   STRING025
  73.     String   STRING026
  74.     String   STRING027
  75.     String   STRING028
  76.     String   STRING029
  77.     String   STRING030
  78.     String   STRING031
  79.     String   STRING032
  80.     String   STRING033
  81.     String   STRING034
  82.     String   STRING035
  83.     String   STRING036
  84.     String   STRING037
  85.     String   STRING038
  86.     String   STRING039
  87.     String   STRING040
  88.     String   STRING041
  89.     String   STRING042
  90.     String   STRING043
  91.     String   STRING044
  92.     String   STRING045
  93.     String   STRING046
  94.     String   STRING047
  95.     String   STRING048
  96.     String   STRING049
  97.     String   STRING050
  98.     String   STRING051
  99.     String   STRING052
  100.     String   STRING053
  101.     String   STRING054
  102.     String   STRING055
  103.     String   STRING056
  104.     String   STRING057
  105.     String   STRING058
  106.     String   STRING059
  107.     String   STRING060
  108.     String   STRING061
  109.     String   STRING062
  110.     String   STRING063
  111.     String   STRING064
  112.     String   STRING065
  113.  
  114. ;------------------------------------------------------------------------------
  115.  
  116.     If (!AnsiOn()) End
  117.     INTEGER003 = 1
  118.     INTEGER011 = 2
  119.     INTEGER012 = ""
  120.     STRING051 = "@X07"
  121.     STRING052 = "@X08"
  122.     INTEGER015 = 1
  123.     STRING050 = " @0123456789!#$%^&*()-=_+`~qwertyuiop[]\|asdfghjkl;'zxcvbnm,./<>?:{}QWERTYUIOPASDFGHJKLZXCVBNMåäöÅÄÖ"
  124.     Cls
  125.     Print "@POFF@"
  126.     INTEGER010 = Day(Date()) - 1
  127.     REAL001 = 2
  128.     REAL002 = 2
  129.     INTEGER014 = 0
  130.     INTEGER027 = 0
  131.     INTEGER001 = 0
  132.     If (!Exist(PPEPath() + "ONELINER.CFG")) Gosub LABEL016
  133.     FOpen 1, PPEPath() + "ONELINER.CFG", 2, 3
  134.     FGet 1, INTEGER008
  135.     FGet 1, STRING005
  136.     FGet 1, STRING006
  137.     FGet 1, STRING003
  138.     FGet 1, STRING004
  139.     FClose 1
  140.     INTEGER027 = 1
  141.     STRING005 = Upper(STRING005)
  142.     STRING003 = Upper(STRING003)
  143.     If (STRING003 == "Y") INTEGER001 = 1
  144.     STRING004 = Upper(STRING004)
  145.     If (STRING005 == "N") INTEGER014 = 1
  146.     STRING006 = Upper(STRING006)
  147.     Goto LABEL002
  148.     :LABEL001
  149.     If (STRING007 == STRING006) Goto LABEL003
  150.     Goto LABEL004
  151.     :LABEL002
  152.     STRING055 = "Empty!"
  153.     INTEGER016 = 0
  154.     STRING056 = "Empty!"
  155.     INTEGER017 = 0
  156.     STRING057 = "Empty!"
  157.     INTEGER018 = 0
  158.     STRING058 = "Empty!"
  159.     INTEGER019 = 0
  160.     STRING059 = "Empty!"
  161.     INTEGER020 = 0
  162.     STRING060 = "Empty!"
  163.     INTEGER021 = 0
  164.     STRING061 = "Empty!"
  165.     INTEGER022 = 0
  166.     STRING062 = "Empty!"
  167.     INTEGER023 = 0
  168.     STRING063 = "Empty!"
  169.     INTEGER024 = 0
  170.     STRING064 = "Empty!"
  171.     INTEGER025 = 0
  172.     If (Exist(PPEPath() + "WRITERS.DAT")) Then
  173.         FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  174.         Frewind 1
  175.         :LABEL003
  176.         FGet 1, STRING007
  177.         If (STRING007 == "=") Goto LABEL003
  178.         FGet 1, INTEGER009
  179.         If (INTEGER014 == 1) Goto LABEL001
  180.         :LABEL004
  181.         If (STRING007 == "=") Goto LABEL003
  182.         If (STRING007 == "Empty!") Goto LABEL015
  183.         If (STRING007 == "END-OF-LINE") Goto LABEL015
  184.         If (INTEGER009 > INTEGER016) Then
  185.             INTEGER004 = 1
  186.             Goto LABEL005
  187.         Endif
  188.         If (INTEGER009 > INTEGER017) Then
  189.             INTEGER004 = 2
  190.             Goto LABEL005
  191.         Endif
  192.         If (INTEGER009 > INTEGER018) Then
  193.             INTEGER004 = 3
  194.             Goto LABEL005
  195.         Endif
  196.         If (INTEGER009 > INTEGER019) Then
  197.             INTEGER004 = 4
  198.             Goto LABEL005
  199.         Endif
  200.         If (INTEGER009 > INTEGER020) Then
  201.             INTEGER004 = 5
  202.             Goto LABEL005
  203.         Endif
  204.         If (INTEGER009 > INTEGER021) Then
  205.             INTEGER004 = 6
  206.             Goto LABEL005
  207.         Endif
  208.         If (INTEGER009 > INTEGER022) Then
  209.             INTEGER004 = 7
  210.             Goto LABEL005
  211.         Endif
  212.         If (INTEGER009 > INTEGER023) Then
  213.             INTEGER004 = 8
  214.             Goto LABEL005
  215.         Endif
  216.         If (INTEGER009 > INTEGER024) Then
  217.             INTEGER004 = 9
  218.             Goto LABEL005
  219.         Endif
  220.         If (INTEGER009 > INTEGER025) Then
  221.             INTEGER004 = 10
  222.             Goto LABEL005
  223.         Endif
  224.         Goto LABEL003
  225.         :LABEL005
  226.         If (INTEGER004 == 10) Goto LABEL014
  227.         INTEGER025 = INTEGER024
  228.         STRING064 = STRING063
  229.         If (INTEGER004 == 9) Goto LABEL013
  230.         INTEGER024 = INTEGER023
  231.         STRING063 = STRING062
  232.         If (INTEGER004 == 8) Goto LABEL012
  233.         INTEGER023 = INTEGER022
  234.         STRING062 = STRING061
  235.         If (INTEGER004 == 7) Goto LABEL011
  236.         INTEGER022 = INTEGER021
  237.         STRING061 = STRING060
  238.         If (INTEGER004 == 6) Goto LABEL010
  239.         INTEGER021 = INTEGER020
  240.         STRING060 = STRING059
  241.         If (INTEGER004 == 5) Goto LABEL009
  242.         INTEGER020 = INTEGER019
  243.         STRING059 = STRING058
  244.         If (INTEGER004 == 4) Goto LABEL008
  245.         INTEGER019 = INTEGER018
  246.         STRING058 = STRING057
  247.         If (INTEGER004 == 3) Goto LABEL007
  248.         INTEGER018 = INTEGER017
  249.         STRING057 = STRING056
  250.         If (INTEGER004 == 2) Goto LABEL006
  251.         INTEGER017 = INTEGER016
  252.         STRING056 = STRING055
  253.         INTEGER016 = INTEGER009
  254.         STRING055 = STRING007
  255.         Goto LABEL003
  256.         :LABEL006
  257.         STRING056 = STRING007
  258.         INTEGER017 = INTEGER009
  259.         Goto LABEL003
  260.         :LABEL007
  261.         STRING057 = STRING007
  262.         INTEGER018 = INTEGER009
  263.         Goto LABEL003
  264.         :LABEL008
  265.         STRING058 = STRING007
  266.         INTEGER019 = INTEGER009
  267.         Goto LABEL003
  268.         :LABEL009
  269.         STRING059 = STRING007
  270.         INTEGER020 = INTEGER009
  271.         Goto LABEL003
  272.         :LABEL010
  273.         STRING060 = STRING007
  274.         INTEGER021 = INTEGER009
  275.         Goto LABEL003
  276.         :LABEL011
  277.         STRING061 = STRING007
  278.         INTEGER022 = INTEGER009
  279.         Goto LABEL003
  280.         :LABEL012
  281.         STRING062 = STRING007
  282.         INTEGER023 = INTEGER009
  283.         Goto LABEL003
  284.         :LABEL013
  285.         STRING063 = STRING007
  286.         INTEGER024 = INTEGER009
  287.         Goto LABEL003
  288.         :LABEL014
  289.         STRING064 = STRING007
  290.         INTEGER025 = INTEGER009
  291.         Goto LABEL003
  292.         :LABEL015
  293.         FClose 1
  294.     Endif
  295.     :LABEL016
  296.     If (Exist(PPEPath() + "ONELINER.DAT")) Goto LABEL017
  297.     FCreate 1, PPEPath() + "ONELINER.DAT", 1, 3
  298.     FPutLn 1, ""
  299.     FPutLn 1, ""
  300.     FPutLn 1, ""
  301.     FPutLn 1, ""
  302.     FPutLn 1, ""
  303.     FPutLn 1, ""
  304.     FPutLn 1, ""
  305.     FPutLn 1, ""
  306.     FPutLn 1, ""
  307.     FPutLn 1, ""
  308.     FPutLn 1, ""
  309.     FPutLn 1, ""
  310.     FPutLn 1, ""
  311.     FPutLn 1, ""
  312.     FPutLn 1, ""
  313.     FPutLn 1, ""
  314.     FPutLn 1, ""
  315.     FPutLn 1, ""
  316.     FPutLn 1, "THE DUSELiNER V1.00 By Schlagmeister Wie? [DUSEL]!"
  317.     FPutLn 1, "Start Sucking!"
  318.     FClose 1
  319.     :LABEL017
  320.     If (Exist(PPEPath() + "WHO.DAT")) Goto LABEL018
  321.     FCreate 1, PPEPath() + "WHO.DAT", 1, 3
  322.     FPutLn 1, ""
  323.     FPutLn 1, ""
  324.     FPutLn 1, ""
  325.     FPutLn 1, ""
  326.     FPutLn 1, ""
  327.     FPutLn 1, ""
  328.     FPutLn 1, ""
  329.     FPutLn 1, ""
  330.     FPutLn 1, ""
  331.     FPutLn 1, ""
  332.     FPutLn 1, ""
  333.     FPutLn 1, ""
  334.     FPutLn 1, ""
  335.     FPutLn 1, ""
  336.     FPutLn 1, ""
  337.     FPutLn 1, ""
  338.     FPutLn 1, ""
  339.     FPutLn 1, ""
  340.     FPutLn 1, "--"
  341.     FPutLn 1, "--"
  342.     FClose 1
  343.     :LABEL018
  344.     If (Exist(PPEPath() + "ONELINER.CFG")) Goto LABEL019
  345.     FCreate 1, PPEPath() + "ONELINER.CFG", 1, 3
  346.     FPutLn 1, "100"
  347.     FPutLn 1, "Y"
  348.     FPutLn 1, "SYSOPNAME"
  349.     FPutLn 1, "Y"
  350.     FPutLn 1, "WORDS.LST"
  351.     FPutLn 1, "----------------------------------------------------------"
  352.     FPutLn 1, "Line 1: Minimum Security to view who has written what."
  353.     FPutLn 1, "        (View the list by pressing 'W')"
  354.     FPutLn 1, "Line 2: Should the Sysop be in the Top Writers List? (Y/N)"
  355.     FPutLn 1, "Line 3: If line 2 is set to 'N', then write the Sysops"
  356.     FPutLn 1, "        Name here."
  357.     FPutLn 1, "Line 4: When a user has written a new line, should the PPE"
  358.     FPutLn 1, "        check the line for forbidden words? (Y/N)"
  359.     FPutLn 1, "Line 5: Name of file with forbidden words. One word/line."
  360.     FPutLn 1, "        Make sure the file ends with the line:"
  361.     FPutLn 1, "        END-OF-FILE"
  362.     FClose 1
  363.     If (INTEGER027 == 0) Return
  364.     :LABEL019
  365.     If (Exist(PPEPath() + "WRITERS.DAT")) Goto LABEL020
  366.     FCreate 1, PPEPath() + "WRITERS.DAT", 1, 3
  367.     FPutLn 1, "D-VIBE"
  368.     FPutLn 1, "2"
  369.     FPutLn 1, "="
  370.     FPutLn 1, "="
  371.     FPutLn 1, "="
  372.     FPutLn 1, "Empty!"
  373.     FPutLn 1, "0"
  374.     FPutLn 1, "Empty!"
  375.     FPutLn 1, "0"
  376.     FPutLn 1, "Empty!"
  377.     FPutLn 1, "0"
  378.     FPutLn 1, "Empty!"
  379.     FPutLn 1, "0"
  380.     FPutLn 1, "Empty!"
  381.     FPutLn 1, "0"
  382.     FPutLn 1, "Empty!"
  383.     FPutLn 1, "0"
  384.     FPutLn 1, "Empty!"
  385.     FPutLn 1, "0"
  386.     FPutLn 1, "Empty!"
  387.     FPutLn 1, "0"
  388.     FPutLn 1, "Empty!"
  389.     FPutLn 1, "0"
  390.     FPutLn 1, "END-OF-FILE"
  391.     FClose 1
  392.     Goto LABEL002
  393.     :LABEL020
  394.     If (Exist(PPEPath() + "PERCENT.DAT")) Goto LABEL021
  395.     FCreate 1, PPEPath() + "PERCENT.DAT", 1, 3
  396.     FPutLn 1, "", INTEGER010
  397.     FPutLn 1, "", REAL001
  398.     FPutLn 1, "", REAL002
  399.     FClose 1
  400.     :LABEL021
  401.     If (Exist(PPEPath() + "TOTAL.DAT")) Goto LABEL022
  402.     FCreate 1, PPEPath() + "TOTAL.DAT", 1, 3
  403.     FPutLn 1, "2"
  404.     FClose 1
  405.     :LABEL022
  406.     PrintLn "@CLS@@X08■ ■■▀■▀▀■▀▀▀@X07▀@X08▀■[ @X0FTHE ONELiNER V1.06 @X08]■▀@X07▀@X08▀@X07▀@X08▀■▀▀■▀■■ ■  @X0FTop Ten Coolest Writers@X07!"
  407.     Print "@X08░                                                  ░■ ■■▀■▀▀■▀▀▀▀▀▀▀▀▀▀■▀▀■▀■■ ■"
  408.     Print "▒                                                  ▒[ @X0F1@X08]..................[@X080000@X08]"
  409.     Print "▓                                                  ▓[ @X072@X08]..................[@X080000@X08]"
  410.     Print "█                                                  █[ @X073@X08]..................[@X080000@X08]"
  411.     Print "█                                                  █[ @X074@X08]..................[@X080000@X08]"
  412.     Print "█                                                  █[ @X075@X08]..................[@X080000@X08]"
  413.     Print "█                                                  █[ @X076@X08]..................[@X080000@X08]"
  414.     Print "▓                                                  ▓[ @X077@X08]..................[@X080000@X08]"
  415.     Print "▒                                                  ▒[ @X078@X08]..................[@X080000@X08]"
  416.     Print "░                                                  ░[ @X079@X08]..................[@X080000@X08]"
  417.     Print "■                                                  ■[@X0710@X08]..................[@X080000@X08]"
  418.     Print "░                                                  ░■ ■■▄■▄▄■▄▄▄▄▄▄▄▄▄▄■▄▄■▄■■ ■"
  419.     PrintLn "▒                                                  ▒"
  420.     PrintLn "@X08▓                                                  ▓"
  421.     PrintLn "@X08█                                                  █"
  422.     PrintLn "@X08█                                                  █"
  423.     PrintLn "@X08█                                                  █"
  424.     PrintLn "@X08▓                                                  ▓"
  425.     PrintLn "@X08▒                                                  ▒"
  426.     PrintLn "@X08░                                                  ░"
  427.     Print "@X08■ ■■▄■▄▄■▄▄▄▄▄▄▄▄▄@X07▄@X08▄▄▄@X07▄@X08▄@X07▄▄@X0F▄@X07▄@X0F▄▄▄@X07▄@X0F▄@X07▄▄@X08▄@X07▄@X08▄▄@X07▄@X08▄▄▄■▄▄■▄■■ ■ ■■▀■▀▀■▀▀▀▀▀▀▀▀▀▀▀■▀▀■▀■■ ■"
  428.     Print "Wanna add a DUSEL-LINER? [@X07y@X08/@X0FN@X08/@X07f@X08/@X07i@X08] [CODE BY @X0FSchlagmeister Wie¿/DUSEl@X07"
  429.     If (!Exist(PPEPath() + "ONELINER.DAT")) Goto LABEL016
  430.     FOpen 1, PPEPath() + "ONELINER.DAT", 2, 3
  431.     FGet 1, STRING010
  432.     FGet 1, STRING011
  433.     FGet 1, STRING012
  434.     FGet 1, STRING013
  435.     FGet 1, STRING014
  436.     FGet 1, STRING015
  437.     FGet 1, STRING016
  438.     FGet 1, STRING017
  439.     FGet 1, STRING018
  440.     FGet 1, STRING019
  441.     FGet 1, STRING020
  442.     FGet 1, STRING021
  443.     FGet 1, STRING022
  444.     FGet 1, STRING023
  445.     FGet 1, STRING024
  446.     FGet 1, STRING025
  447.     FGet 1, STRING026
  448.     FGet 1, STRING027
  449.     FGet 1, STRING028
  450.     FGet 1, STRING029
  451.     FClose 1
  452.     If (!Exist(PPEPath() + "WHO.DAT")) Goto LABEL016
  453.     FOpen 1, PPEPath() + "WHO.DAT", 2, 3
  454.     FGet 1, STRING030
  455.     FGet 1, STRING031
  456.     FGet 1, STRING032
  457.     FGet 1, STRING033
  458.     FGet 1, STRING034
  459.     FGet 1, STRING035
  460.     FGet 1, STRING036
  461.     FGet 1, STRING037
  462.     FGet 1, STRING038
  463.     FGet 1, STRING039
  464.     FGet 1, STRING040
  465.     FGet 1, STRING041
  466.     FGet 1, STRING042
  467.     FGet 1, STRING043
  468.     FGet 1, STRING044
  469.     FGet 1, STRING045
  470.     FGet 1, STRING046
  471.     FGet 1, STRING047
  472.     FGet 1, STRING048
  473.     FGet 1, STRING049
  474.     FClose 1
  475.     AnsiPos (52 - Len(STRING010)) / 2, 2
  476.     Print "@X08" + Chr(34) + "@X07" + STRING010 + "@X08" + Chr(34)
  477.     AnsiPos (52 - Len(STRING011)) / 2, 3
  478.     Print "@X08" + Chr(34) + "@X07" + STRING011 + "@X08" + Chr(34)
  479.     AnsiPos (52 - Len(STRING012)) / 2, 4
  480.     Print "@X08" + Chr(34) + "@X07" + STRING012 + "@X08" + Chr(34)
  481.     AnsiPos (52 - Len(STRING013)) / 2, 5
  482.     Print "@X08" + Chr(34) + "@X07" + STRING013 + "@X08" + Chr(34)
  483.     AnsiPos (52 - Len(STRING014)) / 2, 6
  484.     Print "@X08" + Chr(34) + "@X07" + STRING014 + "@X08" + Chr(34)
  485.     AnsiPos (52 - Len(STRING015)) / 2, 7
  486.     Print "@X08" + Chr(34) + "@X07" + STRING015 + "@X08" + Chr(34)
  487.     AnsiPos (52 - Len(STRING016)) / 2, 8
  488.     Print "@X08" + Chr(34) + "@X07" + STRING016 + "@X08" + Chr(34)
  489.     AnsiPos (52 - Len(STRING017)) / 2, 9
  490.     Print "@X08" + Chr(34) + "@X07" + STRING017 + "@X08" + Chr(34)
  491.     AnsiPos (52 - Len(STRING018)) / 2, 10
  492.     Print "@X08" + Chr(34) + "@X07" + STRING018 + "@X08" + Chr(34)
  493.     AnsiPos (52 - Len(STRING019)) / 2, 11
  494.     Print "@X08" + Chr(34) + "@X07" + STRING019 + "@X08" + Chr(34)
  495.     AnsiPos (52 - Len(STRING020)) / 2, 12
  496.     Print "@X08" + Chr(34) + "@X07" + STRING020 + "@X08" + Chr(34)
  497.     AnsiPos (52 - Len(STRING021)) / 2, 13
  498.     Print "@X08" + Chr(34) + "@X07" + STRING021 + "@X08" + Chr(34)
  499.     AnsiPos (52 - Len(STRING022)) / 2, 14
  500.     Print "@X08" + Chr(34) + "@X07" + STRING022 + "@X08" + Chr(34)
  501.     AnsiPos (52 - Len(STRING023)) / 2, 15
  502.     Print "@X08" + Chr(34) + "@X07" + STRING023 + "@X08" + Chr(34)
  503.     AnsiPos (52 - Len(STRING024)) / 2, 16
  504.     Print "@X08" + Chr(34) + "@X07" + STRING024 + "@X08" + Chr(34)
  505.     AnsiPos (52 - Len(STRING025)) / 2, 17
  506.     Print "@X08" + Chr(34) + "@X07" + STRING025 + "@X08" + Chr(34)
  507.     AnsiPos (52 - Len(STRING026)) / 2, 18
  508.     Print "@X08" + Chr(34) + "@X07" + STRING026 + "@X08" + Chr(34)
  509.     AnsiPos (52 - Len(STRING027)) / 2, 19
  510.     Print "@X08" + Chr(34) + "@X07" + STRING027 + "@X08" + Chr(34)
  511.     AnsiPos (52 - Len(STRING028)) / 2, 20
  512.     Print "@X08" + Chr(34) + "@X07" + STRING028 + "@X08" + Chr(34)
  513.     AnsiPos (52 - Len(STRING029)) / 2, 21
  514.     Print "@X08" + Chr(34) + "@X07" + STRING029 + "@X08" + Chr(34)
  515.     AnsiPos 53, 14
  516.     Print "@X08. @X04▄▄▄▄▄▄ @X08. @X04▄▄▄▄▄▄ @X08. @X04▄▄▄▄▄▄ @X08."
  517.     AnsiPos 53, 15
  518.     Print "@X08:@X4C▒░ @X07  @X4C▒░@X48░@X08:@X4C▒░ @X08  @X4C▒░@X48░@X08:@X4C▒░ @X08  @X4C▒░@X48░@X08:"
  519.     AnsiPos 53, 16
  520.     Print "@X08|@X4C░ @X48░@X08░ @X4C░@X48░▒@X08|@X4C░ @X48░@X08░ @X4C░@X48░▒@X08|@X4C░ @X48░@X04▀▀▀▀▀@X08|"
  521.     AnsiPos 53, 17
  522.     Print "@X08:@X48 ░▒@X08▒ @X48░▒▓@X08:@X48 ░▒@X08▒ @X48░▒▓@X08:@X48 ░▒@X08▒ @X48░▒▓@X08:"
  523.     AnsiPos 53, 18
  524.     Print "@X08∙@X04▀@X48▒▓@X08▓▄@X48▒▓@X08▀∙@X48░▒▓@X08▓ @X48▒▓@X08▓∙▀@X48▒▓@X08▓▄@X48▒▓@X08▓∙"
  525.     AnsiPos 53, 19
  526.     Print "@X08 Total Lines Written [@X0700000@X08]"
  527.     AnsiPos 53, 20
  528.     Print "@X08 [   ] % of Users Logging on"
  529.     AnsiPos 53, 21
  530.     Print "@X08 Today has Written a Line!@X07"
  531.     If (!Exist(PPEPath() + "TOTAL.DAT")) Goto LABEL016
  532.     FOpen 1, PPEPath() + "TOTAL.DAT", 2, 3
  533.     FGet 1, STRING008
  534.     FClose 1
  535.     AnsiPos 80 - Len(STRING008), 19
  536.     Print "@X07", STRING008
  537.     If (!Exist(PPEPath() + "PERCENT.DAT")) Goto LABEL016
  538.     FOpen 1, PPEPath() + "PERCENT.DAT", 2, 3
  539.     FGet 1, INTEGER010
  540.     FGet 1, REAL001
  541.     FGet 1, REAL002
  542.     FClose 1
  543.     If (INTEGER010 <> Day(Date())) Goto LABEL024
  544.     If (REAL001 == REAL002) Goto LABEL023
  545.     AnsiPos 56, 20
  546.     Print "@X07", (REAL002 / REAL001) * 100
  547.     AnsiPos 58, 20
  548.     Print "@X08] % of Users Logging on"
  549.     Goto LABEL025
  550.     :LABEL023
  551.     AnsiPos 55, 20
  552.     Print "@X0F100"
  553.     Goto LABEL025
  554.     :LABEL024
  555.     FCreate 1, PPEPath() + "PERCENT.DAT", 1, 3
  556.     FPutLn 1, "", Day(Date())
  557.     FPutLn 1, "0"
  558.     FPutLn 1, "0"
  559.     FClose 1
  560.     INTEGER010 = Day(Date())
  561.     REAL001 = 0
  562.     REAL002 = 0
  563.     AnsiPos 55, 20
  564.     Print "@X07NEW"
  565.     :LABEL025
  566.     Goto LABEL029
  567.     :LABEL026
  568.     AnsiPos 41, 23
  569.     STRING053 = ""
  570.     :LABEL027
  571.     While (STRING053 == "") Do
  572.         STRING053 = Inkey()
  573.         STRING053 = Upper(STRING053)
  574.     EndWhile
  575.     If (STRING053 == "Y") Then
  576.         STRING053 = ""
  577.     Else
  578.         If (STRING053 == "!") Then
  579.             STRING053 = ""
  580.             Gosub LABEL050
  581.             AnsiPos 41, 23
  582.         Endif
  583.         If (STRING053 == "W") Then
  584.             STRING053 = ""
  585.             If (U_Name() == "D-VIBE") Gosub LABEL052
  586.             If (CurSec() >= INTEGER008) Gosub LABEL052
  587.             AnsiPos 41, 23
  588.         Endif
  589.         If (STRING053 == "N") Then
  590.             STRING053 = ""
  591.             Goto LABEL054
  592.         Endif
  593.         If (STRING053 == "F") Then
  594.             STRING053 = ""
  595.             AnsiPos 43, 23
  596.             Print "@X87f"
  597.             AnsiPos 41, 23
  598.             Flag PPEPath() + "ONELINER.DAT"
  599.         Endif
  600.         If (STRING053 == "*") Then
  601.             STRING053 = ""
  602.             Gosub LABEL051
  603.             AnsiPos 41, 23
  604.         Endif
  605.         If (STRING053 == "I") Then
  606.             STRING053 = ""
  607.             Gosub LABEL049
  608.             AnsiPos 41, 23
  609.         Endif
  610.         If (STRING053 == Chr(13)) Then
  611.             STRING053 = ""
  612.             Goto LABEL054
  613.         Endif
  614.         STRING053 = ""
  615.         Goto LABEL027
  616.     Endif
  617.     Print "@CLS@"
  618.     Newlines 2
  619.     PrintLn "@X08       @X0C▄@X4C▒░@X04▀▀@X4C▒░@X04▄ @X0C▄@X4C▒░@X04▀@X0C▀@X4C▓▒@X04▄ ▄@X4C░@X48░@X04▀@X0C▀@X4C▓▒@X04▄ @X4C▓▒░@X0F      @X04▀▀▀ @X0C▄@X4C▒░@X04▀@X0C▀@X4C▓▒@X04▄ ▄@X4C░@X48░@X04▀@X0C▀@X4C▓▒@X04▄ @X0C▄@X4C▒░@X04▀@X0C▀@X4C▓▒@X04▄"
  620.     PrintLn "@X04       @X4C▒░@X48░@X08░ @X4C░@X48░▒@X08░@X4C▒░@X48░@X08░ @X4C▒░@X48░@X08░@X4C░@X48░▒@X04▄▄@X4C▒░@X48░@X08░@X4C▒░@X48░@X08░     @X4C▒░@X48░@X08░@X4C▒░@X48░@X08░ @X4C▒░@X48░@X08░@X4C░@X48░▒@X04▄▄@X4C▒░@X48░@X08░@X4C▒░@X48░@X08░ @X04▀▀▀"
  621.     PrintLn "@X04       @X4C░@X48░▒@X08▒ @X48░▒▓@X08▒@X4C░@X48░▒@X08▒ @X4C░@X48░▒@X08▒@X48░▒▓@X08▒ @X04▄▄▄@X08▒@X4C░@X48░▒@X08▒ @X04▄▄▄@X08▒@X4C░@X48░▒@X08▒@X4C░@X48░▒@X08▒ @X4C░@X48░▒@X08▒@X48░▒▓@X08▒ @X04▄▄▄@X08▒@X4C░@X48░▒@X08▒"
  622.     PrintLn "@X08       @X04▀@X48▒▓@X08▓▄@X48▒▓@X08█▓@X48░▒▓@X08▓ @X48░▒▓@X08▓@X04▀@X48▓@X08█▓▄@X48▒░░@X08▓@X48░▒▓@X08▓▄@X48▓▒░@X08▓@X48░▒▓@X08▓@X48░▒▓@X08▓ @X48░▒▓@X08▓@X04▀@X48▓@X08█▓▄@X48▒░░@X08▓@X48░▒▓@X08▓@X07"
  623.     Newline
  624.     PrintLn "@X08                          @X07Please Enter your DuselLiner!"
  625.     PrintLn "@X08 "
  626.     PrintLn "@X08               ■ ■■▀■▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀■▀■■ ■"
  627.     PrintLn "@X08 "
  628.     PrintLn "@X08               " + Chr(34) + "................................................" + Chr(34) + ""
  629.     PrintLn "@X08               ■ ■■▄■▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄■▄■■ ■"
  630.     PrintLn "@X08                 [Ansi And Code By Schlagmesiter Wie?/DUSEL]@X08"
  631.     AnsiPos 17, 12
  632.     InputStr "_", STRING054, 8, 48, STRING050, 0
  633.     If (STRING054 == "") Goto LABEL055
  634.     If (STRING054 == " ") Goto LABEL055
  635.     Goto LABEL033
  636.     :LABEL028
  637.     FCreate 1, PPEPath() + "ONELINER.DAT", 1, 3
  638.     FPutLn 1, "" + STRING011
  639.     FPutLn 1, "" + STRING012
  640.     FPutLn 1, "" + STRING013
  641.     FPutLn 1, "" + STRING014
  642.     FPutLn 1, "" + STRING015
  643.     FPutLn 1, "" + STRING016
  644.     FPutLn 1, "" + STRING017
  645.     FPutLn 1, "" + STRING018
  646.     FPutLn 1, "" + STRING019
  647.     FPutLn 1, "" + STRING020
  648.     FPutLn 1, "" + STRING021
  649.     FPutLn 1, "" + STRING022
  650.     FPutLn 1, "" + STRING023
  651.     FPutLn 1, "" + STRING024
  652.     FPutLn 1, "" + STRING025
  653.     FPutLn 1, "" + STRING026
  654.     FPutLn 1, "" + STRING027
  655.     FPutLn 1, "" + STRING028
  656.     FPutLn 1, "" + STRING029
  657.     FPutLn 1, "" + STRING054
  658.     FClose 1
  659.     FCreate 1, PPEPath() + "WHO.DAT", 1, 3
  660.     FPutLn 1, "" + STRING031
  661.     FPutLn 1, "" + STRING032
  662.     FPutLn 1, "" + STRING033
  663.     FPutLn 1, "" + STRING034
  664.     FPutLn 1, "" + STRING035
  665.     FPutLn 1, "" + STRING036
  666.     FPutLn 1, "" + STRING037
  667.     FPutLn 1, "" + STRING038
  668.     FPutLn 1, "" + STRING039
  669.     FPutLn 1, "" + STRING040
  670.     FPutLn 1, "" + STRING041
  671.     FPutLn 1, "" + STRING042
  672.     FPutLn 1, "" + STRING043
  673.     FPutLn 1, "" + STRING044
  674.     FPutLn 1, "" + STRING045
  675.     FPutLn 1, "" + STRING046
  676.     FPutLn 1, "" + STRING047
  677.     FPutLn 1, "" + STRING048
  678.     FPutLn 1, "" + STRING049
  679.     FPutLn 1, "" + U_Name()
  680.     FClose 1
  681.     REAL001 = REAL001 + 1
  682.     REAL002 = REAL002 + 1
  683.     FCreate 1, PPEPath() + "PERCENT.DAT", 1, 3
  684.     FPutLn 1, "", Day(Date())
  685.     FPutLn 1, "", REAL001
  686.     FPutLn 1, "", REAL002
  687.     FClose 1
  688.     If (!Exist(PPEPath() + "TOTAL.DAT")) Goto LABEL016
  689.     FOpen 1, PPEPath() + "TOTAL.DAT", 2, 3
  690.     FGet 1, INTEGER011
  691.     FClose 1
  692.     INTEGER011 = INTEGER011 + 1
  693.     FCreate 1, PPEPath() + "TOTAL.DAT", 1, 3
  694.     FPutLn 1, "", INTEGER011
  695.     FClose 1
  696.     Return
  697.     :LABEL029
  698.     AnsiPos 80 - Len(INTEGER016), 3
  699.     Print "@X0F", INTEGER016
  700.     AnsiPos 80 - Len(INTEGER017), 4
  701.     Print "@X07", INTEGER017
  702.     AnsiPos 80 - Len(INTEGER018), 5
  703.     Print "@X07", INTEGER018
  704.     AnsiPos 80 - Len(INTEGER019), 6
  705.     Print "@X07", INTEGER019
  706.     AnsiPos 80 - Len(INTEGER020), 7
  707.     Print "@X07", INTEGER020
  708.     AnsiPos 80 - Len(INTEGER021), 8
  709.     Print "@X07", INTEGER021
  710.     AnsiPos 80 - Len(INTEGER022), 9
  711.     Print "@X07", INTEGER022
  712.     AnsiPos 80 - Len(INTEGER023), 10
  713.     Print "@X07", INTEGER023
  714.     AnsiPos 80 - Len(INTEGER024), 11
  715.     Print "@X07", INTEGER024
  716.     AnsiPos 80 - Len(INTEGER025), 12
  717.     Print "@X07", INTEGER025
  718.     INTEGER026 = 3
  719.     STRING009 = STRING055
  720.     Gosub LABEL030
  721.     INTEGER026 = 4
  722.     STRING009 = STRING056
  723.     INTEGER013 = 1
  724.     If (STRING056 == "Empty!") INTEGER013 = 2
  725.     If (INTEGER013 == 1) Gosub LABEL031
  726.     If (INTEGER013 == 2) Gosub LABEL032
  727.     INTEGER026 = 5
  728.     STRING009 = STRING057
  729.     INTEGER013 = 1
  730.     If (STRING057 == "Empty!") INTEGER013 = 2
  731.     If (INTEGER013 == 1) Gosub LABEL031
  732.     If (INTEGER013 == 2) Gosub LABEL032
  733.     INTEGER026 = 6
  734.     STRING009 = STRING058
  735.     INTEGER013 = 1
  736.     If (STRING058 == "Empty!") INTEGER013 = 2
  737.     If (INTEGER013 == 1) Gosub LABEL031
  738.     If (INTEGER013 == 2) Gosub LABEL032
  739.     INTEGER026 = 7
  740.     STRING009 = STRING059
  741.     INTEGER013 = 1
  742.     If (STRING059 == "Empty!") INTEGER013 = 2
  743.     If (INTEGER013 == 1) Gosub LABEL031
  744.     If (INTEGER013 == 2) Gosub LABEL032
  745.     INTEGER026 = 8
  746.     STRING009 = STRING060
  747.     INTEGER013 = 1
  748.     If (STRING060 == "Empty!") INTEGER013 = 2
  749.     If (INTEGER013 == 1) Gosub LABEL031
  750.     If (INTEGER013 == 2) Gosub LABEL032
  751.     INTEGER026 = 9
  752.     STRING009 = STRING061
  753.     INTEGER013 = 1
  754.     If (STRING061 == "Empty!") INTEGER013 = 2
  755.     If (INTEGER013 == 1) Gosub LABEL031
  756.     If (INTEGER013 == 2) Gosub LABEL032
  757.     INTEGER026 = 10
  758.     STRING009 = STRING062
  759.     INTEGER013 = 1
  760.     If (STRING062 == "Empty!") INTEGER013 = 2
  761.     If (INTEGER013 == 1) Gosub LABEL031
  762.     If (INTEGER013 == 2) Gosub LABEL032
  763.     INTEGER026 = 11
  764.     STRING009 = STRING063
  765.     INTEGER013 = 1
  766.     If (STRING063 == "Empty!") INTEGER013 = 2
  767.     If (INTEGER013 == 1) Gosub LABEL031
  768.     If (INTEGER013 == 2) Gosub LABEL032
  769.     INTEGER026 = 12
  770.     STRING009 = STRING064
  771.     INTEGER013 = 1
  772.     If (STRING064 == "Empty!") INTEGER013 = 2
  773.     If (INTEGER013 == 1) Gosub LABEL031
  774.     If (INTEGER013 == 2) Gosub LABEL032
  775.     Goto LABEL026
  776.     :LABEL030
  777.     AnsiPos 58, INTEGER026
  778.     Print "@X08" + STRING009
  779.     AnsiPos 58, INTEGER026
  780.     Print "@X09" + STRING009
  781.     AnsiPos 58, INTEGER026
  782.     Print "@X03" + STRING009
  783.     AnsiPos 58, INTEGER026
  784.     Print "@X07" + STRING009
  785.     AnsiPos 58, INTEGER026
  786.     Print "@X0B" + STRING009
  787.     AnsiPos 58, INTEGER026
  788.     Print "@X0F" + STRING009
  789.     AnsiPos 58, INTEGER026
  790.     Print "@X0B" + STRING009
  791.     Return
  792.     :LABEL031
  793.     AnsiPos 58, INTEGER026
  794.     Print "@X08" + STRING009
  795.     AnsiPos 58, INTEGER026
  796.     Print "@X09" + STRING009
  797.     AnsiPos 58, INTEGER026
  798.     Print "@X03" + STRING009
  799.     AnsiPos 58, INTEGER026
  800.     Print "@X07" + STRING009
  801.     AnsiPos 58, INTEGER026
  802.     Print "@X0B" + STRING009
  803.     AnsiPos 58, INTEGER026
  804.     Print "@X0F" + STRING009
  805.     AnsiPos 58, INTEGER026
  806.     Print "@X0B" + STRING009
  807.     AnsiPos 58, INTEGER026
  808.     Print "@X07" + STRING009
  809.     AnsiPos 58, INTEGER026
  810.     Print "@X03" + STRING009
  811.     Return
  812.     :LABEL032
  813.     AnsiPos 58, INTEGER026
  814.     Print "@X08" + STRING009
  815.     AnsiPos 58, INTEGER026
  816.     Print "@X09" + STRING009
  817.     AnsiPos 58, INTEGER026
  818.     Print "@X03" + STRING009
  819.     AnsiPos 58, INTEGER026
  820.     Print "@X07" + STRING009
  821.     AnsiPos 58, INTEGER026
  822.     Print "@X0B" + STRING009
  823.     AnsiPos 58, INTEGER026
  824.     Print "@X0F" + STRING009
  825.     AnsiPos 58, INTEGER026
  826.     Print "@X0B" + STRING009
  827.     AnsiPos 58, INTEGER026
  828.     Print "@X07" + STRING009
  829.     AnsiPos 58, INTEGER026
  830.     Print "@X03" + STRING009
  831.     AnsiPos 58, INTEGER026
  832.     Print "@X09" + STRING009
  833.     AnsiPos 58, INTEGER026
  834.     Print "@X08" + STRING009
  835.     Return
  836.     :LABEL033
  837.     AnsiPos 1, 16
  838.     If (INTEGER001 == 1) Then
  839.         INTEGER002 = 0
  840.         STRING002 = Upper(STRING054)
  841.         Print "@X08Suche nach worten , die Papi verboten hat..."
  842.         If (Exist(PPEPath() + STRING004)) Then
  843.             FOpen 1, PPEPath() + STRING004, 2, 3
  844.             :LABEL034
  845.             FGet 1, STRING001
  846.             STRING001 = Upper(STRING001)
  847.             If (STRING001 == "END-OF-FILE") Goto LABEL035
  848.             INTEGER002 = InStr(STRING002, STRING001)
  849.             If (INTEGER002 == 0) Goto LABEL034
  850.         Else
  851.             Goto LABEL036
  852.         Endif
  853.         FClose 1
  854.         PrintLn "Gefunden !!! .."
  855.         PrintLn "Papi sagt : WIRD NICH GESAVED!!!.."
  856.         Newlines 2
  857.         Wait
  858.         Goto LABEL055
  859.     Endif
  860.     :LABEL035
  861.     FClose 1
  862.     PrintLn "Keine BÖSEN WORTE gefunden !!! Du bist lieb!"
  863.     Gosub LABEL028
  864.     :LABEL036
  865.     STRING065 = U_Name()
  866.     If (!Exist(PPEPath() + "WRITERS.DAT")) Goto LABEL016
  867.     FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  868.     AnsiPos 1, 17
  869.     PrintLn "@X08Searchin for [@X07" + STRING065 + "@X08] in the Top Writers List.."
  870.     Delay 2
  871.     INTEGER017 = 0
  872.     :LABEL037
  873.     Gosub LABEL038
  874.     If (STRING055 == STRING065) Goto LABEL039
  875.     If (STRING055 == "END-OF-FILE") Goto LABEL044
  876.     STRING056 = STRING055
  877.     INTEGER017 = INTEGER016
  878.     Goto LABEL037
  879.     :LABEL038
  880.     FGet 1, STRING055
  881.     If (STRING055 == "=") Goto LABEL038
  882.     FGet 1, INTEGER016
  883.     Return
  884.     :LABEL039
  885.     FClose 1
  886.     INTEGER005 = INTEGER016 + 1
  887.     INTEGER013 = INTEGER016 + 1
  888.     PrintLn "@X08Schreib weiter ! Kommst bestimmt ma gross raus!"
  889.     PrintLn "Setzte dich hoch in der Liste!!!"
  890.     INTEGER007 = 0
  891.     If (!Exist(PPEPath() + "WRITERS.DAT")) Goto LABEL016
  892.     FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  893.     Frewind 1
  894.     :LABEL040
  895.     FGet 1, STRING055
  896.     If (STRING055 == U_Name()) Goto LABEL041
  897.     INTEGER007 = INTEGER007 + 1
  898.     Goto LABEL040
  899.     :LABEL041
  900.     FClose 1
  901.     INTEGER006 = 0
  902.     FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  903.     Frewind 1
  904.     :LABEL042
  905.     If (INTEGER006 == INTEGER007) Goto LABEL043
  906.     FGet 1, STRING010
  907.     INTEGER006 = INTEGER006 + 1
  908.     Goto LABEL042
  909.     :LABEL043
  910.     FPutLn 1, "", U_Name()
  911.     FPutLn 1, "", INTEGER005
  912.     FClose 1
  913.     PrintLn "Done!"
  914.     Newline
  915.     Wait
  916.     Goto LABEL055
  917.     :LABEL044
  918.     FClose 1
  919.     PrintLn "@X08Hab dich nich gefunden! Dein erster Dusel-Liner,heh?!"
  920.     PrintLn "Adding you to the List.."
  921.     INTEGER007 = 0
  922.     If (!Exist(PPEPath() + "WRITERS.DAT")) Goto LABEL016
  923.     FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  924.     Frewind 1
  925.     :LABEL045
  926.     FGet 1, STRING010
  927.     If (STRING010 == "Empty!") Goto LABEL046
  928.     INTEGER007 = INTEGER007 + 1
  929.     Goto LABEL045
  930.     :LABEL046
  931.     FClose 1
  932.     INTEGER006 = 0
  933.     FOpen 1, PPEPath() + "WRITERS.DAT", 2, 3
  934.     Frewind 1
  935.     :LABEL047
  936.     FGet 1, STRING010
  937.     INTEGER006 = INTEGER006 + 1
  938.     If (INTEGER006 == INTEGER007) Goto LABEL048
  939.     Goto LABEL047
  940.     :LABEL048
  941.     FPutLn 1, "", U_Name()
  942.     FPutLn 1, "1"
  943.     FPutLn 1, "="
  944.     FPutLn 1, "="
  945.     FPutLn 1, "="
  946.     FPutLn 1, "Empty!"
  947.     FPutLn 1, "0"
  948.     FPutLn 1, "Empty!"
  949.     FPutLn 1, "0"
  950.     FPutLn 1, "Empty!"
  951.     FPutLn 1, "0"
  952.     FPutLn 1, "Empty!"
  953.     FPutLn 1, "0"
  954.     FPutLn 1, "Empty!"
  955.     FPutLn 1, "0"
  956.     FPutLn 1, "Empty!"
  957.     FPutLn 1, "0"
  958.     FPutLn 1, "Empty!"
  959.     FPutLn 1, "0"
  960.     FPutLn 1, "Empty!"
  961.     FPutLn 1, "0"
  962.     FPutLn 1, "Empty!"
  963.     FPutLn 1, "0"
  964.     FPutLn 1, "END-OF-FILE"
  965.     FClose 1
  966.     PrintLn "Done!"
  967.     Newline
  968.     Wait
  969.     Goto LABEL055
  970.     :LABEL049
  971.     SaveScrn
  972.     PrintLn "@CLS@@X0F    @X08■ ■■▀■▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀■▀■■ ■"
  973.     PrintLn "@X08    @X0B█@X79░▒@X3B░@X03▀▀@X0B▀@X7B█@X79░▒@X03▄ @X0B▄@X79░▒@X3B░@X03▀▀@X0B▀@X7B█@X79░▒@X03▄ @X0B█@X79░▒@X3B░@X03▀▀@X0B▀@X7B█@X79░▒@X03▄ @X0B▄@X79░▒@X3B░@X03▀▀@X0B▀@X7B█@X79░▒@X03▄ @X7B█@X79░▒@X3B░@X0F        @X0B▄@X79░▒@X3B░@X03▀▀▀"
  974.     PrintLn "@X03    @X7B▓@X79▒▓@X39 @X0F   @X7B▓@X79▒▓@X39 @X0F @X7B▓@X79▒▓@X39 @X0F   @X7B▓@X79▒▓@X39 @X0F @X7B▓@X79▒▓@X39 @X0F   @X7B▓@X79▒▓@X39 @X0F @X7B▓@X79▒▓@X39 @X0F   @X7B▓@X79▒▓@X39 @X0F @X7B▓@X79▒▓@X39 @X0F        @X7B▓@X79▒▓@X39 @X07"
  975.     Print "@X0F    @X7B▒@X79▓█@X38░@X03▄▄@X07▄@X7B▒@X79▓█@X03▀ @X7B▒@X79▓█@X38░@X03▄▄@X07▄@X7B▒@X79▓█@X38░@X0F @X7B▒@X79▓█@X38░@X03▄▄@X07▄@X7B▒@X79▓█@X03▀ @X7B▒@X79▓█@X38░@X03▄▄@X07▄@X7B▒@X79▓█@X38░@X0F @X7B▒@X79▓█@X38░@X0F        @X0B▀@X79"
  976.     PrintLn "▓█@X38░@X03▄▄▄▄▄@X09▄"
  977.     PrintLn "@X09    @X7B░@X79█@X19▓@X38▒@X0F   @X7B░@X79█@X19▓@X38▒@X0F @X7B░@X79█@X19▓@X38▒@X0F        @X7B░@X79█@X19▓@X38▒@X0F   @X7B░@X79█@X19▓@X38▒@X0F @X7B░@X79█@X19▓@X38▒@X0F        @X7B░@X79█@X19▓@X38▒@X0F               @X7B░@X79█@X19▓@X38▒@X07"
  978.     Print "@X0F    @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓@X0F @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓@X0F @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓@X0F @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓@X0F @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓"
  979.     PrintLn "@X0F @X78 @X19▓▒@X38▓@X0F   @X78 @X19▓▒@X38▓@X07"
  980.     PrintLn "@X08    @X73░@X19▒░@X08█   @X73░@X19▓▒@X08█ @X73░@X19▒░@X08█   @X73░@X19▓▒@X08█ @X73░@X19▒░@X08█   @X73░@X19▓▒@X08█ @X73░@X19▒░@X08█   @X73░@X19▓▒@X08█ @X73░@X19▒░@X08█   @X73░@X19▓▒@X08█ @X73░@X19▒░@X08█   @X73░@X19▒░@X08█"
  981.     PrintLn "@X08    @X73▒@X19░ @X08▓   @X73▒@X19▒░@X08▓ @X73▒@X19░ @X08▓   @X73▒@X19▒░@X08▓ @X73▒@X19░ @X08▓   @X73▒@X19▒░@X08▓ @X73▒@X19░ @X08▓   @X73▒@X19▒░@X08▓ @X73▒@X19░ @X08▓   @X73▒@X19▒░@X08▓ @X73▒@X19░ @X08▓   @X73▒@X19░ @X08▓"
  982.     Print "@X08    @X73▓@X13 @X01▓@X08▒   @X73▓@X19░ @X08▒ @X73▓@X13 @X01▓@X08▒   @X73▓@X19░ @X08▒ @X73▓@X13 @X01▓@X08▒   @X73▓@X19░ @X08▒ @X73▓@X13 @X01▓@X08▒   @X73▓@X19░ @X08▒ @X73▓@X13 @X01▓@X08▒   @X73▓@X19░ @X08▒ @X73▓@X13 @X01▓"
  983.     PrintLn "@X08▒   @X73▓@X13 @X01▓@X08▒"
  984.     Print "@X08    @X03█@X01▓▓@X08░   @X73█@X13 @X01▓@X08░ @X03▀@X01▓▓@X08░■▄@X03▄@X73█@X13 @X01▓@X08░ @X03█@X01▓▓@X08░■▄@X03▄@X73█@X13 @X01▓  @X03▀@X01▓▓@X08░■▄@X03▄@X73█@X13 @X01▓@X08░ @X03▀@X01▓▓@X08░■▄@X03▄@X73█@X13 @X01▓@X08░ @X03▀@X01▓"
  985.     PrintLn "▓@X08░■▄@X03▄█@X01▓▓@X08░"
  986.     PrintLn "@X08    ■ ■■▄■▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄■▄■■ ■"
  987.     PrintLn "@X08                       [@X07Ansi by Rote Kuh / DUSEL @X08■ @X07STiLE@X08]"
  988.     PrintLn ""
  989.     PrintLn "@X08   [@X0FY@X08] @X07Enter a new line. @X08[@X0FN@X07/@X0FEnter@X08] @X07Continue @X08[@X0FI@X08] @X07This info. @X08[@X0F*@X07,@X0F!@X08] @X07Try it..!"
  990.     PrintLn ""
  991.     PrintLn "@X07   @X08[@X0FF@X08] @X07FLAG ONELINER.DAT FOR DOWNLOAD. This is the file where all lines are"
  992.     PrintLn "@X07       being stored.. Maybe you want to read them offline for some reason.."
  993.     PrintLn ""
  994.     PrintLn "@X07   @X08[@X0FW@X08] @X07Only for guys with sec: @X0F", INTEGER008, "@X07 or higher..."
  995.     AnsiPos 29, 21
  996.     Print "@X0FBEAT the MASTER to return"
  997.     While (STRING053 == "") Do
  998.         STRING053 = Inkey()
  999.     EndWhile
  1000.     STRING053 = ""
  1001.     RestScrn
  1002.     Return
  1003.     :LABEL050
  1004.     AnsiPos 18, 1
  1005.     Print "@X0FTHE"
  1006.     Delay 1
  1007.     AnsiPos 18, 1
  1008.     Print "@X0BTHE"
  1009.     Delay 1
  1010.     AnsiPos 18, 1
  1011.     Print "@X07THE"
  1012.     Delay 1
  1013.     AnsiPos 18, 1
  1014.     Print "@X03THE"
  1015.     Delay 1
  1016.     AnsiPos 18, 1
  1017.     Print "@X09THE"
  1018.     Delay 1
  1019.     AnsiPos 18, 1
  1020.     Print "@X08THE"
  1021.     Delay 1
  1022.     AnsiPos 18, 1
  1023.     Print "@X09THE"
  1024.     Delay 1
  1025.     AnsiPos 18, 1
  1026.     Print "@X03THE"
  1027.     Delay 1
  1028.     AnsiPos 18, 1
  1029.     Print "@X07THE"
  1030.     Delay 1
  1031.     AnsiPos 18, 1
  1032.     Print "@X0BTHE"
  1033.     Delay 1
  1034.     AnsiPos 18, 1
  1035.     Print "@X0FTHE"
  1036.     Delay 1
  1037.     AnsiPos 22, 1
  1038.     Print "@X0FONELiNER"
  1039.     Delay 1
  1040.     AnsiPos 22, 1
  1041.     Print "@X0BONELiNER"
  1042.     Delay 1
  1043.     AnsiPos 22, 1
  1044.     Print "@X07ONELiNER"
  1045.     Delay 1
  1046.     AnsiPos 22, 1
  1047.     Print "@X03ONELiNER"
  1048.     Delay 1
  1049.     AnsiPos 22, 1
  1050.     Print "@X09ONELiNER"
  1051.     Delay 1
  1052.     AnsiPos 22, 1
  1053.     Print "@X08ONELiNER"
  1054.     Delay 1
  1055.     AnsiPos 22, 1
  1056.     Print "@X09ONELiNER"
  1057.     Delay 1
  1058.     AnsiPos 22, 1
  1059.     Print "@X03ONELiNER"
  1060.     Delay 1
  1061.     AnsiPos 22, 1
  1062.     Print "@X07ONELiNER"
  1063.     Delay 1
  1064.     AnsiPos 22, 1
  1065.     Print "@X0BONELiNER"
  1066.     Delay 1
  1067.     AnsiPos 22, 1
  1068.     Print "@X0FONELiNER"
  1069.     Delay 1
  1070.     AnsiPos 31, 1
  1071.     Print "@X0FV1.06"
  1072.     Delay 1
  1073.     AnsiPos 31, 1
  1074.     Print "@X0BV1.06"
  1075.     Delay 1
  1076.     AnsiPos 31, 1
  1077.     Print "@X07V1.06"
  1078.     Delay 1
  1079.     AnsiPos 31, 1
  1080.     Print "@X03V1.06"
  1081.     Delay 1
  1082.     AnsiPos 31, 1
  1083.     Print "@X09V1.06"
  1084.     Delay 1
  1085.     AnsiPos 31, 1
  1086.     Print "@X08V1.06"
  1087.     Delay 1
  1088.     AnsiPos 31, 1
  1089.     Print "@X09V1.06"
  1090.     Delay 1
  1091.     AnsiPos 31, 1
  1092.     Print "@X03V1.06"
  1093.     Delay 1
  1094.     AnsiPos 31, 1
  1095.     Print "@X07V1.06"
  1096.     Delay 1
  1097.     AnsiPos 31, 1
  1098.     Print "@X0BV1.06"
  1099.     Delay 1
  1100.     AnsiPos 31, 1
  1101.     Print "@X0FV1.06"
  1102.     Delay 1
  1103.     Return
  1104.     :LABEL051
  1105.     AnsiPos 1, 2
  1106.     PrintLn "@X08░                     @X06▄▄▄"
  1107.     PrintLn "@X08▒              @X06▄▄▄@X6C░▒▒▒▒▓▓@X07"
  1108.     PrintLn "@X08▓           @X06▄@X6C░░░░▒▒▒▒▒@X0C▀▄@X6C▓@X07"
  1109.     PrintLn "@X08█           @X6C░░░▒▒▒▒▒▓@X0C▌@X6C▐▓▓@X07"
  1110.     PrintLn "@X08█          @X06▐@X6C░▒▒▒▒▒▓▓▓@X0C▐@X6C▓@X0C██"
  1111.     PrintLn "@X08█          @X6C░▒▒▒▒▓▓▓▓▓@X0C████"
  1112.     PrintLn "@X08█          @X6C▒▒▒▓▓▓▓▓@X0C█████@X6C▀@X07"
  1113.     PrintLn "@X08▓          @X06▐@X6C▓▓▀@X0C▀▀@X6C▀▓▓▓@X0C██▄▄"
  1114.     PrintLn "@X08▒         @X68 @X06▄▀  @X08▀■  @X06▀@X0C▀▀@X6C▀▓@X0C█"
  1115.     PrintLn "@X08░        @X06▄ @X6C▓▓▄@X0C▄▄@X06▄ @X07▀@X0F▀ @X06▄@X0C▄▄█"
  1116.     PrintLn "@X08■        @X06▐@X6C▒@X06▐@X6C▓@X0C██@X06▀▄@X6C▒▒▒▓▓@X0C▀▄█  "
  1117.     PrintLn "@X08░         @X06▀▌@X6C▓▓▓▓▒▒▓▓▓@X0F @X0C███  "
  1118.     PrintLn "@X08▒   ▄▄■ @X03▄▄▄ @X06▄▀@X0C▀@X6C▓▓▓▓@X0C█▌@X6C▓@X0C███  "
  1119.     PrintLn "@X08▓  ■@X0B▄▄@X3B▓▒░@X03█@X38░@X06▐@X6C░▒▒@X0C▄@X6C▓@X0C▐▀█@X6C▓@X0C███▀  "
  1120.     PrintLn "@X08█  @X38 @X3B░░▒@X03█▓@X38░▒@X06▐@X6C▒▒@X0C▀@X6C▓@X06▌@X6C▓▓@X0C██▀@X6C▓@X0C▄█  "
  1121.     PrintLn "@X08█  @X38░@X03██@X38░@X03▓@X38░▒▓@X03▌@X6C▓@X0C▌@X6C▓▒@X06▐@X6C▒▓▓@X0C▄@X6C▓@X0C▀▀▀  "
  1122.     PrintLn "@X08█  @X38▒░░▒░▒▓▒▓@X0F @X06▀▐@X6C▒@X06▌@X6C▒▒@X0C▀ @X06▄▄@X6C▒▒@X07  "
  1123.     PrintLn "@X08▓  @X38▓▒▒▓▒▓@X08▀▀@X06▄@X6C▓▄@X06▄▀@X6C▒@X0F @X6C▒░░░@X06▀▀  "
  1124.     PrintLn "@X08▒  █@X38▓▓@X08▀@X06▄▄@X6C▒▓▓@X0C▀▀@X06▀@X08▄@X04▄  @X06▀@X6C░@X0C▄ @X06▄▄  "
  1125.     PrintLn "@X08░  ▓▀ @X6C░▒@X06▀ @X08▄▄ ▀▄@X04▄ @X08▀ @X0C▀▄ @X06▀@X6C░@X06▌@X07"
  1126.     AnsiPos 26, 2
  1127.     Print "@X06▄▄▄▄▄                     @X08░"
  1128.     AnsiPos 26, 3
  1129.     Print "@X6C▓▓▒░ @X68░▒▒▓@X08▄▄▄              ▒"
  1130.     AnsiPos 26, 4
  1131.     Print "@X6C▓▓▓▒▒░@X68░@X06▀▄▄  @X08▀▀▄           ▓"
  1132.     AnsiPos 26, 5
  1133.     Print "@X0C██@X6C▓▓@X06▀▄▄@X6C░░@X06▌▀▄   @X68▓@X0F          @X08█"
  1134.     AnsiPos 26, 6
  1135.     Print "@X0C███@X6C▓▒▒▒▒░@X06▀▄ ▀   @X68▓@X0F         @X08█"
  1136.     AnsiPos 26, 7
  1137.     Print "@X0C█@X6C▓▓▓▓▓▒@X06▀▄@X6C░░@X06▀▄▄   @X68▒@X0F        @X08█"
  1138.     AnsiPos 26, 8
  1139.     Print "@X0C▀@X06▀▄@X0C█@X6C▓@X0C▀@X6C▓▒▒▒░░@X06▄▄▀  @X68▒@X0F        @X08█"
  1140.     AnsiPos 26, 9
  1141.     Print "@X6C▒@X0C▀@X06▀▄@X0C▄@X6C▓▓▓▒@X06▀▀▄▄@X6C░@X06▄   @X68░@X0F       @X08▓"
  1142.     AnsiPos 26, 10
  1143.     Print "@X0C▄@X6C▄▓▀@X0C▀▀@X06▀ @X08■▀▀▄ @X6C░@X06▌   @X68▒@X0F       @X08▒"
  1144.     AnsiPos 26, 11
  1145.     Print "@X0C█@X6C▓@X0C▄@X06▄ @X07▀@X0F▀  @X06▄▄▄█▀   @X08▄@X68▓@X08▀▌     ░"
  1146.     AnsiPos 26, 12
  1147.     Print "@X0C██@X6C▓@X06▄@X0C▀██▀▀@X6C▓▓▒@X06▄@X6C░░@X06▄  @X08▄▐      ■"
  1148.     AnsiPos 26, 13
  1149.     Print "@X0C█▌@X6C▓▒@X06▄@X0C▐██@X6C▓@X0C▄@X6C▓▒▒▒░░@X06▌ @X08▐  .    ░"
  1150.     AnsiPos 26, 14
  1151.     Print "@X0C█@X6C▓@X0C▐@X6C▓▓@X0C██@X6C▓▓@X0C▀@X6C▒▒░░░@X06▀   @X08▓@X03▄▄@X08▀∙  ▒"
  1152.     AnsiPos 26, 15
  1153.     Print "@X0C▀▀ @X6C▓@X0C█@X6C▓@X0C▌@X6C▓@X0C▄@X06▀▄▀▀      @X08▒@X03█@X38░░▒@X0F  @X08▓"
  1154.     AnsiPos 26, 16
  1155.     Print "@X6C▓@X0F @X0C▌@X6C▓@X0C██@X6C▓@X0C▐@X6C▓@X06▐@X6C▓▓@X06▌@X08░     ░@X38░▒▒▓@X0F  @X08█"
  1156.     AnsiPos 26, 17
  1157.     Print "@X0C▀▀ ▀@X6C▓@X0C█@X6C▓▓▓@X06▐@X6C▒▒@X0F @X08░    ░ @X38▒▓▓@X08█  █"
  1158.     AnsiPos 26, 18
  1159.     Print "@X6C▓▓▓@X0C▄▄ ▄@X6C▓@X0C▌@X6C▒░@X0F @X08░      ▓@X38▓██@X08▓  █"
  1160.     AnsiPos 26, 19
  1161.     Print "@X08   @X0C▀@X6C▓@X0C▀@X6C▒▓@X06▐@X6C░@X0F @X08░      ▓▓@X38█@X08▓▓▒  ▓"
  1162.     AnsiPos 26, 20
  1163.     Print "@X6C▒▓▓@X0C▄ @X6C▒@X06▀▄▀        @X08▓▒▒▓▒▒░  ▒"
  1164.     AnsiPos 26, 21
  1165.     Print "@X06▄@X0C▀@X6C▀@X0C▀@X06▀           @X08▒▒░░▒░░   ░@X07"
  1166.     Return
  1167.     :LABEL052
  1168.     If (INTEGER003 == 1) Goto LABEL053
  1169.     If (INTEGER003 == 2) Goto LABEL000
  1170.     INTEGER003 = 1
  1171.     RestScrn
  1172.     Return
  1173.     :LABEL053
  1174.     SaveScrn
  1175.     INTEGER003 = 2
  1176.     AnsiPos 1, 2
  1177.     PrintLn "@X08░                                                  ░"
  1178.     PrintLn "▒                                                  ▒"
  1179.     PrintLn "▓                                                  ▓"
  1180.     PrintLn "█                                                  █"
  1181.     PrintLn "█                                                  █"
  1182.     PrintLn "█                                                  █"
  1183.     PrintLn "█                                                  █"
  1184.     PrintLn "▓                                                  ▓"
  1185.     PrintLn "▒                                                  ▒"
  1186.     PrintLn "░                                                  ░"
  1187.     PrintLn "■                                                  ■"
  1188.     PrintLn "░                                                  ░"
  1189.     PrintLn "▒                                                  ▒"
  1190.     PrintLn "@X08▓                                                  ▓"
  1191.     PrintLn "@X08█                                                  █"
  1192.     PrintLn "@X08█                                                  █"
  1193.     PrintLn "@X08█                                                  █"
  1194.     PrintLn "@X08▓                                                  ▓"
  1195.     PrintLn "@X08▒                                                  ▒"
  1196.     PrintLn "@X08░                                                  ░"
  1197.     AnsiPos 3, 2
  1198.     Print "@X08> [@X0F" + STRING030 + "@X08] "
  1199.     AnsiPos 3, 3
  1200.     Print "@X08> [@X0F" + STRING031 + "@X08] "
  1201.     AnsiPos 3, 4
  1202.     Print "@X08> [@X0F" + STRING032 + "@X08] "
  1203.     AnsiPos 3, 5
  1204.     Print "@X08> [@X0F" + STRING033 + "@X08] "
  1205.     AnsiPos 3, 6
  1206.     Print "@X08> [@X0F" + STRING034 + "@X08] "
  1207.     AnsiPos 3, 7
  1208.     Print "@X08> [@X0F" + STRING035 + "@X08] "
  1209.     AnsiPos 3, 8
  1210.     Print "@X08> [@X0F" + STRING036 + "@X08] "
  1211.     AnsiPos 3, 9
  1212.     Print "@X08> [@X0F" + STRING037 + "@X08] "
  1213.     AnsiPos 3, 10
  1214.     Print "@X08> [@X0F" + STRING038 + "@X08] "
  1215.     AnsiPos 3, 11
  1216.     Print "@X08> [@X0F" + STRING039 + "@X08] "
  1217.     AnsiPos 3, 12
  1218.     Print "@X08> [@X0F" + STRING040 + "@X08] "
  1219.     AnsiPos 3, 13
  1220.     Print "@X08> [@X0F" + STRING041 + "@X08] "
  1221.     AnsiPos 3, 14
  1222.     Print "@X08> [@X0F" + STRING042 + "@X08] "
  1223.     AnsiPos 3, 15
  1224.     Print "@X08> [@X0F" + STRING043 + "@X08] "
  1225.     AnsiPos 3, 16
  1226.     Print "@X08> [@X0F" + STRING044 + "@X08] "
  1227.     AnsiPos 3, 17
  1228.     Print "@X08> [@X0F" + STRING045 + "@X08] "
  1229.     AnsiPos 3, 18
  1230.     Print "@X08> [@X0F" + STRING046 + "@X08] "
  1231.     AnsiPos 3, 19
  1232.     Print "@X08> [@X0F" + STRING047 + "@X08] "
  1233.     AnsiPos 3, 20
  1234.     Print "@X08> [@X0F" + STRING048 + "@X08] "
  1235.     AnsiPos 3, 21
  1236.     Print "@X08> [@X0F" + STRING049 + "@X08] "
  1237.     While (STRING053 == "") Do
  1238.         STRING053 = Inkey()
  1239.     EndWhile
  1240.     STRING053 = ""
  1241.     Return
  1242.     :LABEL054
  1243.     REAL001 = REAL001 + 1
  1244.     FCreate 1, PPEPath() + "PERCENT.DAT", 1, 3
  1245.     FPutLn 1, "", Day(Date())
  1246.     FPutLn 1, "", REAL001
  1247.     FPutLn 1, "", REAL002
  1248.     FClose 1
  1249.     AnsiPos 53, 14
  1250.     Print "@X08                            "
  1251.     AnsiPos 53, 15
  1252.     Print "@X08                            "
  1253.     AnsiPos 53, 16
  1254.     Print "@X08                            "
  1255.     AnsiPos 53, 17
  1256.     Print "@X08                            "
  1257.     AnsiPos 53, 18
  1258.     Print "@X08                            "
  1259.     AnsiPos 53, 19
  1260.     Print "@X08                            "
  1261.     AnsiPos 53, 20
  1262.     Print "@X08                            "
  1263.     AnsiPos 53, 21
  1264.     Print "@X08                            "
  1265.     AnsiPos 57, 17
  1266.     Print "@X08Maybe next time, ok?!"
  1267.     Delay 1
  1268.     AnsiPos 57, 17
  1269.     Print "@X09Maybe next time, ok?!"
  1270.     Delay 1
  1271.     AnsiPos 57, 17
  1272.     Print "@X03Maybe next time, ok?!"
  1273.     Delay 1
  1274.     AnsiPos 57, 17
  1275.     Print "@X07Maybe next time, ok?!"
  1276.     Delay 1
  1277.     AnsiPos 57, 17
  1278.     Print "@X0BMaybe next time, ok?!"
  1279.     Delay 1
  1280.     AnsiPos 57, 17
  1281.     Print "@X0FMaybe next time, ok?!"
  1282.     Delay 1
  1283.     AnsiPos 57, 17
  1284.     Print "@X0BMaybe next time, ok?!"
  1285.     Delay 1
  1286.     AnsiPos 57, 17
  1287.     Print "@X07Maybe next time, ok?!"
  1288.     Delay 1
  1289.     AnsiPos 57, 17
  1290.     Print "@X03Maybe next time, ok?!"
  1291.     Delay 1
  1292.     AnsiPos 57, 17
  1293.     Print "@X09Maybe next time, ok?!"
  1294.     Delay 1
  1295.     AnsiPos 57, 17
  1296.     Print "@X08Maybe next time, ok?!"
  1297.     Delay 1
  1298.     AnsiPos 57, 17
  1299.     Print "@X00Maybe next time, ok?!"
  1300.     Delay 1
  1301.     :LABEL055
  1302.     Print "@CLS@"
  1303.     End
  1304.  
  1305. ;------------------------------------------------------------------------------
  1306. ;
  1307. ; Usage report (before postprocessing)
  1308. ;
  1309. ; ■ Statements used :
  1310. ;
  1311. ;    2       End
  1312. ;    1       Cls
  1313. ;    3       Wait
  1314. ;    115     Goto 
  1315. ;    169     Let 
  1316. ;    187     Print 
  1317. ;    89      PrintLn 
  1318. ;    102     If 
  1319. ;    12      FCreate 
  1320. ;    13      FOpen 
  1321. ;    27      FClose 
  1322. ;    59      FGet 
  1323. ;    160     FPutLn 
  1324. ;    1       InputStr 
  1325. ;    27      Gosub 
  1326. ;    11      Return
  1327. ;    46      Delay 
  1328. ;    3       Newline
  1329. ;    2       Newlines 
  1330. ;    176     AnsiPos 
  1331. ;    2       SaveScrn
  1332. ;    2       RestScrn
  1333. ;    5       Frewind 
  1334. ;    1       Flag 
  1335. ;
  1336. ;
  1337. ; ■ Functions used :
  1338. ;
  1339. ;    1       *
  1340. ;    21      /
  1341. ;    266     +
  1342. ;    32      -
  1343. ;    72      ==
  1344. ;    1       <>
  1345. ;    10      >
  1346. ;    1       >=
  1347. ;    40      !
  1348. ;    31      Len(
  1349. ;    7       Upper()
  1350. ;    43      Chr()
  1351. ;    1       InStr()
  1352. ;    6       Date()
  1353. ;    6       U_Name()
  1354. ;    6       Day()
  1355. ;    3       Inkey()
  1356. ;    43      PPEPath()
  1357. ;    1       CurSec()
  1358. ;    17      Exist()
  1359. ;    1       AnsiOn()
  1360. ;
  1361. ;------------------------------------------------------------------------------
  1362. ;
  1363. ; Analysis flags : f
  1364. ;
  1365. ; f - Flag files for download ■ 3
  1366. ;     This may be normal if a PPE needs to send some files, but since
  1367. ;     this statement allows flagging of any file on the hard disk, you
  1368. ;     have to be carefull. Check!
  1369. ;     ■ Search for : FLAG
  1370. ;
  1371. ;------------------------------------------------------------------------------
  1372. ;
  1373. ; Postprocessing report
  1374. ;
  1375. ;    0       For/Next
  1376. ;    3       While/EndWhile
  1377. ;    21      If/Then or If/Then/Else
  1378. ;    0       Select Case
  1379. ;
  1380. ;------------------------------------------------------------------------------
  1381. ;                 AEGiS Corp - Break the routines, code against the machines!
  1382. ;------------------------------------------------------------------------------
  1383.