ARBSRC
10 ! ARBSRC
20 !———————————————————————————————————
30 !BASIC/IBASIC Program; ARB_EXAMPLE
40 ! This program sets up a register header, generates data of the correct
50 ! size and downloads it into the instrument. It then allows the user to
60 ! view the results, if the source is connected to Channel 1. This program
70 ! will also distinguish between IBASIC and BASIC run modes.
80 !———————————————————————————————————
90 !
100 ON ERROR GOTO Not_ibasic !
110 Device=800
120 CLEAR Device
130 GOTO Start_prog
140 !
150 Not_ibasic:
160 !
170 Start_prog:
180 OFF ERROR
190 !
200 !
210 ASSIGN @Analyzer TO Device
220 !
230 !
240 ASSIGN @Analyzer_bin TO DEVICE;FORMAT OFF
250 !
260 OUTPUT @Analyzer;"*RST"
270 OUTPUT @Analyzer;"inp2 on"
280 OUTPUT @Analyzer;"ABOR;:INIT; *WAI"
290 OUTPUT @Analyzer;"INIT:CONT OFF"
300 !
310 INTEGER Res,Max_i,T
320 DIM Tones(1)
330 DIM D(20000)
340 RAD
350 !
360 Span=102400
370 Res=400
380 !
390 Tones(0)=7680
400 Tones(1)=32000
410 !
Program listing continues on page F-5.
Example Programs
ARBSRC
F-3