/*
 * $VER: PlayEveryProject.ma 1.0 (15.9.94)
 *
 * Play every project one time.
 *
 */

OPTIONS RESULTS

ADDRESS MABROADCAST

SETADDDISPLAYSETTINGS REPEAT 1 /* Play only one time */

GETNUMBEROFPROJECTS           /* How many projects are open ? */
Projects=RESULT

DO i=1 TO Projects

 GETPROJECTPORT               /* Get the name of the arexx port  */
                              /* of the actual project in RESULT */


 ADDRESS value RESULT         /* Address the actual project */
 PLAYPROJECT                  /* Play it */

 ADDRESS MABROADCAST
 SETACTUALPROJECT SWITCHRIGHT /* Switch to next project */

END