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% ,... (weitere globale Variablen)
DBF$ = "Test.dbf"
saveY2K   qui Wert de YLUpdate% sollte maintenant pas plus modifié volonté!
db("open",#1,DBF$)
Bearbeitung qui Tabelle
db("close",#1)
restoreY2K
end