added sysprog entities
This commit is contained in:
24
SYSPROG/STPROC/TEMP2.txt
Normal file
24
SYSPROG/STPROC/TEMP2.txt
Normal file
@ -0,0 +1,24 @@
|
||||
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
|
Reference in New Issue
Block a user