Flushes the memory buffer and performs a hard-disk write
FUNCTION Main()
LOCAL cName:=SPACE(40)
LOCAL nId:=0
USE Test EXCLUSIVE NEW
USE TestId New INDEX Testid
//
@ 10, 10 GET cName
@ 11, 10 GET nId
READ
//
IF UPDATED()
APPEND BLANK
REPLACE Tests->Name WITH cName
REPLACE Tests->Id WITH nId
IF !TestId->(DBSEEK(nId))
APPEND BLANK
REPLACE Tests->Id WITH nId
ENDIF
ENDIF
DBCOMMITALL()
RETURN NIL