DECLARE SUB CopyFile ()
DECLARE SUB RemoveDir ()
DECLARE SUB CreateDir ()
DECLARE SUB RenameFile ()
DECLARE SUB EraseFile ()
DECLARE SUB FileControl ()
10 CLS
20 SCREEN 12
30 PRINT "The Emergency Computer Operating System"
40 PRINT "By: United General Software"
50 PRINT ""
60 drive = 2
70 DO
80 IF drive = 1 THEN INPUT "C:\>", path$
90 IF drive = 2 THEN INPUT "A:\>", path$
100 IF path$ = "c:" OR path$ = "C:" THEN drive = 1
110 IF path$ = "a:" OR path$ = "A:" THEN drive = 2
120 SHELL path$
121 IF path$ = "file" OR path$ = "FILE" THEN FileControl
130 LOOP UNTIL path$ = "exit" OR path$ = "EXIT"
140 IF path$ = "exit" THEN INPUT "Are you sure you want to do this? Y/N:", exit$
150 IF exit$ = "y" OR exit$ = "Y" THEN GOTO 170
160 IF exit$ = "n" OR exit$ = "N" THEN GOTO 10
169 DO
170 CLS
180 SHELL
190 LOOP UNTIL path$ = "exit" OR path$ = "EXIT"
200 IF path$ = "exit" OR path$ = "EXIT" THEN PRINT "CAUTION! I would strongly reccomend that you don't."
205 INPUT "Do you still want to exit? Y/N:", exit$
210 IF exit$ = "y" OR exit$ = "Y" THEN GOTO 230
220 IF exit$ = "n" OR exit$ = "N" THEN GOTO 169
230 END
SUB CopyFile
PRINT "Just type in this: copy [drive][file path] [destination drive] [destination path]"
INPUT "Path:", cop$
SHELL cop$
BEEP
END SUB
SUB CreateDir
INPUT "Enter path and name of directory you wish to create:", dircre$
MKDIR dircre$
BEEP
END SUB
SUB EraseFile
INPUT "Path of file to be erased:", delpath$
INPUT "Are you sure you want to do this? Y/N:", delchk$
IF delchk$ = "y" OR delchk$ = "Y" THEN
KILL delpath$
ELSEIF delchk$ = "n" OR delchk$ = "N" THEN GOTO 2001
BEEP
END IF
2001 END SUB
DEFINT A-Z
SUB FileControl
1000 CLS
SCREEN 12
PRINT "*FILE CONTROL*"
PRINT ""
PRINT "List programs in what path?"
INPUT "Path:", drive$
SHELL drive$
FILES drive$
PRINT "*TASK LIST*"
PRINT ""
PRINT "1-Rename a file"
PRINT "2-Erase a file"
PRINT "3-Create a directory"
PRINT "4-Remove a directory"
PRINT "5-Copy a file"
PRINT "6-Exit"
PRINT ""
INPUT choice
IF choice = 1 THEN RenameFile
IF choice = 2 THEN EraseFile
IF choice = 3 THEN CreateDir
IF choice = 4 THEN RemoveDir
IF choice = 5 THEN CopyFile
IF choice = 6 THEN
GOTO 2000
END IF
2000 END SUB
DEFSNG A-Z
SUB RemoveDir
INPUT "Enter name and path of the directory you wish to remove:", dirrem$
RMDIR dirrem$
BEEP
END SUB
SUB RenameFile
INPUT "Name path:", oldnme$
INPUT "New name path:", newnme$
NAME oldnme$ AS newnme$
BEEP
END SUB