屋價函式

PROCEDURE AddOne
  APPEND BLANK
  REPLACE A0101 WITH xA0101,A0102 WITH xA0102,A0103 WITH xA0103,A0104 WITH xA0104, ;
          A0105 WITH xA0105,A0106 WITH xA0106,A0107 WITH xA0107,A0108 WITH xA0108, ;
          A0109 WITH xA0109,A0110 WITH xA0110
PROCEDURE ModifyOne
  GO xRECNO
  IF .NOT. EOF()
    REPLACE A0101 WITH xA0101,A0102 WITH xA0102,A0103 WITH xA0103,A0104 WITH xA0104, ;
            A0105 WITH xA0105,A0106 WITH xA0106,A0107 WITH xA0107,A0108 WITH xA0108, ;
            A0109 WITH xA0109,A0110 WITH xA0110
  ENDIF
PROCEDURE DeleteOne
  GO xRECNO
  IF .NOT. EOF()
    DELETE
  ENDIF