
Programming
Examples
1330
!
1331
DEG
1332
Again26:
!
1333
Finish=0
1334
Offset=0
1335
!
1336
LINPUT
"ASCII
OR
FLOATING
POINT?
(Enter
A
or
F)",Input$
1337
IF
UPC$(Input$)="A"
THEN
1338
"Input
ASCII
(FORM4;)
Data"
1339
GOTO
Input_ascii
1340
ELSE
1341
"Input
Floating
Point
(FORM3;)
Data"
1342
END
IF
1343
!
1344
Input_fp:
!
Input
Floating
Point
1345
IF
Finish=1
THEN
GOTO
Exit_example26
1346
GOSUB
Compute_trace
1347
!
1348
OUTPUT
@Nwa;"FORM3;
INPUDATA;"
1349
OUTPUT
@Nwa_data2;Preamble,Size,Data(*)
1350
GOTO
Input_fp
1351
!
1352
Input_ascii:
!
Input
ASCII
1353
IF
Finish=1
THEN
GOTO
Exit_example26
1354
GOSUB
Compute_trace
1355
!
1356
OUTPUT
@Nwa;"FORM4;
INPUDATA;";
1357
OUTPUT
@Nwa_data1;Data_ascii$(*)
1358
!
1359
GOTO
Input_ascii
1360
!
1361
Finish:
!
Must
Finish
ASCII
Trace
Before
Exit
1362
Finish=1
1363
RETURN
1364
!
1365
Exit_example26:
!
1366
LINPUT
"Repeat
Example?
(Enter
Y
or
N)",Input$
1367
IF
UPC$(Input$)="Y"
THEN
GOTO
Again26
1368
GOSUB
Keys_off
1369
RETURN
1370
!
1371
Compute_trace:
!
1372
Offset=Offset-10
1373
FOR
I=0
TO
200
1374
Data(I,0)=SIN(2*I+Offset)
1375
Data(I,1)=COS(2*I)
1376
NEXT
I
1377
FOR
I=0
TO
200
1378
Data_ascii$(I,0)=VAL$(Data(I,0))
1379
Data_ascii$(I,1)=VAL$(Data(I,1))
1380
NEXT
I
1381
RETURN
1382
!
1383
Example27:
!
DELAY
TABLE
OPERATIONS
*****************************
1384
1385
"Example
27,
Delay
Table
Operations"
1386
!
1387
DISP
"Initializing
System"
1388
OUTPUT
@Nwa;"PRES;
LINP;
SING;
AUTO;
DATI;
DISPMATH;
MARK1;"
13-64
GPIB
Programming
Summary of Contents for 8510C
Page 7: ...vii ...
Page 29: ......
Page 61: ......
Page 105: ...FORMAT Functions Figure 4 12 Format Function Block and Format Menu 4 26 Measurement Controls ...
Page 106: ...FORMAT Functions Figure 4 13 Format Selections 1 of 2 Measurement Controls 4 27 ...
Page 107: ...FORMAT Functions Figure 4 14 Format Selections 2 of 2 4 28 Measurement Controls ...
Page 122: ...PARAMETER Functions Figure 4 25 Redefine Parameter Menu Structure Measurement Controls 4 43 ...
Page 175: ......
Page 203: ......
Page 273: ......
Page 297: ......
Page 305: ......
Page 391: ......