moved run to xrun file

pkgs/htdp-pkgs/htdp-test/2htdp/utest/balls.rkt

@@ -1,5 +1,7 @@
 #lang scheme
 
+(provide run)
+
 (require 2htdp/universe htdp/testing)
 
 ;; rotate through a bunch of players with the ball until nobody is left 
@@ -84,4 +86,4 @@
             (on-msg switch)
             (on-disconnect disconnect)))
 
-(run 'go)
+; (run 'go)

pkgs/htdp-pkgs/htdp-test/2htdp/utest/player

@@ -3,7 +3,7 @@
 exec mred -qu "$0" ${1+"$@"}
 |#
 
-#lang scheme
+#lang racket
 
 (require "shared.ss")
 

pkgs/htdp-pkgs/htdp-test/2htdp/utest/xrun

@@ -1,3 +1,11 @@
-mred balls.ss &
-./player carl & 
-./player sam &
+#! /bin/sh
+#|
+exec racket -tm "$0" ${1+"$@"}
+|#
+
+#lang racket 
+
+(require 2htdp/universe "balls.rkt" "shared.ss")
+
+(launch-many-worlds (run 'go) (make-player 200 "carl") (make-player 200 "sam"))
+