SHELL "cls"
PRINT " "
PRINT "MAKEDIR: This program creates a directory structure for"
PRINT "         a given magnet on a floppy in drive b:"
PRINT
PRINT "Input magnet name: ";
INPUT magname$

fileout% = FREEFILE
outfile$ = "\philr\bfact\progs\makedir.bat"
OPEN outfile$ FOR OUTPUT AS fileout%

PRINT #fileout%, "echo off"
PRINT #fileout%, "label b:mag" + magname$
PRINT #fileout%, "b:"
PRINT #fileout%, "mkdir " + magname$
PRINT #fileout%, "cd " + magname$
PRINT #fileout%, "mkdir gap"
PRINT #fileout%, "mkdir rt"
PRINT #fileout%, "mkdir bl"
PRINT #fileout%, "mkdir har"
PRINT #fileout%, "mkdir nmrh"
PRINT #fileout%, "dir"
PRINT #fileout%, "cd .."
PRINT #fileout%, "c:"

CLOSE fileout%

SHELL outfile$

END