SHELL "cls"
PRINT " "
PRINT "BACKGAP: Program to backup data created from GAP"
PRINT "runs 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\backgap.bat"
OPEN outfile$ FOR OUTPUT AS fileout%

PRINT #fileout%, "copy c:\magdata\" + magname$ + "\gap*.* b:\" + magname$ + "\gap"

CLOSE fileout%

SHELL outfile$

END