;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; PROCEDURE Gal1                     ;;;
;;; PROGRAMMERS EXTRAORDINAIRE         ;;;
;;; Darrin Casebeer &                  ;;;
;;; Kevin Tubbs                        ;;;
;;; Date: 6/01/98-8/08/98              ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;Gal1 is a demo procedure to run PRO Galaxy with preset defaults
;It set values and passes them to Galaxy.
;
PRO GAL1,base 
M1=1
M2=3
NRR=8
NRS=80
VX2=-20
VY2=-20
VZ2=-20
NTSPR=75
GALAXY, M1,M2,NRR,NRS,VX2,VY2,VZ2,NTSPR
END