25 lines
559 B
Plaintext
25 lines
559 B
Plaintext
Compile Subroutine Temp(dummy)
|
|
|
|
Debug
|
|
|
|
Open 'SYSENV' To hSysenv Then
|
|
Open 'TEMP_SYSENV' To hNewSysenv Then
|
|
Select hSysenv
|
|
EOF = 0
|
|
Loop
|
|
Readnext Key Else EOF = 1
|
|
Until EOF
|
|
//If IndexC(Key, 'SRP', 1) then
|
|
Read Rec From hSysenv, Key Then
|
|
Write Rec To hNewSysenv, Key Else
|
|
Debug
|
|
end
|
|
End
|
|
//end
|
|
Repeat
|
|
End
|
|
End
|
|
|
|
|
|
return
|