Programming Examples

Making a State Compare Analyzer Measurement

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. The error number of the last error is the same 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

18–13

Page 315
Image 315
HP 16555D, 16555A, 16554A manual 18-13