home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / FAMAPI.ZIP / SAVE.BTM < prev   
Text File  |  1993-06-13  |  2KB  |  53 lines
  1. @ECHO OFF
  2. SETLOCAL
  3.  
  4. ECHO SAVE V1.0 Save the source and makefile for the Family API library
  5. ECHO (c) Copyright 1992 Jonathan de Boyne Pollard.  All rights reserved.
  6.  
  7. set BtmDate=%@Date[%@FileDate[%@Search[ %0 ]]]
  8. iff %_DOS EQ DOS then
  9.     set ZipCmd=pkzip -rup -wHS -ex -o-
  10.     set ZipFiles=*.* ..\include\include.zip -x*.lst -x*.bak -x*.sym -x*.$$$
  11. else
  12.     set ZipCmd=zip -r -u -k -o -9
  13.     set ZipFiles=* ..\include\include.zip -x *.lst *.bak *.sym *.$$$
  14. endiff
  15. iff "%1" == "" then
  16.     set Drive=A:
  17. else
  18.     set Drive=%1
  19. endiff
  20.  
  21. iff not exist FamAPI.ZIP .or. %@Date[%@FileDate[ FamAPI.ZIP ]] LT %BtmDate then
  22. text | pkzip -z FamAPI
  23. Family API C++ Library
  24.  
  25.      ═══════════════════════════════════════════════════════════════════
  26.         JdeBP Family API C++ Library     General Public Licence v1.00
  27.                Copyright (c) 1991,1992  G.B. Computers Limited
  28.      ═══════════════════════════════════════════════════════════════════
  29.  
  30.                        Release 1.00 -- 06th April 1993
  31.  
  32.            You will need Info-ZIP's UNZIP to extract this archive,
  33.                or use the -D option to PKUNZIP version 2.04g.
  34.  
  35.   = All batch files were written for the 4DOS or 4OS2 command processors. =
  36.  
  37. endtext
  38. describe FamAPI.zip "ZIP file of the Family API Library"
  39. endiff
  40.  
  41. %ZipCmd% FamAPI %ZipFiles%
  42.  
  43. :AGAIN1
  44. iff not %@READY[%Drive%] EQ 1 then
  45. else
  46.     goto READY1
  47. endiff
  48. Pause Insert a disc in drive %Drive% and press any key :
  49. goto AGAIN1
  50. :READY1
  51.  
  52. copy /u FamAPI.zip %Drive%\
  53.