Comments for install script

src/scripts/hdinstall.4th

@@ -1,19 +1,19 @@
 SRC" plasma.4th"
 SRC" conio.4th"
-: RESUME ;
-: ?EXEC
-  NOT IF
+: RESUME> ; ( PLACE HOLDER TO RESUME EXECUTION )
+: ?EXEC ( F -- )
+  NOT IF ( SKIP CODE IN BETWEEN ?EXEC AND RESUME> )
     1 >R
     BEGIN
       BL WORD FIND IF
         CASE
-          ' RESUME OF
-            R> 1- ?DUP 0= IF
+          ' RESUME> OF
+            R> 1- ?DUP 0= IF ( EXIT IF FINAL RESUME> )
               DROP EXIT
             THEN
             >R
             ENDOF
-          ' ?EXEC OF
+          ' ?EXEC OF ( CHECK FOR NESTED ?EXEC )
             R> 1+ >R
             ENDOF
         ENDCASE
@@ -24,13 +24,13 @@ SRC" conio.4th"
   THEN
 ;
 
-: INPUTSTR"
+: INPUTSTR" ( STR -- )
   COMPILE ."
   DUP 1+ 255 ACCEPT SWAP C!
 ;
-: STRING CREATE 256 ALLOT DOES> ;
+: STRING CREATE 256 ALLOT DOES> ; ( JUST ALLOCATE THE BIGGEST STRING POSSIBLE )
 
-: CONFIRM"
+: CONFIRM" ( -- F )
   COMPILE ."
   ."  (Y/N)"
   KEY CR TOUPPER CHAR Y =
@@ -43,9 +43,9 @@ HOME
 12 SPACES INVERSETEXT
 ." PLASMA HD INSTALL"
 NORMALTEXT CR CR
-0 1 40 23 VIEWPORT
 DEST INPUTSTR" Enter destination "
 DEST C@ 0= ?ABORT" Destination required"
+0 1 40 23 VIEWPORT
 
 ." Copying system files to " DEST (.") CR
 FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
@@ -55,7 +55,7 @@ CONFIRM" Copy demos?"
 ?EXEC
   FILELIST " -R DEMOS " STRCPY DEST STRCAT
   " COPY" SWAP LOADMOD
-RESUME
+RESUME>
 
 CONFIRM" Copy build tools?"
 ?EXEC
@@ -66,12 +66,14 @@ CONFIRM" Copy build tools?"
   " 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
+  RESUME>
+
+RESUME>
 
 ." Done" CR
 0 0 40 24 VIEWPORT