70 lines
2.2 KiB
Plaintext
Executable File
70 lines
2.2 KiB
Plaintext
Executable File
$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
|