REM PROGRAM XD 1.0 REM PROGRAMMER D. ALLEN REM CREATED MAY 19, 1998 REM UPDATED MAY 19, 1998 REM COPYRIGHT (C) 1998 ' ' THE PURPOSE OF THIS PROGRAM IS TO CHANGEH DRIVE, AS WELL AS DIRECTORY. ' ' VARIABLE TABLE: ' I - PTR TO CURRENT CHARACTER IN REC$ ' J - LENGTH OF REC$ ' REC$ - CURRENT RECORD ' ' DECLARATIONS. ' DEFINT A-Z DEFSNG R REM REM MAIN ROUTINE REM ' ' THE PURPOSE OF THIS ROUTINE IS TO CONTROL THE PROGRAM. ' REC$ = LTRIM$(RTRIM$(COMMAND$)) : I = INSTR(REC$,":") : J = LEN(REC$) IF J = 0 OR INSTR(LEFT$(REC$,2),"?") > 0 THEN PRINT "XD 1.0 for MS-DOS" PRINT "Copyright (c) 1996-1998 by Dennis Allen" PRINT "Portions (C) Copyright" PRINT "Microsoft Corp. 1987 - 1998" PRINT "All Rights Reserved" PRINT PRINT " XD. Similar to CD, but also changes drive letter." PRINT PRINT " Usage: XD x:\xxx" PRINT PRINT " x:\ Drive" PRINT " xxx Directory Path." PRINT SYSTEM END IF IF RIGHT$(REC$, 1) = "\" AND I + 1 <> J THEN REC$ = LEFT$(REC$, J - 1) : I = INSTR(REC$,":") : J = LEN(REC$) END IF IF J > 0 AND I > 0 THEN SHELL MID$(REC$,1,I) REC$ = MID$(REC$,I+1) : J = LEN(REC$) END IF IF J > 0 THEN SHELL "CD " + REC$ ENDIF SYSTEM END