Compile Subroutine Temp2(dummy) debug Open 'SYSENV' To hSysenv Then Open 'TEMP_SYSENV' To hTempSysenv Then Select hSysenv EOF = 0 Loop Readnext Key Else EOF = 1 Until EOF Read Rec From hSysenv, Key Then Write Rec To hTempSysenv, Key Else Debug end End Repeat End End return