Power-Programmierung/CD1.mdf/basic/library/asic/manage/managr40.asi

Text File | 1993-05-01 | 41.7 KB | 2,354 lines

rem MANAGR40.COM

rem This program requires approximately 130K.

rem consecutive to wait9:

rem initialize Esc key.  This is necessary because some parameters go directly
rem to a routine; if it wasn't initialized here, it would have to be re-
rem initialized in every routine in which it was used.  CHR$(27) is the ASCII
rem code for the Esc key.

b$=chr$(27)

rem initialize Enter (Return) key.  Same reason as the Esc key initialization,
rem but applies mainly to the error routines.  CHR$(13) is the ASCII code for
rem the Enter (Return) key.

c$=chr$(13)

rem Again, for the error routines, initialize the Backspace key and space bar.

d$=chr$(8)
e$=chr$(32)
lf$=chr$(10)
crlf$=c$+lf$
rem a=csrline (this is reserved in the subroutine CURSOR:)
rem b=pos(0) (also reserved in CURSOR: subroutine)
rem c=b-1 (reserved in CURSOR: subroutine)

a$=command$
if a$="/40" then menu40:
if a$="/40 ?" then help40:

if a$="/40 d" then
call "util1-40.com","/d"
goto menu40:
endif

if a$="/40 D" then
call "util1-40.com","/d"
goto menu40:
endif

if a$="/40 m" then makedr40:
if a$="/40 M" then makedr40:
if a$="/40 n" then renfil40:
if a$="/40 N" then renfil40:
if a$="/40 g" then timedt40:
if a$="/40 G" then timedt40:

if a$="/40 b" then
gosub blankscr:
goto menu40:
endif

if a$="/40 B" then
gosub blankscr:
goto menu40:
endif


if a$=" /40 s" then
call ("util1-80.com"," /s 40")
goto menu40:
endif

if a$=" /40 S" then
call ("util1-80.com"," /s 40")
goto menu40:
endif

if a$="/40 l" then prfile40:
if a$="/40 L" then prfile40:
if a$="/40 e" then removedr:
if a$="/40 r" then runoth40:
if a$="/40 R" then runoth40:
if a$="/40 co" then changeco:
if a$="/40 o" then movefile:

rem If no parameters, begin from the beginning.

rem Set up and print intro screen.
width 40
print "          The Manager 2.68"
print
print
print "            Matt Roberts"
print "           5 Cedar St., # 8"
print "      Montpelier, Vt 05602-3006"
print "            [phone]"
print
print
print
print
print
print "Press any key to continue. ";
gosub continue:


rem Here is the routine for generating 40-column width for visually impaired
rem people.
rem In order to make certain the screen writes are readable, the entire program
rem is essentially rewritten in this module.

menu40:
width 40
print "Your Options:"
print
print
print "F1- View Your Files."
print
print "F2- Delete Files."
print
print "F3- Make a directory."
print
print "F4- Rename Files."
print
print "F5- Get the Time/Date."
print
print "F6- Shell to DOS."
print
print "F7- Blank Your Screen."
print
print "F8- Next menu."
print
print "Esc- Quit."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait12:
gosub continue:

if a$=b$ then
cls
end
endif

if extended=0 then wait12:

if a$=";" then
call ("util1-80.com"," /s 40")
goto menu40:
endif

if a$="<" then
call "util1-40.com","/d"
goto menu40:
endif

if a$="=" then makedr40:
if a$=">" then renfil40:
if a$="?" then timedt40:
if a$="@" then shell40:

if a$="A" then
gosub blankscr:
endif

if a$="B" then 2dmenu40:
goto wait12:

2dmenu40:
width 40
print "Here are more options:"
print
print
print "F1- Change to 80-column mode."
print
print "F2- Print file."
print
print "F3- See a list of parameters you can"
print "use from DOS."
print
print "F4- Work with CONFIG.SYS."
print
print "F5- Work with AUTOEXEC.BAT."
print
print "N- Next Menu."
print
print "P- Previous Menu."
print
print "Esc- Quit."
print
print "Please press the key corresponding to"
print "your choice. ";

wait58:
gosub continue:
if a$="n" then 3rdmenu:
if a$="N" then 3rdmenu:
if a$="p" then menu40:
if a$="P" then menu40:

if a$=b$ then
cls
end
endif

if extended=0 then wait58:

if a$=";" then
width 80
end
endif

if a$="<" then prfile40:
if a$="=" then help40:
if a$=">" then changeco:
if a$="?" then chngauto:
goto wait58:

3rdmenu:
width 40
print "Here are more options:"
print
print
print "F1- Run Other Programs."
print
print "F2- Remove a Directory."
print
print "F3- Copy a File."
print
print "F4- Move a File."
print
print "F5- Use the Crappy Calculator."
print
print "F6- See a list of ASCII Codes."
print
print "N- Next Menu."
print
print "P- Previous Menu."
print
print "Esc- Quit and Return to DOS."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait:
gosub continue:

if a$=b$ then
cls
end
endif

if a$="n" then 4thmenu:
if a$="N" then 4thmenu:
if a$="p" then 2dmenu40:
if a$="P" then 2dmenu40:

if extended=0 then wait:

if a$=";" then runoth40:
if a$="<" then removedr:
if a$="=" then copyfile:
if a$=">" then movefile:

if a$="?" then
call "util1-40.com"," /cr"
goto 3rdmenu:
endif

if a$="@" then
call "util1-40.com"," /a"
goto 3rdmenu:
endif

goto wait:

4thmenu:
cls
print "More options:"
print
print
print "F1- Change Your Default Directory."
print
print "F2- Install a DOS Parameter."
print
print "P- Previous menu."
print
print "Esc- Quit and return to DOS."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait9:
gosub continue:

if a$=b$ then
end
endif

if a$="p" then 3rdmenu:
if a$="P" then 3rdmenu:

if extended=0 then wait9:

if a$=";" then
call "util1-40.com"," /c"
goto 4thmenu:
endif

if a$="<" then
call "util1-40.com"," /i"
goto 4thmenu:
endif

goto wait9:


rem Here is the routine for making a directory in 40-column mode.

makedr40:
width 40
print "Make a Directory"
print
print
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Directory name (include drive and"
print "path)? ";
gosub retypf40:
directory$=file$
realdir$=ucase$(directory$)

remake40:
mkdir directory$
if error=3 then nopthm40:
if error=5 then ilglmd40:
print ""
print ""
print "You have created directory: "
print
print realdir$
directory$=""
print
print
print "Would you like to make another"
print "directory? (y/n) ";

wait16:
gosub continue:
if a$="y" then makedr40:
if a$="Y" then makedr40:
if a$="n" then menu40:
if a$="N" then menu40:
goto wait16:

rem This is the end of the routine for making directories in 40-column mode.



rem Here is the routine for renaming files in 40-column mode.

renfil40:
width 40
print "Rename Files."
print
print
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Name of file to change (include drive"
print "and path)? ";
gosub retypf40:
file1$=file$
realfil1$=ucase$(file1$)

print ""
print ""
print "New name for ";
print file1$;
print "? "
print
file$=""
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)

refile40:
name file1$ as file2$
if error=2 then noflrf40:
if error=3 then nopthr40:
if error=5 then ilglrf40:
if error=17 then difdrr40:
print ""
print ""
print realfil1$;
print " has been renamed"
print realfil2$
file1$=""
file2$=""
print
print "Rename another? (y/n) ";

wait17:
gosub continue:
if a$="y" then renfil40:
if a$="Y" then renfil40:
if a$="n" then menu40:
if a$="N" then menu40:
goto wait17:

rem This is the end of the routine for renaming files in 40-column mode.



rem Here is the routine for getting the time/date in 40-column mode.

timedt40:

width 40
print "Here are your options:"
print
print
print "F1- Get the time."
print
print "F2- Get the date."
print
print "F3- Get both."
print
print "Esc- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait44:
gosub continue:
if a$=b$ then menu40:
if extended=0 then wait44:

if a$=";" then gettim40:
if a$="<" then getdat40:
if a$="=" then getbth40:
goto wait44:

gettim40:
width 40
print "Get the Time"
print
print
print "In order to get the correct date, the"
print "computer's internal clock must be set"
print "correctly."
print
print

a$=time$
f$=mid$(a$,1,2)
d=val(f$)

if d>12 then
d=d-12
h$=" PM"
else
h$=" AM"
endif

if d=12 then
h$=" PM"
endif

e=d
g$=str$(e)
i$=mid$(a$,3,6)
j$=g$+i$
k$=ltrim$(j$)
print "The time is now: ";
print k$;
print h$
print
print
print "Press any key to continue. ";
gosub continue:
goto timedt40:

getdat40:

width 40
print "Get the Date"
print
print
print "In order for this feature to work"
print "properly, the date in your computer"
print "must be set properly.  If it isn't,"
print "you may get a weird date."
print
print
print
print
print
a$=date$
print "Today's date is ";
print a$
print
print
print "Press any key to continue. ";
gosub continue:
goto timedt40:

getbth40:
width 40
print "Get Both"
print
print
print "In order to get the correct time and"
print "date, the clock and calendar have to"
print "be set properly."
print
print
a$=time$
f$=mid$(a$,1,2)
d=val(f$)

if d>12 then
d=d-12
h$=" PM"
else
h$=" AM"
endif

if d=12 then
h$=" PM"
endif

e=d
g$=str$(e)
i$=mid$(a$,3,6)
j$=g$+i$
k$=ltrim$(j$)
print "The time is now: ";
print k$;
print h$
print
print

a$=date$
print "Today's date is: ";
print a$
print
print
print "Press any key to continue. ";
gosub continue:
goto timedt40:

rem This is the end of the routine for getting the time and/or date (40-
rem columns).



rem Here is the routine for shelling to DOS in 40-column mode.

shell40:
width 40
print "Shell to DOS"
print
print
print "On which drive is your COMMAND.COM?"
print "(Don't type the colon) ";

gosub continue:
path$=a$+":\command.com"
width 40
print "Use the DOS command EXIT to return to"
print "The Manager."
call path$,""
if error=255 then nocall40:
goto menu40:

rem This is the end of the routine for shelling to DOS in 40-column mode.


rem Here are the help screens for 40-column mode.

help40:
width 40
print "You can use parameters with The"
print "Manager; they may save you time."
print
print
print "Typing MANAGER /40 will put you in"
print "40-column mode."
print
print "Typing MANAGER /40 ? will give you"
print "these help screens."
print
print "Typing MANAGER /40 D will let you"
print "delete files."
print
print "Typing MANAGER /40 M will let you"
print "make a directory."
print
print "Typing MANAGER /40 N will let you"
print "rename files."
print
print
print "Press any key to continue. ";
gosub continue:
width 40
print "Typing MANAGER /40 G will let you see"
print "the time and/or date."
print
print "Typing MANAGER /40 B will let you"
print "blank your screen."
print
print "Typing MANAGER /40 S will let you"
print "a list of disk files."
print
print "Typing MANAGER /40 L will let you"
print "print a file on the lineprinter."
print
print "Typing MANAGER /40 r will let you"
print "run other programs."
print
print
print "Either upper or lower case is fine."
print
print
print "Do you want to ";
color 0,15
print "C";
color 7,0
print "ontinue with the File"
print "Manager or return to ";
color 0,15
print "D";
color 7,0
print "OS?"
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait43:
gosub continue:
if a$="c" then menu40:
if a$="C" then menu40:

if a$="d" then
cls
end
endif

if a$="D" then
cls
end
endif

goto wait43:


rem Here is the routine for printing a file in 40-column mode.

prfile40:

width 40
print "Print a File"
print
print
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Please type the name of the file you"
print "want to print."
print
print "Include the drive and path."
print
gosub retypf40:
realfile$=ucase$(file$)

doprfl40:
f$=chr$(12)
open "i",1,file$

if error=2 then nofilp40:
if error=3 then nopthp40:

headng40:
width 40
print "Printing...";
realfile$=ucase$(file$)
color 0,7
print realfile$
color 7,0
print
print
print "Press space bar to pause printing, or"
print "Esc to quit."
print
print

prnmor40:
input# 1, line$ crlf

if error=96 then
lprint line$
goto blnkln40:
endif

contln40:
lprint line$

a$=inkey$

if a$=b$ then
print "Printing has been terminated.  The"
print "printer may still have data in its"
print "buffer.  If so, it will continue"
print "printing until the buffer is empty."
print
lprint f$
close 1
file$=""
print
print
print "Print another file? ";
goto wait14:
endif

if a$=e$ then
print "Press any key to resume printing. ";
gosub continue:
a$=""
goto headng40:
endif

if error=99 then eofp40:
goto prnmor40:

blnkln40:
input# 1, line$ crlf
if line$="" then prnmor40: else contln40:

eofp40:
lprint line$
print "Finished."
close 1
lprint f$
file$=""
print
print
print "Print another file? (y/n) ";

wait14:
gosub continue:
if a$="y" then prfile40:
if a$="Y" then prfile40:
if a$="n" then 2dmenu40:
if a$="N" then 2dmenu40:
goto wait14:

rem This is the end of the routine for printing a file in 40-column mode.


rem Here is the routine for running other progams from 40-column mode.

runoth40:
width 40
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "Please type the full name of the"
print "program you want to run (for example,"
print "MYPROGRM.COM).  Include the drive and"
print "path."
gosub retypf40:
program$=file$
file$=""
print ""
print "You can specify an argument to your"
print "program, but it must be one phrase (no"
print "spaces).  Do you want to specify an"
print "argument (y/n) ";

wait24:
gosub continue:
if a$="y" then getarg40:
if a$="Y" then getarg40:

if a$="n" then
argument$=""
goto dorun40:
endif

if a$="N" then
argument$=""
goto dorun40:
endif

goto wait24:

getarg40:
width 40
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "Please type the argument you'd like to"
print "use.  It can only be one phrase and"
print "cannot contain any spaces. ";
file$=""
gosub retypf40:
argument$=file$
file$=""

dorun40:
argument$=e$+argument$
call program$,argument$
if error=255 then cantrn40:
print
print
print "Press any key to return to The"
print "Manager. ";
gosub continue:
program$=""
argument$=""
width 40
print "Would you like to run another"
print "program (y/n)? ";

wait27:
gosub continue:
if a$="y" then runoth40:
if a$="Y" then runoth40:
if a$="n" then 2dmenu40:
if a$="N" then 2dmenu40:
goto wait27:

rem This is the end of the routine for running other programs in 40-column mod


rem Here is the routine for removing directories in 40-column mode.

removedr:
width 40
print "Remove Directories"
print
print
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "Before you can remove a directory, you"
print "must remove all files in that dir-"
print "ectory, and in its subdirectories."
print "You must then remove all subdirector-"
print "ies."
print
print

removagn:
print "Please type the name of the directory"
print "you'd like to remove.  Include the"
print "drive and path. ";
gosub retypf40:
directory$=file$

reremove:
rmdir directory$
if error=3 then nopathrm:
if error=5 then accessde:
if error=6 then cantrmdi:
if error=16 then cantrmdi:
realfile$=ucase$(directory$)
print ""
print ""
print realfile$;
print "has been removed."
print ""
print ""
print "Would you like to remove another dir-"
print "ectory? ";

wait40:
gosub continue:
if a$="y" then removagn:
if a$="Y" then removagn:
if a$="n" then 2dmenu40:
if a$="N" then 2dmenu40:
goto wait40:

rem This is the end of the routine for removing directories.


rem Here is the routine for copying text files.

copyfile:
width 40
print "Copy File"
print
print
print "*****PLEASE NOTE***** Only text files"
print "will copy properly using this method."
print "Files with an extension of .EXE, .COM,"
print "or which contain other special char-"
print "acters will usually not copy properly."
print
print "Press any key to continue. ";
gosub continue:

copymore:
cls
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "File to copy (include drive and"
print "path)? ";
gosub retypf40:
file1$=file$
file$=""
realfil1$=ucase$(file1$)

print ""
print "Destination (include drive and"
print "path)? ";
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)
reinput:
open "i",1,file1$
rem if error=2 then nofilecf:

rem if error=3 then
rem labelnum=1
rem goto nopathcf:
rem endif

open "o",2,file2$
reoutput:

rem if error=3 then
rem labelnum=2
rem goto nopathcf:
rem endif

wait1:
input # 1, line$ crlf
if error=99 then copydone:

if error=96 then
print # 2, line$ nonull
input # 1, line$ crlf
if line$="" then
print # 2, crlf$ nonull
goto wait1:
endif
endif

print # 2, line$ nonull
print # 2, crlf$ nonull
goto wait1:

copydone:
close 1
close 2
print ""
print ""
print realfil1$;
print " has been copied to ";
print realfil2$;
print "."
print
print "Copy another? ";

wait2:
gosub continue:
if a$="y" then copymore:
if a$="Y" then copymore:
if a$="n" then 3rdmenu:
if a$="N" then 3rdmenu:
goto wait2:

rem This is the end of the routine for copying a text file.


rem Here is the routine for moving a file.

movefile:
width 40
print "Move File"
print
print
print "*****PLEASE NOTE***** Only text files"
print "will move properly using this method."
print "Files with an extension of .EXE, .COM,"
print "or which contain other special charac-"
print "ters will usually not move properly."
print "In addition, this option is destruct-"
print "ive, destroying the original file."
print "You are urged to make backups before"
print "attempting any procedure which can"
print "change a file."
print
print
print "Press Esc to quit, or any other key to"
print "continue. ";
gosub continue:
if a$=b$ then 3rdmenu:

movemore:
cls
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=quit"
color 7,0
print
print "File to move (include drive and path)?"
gosub retypf40:
file1$=file$
realfil1$=ucase$(file1$)
file$=""

print ""
print "Destination (include drive and path)?"
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)
file$=""

reinputm:
open "i",1,file1$
if error=2 then nofilemf:

if error=3 then
io=1
goto nopathmf:
endif

reoutpum:
open "o",2,file2$

if error=3 then
io=1
goto nopathmf:
endif

if error=5 then noopenmf:

wait3:
input # 1, line$ crlf
if error=99 then movedone:

if error=96 then
print # 2, line$ nonull
input # 1, line$ crlf
if line$="" then
print # 2, crlf$ nonull
goto wait3:
endif
endif

print # 2, line$ nonull
print # 2, crlf$ nonull
goto wait3:

movedone:
close 1
close 2
kill file1$
print ""
print ""
print realfil1$;
print " has been moved to ";
print realfil2$;
print "."
print
print "Move another? ";

wait4:
gosub continue:
if a$="y" then movemore:
if a$="Y" then movemore:
if a$="n" then 3rdmenu:
if a$="N" then 3rdmenu:
goto wait4:

rem This is the end of the routine for moving a file.


rem HERE IS THE ROUTINE FOR WORKING WITH THE CONFIG.SYS FILE.

changeco:
width 40
print "View or Change Your CONFIG.SYS File"
print
print
print "On which drive is your CONFIG.SYS"
print "file";
input drive$

redrive:
drive$=drive$+"\"

if drive$="a:\" then
file1$="a:\config.sys"
endif

if drive$="A:\" then
file1$="a:\config.sys"
endif

if drive$="b:\" then
file1$="b:\config.sys"
endif

if drive$="B:\" then
file1$="b:\config.sys"
endif

if drive$="c:\" then
file1$="c:\config.sys"
endif

if drive$="C:\" then
file1$="c:\config.sys"
endif

if drive$="d:\" then
file1$="d:\config.sys"
endif

if drive$="D:\" then
file1$="d:\config.sys"
endif

if drive$="e:\" then
file1$="e:\config.sys"
endif

if drive$="a:\" then
file2$="a:\config.bak"
endif

if drive$="A:\" then
file2$="a:\config.bak"
endif

if drive$="b:\" then
file2$="b:\config.bak"
endif

if drive$="B:\" then
file2$="b:\config.bak"
endif

if drive$="c:\" then
file2$="c:\config.bak"
endif

if drive$="C:\" then
file2$="c:\config.bak"
endif

if drive$="d:\" then
file2$="d:\config.bak"
endif

if drive$="D:\" then
file2$="d:\config.bak"
endif

if drive$="e:\" then
file2$="e:\config.bak"
endif

if drive$="E:\" then
file2$="e:\config.bak"
endif

confmenu:
width 40
print "You have the following options:"
print
print
print "1- Just view the CONFIG.SYS file."
print
print "2- Add lines to the end of your file."
print
print "3- Create a new CONFIG.SYS file."
print
print "4- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait6:
gosub continue:

if a$="1" then
gosub seesys:
goto confmenu:
endif

if a$="2" then
cls
gosub appendln:
gosub seesys:
goto confmenu:
endif

if a$="3" then
cls
goto newfilec:
endif

if a$="4" then 3rdmenu:
goto wait6:

rem THIS SECTION CREATES A NEW CONFIG.SYS FILE.

newfilec:
width 40
name file1$ as file2$
kill file1$
print ""
print ""
print "Your CONFIG.SYS file has been changed"
print "to CONFIG.BAK in order to save it for"
print "future use.  To use it later, your new"
print "CONFIG.SYS will be have to be renamed"
print "to something else (for example,"
print "CONFIG.X), and your .BAK file renamed"
print "CONFIG.SYS."
print
print
print "Press any key to continue. ";
gosub continue:

changeagn:
cls
open "o",1,file1$
print "How many files do you want?  To quit,"
print "press Q and Enter."
print
input filenumb$
if filenumb$="q" then restorec:
if filenumb$="Q" then restorec:
line1$="files="+filenumb$
print # 1, line1$ nonull
print # 1, crlf$ nonull
print ""
print ""
print "How many buffers do you want";
input buffer$
buffline$="buffers="+buffer$
print # 1, buffline$ nonull
print # 1, crlf$ nonull
gosub listsys:

devcagain:
print ""
print "Which device would you like to incude"
print "(N for none)";
input device$
if device$="n" then nodevice:
if device$="N" then nodevice:
deviceln$="devices="+device$
print # 1, deviceln$ nonull
print # 1, crlf$ nonull
print ""
print "Would you like to include more"
print "devices";
input incldmore$
if incldmore$="y" then devcagain:
if incldmore$="Y" then devcagain:

nodevice:
print
print "Do you want Break on or off (if not"
print "sure, type OFF)";
input breakyn$
breaklin$="break=on"
if breakyn$="on" then
print # 1, breaklin$ nonull
print # 1, crlf$ nonull
endif

if breakyn$="ON" then
print # 1, breaklin$ nonull
print # 1, crlf$ nonull
endif

if breakyn$="oN" then
print # 1, breaklin$ nonull
print # 1, crlf$ nonull
endif

if breakyn$="On" then
print # 1, breaklin$ nonull
print # 1, crlf$ nonull
endif

close 1
gosub seesys:
print
print "If this is not O.K. AND you want to go"
print "back and change the file, press C and"
print "then press Enter."
print
print "To restore your original CONFIG.SYS,"
print "press R and Enter."
print
print "If you're happy with it as is, type OK"
print "and Enter."
print
input change$

okdecide:
if change$="c" then changeagn:
if change$="C" then changeagn:
if change$="r" then restorec:
if change$="R" then restorec:
if change$="ok" then confmenu:
if change$="OK" then confmenu:
if change$="oK" then confmenu:
if change$="Ok" then confmenu:
print
print "You must choose between C, R, or OK."
print
input change$
goto okdecide:

restorec:
cls
close 1
close 2
kill file1$
name file2$ as file1$
kill file2$
print "Your original CONFIG.SYS file has been"
print "restored."
print
print
print "Press any key to continue. ";
gosub continue:
goto confmenu:


rem HERE IS THE ROUTINE FOR LOOKING AT THE CONFIG.SYS FILE.

seesys:
close 1
close 2
print "Here is your file:"
print
print
open "i",1,file1$

nextlnco:
input # 1, line$ crlf
print line$

if error=99 then
close 1
print
print
print "Press any key to continue. ";
gosub continue:
return
endif

goto nextlnco:

rem THIS IS THE END OF THE ROUTINE FOR LOOKING AT THE CONFIG.SYS FILE.


rem HERE IS THE ROUTINE FOR ADDING LINES TO THE END OF CONFIG.SYS.

appendln:
close 1
close 2
open "a",1,file1$

appendagn:
print ""
print "Line to add (Q to quit)";
input appendln$

if appendln$="q" then
close 1
return
endif

if appendln$="Q" then
close 1
return
endif

print # 1, appendln$ nonull
print # 1, crlf$ nonull
goto appendagn:

rem THIS IS THE END OF THE ROUTINE FOR ADDING LINES TO CONFIG.SYS.


rem HERE IS THE ROUTINE FOR LISTING THE DEVICES FOR CONFIG.SYS.

listsys:
print
print "Do you want a list of the system"
print "devices available (y/n)? ";

wait7:
gosub continue:
if a$="y" then dolist:
if a$="Y" then dolist:

if a$="n" then
return
endif

if a$="N" then
return
endif

dolist:
cls
print "(Don't count CONFIG.SYS as a system"
print "device)"
print
print
files$="*.sys"
attrib=0
filename$=find first(files$,attrib)
if error>0 then done:
print filename$

while error>0
filename$=find continue
print filename$
file=file+1

if file=20 then
print ""
print ""
print "Press any key to continue. ";
gosub continue:
file=0
print
print
endif

wend

done:
print ""
print ""
print "Press any key to continue. ";
gosub continue:
file=0
file$=""
filename$=""
print ""
print ""
return

rem THIS IS THE END OF THE ROUTINE FOR LISTING THE DEVICES FOR CONFIG.SYS.

rem THIS IS THE END OF THE ROUTINE FOR WORKING WITH CONFIG.SYS.


rem HERE IS THE ROUTINE FOR WORKING WITH AUTOEXEC.BAT.

chngauto:
width 40
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "View or Change your AUTOEXEC.BAT File"
print
print
print "On which drive is your AUTOEXEC.BAT"
print "file? ";
gosub retypf40:

redrivea:
drive$=file$
file$=""
drive$=drive$+"\"

if drive$="a:\" then
file1$="a:\autoexec.bat"
endif

if drive$="A:\" then
file1$="a:\autoexec.bat"
endif

if drive$="b:\" then
file1$="b:\autoexec.bat"
endif

if drive$="B:\" then
file1$="b:\autoexec.bat"
endif

if drive$="c:\" then
file1$="c:\autoexec.bat"
endif

if drive$="C:\" then
file1$="c:\autoexec.bat"
endif

if drive$="d:\" then
file1$="d:\autoexec.bat"
endif

if drive$="D:\" then
file1$="d:\autoexec.bat"
endif

if drive$="e:\" then
file1$="e:\autoexec.bat"
endif

if drive$="E:\" then
file1$="e:\autoexec.bat"
endif

if drive$="a:\" then
file2$="a:\autoexec.bak"
endif

if drive$="A:\" then
file2$="a:\autoexec.bak"
endif

if drive$="b:\" then
file2$="b:\autoexec.bak"
endif

if drive$="B:\" then
file2$="b:\autoexec.bak"
endif

if drive$="c:\" then
file2$="c:\autoexec.bak"
endif

if drive$="C:\" then
file2$="c:\autoexec.bak"
endif

if drive$="d:\" then
file2$="d:\autoexec.bak"
endif

if drive$="D:\" then
file2$="d:\autoexec.bak"
endif

if drive$="e:\" then
file2$="e:\autoexec.bak"
endif

if drive$="E:\" then
file2$="e:\autoexec.bak"
endif

automenu:
cls
print "You have the following options:"
print
print
print "F1- Just view the AUTOEXEC.BAT file."
print
print "F2- Add lines to the end of your file."
print
print "F3- Create a new AUTOEXEC.BAT file."
print
print "Exc- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait8:
gosub continue:
if a$=b$ then menu40:
if  extended=0 then wait8:

if a$=";" then
cls
gosub autolook:
goto automenu:
endif

if a$="<" then
cls
gosub appndaut:
gosub autolook:
goto automenu:
endif

if a$="=" then
cls
goto newauto:
endif

goto wait8:


rem THIS ROUTINE CREATES A NEW AUTOEXEC.BAT FILE.

newauto:
cls
name file1$ as file2$
kill file1$
cls
print "Your AUTOEXEC.BAT file has been"
print "changed to AUTOEXEC.BAK in order to"
print "save it for later use.  To use it"
print "later, you will have to rename it"
print "AUTOEXEC.BAT after renaming the cur-"
print "rent AUTOEXEC.BAT to something else"
print "for example, AUTOEXEC.X)."
print
print
print "Press any key to continue. ";
gosub continue:

scndchng:
cls
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
open "o",1,file1$
print "Please type the first line you want,"
print "then press Enter."
print
print "> ";
gosub retypf40:
firstlin$=file$
file$=""

if firstlin$=b$ then
goto nochange:
endif

print # 1, firstlin$ nonull
print # 1, crlf$ nonull

contline:
print ""
print "Please type your next line, followed"
print "by Enter."
print ""
print "> ";
gosub retypf40:
nextline$=file$
file$=""

if nextline$=b$ then
goto stopchng:
endif

print # 1, nextline$ nonull
print # 1, crlf$ nonull
goto contline:

stopchng:
close 1
cls
gosub autolook:
print
print
print
print "If this is not O.K. AND you want to"
print "change it, press C and then Enter."
print
print "To restore your original AUTOEXEC.BAT,"
print "press R and then Enter."
print
print "If you're happy with it as is, type OK"
print "and Enter."
print
print "> ";
gosub retypf40:
changeyn$=file$
file$=""

rechange:

if changeyn$="c" then
goto scndchng:
endif

if changeyn$="C" then
goto scndchng:
endif

if changeyn$="r" then
goto nochange:
endif

if changeyn$="R" then
goto nochange:
endif

if changeyn$="ok" then
goto automenu:
endif

if changeyn$="OK" then
goto automenu:
endif

if changeyn$="oK" then
goto automenu:
endif

if changeyn$="Ok" then
goto automenu:
endif

print
print "You must choose C, R, or OK."
print
gosub retypf40:
changeyn$=file$
file$=""
goto rechange:

nochange:
cls
close 1
close 2
kill file1$
name file2$ as file1$
kill file2$
print "Your original AUTOEXEC.BAT file has"
print "been restored."
print
print
print "Press any key to continue. ";
gosub continue:
goto automenu:


rem HERE IS THE ROUTINE FOR LOOKING AT THE AUTOEXEC.BAT FILE.

autolook:
cls
close 1
close 2
print "Here is your file:"
print
print
open "i",1,file1$

nextline:
input # 1, line$ crlf
print line$

if error=99 then
close 1
print
print
print "Press any key to continue. ";
gosub continue:
return
endif

goto nextline:

rem THIS IS THE END OF THE ROUTINE FOR LOOKING AT THE AUTOEXEC.BAT FILE.


rem HERE IS THE ROUTINE FOR ADDING LINES TO THE END OF AUTOEXEC.BAT.

appndaut:
cls
spaces$=space$(68)
color 0,7
print "Esc=Quit"
color 7,0
print
close 1
close 2
open "a",1,file1$

appndagn:
print ""
print "Line to add? ";
gosub retypf40:
appendln$=file$
file$=""

if appendln$=b$ then
close 1
return
endif

print # 1, appendln$ nonull
print # 1, crlf$ nonull
goto appndagn:

rem THIS IS THE END OF THE ROUTINE FOR ADDING TO THE END OF AUTOEXEC.BAT.

rem THIS IS THE END OF THE ROUTINE FOR WORKING WITH AUTOEXEC.BAT.


rem Here is the routine for blanking your screen.

blankscr:
cls
locate 81,81
gosub continue:
return

rem This is the end of the routine for blanking your screen.


rem Here is the routine for typing in files in 40-column mode.

retypf40:
gosub continue:

if a$=b$ then
file$=""
file1$=""
file2$=""
goto menu40:
endif

if a$=c$ then
return
endif

gosub cursor:

if a$=d$ then
locate a,c
print e$;
locate a,c
d=len(file$)
e=d-1
file$=mid$(file$,1,e)
if e<0 then
e=0
c=c+1
locate a,c
endif
if b=0 then
a=a-1
b=38
locate a,b
print e$;
locate a,b
endif
goto retypf40:
endif

print a$;
file$=file$+a$
goto retypf40:

rem This is the end of the routine for typing in files in 40-column mode.


rem Here is the routine for continuing when the user presses a key.

continue:
a$=inkey$
if a$="" then continue:
return

rem This is the end of the routine for continuing when the user presses a key.

rem Here is the subroutine for initializing row/column position of cursor.

cursor:
a=csrlin
b=pos(0)
c=b-1
return

rem This is the end of the routine for initializing cursor position.



rem Here are the error-handling routines.

rem Here is the error routine for shelling to DOS in 40-column mode.

nocall40:
cls
print "Hi.  COMMAND.COM can't be found on the"
print "drive you've specified.  You may have"
print "specified the wrong drive, or have"
print "failed to place your DOS disk into the"
print "drive you specified."
print
print "If you'd like to try again, you may"
print "return to the SHELL routine.  If you'd"
print "rather not, you may return to the Main"
print "Options Menu."
print
print
print "Would you like to try again? (y/n) ";

wait22:
gosub continue:
if a$="y" then shell40:
if a$="Y" then shell40:
if a$="n" then menu40:
if a$="N" then menu40:
goto wait22:

rem This is the end of the error routine for shelling to DOS in 40-column mode.


rem Here are the error routines for makedr40:

rem Path Not Found (Error 3)

nopthm40:
directory$=""
cls
print "Hi.  The path you've specified can't"
print "be found.  Please check your spelling"
print "and path, and try again."
print
print "To quit and return to the Main Options"
print "Menu, press Esc."
print "Directory name (include drive and"
print "path)? ";
gosub retypf40:
directory$=file$
goto remake40:

rem This is the end of the error routine for Path Not Found (makedr40:)

rem Access Denied (Error 5)

ilglmd40:
cls
print "Hi.  The path you've specified is pro-"
print "tected.  DOS will not allow you to"
print "make a directory using this path."
print
print
print "Press any key to return to the Main"
print "Options Menu. ";
gosub continue:
goto menu40:

rem This is the end of the error routine for Access Denied (makedr40:)

rem This is the end of the error routines for makedr40:

rem Here are the error routines for renfil40:

rem File Not Found (Error 2)

noflrf40:
file1$=""
file2$=""
cls
print "Hi.  The file you've specified can't"
print "be found.  Please check your spelling"
print "and path, and try again."
print
print "To quit and return to the Main Options"
print "Menu, press Esc."
print
print
print "File to rename? ";
gosub retypf40:
file1$=file$
realfil1$=ucase$(file1$)

print ""
print ""
print "New name for ";
print realfil1$;
print "? ";
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)
goto refile40:

rem This is the end of the File Not Found error handler (renfil40:)


rem Path Not Found or File Doesn't Exist (Error 3)

nopthr40:
file1$=""
file2$=""
cls
print "Hi.  DOS can't find the path you've"
print "specified.  Please check your spelling"
print "and path, and try again."
print
print "To quit and return to the Main Options"
print "Menu, press Esc."
print
print
print "File to rename? ";
gosub retypf40:
file1$=file$
realfil1$=ucase$(file1$)
print ""
print ""
print "New name for ";
print realfil1$;
print "? ";
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)
goto refile40:

rem This is the end of the routine for Path Not Found (renfil40:)


rem Here is the error routine for Access Denied (Error 5)

ilglrf40:
cls
print "Hi.  The file you've specified is pro-"
print "tected.  DOS will not allow you to re-"
print "name this file."
print
print
print "Press any key to return to the Main"
print "Options Menu. ";
gosub continue:
goto menu40:

rem This is the end of the error routine for Access Denied (renfil40:)


rem Here is the routine for Not Same Disk Drive (Error 17)

difdrr40:
file2$=""
cls
print "Hi.  You've specified a different"
print "drive for your file than it was orig-"
print "inally on.  For instance, if the orig-"
print "inal file was on drive A, the renamed"
print "file must be on drive A as well."
print
print "Please check your spelling and/or path"
print "and try again.  To quit and return to"
print "the Main Options Menu, press Esc."
print
print
print "New name for ";
print realfil1$;
print "? "
gosub retypf40:
file2$=file$
realfil2$=ucase$(file2$)
goto refile40:

rem This is the end of the error routine for Not Same Disk Drive (renfil40:)

rem Here is the error routine for File Not Found (prfile40:)

nofilp40:
cls
file$=""
print "Hi.  The file you've specified can't"
print "be found.  Please check your speling"
print "and path, and try again.  To quit and"
print "return to the Main Options Menu, press"
print "Esc at any time."
print
print
print "File to print? ";
gosub retypf40:
realfile$=ucase$(file$)
goto doprfl40:

rem This is the end of the error routine for File Not Found (prfile40:).


rem Here is the error routine for Path Not Found (prfile40:)

nopthp40:
file$=""
cls
print "Hi.  The path you've specified can't"
print "be found.  Please check your spelling"
print "and path, and try again.  To quit and"
print "return to the Main Options Menu, press"
print "Esc at any time."
print
print
print "File to print? ";
gosub retypf40:
realfile$=ucase$(file$)
goto doprfl40:

rem This is the end of the error routine for Path Not Found (prfile40:)


rem Here are the error routines for removedr:

rem Here is the error routine for Path Not Found (removedr:)

nopathrm:
cls
print "Hi.  The path you've specified for the"
print "directory you want to remove can't be"
print "found.  Please check your spelling and"
print "try again.  To quit and return to the"
print "Main Options Menu, press Esc at any"
print "time."
print
print "Directory to remove? ";
gosub retypf40:
goto reremove:

rem THIS IS THE END OF THE ERROR ROUTINE FOR PATH NOT FOUND (REMOVEDR:)


rem HERE IS THE ERROR ROUTINE FOR ACCESS DENIED (REMOVEDR:)

accessde:
cls
print "Hi.  The path you've specified is pro-"
print "tected from changes.  DOS will not"
print "allow you to remove a directory using"
print "this path."
print
print "Press any key to return to the Main"
print "Options Menu. ";
gosub continue:
goto menu40:

rem THIS IS THE END OF THE ROUTINE FOR ACCESS DENIED (REMOVEDR:)


rem HERE IS THE ERROR ROUTINE FOR CAN'T REMOVE DIRECTORY (REMOVEDR:)

cantrmdi:
cls
print "Hi.  The directory you've specified"
print "can't be removed.  It probably con-"
print "tains either files or subdirectories."
print "You can use the Find File option to"
print "determine this."
print
print

rmdirmen:
print "F1- Try again, I goofed."
print
print "F2- Go to the Find Files Option."
print
print "Esc- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";

wait5:
gosub continue:
if a$=b$ then menu40:
if extended=0 then wait5:

if a$=";" then
print
print "Directory to remove? ";
gosub retypf40:
goto reremove:
endif

if a$="<" then
call ("util1-80.com"," /s 40")
goto rmdirmen:
endif

rem THIS IS THE END OF THE ROUTINE FOR CAN'T REMOVE DIRECTORY (REMOVEDR:)

rem THIS IS THE END OF THE ERROR ROUTINES FOR REMOVEDR:


rem HERE ARE THE ERROR ROUTINES FOR MOVEFILE:

rem HERE IS THE ERROR ROUTINE FOR FILE NOT FOUND (MOVEFILE:)

nofilemf:
file1$=""
cls
print "Hi.  The file you've specified can't"
print "be found.  Please check your spelling"
print "and path, and try again.  To quit and"
print "return to the Main Options Menu, press"
print "Esc at any time."
print
print "File to move? ";
gosub retypf40:
file1$=file$
file$=""
realfil1$=ucase$(file$)
goto reinputm:

rem THIS IS THE END OF THE ERROR ROUTINE FOR FILE NOT FOUND (MOVEFILE:)


rem HERE IS THE ERROR ROUTINE FOR PATH NOT FOUND (MOVEFILE:)

nopathmf:
cls
print "Hi.  The path you've specified can't"
print "be found.  Please check your spelling"
print "and path, and try again.  To quit and"
print "return to the Main Options Menu, press"
print "Esc at any  time."
print

if io=1 then
file1$=""
print "File to move? ";
gosub retypf40:
file1$=file$
file$=""
realfil1$=ucase$(file1$)
goto reinputm:
endif

if io=2 then
file2$=""
print "Destination for ";
print realfile$;
print "?"
print "> ";
gosub retypf40:
file2$=file$
file$=""
realfil2$=ucase$(file2$)
goto reoutpum:
endif

rem THIS IS THE END OF THE ERROR ROUTINE FOR PATH NOT FOUND (MOVEFILE:)


rem HERE IS THE ERROR ROUTINE FOR ACCESS DENIED (MOVEFILE:)

noopenmf:
file2$=""
cls
print "Hi.  The file you've specified as your"
print "destination exists and is protected."
print "DOS will not allow you to overwrite"
print "that file.  Please enter another file"
print "as the destination.  To quit and re-"
print "turn to the Main Options Menu, press"
print "Esc at any time."
print
print "Destination for ";
print realfil1$;
print "?"
print "> ";
gosub retypf40:
file2$=file$
file$=""
realfil2$=ucase$(file2$)
goto reoutpum:

rem THIS IS THE END OF THE ERROR ROUTINE FOR ACCESS DENIED (MOVEFILE:)

rem THIS IS THE END OF THE ERROR ROUTINES FOR MOVEFILE:


rem Here is the error routine for runoth40:

cantrn40:
cls
print "Hi.  There's been some trouble loading"
print "and/or running the program you've"
print "specified.  Here's the program and the"
print "parameter, if any, you asked for:"
print program$;
print argument$
print
print "Is this what you intended to type"
print "(y/n)? ";

wait28:
gosub continue:
if a$="y" then probrn40:
if a$="Y" then probrn40:
if a$="n" then clagan40:
if a$="N" then clagan40:
goto wait28:

probrn40:
cls
print "The Manager has trouble running some"
print "programs.  For instance, parameters"
print "are often passed to CHKDSK.EXE which"
print "were never intended.  These seem to"
print "have something to do with the DOS"
print "parameters that were set up in the"
print "source.  Your best bet is to shell to"
print "DOS and run your program from there."
print "Press any key to return to the Main"
print "Options Menu. ";
gosub continue:
goto 2dmenu40:

clagan40:
cls
print "You're about to be returned to the Run"
print "Other Programs option, where you can"
print "retype your program and argument.  If"
print "you get this error again, and are sure"
print "you typed it in correctly, type y or Y"
print "at the prompt for bug info on this op-"
print "tion."
print
print "Press any key to return to the Run"
print "Other Programs option. ";
gosub continue:
goto runoth40:


end