XProfan

proc saveY2K

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

endproc

proc restoreY2K

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

endproc

--- Hauptprogamm -------------------------------------
declare DBF$,YLUpdate% ,... (weitere globale Variablen)
DBF$ = "Test.dbf"
saveY2K   der Wert von YLUpdate% sollte jetzt nicht mehr verändert werden!
db("open",#1,DBF$)
Bearbeitung der Tabelle
db("close",#1)
restoreY2K
end