HP 16554A Programmer's Manual page 315

1540 !
1550 ENTER 707 USING "#,2A";Error$
1555 ENTER 707 USING "#,1A";Comma$
1560 ENTER 707 USING "K";Line$
1570 GOTO 1610
1580 !
1590 ENTER 707 USING "#,3A";Error$
1595 ENTER 707 USING "#,1A";Comma$
1600 ENTER 707 USING "K";Line$
1610 !
1620 ! ************************************************************************
1630 ! Test for the last error.
1640 ! as the error number of the first number after the last error.
1650 !
1660 Error_line=IVAL(Line$,10)
1670 IF Error_line=Error_line2 THEN GOTO 1780
1680 Error_line2=Error_line
1690 !
1700 ! ************************************************************************
1710 ! Print the error numbers and the corresponding line numbers on the
1720 ! controller screen.
1730 !
1740 PRINT "Error number ",Error," is on line number ",Error_line
1750 !
1760 NEXT Error
1770 !
1780 PRINT
1790 PRINT
1800 PRINT "Last error found"
1810 GOTO 1850
1820 PRINT "No errors found"
1830 !
1840 !
1850 END
Making a State Compare Analyzer Measurement
The error number of the last error is the same
Programming Examples
18–13