X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a1f4e52df60d8f26327ed57f5a9e7b70d0a04273..8e9db35f299d8f606ba003d3cd8fa9e2c868c880:/fth/utils/load_file.fth

diff --git a/fth/utils/load_file.fth b/fth/utils/load_file.fth
index 669ffc3..d015c6a 100644
--- a/fth/utils/load_file.fth
+++ b/fth/utils/load_file.fth
@@ -1,39 +1,39 @@
-\ Load a file into an allocated memory image.
-\
-\ Author: Phil Burk
-\ Copyright 3DO 1995
-
-anew task-load_file.fth
-
-: $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }
-	0 -> data
-\ open file
-	$filename count r/o open-file -> err -> fid
-	err
-	IF
-		." $LOAD.FILE - Could not open input file!" cr
-	ELSE
-\ determine size of file
-		fid file-size -> err -> numbytes
-		err
-		IF
-			 ." $LOAD.FILE - File size failed!" cr
-		ELSE
-			." File size = " numbytes . cr
-\ allocate memory for sample, when done free memory using FREE
-			numbytes allocate -> err -> data
-			err
-			IF
-				." $LOAD.FILE - Memory allocation failed!" cr
-			ELSE
-\ read data
-				data numbytes fid read-file -> err
-				." Read " . ." bytes from file " $filename count type cr
-			THEN
-		THEN
-		fid close-file drop
-	THEN
-	data err
-;
-
-\ Example:   c" myfile" $load.file   abort" Oops!"   free .
+\ Load a file into an allocated memory image.
+\
+\ Author: Phil Burk
+\ Copyright 3DO 1995
+
+anew task-load_file.fth
+
+: $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }
+    0 -> data
+\ open file
+    $filename count r/o open-file -> err -> fid
+    err
+    IF
+        ." $LOAD.FILE - Could not open input file!" cr
+    ELSE
+\ determine size of file
+        fid file-size -> err -> numbytes
+        err
+        IF
+             ." $LOAD.FILE - File size failed!" cr
+        ELSE
+            ." File size = " numbytes . cr
+\ allocate memory for sample, when done free memory using FREE
+            numbytes allocate -> err -> data
+            err
+            IF
+                ." $LOAD.FILE - Memory allocation failed!" cr
+            ELSE
+\ read data
+                data numbytes fid read-file -> err
+                ." Read " . ." bytes from file " $filename count type cr
+            THEN
+        THEN
+        fid close-file drop
+    THEN
+    data err
+;
+
+\ Example:   c" myfile" $load.file   abort" Oops!"   free .