|
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: 1000 (0x3e8)
Types: TextFile
Names: »SAVE.BAT«
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
└─⟦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 h:\r attrib +a h:*.*\r xcopy h:read*.* a:\rtp /m\r xcopy h:???????.pas a:\rtp /m\r xcopy h:*.txt a:\rtp /m\r xcopy h:*.lib a:\rtp /m\r xcopy h:*.tab a:\rtp /m\r xcopy h:tur*.* a:\rtp /m\r IF %1==1 GOTO finis\r GOTO twocopy\r \r :two\r del h:*.pof\r attrib +a h:*.*\r attrib -a h:???????.pas\r \r :twocopy\r pause insert 2nd diskette in drive A\r a:\r mkdir rtp\r h:\r xcopy h:*.pas a:\rtp /m\r xcopy h:*.bat a:\rtp /m\r xcopy h:*.env a:\rtp /m\r xcopy h:*.e02 a:\rtp /m\r xcopy h:rtpstd*.* a:\rtp /m\r xcopy h:rtplib*.* a:\rtp /m\r xcopy h:*.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 h:\r xcopy h:*.rtp a:\rtp\r xcopy h:..\rtpstd\*.* a:\rtpstd /s\r IF %1==3 GOTO finis\r \r :four\r pause insert 4. diskette in drive A\r a:\r mkdir oldrtp\r h:\r xcopy h:..\oldrtp\*.* a:\oldrtp /s\r \r :finis\r «eof»