home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w048 / 2.ddi / UNPSRC.BAT < prev   
Encoding:
DOS Batch File  |  1987-12-21  |  1.9 KB  |  68 lines
  1.   echo off
  2.   if x%1==x goto help
  3.   goto start
  4.  
  5. :help
  6.   echo 
  7.   echo  Call this batch file as follows:
  8.   echo     UNPSRC d:
  9.   echo  where d: is the drive where you want
  10.   echo  the source files to be sent.
  11.   echo 
  12.   echo  Be sure to prepare 5 freshly formatted
  13.   echo  floppy disks if you are sending the
  14.   echo  unpacked source code to drive B:.
  15.   goto done
  16.  
  17. :start
  18.   if not %1==b: if not %1==B: goto :1
  19.   echo on
  20.   pause Insert FIRST blank, formatted diskette in drive B:
  21.   echo off
  22.  
  23. rem working disk #1
  24.   unpack mssrc %1 MsBuild.bat
  25. :1
  26.   unpack mssrc %1 MsDirect.inc
  27.   unpack mssrc %1 Errors.* MsVars.* MsScrn1.* MsString.* MsPtrOp.* EscSeq.* MsCmds.* Int24.*
  28.   if not %1==b: if not %1==B: goto :2
  29.   echo on
  30.   pause Insert SECOND blank, formatted diskette in drive B:
  31.   echo off
  32.  
  33. rem working disk #2
  34.   unpack mssrc %1 MsBuild.bat MsDirect.inc
  35. :2
  36.   unpack mssrc %1 MsUser.* Message.* MsMesg.* MsMemOp.* MsBack.* MsScrn2.* MsMenu.*
  37.   unpack mssrc %1 MsCursor.inc MsFileIo.inc MsHelp.inc MsKeyBrd.Inc MsPrint.Inc MsPrompt.Inc MsUserIo.inc MsWindow.inc
  38.   if not %1==b: if not %1==B: goto :3
  39.   echo on
  40.   pause Insert THIRD blank, formatted diskette in drive B:
  41.   echo off
  42.  
  43. rem working disk #3
  44.   unpack mssrc %1 MsBuild.bat MsDirect.inc
  45. :3
  46.   unpack mssrc %1 MsDir.* MsEdit.* MsText.* MsTabs.* MsBlok.* MsFind.* MsFile.* MsMacro.*
  47.   if not %1==b: if not %1==B: goto :4
  48.   echo on
  49.   pause Insert FOURTH blank, formatted diskette in drive B:
  50.   echo off
  51.  
  52. rem working disk #4
  53.   unpack mssrc %1 MsBuild.bat MsDirect.inc
  54. :4
  55.   unpack mssrc %1 MsSet.* MsPrtM.* MsSpell.* Invoke.* MsInvoke.* MsMain.*
  56.   if not %1==b: if not %1==B: goto :5
  57.   echo on
  58.   pause Insert FIFTH blank, formatted diskette in drive B:
  59.   echo off
  60.  
  61. rem working disk #5
  62.   unpack mssrc %1 MsBuild.bat MsDirect.inc
  63. :5
  64.   unpack mssrc %1 Ms.pas
  65.   echo MicroStar unpacking done
  66.  
  67. :done
  68.