install.bas

StarCom Manager 3.06 用QB编写的管理程序

'INSTALL.EXE

CLS
PRINT "This file will install The Manager on a directory in your path.  This is"
PRINT "necessary for the Change Default Directory option to work properly.  You'll"
PRINT "be shown a list of directories in your path and asked to choose one to"
PRINT "hold the executable files for The Manager.  The files will be installed"
PRINT "for you automatically."
PRINT
PRINT
PRINT "Press any key to continue, or Esc to quit. ";
GOSUB continue

IF a$ = CHR$(27) THEN
CLS
PRINT "While you can use most of the features of The Manager without installing"
PRINT "it, the Change Directory option may cause you trouble.  Please see"
PRINT "MANAGER.DOC info on dealing with that option."
END
END IF

CLS
FOR a = 1 TO 9

IF UCASE$(MID$(ENVIRON$(a), 1, 4)) = "PATH" THEN
path = a
END IF

NEXT a

fullpath$ = ENVIRON$(path)

path2$ = MID$(fullpath$, 6, LEN(fullpath$))

lastchar$ = MID$(path2$, LEN(path2$), LEN(path2$))

IF lastchar$ <> ";" THEN
path2$ = path2$ + ";"
END IF

startsemi = 1

FOR a = 1 TO 9
findsemi = INSTR(startsemi, path2$, ";")

IF findsemi = 0 THEN
pathfile$(a) = ""
GOTO skip
END IF

stopsemi = findsemi - 1

pathfile$(a) = MID$(path2$, startsemi, findsemi - startsemi)
startsemi = findsemi + 1


skip:
a$ = STR$(a)
PRINT "F"; LTRIM$(a$); "- "; pathfile$(a)

NEXT a
PRINT
PRINT "Please press the key corresponding to the directory you want the Manager"
PRINT "files copied to. ";

wait4key:
GOSUB continue

IF a$ = CHR$(0) + CHR$(59) THEN
part2$ = pathfile$(1)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(60) THEN
part2$ = pathfile$(2)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(61) THEN
part2$ = pathfile$(3)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(62) THEN
part2$ = pathfile$(4)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(63) THEN
part2$ = pathfile$(5)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(64) THEN
part2$ = pathfile$(6)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(65) THEN
part2$ = pathfile$(7)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(66) THEN
part2$ = pathfile$(8)
GOSUB doinstal
GOTO finished
END IF

IF a$ = CHR$(0) + CHR$(67) THEN
part2$ = pathfile$(9)
GOSUB doinstal
GOTO finished
END IF

GOTO wait4key

doinstal:
PRINT
docomman$ = "copy crappyed.com " + part2$
SHELL docomman$
docomman$ = "copy install.cfg " + part2$
SHELL docomman$
docomman$ = "copy manager.doc " + part2$
SHELL docomman$
docomman$ = "copy manager.exe " + part2$
SHELL docomman$
docomman$ = "copy printeru.com " + part2$
SHELL docomman$
docomman$ = "copy util1-40.com " + part2$
SHELL docomman$

finished:
CLS
PRINT "The executable files and documentation for The Manager are now in the"
PRINT "directory "; part2$; "."; "You can change to that directory or just run the"
PRINT "program from anywhere on your hard drive."
END

continue:
a$ = INKEY$
IF a$ = "" THEN GOTO continue
RETURN