Update HD install script

src/scripts/hdinstall.4th

@@ -8,35 +8,71 @@ SRC" conio.4th"
       BL WORD FIND IF
         CASE
           ' RESUME OF
-            R> 1- -DUP 0= IF EXIT THEN
+            R> 1- ?DUP 0= IF
+              DROP EXIT
+            THEN
             >R
             ENDOF
           ' ?EXEC OF
             R> 1+ >R
             ENDOF
         ENDCASE
-      ELSE DROP
+      ELSE
+        DROP
       THEN
     AGAIN
   THEN
 ;
 
+: INPUTSTR"
+  COMPILE ."
+  DUP 1+ 255 ACCEPT SWAP C!
+;
+: STRING CREATE 256 ALLOT DOES> ;
+
+: CONFIRM"
+  COMPILE ."
+  ."  (Y/N)"
+  KEY CR TOUPPER CHAR Y =
+;
+
+STRING DEST
+STRING FILELIST
+
 HOME
-." Copying system files to /RAM4..." CR
-  COPY" -R PLVM16 CMD128 SYS /RAM4"
-." Copy demos (Y/N)?"
-KEY CR TOUPPER CHAR Y = ?EXEC
-  COPY" -R DEMOS /RAM4"
+12 SPACES INVERSETEXT
+." PLASMA HD INSTALL"
+NORMALTEXT CR CR
+0 1 40 23 VIEWPORT
+DEST INPUTSTR" Enter destination "
+DEST C@ 0= ?ABORT" Destination required"
+
+." Copying system files to " DEST (.") CR
+FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
+" COPY" SWAP LOADMOD
+
+CONFIRM" Copy demos?"
+?EXEC
+  FILELIST " -R DEMOS " STRCPY DEST STRCAT
+  " COPY" SWAP LOADMOD
 RESUME
-." Copy build tools (Y/N)?"
-KEY CR TOUPPER CHAR Y = ?EXEC
-  NEWDIR" /RAM4/BLD
-  COPY" BLD/PLASM BLD/CODEOPT /RAM4/BLD"
-  COPY" -R BLD/INC /RAM4/BLD"
-  ." Copy sample code (Y/N)?"
-  KEY CR TOUPPER CHAR Y = ?EXEC
-    COPY" -R BLD/SAMPLES /RAM4/BLD"
+
+CONFIRM" Copy build tools?"
+?EXEC
+  DEST " /BLD" STRCAT DROP
+  " NEWDIR" DEST LOADMOD
+  FILELIST " BLD/PLASM BLD/CODEOPT " STRCPY
+  DEST STRCAT
+  " COPY" SWAP LOADMOD
+  FILELIST " -R BLD/INC " STRCPY DEST STRCAT
+  " COPY" SWAP LOADMOD
+  CONFIRM" Copy sample code?"
+  ?EXEC
+    FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT
+    " COPY" SWAP LOADMOD
   RESUME
 RESUME
+
 ." Done" CR
+0 0 40 24 VIEWPORT
 BYE