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
h:
attrib +a h:*.*
xcopy h:read*.* a:\rtp /m
xcopy h:???????.pas a:\rtp /m
xcopy h:*.txt a:\rtp /m
xcopy h:*.lib a:\rtp /m
xcopy h:*.tab a:\rtp /m
xcopy h:tur*.* a:\rtp /m
IF  %1==1  GOTO finis
GOTO twocopy

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

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

:tree
pause insert 3rd diskette in drive A
a:
mkdir rtp
mkdir rtpstd
h:
xcopy h:*.rtp a:\rtp
xcopy h:..\rtpstd\*.* a:\rtpstd /s
IF  %1==3  GOTO finis

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

:finis