home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / AGS_WUI.ZIP / AGS_WUI.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-09  |  11KB  |  690 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.1O (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.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.     String   STRING010
  36.     String   STRING011
  37.     String   STRING012
  38.     String   STRING013
  39.     String   STRING014
  40.     String   STRING015
  41.     String   STRING016
  42.     String   STRING017
  43.     String   STRING018
  44.     String   TSTRING019(8)
  45.     String   TSTRING020(27,5)
  46.     String   TSTRING021(27,5)
  47.     String   STRING022
  48.     String   STRING023
  49.     String   STRING024
  50.     String   STRING025
  51.     String   STRING026
  52.     String   STRING027
  53.  
  54. ;------------------------------------------------------------------------------
  55.  
  56.     GetUser
  57.     TSTRING019(1) = "w"
  58.     TSTRING019(2) = "a"
  59.     TSTRING019(3) = "t"
  60.     TSTRING019(4) = "c"
  61.     TSTRING019(5) = "h"
  62.     TSTRING019(6) = "i"
  63.     TSTRING019(7) = "n"
  64.     TSTRING019(8) = "g"
  65.     TSTRING020(1, 1) = " Password "
  66.     TSTRING020(1, 3) = "CiTy/Group"
  67.     TSTRING020(1, 5) = " Verific. "
  68.     TSTRING020(14, 1) = "Data-Phone"
  69.     TSTRING020(14, 3) = "Home-Phone"
  70.     TSTRING020(14, 5) = "Full Edit."
  71.     TSTRING020(27, 1) = "Scrl Mess."
  72.     TSTRING020(27, 3) = "Long Headr"
  73.     TSTRING020(27, 5) = "Clr Eo Mes"
  74.     TSTRING021(1, 1) = U_Pwd
  75.     TSTRING021(1, 3) = U_City
  76.     TSTRING021(1, 5) = U_Ver
  77.     TSTRING021(14, 1) = U_BDPhone
  78.     TSTRING021(14, 3) = U_HVPhone
  79.     TSTRING021(14, 5) = U_FSE
  80.     TSTRING021(27, 1) = U_Scroll
  81.     TSTRING021(27, 3) = U_LongHDR
  82.     TSTRING021(27, 5) = U_Cls
  83.     STRING008 = "watching"
  84.     INTEGER004 = Len(STRING008)
  85.     INTEGER006 = 1
  86.     INTEGER011 = 1
  87.     INTEGER012 = 1
  88.     FOpen 1, PPEPath() + "ags_wui.cfg", 2, 1
  89.     FGet 1, STRING013
  90.     FGet 1, STRING015
  91.     FGet 1, STRING016
  92.     FGet 1, STRING014
  93.     FGet 1, STRING018
  94.     FGet 1, STRING017
  95.     FGet 1, STRING027
  96.     FGet 1, STRING006
  97.     FClose 1
  98.     DispFile PPEPath() + "ags_wui.pcb", 1
  99.     AnsiPos 22, 3
  100.     DispStr STRING017 + " PASSWORD @X08"
  101.     AnsiPos (80 - Len(Trim(U_Pwd, " "))) / 2, 11
  102.     Print "@X0F" + Upper(U_Pwd)
  103.     :LABEL001
  104.     AnsiPos 65, 6
  105.     Print " @X08watching"
  106.     If (Upper(STRING013) == "NORMAL") Goto LABEL002
  107.     If (Upper(STRING013) == "ANIMATED") Goto LABEL004
  108.     If ((Upper(STRING013) <> "ANIMATED") && (Upper(STRING013) <> "NORMAL")) Goto LABEL003
  109.     :LABEL002
  110.     AnsiPos 66, 6
  111.     DispStr STRING014 + "Watching"
  112.     Goto LABEL004
  113.     :LABEL003
  114.     Cls
  115.     AnsiPos 1, 12
  116.     PrintLn "  @X08                 aEgiS WriTe usEr iNFo"
  117.     PrintLn "@X0CHeY, DuDe...iT Looks like there is an error in the config file..."
  118.     PrintLn "@X0CSo, RepoRt ThiS To YouR SySoP aND asK HiM To TaKe a LooK aT iT..."
  119.     AnsiPos 1, 19
  120.     Wait
  121.     End
  122.     :LABEL004
  123.     If (U_FSE == 0) TSTRING021(14, 5) = "NO "
  124.     If (U_FSE == 1) TSTRING021(14, 5) = "YES"
  125.     If (U_Scroll == 0) TSTRING021(27, 1) = "NO "
  126.     If (U_Scroll == 1) TSTRING021(27, 1) = "YES"
  127.     If (U_LongHDR == 0) TSTRING021(27, 3) = "NO "
  128.     If (U_LongHDR == 1) TSTRING021(27, 3) = "YES"
  129.     If (U_Cls == 0) TSTRING021(27, 5) = "NO "
  130.     If (U_Cls == 1) TSTRING021(27, 5) = "YES"
  131.     :LABEL005
  132.     STRING007 = Inkey()
  133.     If (STRING007 == Chr(27)) Goto LABEL047
  134.     If ((STRING007 == "UP") && (INTEGER012 > 1)) Gosub LABEL007
  135.     If ((STRING007 == "DOWN") && (INTEGER012 < 5)) Gosub LABEL010
  136.     If ((STRING007 == "LEFT") && (INTEGER011 > 1)) Gosub LABEL013
  137.     If ((STRING007 == "RIGHT") && (INTEGER011 < 27)) Gosub LABEL016
  138.     If (STRING007 == Chr(13)) Goto LABEL019
  139.     If (Upper(STRING013) <> "ANIMATED") Goto LABEL005
  140.     :LABEL006
  141.     INTEGER002 = Random(INTEGER004)
  142.     If (INTEGER002 == 0) Goto LABEL006
  143.     AnsiPos 65 + INTEGER002, 6
  144.     DispStr STRING015 + Upper(TSTRING019(INTEGER002))
  145.     Delay 4
  146.     AnsiPos 65 + INTEGER002, 6
  147.     DispStr STRING016 + Lower(TSTRING019(INTEGER002))
  148.     Goto LABEL005
  149.     :LABEL007
  150.     INTEGER012 = INTEGER012 - 2
  151.     If (INTEGER012 < 1) INTEGER012 = 1
  152.     STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
  153.     STRING023 = Trim(TSTRING021(INTEGER011, INTEGER012 + 2), " ")
  154.     TSTRING021(1, 1) = Upper(TSTRING021(1, 1))
  155.     AnsiPos 21 + INTEGER011, 2 + INTEGER012
  156.     DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
  157.     AnsiPos 21 + INTEGER011, 2 + INTEGER012 + 2
  158.     DispStr STRING027 + Lower(TSTRING020(INTEGER011, INTEGER012 + 2))
  159.     AnsiPos (80 - Len(STRING023)) / 2, 11
  160.     DispStr "@X07" + STRING023
  161.     Delay 1
  162.     AnsiPos (80 - Len(STRING023)) / 2, 11
  163.     DispStr "@X08" + STRING023
  164.     Delay 1
  165.     AnsiPos 23, 11
  166.     Print "                                  "
  167.     Delay 1
  168.     If ((INTEGER011 == 1) && (INTEGER012 == 1)) Goto LABEL008
  169.     AnsiPos (80 - Len(STRING022)) / 2, 11
  170.     DispStr "@X08" + STRING022
  171.     Delay 1
  172.     AnsiPos (80 - Len(STRING022)) / 2, 11
  173.     DispStr "@X07" + STRING022
  174.     Delay 1
  175.     AnsiPos (80 - Len(STRING022)) / 2, 11
  176.     DispStr "@X0F" + STRING022
  177.     Goto LABEL009
  178.     :LABEL008
  179.     AnsiPos (80 - Len(STRING022)) / 2, 11
  180.     DispStr "@X08" + Upper(U_Pwd)
  181.     Delay 1
  182.     AnsiPos (80 - Len(STRING022)) / 2, 11
  183.     DispStr "@X07" + Upper(U_Pwd)
  184.     Delay 1
  185.     AnsiPos (80 - Len(STRING022)) / 2, 11
  186.     DispStr "@X0F" + Upper(U_Pwd)
  187.     :LABEL009
  188.     Return
  189.     :LABEL010
  190.     INTEGER012 = INTEGER012 + 2
  191.     If (INTEGER012 > 5) INTEGER012 = 5
  192.     STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
  193.     STRING024 = Trim(TSTRING021(INTEGER011, INTEGER012 - 2), " ")
  194.     AnsiPos 21 + INTEGER011, 2 + INTEGER012
  195.     DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
  196.     AnsiPos 21 + INTEGER011, 2 + INTEGER012 - 2
  197.     DispStr STRING027 + Lower(TSTRING020(INTEGER011, INTEGER012 - 2))
  198.     If ((INTEGER011 == 1) && (INTEGER012 - 2 == 1)) Goto LABEL011
  199.     AnsiPos (80 - Len(STRING024)) / 2, 11
  200.     DispStr "@X07" + STRING024
  201.     Delay 1
  202.     AnsiPos (80 - Len(STRING024)) / 2, 11
  203.     DispStr "@X08" + STRING024
  204.     Goto LABEL012
  205.     :LABEL011
  206.     AnsiPos (80 - Len(STRING024)) / 2, 11
  207.     DispStr "@X07" + Upper(U_Pwd)
  208.     Delay 1
  209.     AnsiPos (80 - Len(STRING024)) / 2, 11
  210.     DispStr "@X08" + Upper(U_Pwd)
  211.     :LABEL012
  212.     Delay 1
  213.     AnsiPos 23, 11
  214.     Print "                                  "
  215.     Delay 1
  216.     AnsiPos (80 - Len(STRING022)) / 2, 11
  217.     DispStr "@X08" + STRING022
  218.     Delay 1
  219.     AnsiPos (80 - Len(STRING022)) / 2, 11
  220.     DispStr "@X07" + STRING022
  221.     Delay 1
  222.     AnsiPos (80 - Len(STRING022)) / 2, 11
  223.     DispStr "@X0F" + STRING022
  224.     Return
  225.     :LABEL013
  226.     INTEGER011 = INTEGER011 - 13
  227.     If (INTEGER011 < 1) INTEGER011 = 1
  228.     STRING025 = Trim(TSTRING021(INTEGER011 + 13, INTEGER012), " ")
  229.     STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
  230.     AnsiPos 21 + INTEGER011, 2 + INTEGER012
  231.     DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
  232.     AnsiPos 21 + INTEGER011 + 13, 2 + INTEGER012
  233.     DispStr STRING027 + Lower(TSTRING020(INTEGER011 + 13, INTEGER012))
  234.     AnsiPos (80 - Len(STRING025)) / 2, 11
  235.     DispStr "@X07" + STRING025
  236.     Delay 1
  237.     AnsiPos (80 - Len(STRING025)) / 2, 11
  238.     DispStr "@X08" + STRING025
  239.     Delay 1
  240.     AnsiPos 23, 11
  241.     Print "                                  "
  242.     If ((INTEGER011 == 1) && (INTEGER012 == 1)) Goto LABEL014
  243.     Delay 1
  244.     AnsiPos (80 - Len(STRING022)) / 2, 11
  245.     DispStr "@X08" + STRING022
  246.     Delay 1
  247.     AnsiPos (80 - Len(STRING022)) / 2, 11
  248.     DispStr "@X07" + STRING022
  249.     Delay 1
  250.     AnsiPos (80 - Len(STRING022)) / 2, 11
  251.     DispStr "@X0F" + STRING022
  252.     Goto LABEL015
  253.     :LABEL014
  254.     Delay 1
  255.     AnsiPos (80 - Len(STRING022)) / 2, 11
  256.     DispStr "@X08" + Upper(U_Pwd)
  257.     Delay 1
  258.     AnsiPos (80 - Len(STRING022)) / 2, 11
  259.     DispStr "@X07" + Upper(U_Pwd)
  260.     Delay 1
  261.     AnsiPos (80 - Len(STRING022)) / 2, 11
  262.     DispStr "@X0F" + Upper(U_Pwd)
  263.     :LABEL015
  264.     Return
  265.     :LABEL016
  266.     INTEGER011 = INTEGER011 + 13
  267.     If (INTEGER011 > 27) INTEGER011 = 27
  268.     STRING026 = Trim(TSTRING021(INTEGER011 - 13, INTEGER012), " ")
  269.     STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
  270.     AnsiPos 21 + INTEGER011, 2 + INTEGER012
  271.     DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
  272.     AnsiPos 21 + INTEGER011 - 13, 2 + INTEGER012
  273.     DispStr STRING027 + Lower(TSTRING020(INTEGER011 - 13, INTEGER012))
  274.     If ((INTEGER011 - 13 == 1) && (INTEGER012 == 1)) Goto LABEL017
  275.     AnsiPos (80 - Len(STRING026)) / 2, 11
  276.     DispStr "@X07" + STRING026
  277.     Delay 1
  278.     AnsiPos (80 - Len(STRING026)) / 2, 11
  279.     DispStr "@X08" + STRING026
  280.     Goto LABEL018
  281.     :LABEL017
  282.     AnsiPos (80 - Len(STRING026)) / 2, 11
  283.     DispStr "@X07" + Upper(U_Pwd)
  284.     Delay 1
  285.     AnsiPos (80 - Len(STRING026)) / 2, 11
  286.     DispStr "@X08" + Upper(U_Pwd)
  287.     :LABEL018
  288.     Delay 1
  289.     AnsiPos 23, 11
  290.     Print "                                  "
  291.     Delay 1
  292.     AnsiPos (80 - Len(STRING022)) / 2, 11
  293.     DispStr "@X08" + STRING022
  294.     Delay 1
  295.     AnsiPos (80 - Len(STRING022)) / 2, 11
  296.     DispStr "@X07" + STRING022
  297.     Delay 1
  298.     AnsiPos (80 - Len(STRING022)) / 2, 11
  299.     DispStr "@X0F" + STRING022
  300.     Return
  301.     :LABEL019
  302.     If (INTEGER011 + INTEGER012 == 2) Goto LABEL020
  303.     If (INTEGER011 + INTEGER012 == 4) Goto LABEL022
  304.     If (INTEGER011 + INTEGER012 == 6) Goto LABEL028
  305.     If (INTEGER011 + INTEGER012 == 15) Goto LABEL027
  306.     If (INTEGER011 + INTEGER012 == 17) Goto LABEL026
  307.     If (INTEGER011 + INTEGER012 == 19) Goto LABEL029
  308.     If (INTEGER011 + INTEGER012 == 28) Goto LABEL035
  309.     If (INTEGER011 + INTEGER012 == 30) Goto LABEL038
  310.     If (INTEGER011 + INTEGER012 == 32) Goto LABEL032
  311.     :LABEL020
  312.     If (Upper(STRING006) == "YES") Gosub LABEL045
  313.     STRING009 = U_Pwd
  314.     Gosub LABEL025
  315.     U_Pwd = STRING009
  316.     TSTRING021(1, 1) = U_Pwd
  317.     If (STRING009 == STRING010) Goto LABEL021
  318.     AnsiPos 23, 11
  319.     Print "                                  "
  320.     AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
  321.     Print "@X08" + Upper(U_Pwd)
  322.     Delay 2
  323.     AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
  324.     Print "@X07" + Upper(U_Pwd)
  325.     Delay 2
  326.     AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
  327.     Print "@X0F" + Upper(U_Pwd)
  328.     :LABEL021
  329.     Gosub LABEL046
  330.     Goto LABEL001
  331.     :LABEL022
  332.     If (Upper(STRING006) == "YES") Gosub LABEL045
  333.     STRING009 = TSTRING021(1, 3)
  334.     Gosub LABEL024
  335.     U_City = STRING009
  336.     TSTRING021(1, 3) = U_City
  337.     If (STRING009 <> STRING010) Gosub LABEL023
  338.     Gosub LABEL046
  339.     Goto LABEL001
  340.     :LABEL023
  341.     AnsiPos 23, 11
  342.     Print "                                  "
  343.     STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
  344.     AnsiPos (80 - Len(STRING022)) / 2, 11
  345.     Print "@X08" + STRING022
  346.     Delay 2
  347.     AnsiPos (80 - Len(STRING022)) / 2, 11
  348.     Print "@X07" + STRING022
  349.     Delay 2
  350.     AnsiPos (80 - Len(STRING022)) / 2, 11
  351.     Print "@X0F" + STRING022
  352.     Return
  353.     :LABEL024
  354.     STRING010 = STRING009
  355.     AnsiPos 65, 6
  356.     Print STRING018 + " eDiTInG @X08"
  357.     AnsiPos 23, 16
  358.     InputText "_", STRING009, 15, 33
  359.     If (STRING009 == "") STRING009 = STRING010
  360.     AnsiPos 23, 16
  361.     Print "                                  "
  362.     Return
  363.     :LABEL025
  364.     STRING010 = STRING009
  365.     AnsiPos 65, 6
  366.     Print STRING018 + " eDiTInG @X08"
  367.     AnsiPos 23, 16
  368.     InputText "_", STRING009, 15, 12
  369.     If (STRING009 == "") STRING009 = STRING010
  370.     AnsiPos 23, 16
  371.     Print "                                  "
  372.     Return
  373.     :LABEL026
  374.     If (Upper(STRING006) == "YES") Gosub LABEL045
  375.     STRING009 = TSTRING021(14, 3)
  376.     Gosub LABEL024
  377.     U_HVPhone = STRING009
  378.     TSTRING021(14, 3) = U_HVPhone
  379.     If (STRING009 <> STRING010) Gosub LABEL023
  380.     Gosub LABEL046
  381.     Goto LABEL001
  382.     :LABEL027
  383.     If (Upper(STRING006) == "YES") Gosub LABEL045
  384.     STRING009 = TSTRING021(14, 1)
  385.     Gosub LABEL024
  386.     U_BDPhone = STRING009
  387.     TSTRING021(14, 1) = U_BDPhone
  388.     If (STRING009 <> STRING010) Gosub LABEL023
  389.     Gosub LABEL046
  390.     Goto LABEL001
  391.     :LABEL028
  392.     If (Upper(STRING006) == "YES") Gosub LABEL045
  393.     STRING009 = TSTRING021(1, 5)
  394.     Gosub LABEL024
  395.     U_Ver = STRING009
  396.     TSTRING021(1, 5) = U_Ver
  397.     If (STRING009 <> STRING010) Gosub LABEL023
  398.     Gosub LABEL046
  399.     Goto LABEL001
  400.     :LABEL029
  401.     If (Upper(STRING006) == "YES") Gosub LABEL045
  402.     AnsiPos 65, 6
  403.     Print STRING018 + " eDiTInG @X08"
  404.     INTEGER005 = U_FSE
  405.     INTEGER007 = INTEGER005
  406.     If (INTEGER005 == 0) Gosub LABEL041
  407.     If (INTEGER005 == 1) Gosub LABEL042
  408.     :LABEL030
  409.     STRING011 = Inkey()
  410.     If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
  411.     If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
  412.     If (STRING011 == Chr(13)) Goto LABEL031
  413.     Goto LABEL030
  414.     :LABEL031
  415.     U_FSE = INTEGER005
  416.     TSTRING021(14, 5) = U_FSE
  417.     If (U_FSE == 0) TSTRING021(14, 5) = "NO "
  418.     If (U_FSE == 1) TSTRING021(14, 5) = "YES"
  419.     AnsiPos 23, 16
  420.     Print "                                   "
  421.     If (INTEGER005 <> INTEGER007) Gosub LABEL023
  422.     Gosub LABEL046
  423.     Goto LABEL001
  424.     :LABEL032
  425.     If (Upper(STRING006) == "YES") Gosub LABEL045
  426.     AnsiPos 65, 6
  427.     Print STRING018 + " eDiTInG @X08"
  428.     INTEGER005 = U_Cls
  429.     INTEGER008 = INTEGER005
  430.     If (INTEGER005 == 0) Gosub LABEL041
  431.     If (INTEGER005 == 1) Gosub LABEL042
  432.     :LABEL033
  433.     STRING011 = Inkey()
  434.     If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
  435.     If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
  436.     If (STRING011 == Chr(13)) Goto LABEL034
  437.     Goto LABEL033
  438.     :LABEL034
  439.     U_Cls = INTEGER005
  440.     TSTRING021(27, 5) = U_Cls
  441.     If (U_Cls == 0) TSTRING021(27, 5) = "NO "
  442.     If (U_Cls == 1) TSTRING021(27, 5) = "YES"
  443.     AnsiPos 23, 16
  444.     Print "                                  "
  445.     If (INTEGER005 <> INTEGER008) Gosub LABEL023
  446.     Gosub LABEL046
  447.     Goto LABEL001
  448.     :LABEL035
  449.     If (Upper(STRING006) == "YES") Gosub LABEL045
  450.     AnsiPos 65, 6
  451.     Print STRING018 + " eDiTInG @X08"
  452.     INTEGER005 = U_Scroll
  453.     INTEGER009 = INTEGER005
  454.     If (INTEGER005 == 0) Gosub LABEL041
  455.     If (INTEGER005 == 1) Gosub LABEL042
  456.     :LABEL036
  457.     STRING011 = Inkey()
  458.     If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
  459.     If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
  460.     If (STRING011 == Chr(13)) Goto LABEL037
  461.     Goto LABEL036
  462.     :LABEL037
  463.     U_Scroll = INTEGER005
  464.     TSTRING021(27, 1) = U_Scroll
  465.     If (U_Scroll == 0) TSTRING021(27, 1) = "NO "
  466.     If (U_Scroll == 1) TSTRING021(27, 1) = "YES"
  467.     AnsiPos 23, 16
  468.     Print "                                  "
  469.     If (INTEGER005 <> INTEGER009) Gosub LABEL023
  470.     Gosub LABEL046
  471.     Goto LABEL001
  472.     :LABEL038
  473.     If (Upper(STRING006) == "YES") Gosub LABEL045
  474.     AnsiPos 65, 6
  475.     Print STRING018 + " eDiTInG @X08"
  476.     INTEGER005 = U_LongHDR
  477.     INTEGER010 = INTEGER005
  478.     If (INTEGER005 == 0) Gosub LABEL041
  479.     If (INTEGER005 == 1) Gosub LABEL042
  480.     :LABEL039
  481.     STRING011 = Inkey()
  482.     If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
  483.     If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
  484.     If (STRING011 == Chr(13)) Goto LABEL040
  485.     Goto LABEL039
  486.     :LABEL040
  487.     U_LongHDR = INTEGER005
  488.     TSTRING021(27, 3) = U_LongHDR
  489.     If (U_LongHDR == 0) TSTRING021(27, 3) = "NO "
  490.     If (U_LongHDR == 1) TSTRING021(27, 3) = "YES"
  491.     AnsiPos 23, 16
  492.     Print "                                  "
  493.     If (INTEGER005 <> INTEGER010) Gosub LABEL023
  494.     Gosub LABEL046
  495.     Goto LABEL001
  496.     :LABEL041
  497.     AnsiPos 36, 16
  498.     Print "@X08yes " + STRING017 + "NO@X08"
  499.     Return
  500.     :LABEL042
  501.     AnsiPos 36, 16
  502.     Print STRING017 + "YES@X08 no@X08"
  503.     Return
  504.     :LABEL043
  505.     INTEGER005 = 1
  506.     AnsiPos 36, 16
  507.     Print STRING017 + "YES@X08 no@X08"
  508.     Return
  509.     :LABEL044
  510.     INTEGER005 = 0
  511.     AnsiPos 36, 16
  512.     Print "@X08yes " + STRING017 + "NO@X08"
  513.     Return
  514.     :LABEL045
  515.     AnsiPos 69, 8
  516.     Print "@X0F│"
  517.     AnsiPos 69, 9
  518.     Print "@X0F│"
  519.     AnsiPos 69, 10
  520.     Print "@X0F│"
  521.     AnsiPos 69, 11
  522.     Print "@X0F│"
  523.     Delay 2
  524.     AnsiPos 69, 8
  525.     Print "@X08│"
  526.     AnsiPos 69, 9
  527.     Print "@X08│"
  528.     AnsiPos 69, 10
  529.     Print "@X08│"
  530.     AnsiPos 69, 11
  531.     Print "@X08│"
  532.     AnsiPos 69, 12
  533.     Print "@X0F│"
  534.     AnsiPos 69, 13
  535.     Print "@X0F│"
  536.     AnsiPos 69, 14
  537.     Print "@X0F│"
  538.     AnsiPos 69, 15
  539.     Print "@X0F│"
  540.     AnsiPos 69, 16
  541.     Print "@X0F┘"
  542.     Delay 2
  543.     AnsiPos 69, 12
  544.     Print "@X08│"
  545.     AnsiPos 69, 13
  546.     Print "@X08│"
  547.     AnsiPos 69, 14
  548.     Print "@X08│"
  549.     AnsiPos 69, 15
  550.     Print "@X08│"
  551.     AnsiPos 69, 16
  552.     Print "@X08┘"
  553.     AnsiPos 64, 16
  554.     Print "@X0F─────"
  555.     Delay 2
  556.     AnsiPos 64, 16
  557.     Print "@X08─────"
  558.     AnsiPos 59, 16
  559.     Print "@X0F─────"
  560.     Delay 2
  561.     AnsiPos 59, 16
  562.     Print "@X08─────"
  563.     Return
  564.     :LABEL046
  565.     For INTEGER003 = 1 To 9
  566.         AnsiPos 69, 7 + INTEGER003
  567.         Print " "
  568.     Next
  569.     For INTEGER003 = 1 To 11
  570.         AnsiPos 58 + INTEGER003, 16
  571.         Print " "
  572.     Next
  573.     Return
  574.     :LABEL047
  575.     Cls
  576.     PutUser
  577.     STRING012 = "CoDe By HoLLoWMaN"
  578.     INTEGER001 = (80 - Len(STRING012)) / 2
  579.     AnsiPos INTEGER001, 12
  580.     Print "@X08" + STRING012
  581.     Delay 2
  582.     AnsiPos INTEGER001, 12
  583.     Print "@X07" + STRING012
  584.     Delay 2
  585.     AnsiPos INTEGER001, 12
  586.     Print "@X0F" + STRING012
  587.     Delay 2
  588.     AnsiPos INTEGER001, 12
  589.     Print "@X07" + STRING012
  590.     Delay 2
  591.     AnsiPos INTEGER001, 12
  592.     Print "@X08" + STRING012
  593.     Cls
  594.     STRING012 = "aeGiS CoRp'96"
  595.     INTEGER001 = (80 - Len(STRING012)) / 2
  596.     AnsiPos INTEGER001, 12
  597.     Print "@X08" + STRING012
  598.     Delay 2
  599.     AnsiPos INTEGER001, 12
  600.     Print "@X07" + STRING012
  601.     Delay 2
  602.     AnsiPos INTEGER001, 12
  603.     Print "@X0F" + STRING012
  604.     Delay 2
  605.     AnsiPos INTEGER001, 12
  606.     Print "@X07" + STRING012
  607.     Delay 2
  608.     AnsiPos INTEGER001, 12
  609.     Print "@X08" + STRING012
  610.     Cls
  611.     End
  612.  
  613. ;------------------------------------------------------------------------------
  614. ;
  615. ; Usage report (before postprocessing)
  616. ;
  617. ; ■ Statements used :
  618. ;
  619. ;    2       End
  620. ;    4       Cls
  621. ;    1       Wait
  622. ;    48      Goto 
  623. ;    116     Let 
  624. ;    64      Print 
  625. ;    3       PrintLn 
  626. ;    86      If 
  627. ;    1       DispFile 
  628. ;    1       FOpen 
  629. ;    1       FClose 
  630. ;    8       FGet 
  631. ;    1       GetUser
  632. ;    1       PutUser
  633. ;    51      Gosub 
  634. ;    13      Return
  635. ;    44      Delay 
  636. ;    2       InputText 
  637. ;    42      DispStr 
  638. ;    110     AnsiPos 
  639. ;
  640. ;
  641. ; ■ Functions used :
  642. ;
  643. ;    39      /
  644. ;    112     +
  645. ;    49      -
  646. ;    74      ==
  647. ;    11      <>
  648. ;    10      <
  649. ;    2       <=
  650. ;    8       >
  651. ;    4       >=
  652. ;    2       !
  653. ;    21      &&
  654. ;    2       ||
  655. ;    40      Len(
  656. ;    5       Lower()
  657. ;    34      Upper()
  658. ;    6       Chr()
  659. ;    13      Trim()
  660. ;    1       Random()
  661. ;    5       Inkey()
  662. ;    2       PPEPath()
  663. ;
  664. ;------------------------------------------------------------------------------
  665. ;
  666. ; Analysis flags : WH
  667. ;
  668. ; W - Write user ■ 5
  669. ;     Program writes a user record. Although this may be normal for a
  670. ;     User Editor, it may also be a way to modify an account level.
  671. ;     ■ Search for : PUTUSER
  672. ;
  673. ; H - Read Password or Password History ■ 5
  674. ;     Program is reading the user's password or last password history
  675. ;     This may be ok for a password manager, but it is very suspect. Check!
  676. ;     ■ Search for : U_PWDHIST, U_PWD
  677. ;
  678. ;------------------------------------------------------------------------------
  679. ;
  680. ; Postprocessing report
  681. ;
  682. ;    2       For/Next
  683. ;    0       While/EndWhile
  684. ;    0       If/Then or If/Then/Else
  685. ;    0       Select Case
  686. ;
  687. ;------------------------------------------------------------------------------
  688. ;                 AEGiS Corp - Break the routines, code against the machines!
  689. ;------------------------------------------------------------------------------
  690.