From 01b00fb56dbd59782d2b2334b0e0c13bc2d41e09 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Fri, 21 Oct 2016 16:27:19 -0400
Subject: Implemented deploying a static directory.

---
 copy.bas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 copy.bas

(limited to 'copy.bas')

diff --git a/copy.bas b/copy.bas
new file mode 100644
index 0000000..75e2a2b
--- /dev/null
+++ b/copy.bas
@@ -0,0 +1,14 @@
+21000 REM ===========================
+21001 REM Copy the contents of a
+21002 REM directory to another
+21003 REM directory
+21004 REM INPUT - SRCD$ Source dir
+21005 REM         DESTD$ Destination
+21006 REM ===========================
+21010 DIREC$ = SRCD$
+21020 GOSUB 15000
+21030 FOR ICF = 1 TO LC
+21040     FULLFILE$ = SRCD$ + "\" + FL$[ICF]
+21050     SHELL "COPY "+FULLFILE$+" "+DESTD$
+21060 NEXT ICF
+21070 RETURN
-- 
cgit v1.2.3