ADDED   batchsim/Makefile
Index: batchsim/Makefile
==================================================================
--- /dev/null
+++ batchsim/Makefile
@@ -0,0 +1,3 @@
+
+batchsim : batchsim.scm
+	csc batchsim.scm

Index: batchsim/batchsim.scm
==================================================================
--- batchsim/batchsim.scm
+++ batchsim/batchsim.scm
@@ -1,8 +1,8 @@
 (use ezxdisp srfi-18)
 
-(define *ezx* (ezx-init 650 650 "Test Critter"))
+(define *ezx* (ezx-init 650 650 "Batch simulator"))
 (require-library ezxgui)
 (define *green*  (make-ezx-color 0 1 0)) 
 (define *black*  (make-ezx-color 0 0 0))
 (define *grey*   (make-ezx-color 0.1 0.1 0.1))
 (define *blue*   (make-ezx-color 0 0 1)) 
@@ -344,11 +344,10 @@
 			(ezx-fillrect-2d *ezx* x1 y2 x2 origin-y (get-user-color user))
 			(if (not (null? tal))
 			    (loop (car tal)(cdr tal) x1)))))
 		(ezx-redraw *ezx*)))))))
 	  
-;; (let* ((args  (argv))
-;;        (fname (if (> (length args) 1)
-;; 		  (cadr args)
-;; 		  "default.scm")))
-
-(load "default.scm")
+(let* ((args  (argv))
+       (fname (if (> (length args) 1)
+		  (cadr args)
+ 		  "default.scm")))
+  (load (if (file-exists? fname) fname "default.scm")))