Program to test scripts

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