CLEAR
SET TALK OFF
SET INTENSITY OFF
STORE '                     ' TO IBLK:
STORE '000000000000000000000' TO I0:
STORE '999999999999999999999' TO I9:
IF FILE('SYSIMP.CMD')
   DO SYSIMP
   DELETE FILE SYSIMP.CMD
ENDIF
IF .NOT. FILE('SYSCHK.NDX')
   USE SYSCHK
   INDEX ON TRANS:CD TO SYSCHK
   USE
ENDIF
SELECT SECONDARY
USE SYSCHK INDEX SYSCHK
STORE ' ' TO VAL::DTE
ERASE
STORE 0 TO I:STAT
SELECT SECONDARY
   DO SYSBLD
   IF I:STAT <> 0
       IF I:STAT = 2
       QUIT
       ENDIF
       DELETE
       USE SYSCHK
       PACK
       INDEX ON TRANS:CD TO SYSCHK
       USE
       QUIT
   ELSE
       ERASE
       STORE "'SYSTEM " + TRANS:CD + "'" TO I:BUILD
       QUIT TO &I:BUILD
   ENDIF
RETURN