DIM Cdd AS STRING * 2
DIM Chd AS STRING * 5
PRINT "WARNING! This will install or deinstall PASDIR!"
INPUT "Do you wish to continue?", Cont$
IF UCASE$(Cont$) <> "Y" THEN PRINT "PASDIR Status not modified": END
mm$ = ".."
mn$ = "....."
Cd1$ = "CD"
Cd2$ = "CHDIR"
Cmsp$ = ENVIRON$("COMSPEC")
OPEN Cmsp$ FOR BINARY AS #1
IF LOF(1) = 92870 THEN DosVer$ = "7.00": Acc1 = 68383: Acc2 = 68386
IF LOF(1) = 54619 THEN DosVer$ = "6.20": Acc1 = 49550: Acc2 = 49558
IF LOF(1) = 5949 THEN DosVer$ = "1.10": PRINT "Dos Version 1.10.  NO CD or CHDIR Command."
IF POS(0) > 1 THEN PRINT
PRINT "Dos Version: "; DosVer$
GET #1, Acc1, Cdd
GET #1, Acc2, Chd
IF Cdd = "CD" THEN PUT #1, Acc1, mm$
IF Chd = "CHDIR" THEN PUT #1, Acc2, mn$: GOTO 10
IF Cdd = mm$ AND Chd = mn$ THEN PRINT "PASDIR Already intalled.  Uninstalling.": PUT #1, Acc1, Cd1$: PUT #1, Acc2, Cd2$: GOTO 20 ELSE PRINT "Bad or missing command interpreter": GOTO 20
10 PRINT "PASDIR is now installed"
20 END