TPRD:NUMC ÙªPRD:DESCCâªPRD:COSTN ûªPRD:PRICEN «ON:HANDN «ON:ORDERN«REODR:PTN«REODR:DTEC«DISTRIBC$«PHONEC8« Î žLASTDEPÎ žLASTCHKÎ žÌFžMENU.CMD (.PRG) TO loop2 ENDIF ENDDO loop2 IF !(answer)="Y" * data is correct - add to database APPEND BLANK REPLACE Chkno WITH mchkno REPLACE Date WITH mdate REPLACE Payto WITH mpayto REPLACE Amt WITH mamt REPLACE Memo WITH mmemo REPLACE Can WITH mcan * update balance and lastchk STORE balance - Amt TO ba