Agilent Technologies 1670G Printer Accessories User Manual


 
1190 !************************************************************************
1200 ! Dimension strings in which the compare find query (COMPARE:FIND?)
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:COMPARE:MENU DIFFERENCE"
1310 !
1320 ! **********************************************************************
1330 ! Loop to query all 508 possible errors.
1340 !
1350 FOR Error=1 TO 508
1360 !
1370 ! Read the compare differences
1380 !
1390 OUTPUT 707;":MACHINE1:COMPARE:FIND? "&VAL$(Error)
1400 !
1410 ! **********************************************************************
1420 ! Format the Error$ string data for display on the controller screen.
1430 !
1440 IF Error>99 THEN GOTO 1580
1450 IF Error>9 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_return=0 THEN GOTO 1820
1520 !
1530 GOTO 1610
1540 !
1550 ENTER 707 USING "#,2A";Error$
1551 ENTER 707 USING "#,1A";Comma$
1560 ENTER 707 USING "K";Line$
1570 GOTO 1610
1580 !
1590 ENTER 707 USING "#,3A";Error$
1591 ENTER 707 USING "#,1A";Comma$
1600 ENTER 707 USING "K";Line$
1610 !
Programming Examples
Making a State Compare Measurement
43–12