HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

Appendix A 457

SAMPLE PROGRAMS

FORTRAN 77

ENDIF

! Do we need to refresh the display?

IF (STOP_ NOW.EQ.0

+ .AND.DONE_WITH_TXNS.EQ.0) THEN

IF (FOUND_DATA_ERRS.EQ.1

+ .AND.LASTKEY.NE.0) THEN

! The operator pressed some key other than <ENTER>

! or <EXIT> so clear data error flag to break loop.

FOUND_ DATA_ERRS = 0

END IF

END