DO WHILE .T.
RESTORE FROM CAS
STORE 1 TO CL
SET EXCLUSIVE OFF
STORE 'LASTNUM' to dnet
STORE 'N' TO DNETAPPEND,MINUSE,HAVEMEAS
STORE ' ' TO INVMES,XRN,LW
DO NETERROR
SET FUNCTION 31 TO HOT1
SET FUNCTION 32 TO HOT2
SET FUNCTION 33 TO HOT3
STORE MEX TO EX
STORE CHKDATE TO MCHKDATE
STORE LAUTORUN TO MLAUTORUN
STORE PRTINIT TO MPRTINIT
STORE LASTFAX TO MLASTFAX
CLOSE DATA
IF TYPE("LALL") = 'U'
 STORE 'Y' TO LALL
ENDIF
IF TYPE("EX") = 'U'
 STORE 'N' TO EX
ENDIF
IF TYPE("IMON") = 'U'
 STORE '9110' TO IMON
ENDIF
IF TYPE("PCLOSE") = 'U'
 STORE '   ' TO PCLOSE
ENDIF
IF TYPE("MQRECNO") = 'U'
 STORE 1 TO MQRECNO 
ENDIF
IF TYPE("MQRECNO1") = 'U'
 STORE 1 TO MQRECNO1 
ENDIF
IF TYPE("MEMDB") = 'U'
 STORE 1 TO MEMDB 
ENDIF
IF TYPE("CL") = 'U'
 STORE 1 TO CL 
ENDIF
IF TYPE("MSELECT") = 'U'
 STORE ' ' TO MSELECT 
ENDIF
IF TYPE("MIORDER") = 'U'
 STORE '  ' TO MIORDER 
ENDIF
IF TYPE("CDB") = 'U'
 STORE 'N' TO CDB 
ENDIF
SET EXCLUSIVE OFF
STORE CHR(205) TO SEP
DO WHILE LEN(SEP) < 80
 STORE SEP+CHR(205) TO SEP
ENDDO
DO IMAINT
ENDDO