
Programming
Examples
928
929
OUTPUT
@Nwa;"ENTO;"
930
PRINTER
IS
1
931
LINPUT
"Press
Return",Input$
932
!
933
Example14a:
!
PLOT
TO
PLOTTER
ON
8510
SYSTEM
BUS
*************
934
!
935
"Plot
Label
via
Pass-Thru."
936
OUTPUT
@Nwa;"ADDRPASS
05;"
937
OUTPUT
@Nwa_systbus;"CS;PU;SP1;PA
2500,2500;PD;LB
PASS-THRU^C;PU;SP0;"
938
OUTPUT
@Nwa;"ENTO;"
939
LINPUT
"Press
Return",Input$
940
RETURN
941
!
942
Example15:
!
PLOT
USER
DISPLAY
USING
HP-GL
SUBSET
(8510C)
*****
943
!
944
!
8510C:
X=0-5733
Y=0-4095
945
!
946
Plot_absolute:
!
947
948
"Example
15,
User
Display."
949
OUTPUT
@Nwa;"ADDRPASS
31;"
950
OUTPUT
@Nwa_systbus;"PG;
CS;
DF;"
!
User
display
on
and
clear
951
!
952
OUTPUT
@Nwa_systbus;"SP1;
PA
0,0;
PD;"
953
OUTPUT
@Nwa_systbus;"PA
0,4095,
5733,4095,
5733,0,
0,0;"
954
OUTPUT
@Nwa_systbus;"PU;
PA
2475,3950;
PD;
LBFULL
SCREEN^C;"
955
OUTPUT
@Nwa_systbus;"PU;"
956
LINPUT
"Press
Return",Input$
957
!
958
OUTPUT
@Nwa_systbus;"SP2;
PA
180,384;
PD;"
959
OUTPUT
@Nwa_systbus;"PA
180,3585,
4660,3585,
4660,384,
180,384;"
960
OUTPUT
@Nwa_systbus;"PU;
PA
2420,1980;
PD;"
!
Polar
Center
961
GOSUB
Draw_cross
962
OUTPUT
@Nwa_systbus;"PU;
PA
2000,3300;
PD;
LBSINGLE
CHANNEL^C;"
963
OUTPUT
@Nwa_systbus;"PU;"
964
LINPUT
"Press
Return",Input$
965
!
966
OUTPUT
@Nwa_systbus;"SP3;
PA
180,1180;
PD;"
967
OUTPUT
@Nwa_systbus;"PA
180,2780,
2420,2780,
2420,1180,
180,1180;"
968
OUTPUT
@Nwa_systbus;"PU;
PA
1300,1980;
PD;"
!
Polar
Center
969
GOSUB
Draw_cross
970
OUTPUT
@Nwa_systbus;"PU;
PA
250,1500;
PD;
LBDUAL,
CHANNEL
1^C;"
971
OUTPUT
@Nwa_systbus;"PU;"
972
LINPUT
"Press
Return",Input$
973
!
974
OUTPUT
@Nwa_systbus;"SP4;
PA
2465,1180;
PD;"
975
OUTPUT
@Nwa_systbus;"PA
2465,2780,
4705,2780,
4705,1180,
2465,1180;"
976
OUTPUT
@Nwa_systbus;"PU;
PA
3585,1980;
PD;"
!
Polar
Center
977
GOSUB
Draw_cross
978
OUTPUT
@Nwa_systbus;"PU;
PA
2665,1500;
PD;
LBDUAL,
CHANNEL
2^C;"
979
OUTPUT
@Nwa_systbus;"PU;"
980
LINPUT
"Press
Return",Input$
981
!
982
OUTPUT
@Nwa_systbus;"SP5;
PA
180,210;
PD;"
983
OUTPUT
@Nwa_systbus;"PA
180,1760,
2335,1760,
2335,210,
180,210;"
984
OUTPUT
@Nwa_systbus;"PU;
PA
1255,980;
PD;"
!
Polar
Center
985
GOSUB
Draw_cross
986
OUTPUT
@Nwa_systbus;"SP6;
PU;
PA
180,2260;
PD;"
GPIB
Programming
13-57
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: ......