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

Text File | 1993-05-01 | 26.3 KB | 1,511 lines

rem UTIL1-80.COM

rem consecutive to wait2:

b$=chr$(27)
c$=chr$(13)
d$=chr$(8)
e$=chr$(32)

a$=command$
if a$="/a" then asciilis:
if a$="/c" then changedi:
if a$="/cr" then calculat:
if a$="/h" then help:
if a$="/i" then install:
if a$="/v" then readfile:
if a$="/l" then printfil:
if a$="/co" then copyfile:
if a$="/s" then seefiles:
if a$="/S" then seefiles:
if a$="/s 40" then seefil40:
if a$="/S 40" then seefil40:
if a$="/m" then movefile:

rem Here is the routine for generating an ASCII list.

asciilis:
cls
print "Here are your options:"
print
print
print "F1- Print the entire list."
print
print "F2- Print one code of your choice."
print
print "Esc- Quit and return to the Main Options Menu."
print
print
print "Please press the key corresponding to your choice. ";

wait:
gosub continue:

if a$=b$ then
end
endif

if extended=0 then wait:
if a$=";" then printlis:
if a$="<" then printone:
goto wait:

printlis:
cls
for c=0 to 255
print c;
print " - ";
a$=chr$(c)

if c=0 then
a$=" "
endif

print a$;
print " ";
column=column+1

if column=6 then
print
column=0
row=row+1
endif

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

next c

print
print
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
end

printone:
cls
print "Please type the code number of the character you want to view, from 0"
print "to 255. ";
gosub retypefi:
d=val(file$)
file$=""
if a<0 then printone:
if a>255 then printone:
onecode$=chr$(d)
width 40
locate 12,20
print onecode$
print
print
print
print "Press any key to return to the Main"
print "Options Menu. ";
gosub continue:
width 80
end

rem This is the end of the routine for generating an ASCII list.


rem Here is the routine for the Crapulator (Crappy Calculator)
calculat:
cls
print "                          Welcome to the Crapulator!"
print
print
print "You can add, subtract, or multiply two numbers.  You can use the"
print "numeric keypad if you like; Num Lock has been turned on for you."
print
print
print "Press any key to continue. ";
gosub continue:
call "numlockn.exe",""
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print "Please enter your math problem. ";
gosub calcmore:

if operator$>"" then
print operator$;
calc1=val(calc$)
goto checkcal:
endif

checkcal:
if a$=c$ then
calc2=val(calc$)
goto docalc:
else
calc$=""
gosub calcmore:
goto checkcal:
endif

docalc:
if operator$="+" then
result=calc1+calc2
print "=";
print result
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
call "numlockf.exe",""
calc$=""
operator$=""
calc1=0
calc2=0
result=0
end
endif

if operator$="-" then
result=calc1-calc2
print "=";
print result
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
call "numlockf.exe",""
calc$=""
operator$=""
calc1=0
calc2=0
result=0
end
endif

if operator$="*" then
result=calc1*calc2
print "=";
print result
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
call "numlockf.exe",""
calc$=""
operator$=""
calc1=0
calc2=0
result=0
end
endif

calcmore:
gosub continue:

if a$=b$ then
operator$=""
calc$=""
calc1=0
calc2=0
result=0
call "numlockf.exe",""
end
endif

if a$="+" then
operator$="+"
return
endif

if a$="-" then
operator$="-"
return
endif

if a$="*" then
operator$="*"
return
endif

if a$=c$ then
return
endif

gosub cursor:

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

print a$;
calc$=calc$+a$
goto calcmore:

rem THIS IS THE END OF THE ROUTINE FOR THE CRAPULATOR (CRAPPY CALCULATOR).


rem Here is the routine for changing the default directory.

changedi:
cls
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print
print
print "                               Change Directory"
print
print
print "This option will change the default directory where The Manager will"
print "look for files if you don't specify the path.  It's also the directory"
print "you'll be in when you return to DOS, unless you come back here and"
print "change to your previous directory before exiting.  At this time, there"
print "is no way to change the default drive."
print
print
print "Directory to change to? ";
gosub retypefi:
directory$=file$
file$=""
rechange:
chdir directory$
if error=3 then nopathch:
realdir$=ucase$(directory$)
print ""
print ""
print "Your new default directory is ";
print realdir$;
print "."
print ""
print ""
print "Press any key to return to the Main Options Menu. ";
gosub continue:
end

rem This is the end of the routine for changing the default directory.


rem Here is the routine for typing in filenames in 80-column mode.

retypefi:
gosub continue:

if a$=b$ then
file$=""
file1$=""
file2$=""
end
endif

if a$=c$ then
print ""
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=79
locate a,b
print e$;
locate a,b
endif
goto retypefi:
endif

print a$;
file$=file$+a$
realfile$=ucase$(file$)
goto retypefi:

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


rem Here is the help screen routine.

help:
cls
print "You can use arguments with The Manager if you wish; they may help"
print "save you time."
print
print
print "Just typing MANAGER at the DOS prompt will start The Manager from"
print "the beginning; you can choose your options from the menu."
print
print "Typing MANAGER /? gives you this help screen."
print
print "Typing MANAGER /d moves you directly to the Delete Files option."
print
print "Typing MANAGER /m moves you directly to the Make Directory option."
print
print "Typing MANAGER /n moves you directly to the Rename Files option."
print
print "Typing MANAGER /g moves you directly to the Get Date option."
print
print "Typing MANAGER /b blanks your screen."
print
print "Typing MANAGER /p checks for a graphics adaptor."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "Typing MANAGER /s lets you see a list of disk files."
print
print "Typing MANAGER /v lets you view the text file of your choice, on the"
print "screen."
print
print "Typing MANAGER /l lets you print a file on the lineprinter."
print
print "Typing MANAGER /r lets you run other programs."
print
print "Typing MANAGER /e lets you remove directories."
print
print "Typing MANAGER /c lets you copy text files."
print
print
print "Upper or lower case makes no difference."
print
print
print "Press any key to return to the main options menu. ";

gosub continue:
end

rem This is the end of the routine for the list of DOS parameters.


rem Here is the routine for installing an automatic parameter.

install:
cls
print "This option will install an automatic parameter.  When you type"
print "MANAGER without any DOS parameters, it will automatically go to this"
print "option.  For instance, if you want to go directly to the option for"
print "deleting files everytime you run The Manager, you can install that op-"
print "tion here."
print
print
print "Press any key to continue. ";
gosub continue:
cls

installm:
print "Here are the options you can install:"
print
print
print "F1- Help Screen.                        <Alt-F1>- Run Other Programs."
print
print "F2- Delete Files.                       <Alt-F2>- Remove Directory."
print
print "F3- Make Directory.                     <Alt-F3>- Copy Text File."
print
print "F4- Rename Files.                       <Alt-F4>- Move Text File."
print
print "F5- Get the Time/Date.                  <Alt-F5>- Use 40-Column Mode."
print
print "F6- Blank the Screen.                   <Alt-F6>- Skip Opening Screen."
print
print "F7- Check for Graphics Card.            <Alt-F7>- De-install Options."
print
print "F8- See File List.                               Esc- Quit."
print
print "F9- Read File."
print
print "F10- Print File."
print
print "Please press the key corresponding to your choice. ";

wait1:
gosub continue:

if a$=b$ then
end
endif

if extended=0 then wait1:
open "o",1,"install.cfg"

if a$=";" then
install$="/?"
gosub writeins:
goto writedon:
endif

if a$="<" then
install$="/d"
gosub writeins:
goto writedon:
endif

if a$="=" then
install$="/m"
gosub writeins:
goto writedon:
endif

if a$=">" then
install$="/n"
gosub writeins:
goto writedon:
endif

if a$="?" then
install$="/g"
gosub writeins:
goto writedon:
endif

if a$="@" then
install$="/b"
gosub writeins:
goto writedon:
endif

if a$="A" then
install$="/p"
gosub writeins:
goto writedon:
endif

if a$="B" then
install$="/s"
gosub writeins:
goto writedon:
endif

if a$="C" then
install$="/v"
gosub writeins:
goto writedon:
endif

if a$="D" then
install$="/l"
gosub writeins:
goto writedon:
endif

if a$="h" then
install$="/r"
gosub writeins:
goto writedon:
endif

if a$="i" then
install$="/e"
gosub writeins:
goto writedon:
endif

if a$="j" then
install$="/c"
gosub writeins:
goto writedon:
endif

if a$="k" then
install$="/o"
gosub writeins:
goto writedon:
endif

if a$="l" then
install$="/40"
gosub writeins:
goto writedon:
endif

if a$="m" then
install$="bypass"
gosub writeins:
goto writedon:
endif

if a$="n" then
install$="nothing"
gosub writeins:
goto writedon:
endif

goto wait1:

writeins:
print # 1, install$
close 1
return

writedon:
cls
print "The option you have chosen will now be run every time you load The"
print "Manager without parameters.  To choose another option, or deinstall"
print "all options, return to the install menu and press the appropriate key."
print
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
end

rem THIS IS THE END OF THE ROUTINE FOR INSTALLING A DOS PARAMETER.


rem HERE IS THE ROUTINE FOR READING A FILE.

readfile:
cls
print "                                  Read a File"
print
print

rem For a nice touch, we add an Esc=Quit message.  First, since I wanted it in
rem the upper right hand corner, I added spaces.

spaces$=space$(68)
print spaces$;

rem Next, I reversed the color, so it wouldn't get lost.  I change my mind a
rem lot when using software and, assuming I'm not the only one, I thought it'd
rem be nice to make the "change your mind" option as obvious as possible.

color 0,7
print "Esc=Quit"
color 7,0
print "Please type the name of the file you want to read."
print "Include drive and path. ";
gosub retypefi:
print ""
print ""
print "To pause the scrolling, press the space bar.  To quit, press Esc."
print
print
print "While the file should be readable, formatting may not be quite"
print "correct."
print
print
print "Press any key to continue. ";
gosub continue:
a$=""

cls

reread:
open "i",1,file$

if error=2 then
gosub nofilerd:
goto reread:
endif

if error=3 then nopathrd:

readmore:
input# 1, line$ crlf

if error=96 then
print line$
line=line+1
if line=23 then
print "Press any key to continue. ";
gosub continue:
print
print
line=0
cls
endif
gosub blanklnr:
endif

line=line+1

if line=23 then
print ""
print "Press any key to continue. ";
gosub continue:
print
print

if a$=b$ then
line=0
file$=""
close 1
print
print
print "Do you want to view another file? (y/n) ";
goto wait56:
endif

line=0
cls
endif

print line$

a$=inkey$
if a$=e$ then
print "Press any key to continue. ";
gosub continue:
print
print
endif

if a$=b$ then
file$=""
line=0
close 1
print
print
print "Do you want to view another file? (y/n) ";
goto wait56:
endif

if error=99 then eof:
goto readmore:

blanklnr:
input# 1, line$ crlf
if line$="" then readmore:
return

eof:
print line$
print "Press any key to continue. ";
gosub continue:
print
print
line=0
file$=""
close 1
print
print
print "Do you want to view another file? (y/n) ";

wait56:
gosub continue:
if a$="y" then readfile:
if a$="Y" then readfile:

if a$="n" then
end
endif

if a$="N" then
end
endif

goto wait56:

rem THIS IS THE END OF THE ROUTINE FOR READING TEXT FILES.


rem HERE IS THE ROUTINE FOR PRINTING TEXT FILES.

printfil:

cls
print "                                 Print a File"
print
print
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Please type the name of the file you want to print."
print
print "Include the drive and path. ";
gosub retypefi:

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

if error=2 then
gosub nofilerd:
goto doprintf:
endif

if error=3 then nopathpr:

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

printmor:
input# 1, line$ crlf

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

contlprn:
lprint line$

a$=inkey$

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

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

if error=99 then eofp:
goto printmor:

blanklin:
input# 1, line$ crlf
if line$="" then printmor: else contlprn:

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

wait13:
gosub continue:
if a$="y" then printfil:
if a$="Y" then printfil:

if a$="n" then
end
endif

if a$="N" then
end
endif
goto wait13:


rem THIS IS THE END OF THE ROUTINE FOR PRINTING TEXT FILES.


rem HERE IS THE ROUTINE FOR COPYING TEXT FILES.

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

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

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

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

open "o",2,file2$
reoutput:

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

if error=5 then cantopen:

wait3:
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 wait3:
endif
endif

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

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

a$=""
while a$=""
gosub continue:
if a$="y" then copymore:
if a$="Y" then copymore:

if a$="n" then
end
endif

if a$="N" then
end
endif
wend

rem THIS IS THE END OF THE ROUTINE FOR COPYING A TEXT FILE.


rem Here is the routine for viewing disk files.


b$=chr$(27)
c$=chr$(13)
d$=chr$(8)
e$=chr$(32)


seefiles:
cls
print "                                  Find Files"
print
print
spaces$=space$(68)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Please type the full path and filename.  You'll need to know which"
print "directory your file is in, but wildcards are acceptable."
print
print "> ";

wait2:
gosub continue:

if a$=b$ then
directory$=""
goto menu:
endif

if a$=c$ then doview:
gosub cursor:

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

print a$;
directory$=directory$+a$
goto wait2:

doview:
print ""

files$=directory$
attrib=&bin00010000
filename$=find first(files$,attrib)
if error>0 then done:
print filename$

loop:
filename$=find continue
if error>0 then done:

print filename$

file=file+1

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

goto loop:

done:
print ""
print ""
print "Press any key to continue. ";
gosub continue:
file=0
directory$=""
print ""
print ""
print "Do you want to see more files? (y/n) ";

wait55:
gosub continue:
if a$="y" then seefiles:
if a$="Y" then seefiles:
if a$="n" then menu:
if a$="N" then menu:
goto wait55:


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

seefil40:
width 40
print "View Your Files"
print
print
spaces$=space$(30)
print spaces$;
color 0,7
print "Esc=Quit"
color 7,0
print "Which directory (include drive and"
print "path)? ";

wait54:
gosub continue:

if a$=b$ then
directory$=""
goto menu:
endif

if a$=c$ then doview40:
gosub cursor:

if a$=d$ then
locate a,c
print e$;
locate a,c
d=len(directory$)
e=d-1
directory$=mid$(directory$,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 wait54:
endif

print a$;
directory$=directory$+a$
goto wait54:

doview40:
print ""
files$=directory$
attrib=&bin00010000
filename$=find first(files$,attrib)
if error>0 then done40:
print filename$

loop40:
filename$=find continue
if error>0 then done40:
print filename$

file=file+1

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

goto loop40:

done40:
print
print
print "Press any key to continue. ";
gosub continue:
file=0
directory$=""
print
print
print "Would you like to view more files? ";

wait10:
gosub continue:
if a$="y" then seefil40:
if a$="Y" then seefil40:

if a$="n" then
end
endif

if a$="N" then
end
endif

goto wait10:

rem THIS IS THE END OF THE ROUTINE FOR VIEWING FILES IN 40-COLUMN MODE.


rem HERE IS THE ROUTINE FOR MOVING TEXT FILES.

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

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

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

domove:
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=2
goto nopathmf:
endif

if error=5 then noopenmf:

wait26:
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 wait26:
endif
endif

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

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

a$=""
while a$=""
gosub continue:
if a$="y" then movemore:
if a$="Y" then movemore:
if a$="n" then menu:
if a$="N" then menu:
wend

rem THIS IS THE END OF THE ROUTINE FOR MOVING A FILE.

menu:
end


rem .........................................................................

rem ERROR ROUTINES

rem .........................................................................


rem HERE IS THE ERROR ROUTINE FOR FILE NOT FOUND (ERROR 2, READFILE:)

nofilerd:
file$=""
cls
print "Hi.  The file you've selected can't be found.  Please check your"
print "spelling and/or path, and try again.  To return to the Main Options"
print "Menu, press Esc at any time."
print
print
print "File? ";
gosub retypefi:
return

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


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

nopathrd:
file$=""
cls
print "Hi.  The path you've specified can't be found.  Please check your"
print "spelling and path, and try again.  To quit and return to the Main Op-"
print "tions Menu, press Esc at any time."
print
print "File to read? ";
gosub retypefi:
goto reread:

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


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

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

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


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

nofilecf:
file1$=""
cls
print "Hi.  The file you've specified can't be found.  Please check your"
print "spelling and try again.  To quit and return to the Main Options Menu"
print "press Escape at any time."
print
print "File to copy? ";
gosub retypefi:
file1$=file$
realfil1$=ucase$(file1$)
goto reinput:

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


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

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

if labelnum=1 then
file1$=""
print "File to copy? ";
gosub retypefi:
file1$=file$
realfil1$=ucase$(file1$)
goto reinput:
endif

if labelnum=2 then
file2$=""
print "Destination for ";
print realfil1$;
print "? ";
gosub retypefi:
file2$=file$
realfil2$=ucase$(file2$)
goto reoutput:
endif

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


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

cantopen:
file2$=""
cls
print "Hi.  The file you've specified for the destination can't be opened."
print "The most likely reason is that a file of that name already exists, and"
print "is set to read-only status.  Please type another destination name for"
print realfil1$;
print "."
print
print "To quit and return to the Main Options Menu, press Esc at any time."
print
print "Destination for ";
print realfil1$;
print "? ";
gosub retypefi:
file2$=file$
realfil2$=ucase$(file2$)
goto reoutput:

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


rem THIS IS THE ERROR ROUTINE FOR PATH NOT FOUND (CHANGEDI:)

nopathch:
cls
print "Hi.  The path you've specified can't be found.  Please check your"
print "spelling and path and try again.  To quit and return to the Main"
print "Options Menu, press Esc at any time."
print
print
print "Directory to change to? ";
gosub retypefi:
directory$=file$
file$=""
goto rechange:

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


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

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

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

if io=2 then
file2$=""
print "Destination for ";
print realfil1$;
print "? ";
gosub retypefi:
file2$=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 destination exists and is"
print "protected.  DOS will not allow you to overwrite that file.  Please"
print "enter another file as the destination.  To quit and return to the Main"
print "Options Menu, press Esc at any time."
print
print "Destination for ";
print realfil1$;
print "? ";
gosub retypefi:
file2$=file$
realfil2$=ucase$(file2$)
goto reoutpum:

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


rem .........................................................................

rem THIS IS THE END OF THE ERROR ROUTINES.

rem .........................................................................



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 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.

end