

10 '   ******************************************************************
20 '   * Example EXAM5.BAS                                              *
30 '   * readout of cursor values max and min                           *
40 '   * frequency sweep measurement                                    *
50 '   * Setup for this example: EXAM5.SAC (Actual Setup Mode!)         *
60 '   ******************************************************************
70 '
80 UPL OUT "MMEM:LOAD:STAT 0,'C:\UPL\B10_EXAM\EXAM5.SAC'": 'load setup
90 '
100 UPL OUT "init:cont off;*WAI": '           set single sweep
110 UPL GTL U: '                              Graphic and BASIC simultaneous
120 UPL OUT "disp:trac:curs:pos:mode min1": ' set cursor to min
130 UPL OUT "disp:trac:curs:data?": '         ask for cursor data
140 UPL IN W$: W$=LEFT$(W$,8): '              reading and
150 PRINT "Min-Level = ";W$;" dBV": '         printing of value
160 UPL OUT "disp:trac:curs:pos:mode max1": ' set cursor to max
170 UPL OUT "disp:trac:curs:data?": '         ask for cursor data
180 UPL IN W$: W$=LEFT$(W$,8): '              reading and
190 PRINT "Max-Level = ";W$;" dBV": '         printing of value
200 INPUT "Any key:";X$: '                    switch back to BASIC
210 END 
