|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1157 (0x485)
Types: TextFile
Names: »SAVE.BAT«
└─⟦a2bcc95d7⟧ Bits:30010511 DVBS1.SW2114.src.2.14-2 SW2114 REAL #2/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »RTP\SAVE.BAT«
rem save sources for SW2114 into 4 diskettes\r \r IF %1==4 GOTO four\r IF %1==3 GOTO tree\r IF %1==2 GOTO two\r \r pause insert 1st diskette in drive A\r a:\r mkdir rtp\r i:\r attrib +a i:*.*\r xcopy i:read*.* a:\rtp /m\r xcopy i:???????.pas a:\rtp /m\r xcopy i:*.txt a:\rtp /m\r xcopy i:*.log a:\rtp /m\r xcopy i:*.lib a:\rtp /m\r xcopy i:*.tab a:\rtp /m\r xcopy i:tur*.* a:\rtp /m\r IF %1==1 GOTO finis\r GOTO twocopy\r \r :two\r del i:*.pof\r attrib +a i:*.*\r attrib -a i:???????.pas\r \r :twocopy\r pause insert 2nd diskette in drive A\r a:\r mkdir rtp\r i:\r xcopy i:*.pas a:\rtp /m\r xcopy i:*.bat a:\rtp /m\r xcopy i:*.env a:\rtp /m\r xcopy i:*.e02 a:\rtp /m\r xcopy i:rtpstd*.* a:\rtp /m\r xcopy i:rtplib*.* a:\rtp /m\r xcopy i:*.com a:\rtp /m\r IF %1==2 GOTO finis\r \r :tree\r pause insert 3rd diskette in drive A\r a:\r mkdir rtp\r mkdir rtpstd\r i:\r xcopy i:*.rtp a:\rtp\r attrib +a i:..\rtpstd\*.*\r attrib +a i:..\rtpstd\rmx\*.* \r attrib +a i:..\rtpstd\sys35\*.* \r attrib -a i:..\rtpstd\sys35.bak\*.*\r xcopy i:..\rtpstd\*.* a:\rtpstd /s /m\r IF %1==3 GOTO finis\r \r :four\r pause insert 4. diskette in drive A\r a:\r mkdir oldrtp\r i:\r xcopy i:..\oldrtp\*.* a:\oldrtp /s\r \r :finis\r