
2-36
Sample Programs
BASIC Programming Examples
1180 SUB Srq_handler
1190 COM /Io/@Scope,Interface
1200 DIM Error_str$[64]
1210 INTEGER Srq_asserted,More_errors
1220 Status_byte=SPOLL(@Scope)
1230 IF BIT(Status_byte,6) THEN
1240 More_errors=1
1250 WHILE More_errors
1260 OUTPUT @Scope;":SYSTem:ERROR? STRING"
1270 ENTER @Scope;Error_str$
1280 PRINT
1290 PRINT Error_str$
1300 IF Error_str$[1,1]="0" THEN
1310 OUTPUT @Scope;"*CLS"
1320 More_errors=0
1330 END IF
1340 END WHILE
1350 ELSE
1360 PRINT
1370 PRINT "Scope did not cause SRQ"
1380 PRINT
1390 END IF
1400 ENABLE INTR Interface;2 !re-enable SRQ
1410 SUBEND
1420 !
1430 !
1440 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1450 !
1460 ! Subprogram name: Close
1470 ! Parameters: none
1480 ! Return value: none
1490 ! Description: This routine resets the interface.
1500 !
1510 !
1520 !
1530 SUB Close
1540 COM /Io/@Scope,Interface
1550
1560 RESET Interface
1570 SUBEND
1580 !
1590 !
1600 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Learn String Example
File: lrn_str.bas
10 !FILE: lrn_str.bas
20 !
Summary of Contents for 86100A
Page 18: ...1 14 Introduction Status Reporting Figure 1 4 Status Reporting Data Structures...
Page 19: ...1 15 Introduction Status Reporting Status Reporting Data Structures continued...
Page 94: ...2 40 Sample Programs BASIC Programming Examples...
Page 124: ...4 16 Root Level Commands VIEW...
Page 132: ...5 8 System Commands TIME...
Page 140: ...6 8 Acquire Commands SWAVeform RESet...
Page 152: ...7 12 Calibration Commands STATus...
Page 192: ...11 12 Display Commands SSAVer...
Page 202: ...12 10 Function Commands VERTical RANGe...
Page 203: ...13 AREA 13 2 DPRinter 13 2 FACTors 13 3 IMAGe 13 3 PRINters 13 4 Hardcopy Commands...
Page 316: ...21 12 TDR TDT Commands Rev A 05 00 and Below STIMulus...
Page 332: ......