54
CLS
1
LINE INPUT "C:\>"; a$
IF MID$(a$, 2) = ":" THEN PRINT "Invalid drive": GOTO 1
IF a$ = "time" THEN PRINT TIME$: GOTO 1
IF a$ = "date" THEN PRINT DATE$: GOTO 1
IF a$ = "stop it!" THEN END
IF a$ = "" THEN GOTO 1
IF a$ = CHR$(13) THEN PRINT "hi"
IF a$ = "adom" THEN GOTO 10
IF a$ = "cls" THEN GOTO 54
IF LEFT$(a$, 3) = "cd\" THEN PRINT "Invalid directory": GOTO 1
IF LEFT$(a$, 3) = "cd " THEN PRINT "Invalid directory": GOTO 1
PRINT "Bad command or file name"
GOTO 1
10 SHELL "c:"
SHELL "cd\"
SHELL "cd adom"
SHELL "adom"
INPUT "save"; b$
IF b$ = "y" THEN GOTO 11
GOTO 12
11
SHELL "cd save"
SHELL "cd adom_dat"
SHELL "cd savedg"
SHELL "cd save2"
SHELL "copy c:\adom\save\adom_dat\savedg\joseph.svg"
SHELL "cd\"
SHELL "cd adom"
GOTO 10
12
SHELL "cd\"
SHELL "cd adom"
SHELL "cd save"
SHELL "cd adom_dat"
SHELL "cd savedg"
SHELL "copy c:\adom\save\adom_dat\savedg\save2\joseph.svg"
SHELL "cd\"
INPUT "quit"; q$
IF q$ = "y" THEN END
GOTO 10