25 lines
501 B
Plaintext
25 lines
501 B
Plaintext
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
|