rem save sources for SW2114  into 4 diskettes

IF  %1==4  GOTO four
IF  %1==3  GOTO tree
IF  %1==2  GOTO two

pause insert 1st diskette in drive A
a:
mkdir rtp
i:
attrib +a i:*.*
xcopy i:read*.* a:\rtp /m
xcopy i:???????.pas a:\rtp /m
xcopy i:*.txt a:\rtp /m
xcopy i:*.log a:\rtp /m
xcopy i:*.lib a:\rtp /m
xcopy i:*.tab a:\rtp /m
xcopy i:tur*.* a:\rtp /m
IF  %1==1  GOTO finis
GOTO twocopy

:two
del i:*.pof
attrib +a i:*.*
attrib -a i:???????.pas

:twocopy
pause insert 2nd diskette in drive A
a:
mkdir rtp
i:
xcopy i:*.pas a:\rtp /m
xcopy i:*.bat a:\rtp /m
xcopy i:*.env a:\rtp /m
xcopy i:*.e02 a:\rtp /m
xcopy i:rtpstd*.* a:\rtp /m
xcopy i:rtplib*.* a:\rtp /m
xcopy i:*.com a:\rtp /m
IF  %1==2  GOTO finis

:tree
pause insert 3rd diskette in drive A
a:
mkdir rtp
mkdir rtpstd
i:
xcopy i:*.rtp a:\rtp
attrib +a i:..\rtpstd\*.*
attrib +a i:..\rtpstd\rmx\*.* 
attrib +a i:..\rtpstd\sys35\*.* 
attrib -a i:..\rtpstd\sys35.bak\*.*
xcopy i:..\rtpstd\*.* a:\rtpstd /s /m
IF  %1==3  GOTO finis

:four
pause insert 4. diskette in drive A
a:
mkdir oldrtp
i:
xcopy i:..\oldrtp\*.* a:\oldrtp /s

:finis