1210 ! enters the line numbers and error numbers.
1220 !
1230 DIM Line$[20]
1240 DIM Error$[4]
1250 DIM Comma$[1]
1260 !
1270 ! ***********************************************************************
1280 ! Display the Difference listing.
1290 !
1300 OUTPUT 707; ":MACHINE1:C OMPARE:MENU DI FFERENCE"
1310 !
1320 ! ************************************************************************
1330 ! Loop to query all 508 possible errors.
1340 !
1350 FOR Error=1 TO 508
1360 !
1370 ! Read the comp are difference s
1380 !
1390 OUTPUT 707; ":MACHINE1:C OMPARE:FIND? "&VAL$(Error)
1400 !
1410 ! ************************************************************************
1420 ! Format the Error$ string data for display on the controller screen.
1430 !
1440 IF Error99 TH EN GOTO 1580
1450 IF Error9 THEN GOTO 1550
1460 !
1470 ENTER 707 USING "#,1A";Error$
1480 ENTER 707 USING "#,1A";Comma$
1490 ENTER 707 USING "K";Line$
1500 Error_return=IVAL(Error$,10)
1510 IF Error_re turn=0 THEN GOTO 1820
1520 !
1530 GOTO 1610
1540 !
1550 ENTER 707 USING "#,3A";Error$
1560 ENTER 707 USING "K";Line$
1570 GOTO 1610
1580 !
1590 ENTER 707 USING "#,4A";Error$
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 nu mber of the first nu mber after the las t error.
1650 !
Programming Examples
Making a State Compare measurement
36–12