Modify filtering routine, add condition in data from data areas, add rollup routine. Set timer condition to 21, if condition is reached goto exit program routine. Create routine for loading of subfile data to window screen.