SHELL "cls"
PRINT " "
PRINT "BACKCOIL: Program to backup data created from magnetic"
PRINT "measurements onto a floppy in drive b: for a given magnet."
PRINT "Note: MAKEDIR must have been executed before this."
PRINT " "
PRINT "Input the name of the magnet for data backup: ";
INPUT magname$

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

PRINT #fileout%, "copy c:\magdata\" + magname$ + "\bl*.* b:\" + magname$ + "\bl"
PRINT #fileout%, "copy c:\magdata\" + magname$ + "\har*.* b:\" + magname$ + "\har"
PRINT #fileout%, "copy c:\magdata\" + magname$ + "\rt*.* b:\" + magname$ + "\rt"
PRINT #fileout%, "copy c:\magdata\" + magname$ + "\nmrh*.* b:\" + magname$ + "\nmrh"

CLOSE fileout%

SHELL outfile$

END