I found this was easier and more versatile than updating a program for every change. I could copy and paste back and forth from my Excel macro and my scripts file record.
*
* program : TOOLS.BP TEST,SCRIPTS
* programmer : Bruce Neylon
* Date : 01/07/08
*
* Description: Test scripts
* Syntax : TEST.SCRIPTS scriptid
*
**********************************************
* Modifications
*
**********************************************
* Variable setup
SENTENCE = @SENTENCE
IF FIELD(SENTENCE,' ',1) = 'RUN' THEN
SENTENCE = FIELD(SENTENCE,' ',3,999)
END
OPTIONS = FIELD(SENTENCE,'-',2)
SENTENCE = FIELD(SENTENCE,'-',1)
PRINT.ON = INDEX(OPTIONS,'P',1)
SQUAWK = INDEX(OPTIONS,'S',1)
PROGRAM.ID = FIELD(SENTENCE,' ',1)
SCRIPT.ID = FIELD(SENTENCE,' ',2)
EQU STX TO CHAR(2)
EQU CR TO CHAR(13)
EQU EM TO CHAR(25)
EQU ESC TO CHAR(27)
AM = @AM ; VM = @VM ; SVM = @SVM
TODAY = DATE()
OTODAY = TODAY"D4/"
NOW=TIME()
**** Open files ****
OPENERR = ''
OPEN 'SCRIPTS' TO F.SCRIPTS ELSE OPENERR<-1> = 'SCRIPTS'
IF OPENERR # '' THEN
ERR.CNT = DCOUNT(OPENERR<1>,VM)
FOR ERR.IDX = 1 TO ERR.CNT
PRINTERR 201:AM:OPENERR<ERR.IDX>
CRT
NEXT ERR.IDX
STOP
END
READ SCRIPT FROM F.SCRIPTS,SCRIPT.ID THEN
SCR = SCRIPT<1>
LINE.CNT = DCOUNT(SCRIPT,AM)
FOR LINE.PTR = 2 TO LINE.CNT
LINE = SCRIPT<LINE.PTR>
IF LINE[1,1] # '*' AND LINE[1,1] # '!' AND TRIM(LINE)#'' THEN
SCR := EM:LINE
END
NEXT LINE.PTR
PRINT ESC:STX:'P':SCR:CR:
END
STOP
|