: maketape - make a mag tape of source programs from tr810 and other
:               nice things
if $1x = x goto usage
if $1 = 800 goto eight
if $1 = 1600 goto sixteen
echo $1 is not a legal tape density
exit
: eight
set d = 0
goto ok
: sixteen
set d = 4
goto ok
: ok
echo Creating mag tape at $1 bpi . . .
cd ./sys
tp mc$d *
cd ..
eot$d
tp mc$d cxap gxap gwin
eot$d
tp mc$d s1 s2 s3
eot$d
tp mc$d quadtree
echo Done.
exit
: usage
echo Usage -- maketape density
echo "         where density is 800 or 1600"
exit
