$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
*****************************************************************************
*
*	Compile all BASIC programs
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*   05/13/91 8345  DTM changed print to tprint
*   3/14/91  7673  DTM Made changes to CHOICE.BOX.B
*	01/13/91 7673  DTM Put in final changes
*   11/08/90 7673  DTM Added motif menuing
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
******************************************************************************
id = "%W%"
*
TAG1 = @(68,0):"COMPILE.PGMS"
TAG2 = @(25,1):UVREADMSG(073711,"")
*
1     OPEN '','&SAVEDLISTS&' TO FVSAVEDLISTS ELSE
	 	CALL *HELP.PRINT.B(UVREADMSG(073005,"&SAVEDLISTS"),2)
		SLEEP 3
		STOP
      END
2     OPEN '','VOC' TO FVVOC ELSE
		CALL *HELP.PRINT.B(UVREADMSG(073005,"VOC"),2)
		SLEEP 3
		STOP
      END
      ID="COMPILE.PGMS"
	  Q=""
	  REC=""
      CALL *GET.PGMS(ID,Q,FVSAVEDLISTS,FVVOC,REC,SOURCE.MACHINE)
      IF Q = -1 OR Q = "XX" OR Q = "xx" OR Q = "^" THEN STOP
*
CALL *DRAW.SCRN.B(UVREADMSG(073710,""),1)
      PARAGRAPH = "PA"
      NBR.PROGRAMS = DCOUNT( REC, @AM )
      FOR I = 1 TO NBR.PROGRAMS
         PARAGRAPH< I + 1 > = "BASIC " : REC< I > : " * "
79    NEXT I
      WRITE PARAGRAPH ON FVVOC, "COMPILE.ALL.PGMS"
      CALL *HELP.PRINT.B(UVREADMSG(073702,"COMPILE.ALL.PGMS"),2)
*
9999  B.array=""
	  B.array<1>=1
	  B.array<2>=UVREADMSG(073029,"")
	  sel.val=1
	  CALL *CHOICE.BOX.B(11,3,75,UVREADMSG(073712,""),B.array,sel.val,"")
	  IF sel.val=-1 THEN STOP
	  CALL *HELP.PRINT.B(UVREADMSG(073711,""),2)
	  SLEEP 2
	  TPRINT @(-1)
      EXECUTE "COMPILE.ALL.PGMS" 
      STOP
*
*
END