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 -------------------------------------
declarar DBF$,YLUpdate% ,... (weitere globale Variables)
DBF$ = "Test.dbf"
saveY2K   el Valor de YLUpdate% debería ahora no mehr verändert voluntad!
db("open",#1,DBF$)
Bearbeitung el Tabla
db("close",#1)
restoreY2K
end