... UPDMETER(CFILE,OMETER,NPOS,nctr,NLEN,ODLG,DLGFILE,OBJFILE) NCTR++ DLGFILE := CFILE + SPACE(30) OBJFILE:REFRESH() ometer:set(nCTR * 100 / NLEN) sysrefresh() return nil //----------------------------------------------------------------------------// FUNCTION REST(fico) LOCAL SOUSREP := .F., ; ...