XProfan

proc saveY2K

    assign DBF$,#1
    openRW #1
    seek #1,1
    YLUpdate%=getByte(#1)
    close #1

en

proc restoreY2k

    assign DBF$,#1
    openRW #1
    seek #1,1
    putByte #1,YLUpdate% MOD 100
    close #1

endproc

--- Hauptprogamm -------------------------------------
declare DBF$,YLUpdate% ,... (further globale variables)
DBF$ = "Test.dbf"
saveY2k   the worth of YLUpdate% ought to now not More changed go!
db("open",#1,DBF$)
edit the scheduler
db("close",#1)
restoreY2k
end