Model 7475A
Section II
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830
840
850
860
870
880
890
900
910
920
930
940
950
960
OUTPUT N
USING
"1,K"
NEXT I
II
LB"
' VAL$ ( I ) '
CHR
$ ( 1 3 ) '
CHR
$ ( 3 ) '
II
PR
1 011 '
0"
OUTPUT N LISI
NG
II
I'
K"
OUTPUT N LISI
NG
II
I'
K"
GOSUB
1180
OUTPUT N LISI
NG
II
I'
K"
GOSUB
1220
"PA4830,516;LBinches",CHRSC3l
II
PA8088'
2464"
II
PA2022'
4064"
OUTPUT N LISI
NG
II
I'
K"
I
"FT1,0,90PA9722,3570PT.5WG700,240,60SP5EW700,240,60"
!
DRAW
CIRCULAR FAN
I
OUTPUT N
USING
11
1,K"
;
"SP4PA5080,4064"
FOR
I•108
TO
508
STEP
100
OUTPUT
705
LISI
NG
II.'
K"
NEXT I
II
CI
II'
I
OUTPUT
705
LISI
NG
II
I'
K"
DEG
"SP6IW3580,2564,6580,5564PA3580,2564ER3000,3000SP5"
FOR
I•O
TO
345
STEP 15
X5•5080+508•COSCI>
Y5•4064+508•SINCil
OUTPUT N LISI
NG
"I,
K"
X5•5080+2200*COSCI)
Y5•4064+2200*SINCI>
OUTPUT N LISI
NG
II
I'
K"
NEXT I
OUTPUT N
USING
11
1,K"
GOSUB
1180
OUTPUT N LISI
NG
II
I'
K"
GOSUB
1220
OUTPUT N LISI
NG
II
I'
K"
970
I
DRAW
LABELS
980
I
"PA"
;VAL$CINTCX5l
>;"
,"
;VAL$CINTCY5)
lj"PD"
II
PA" ; VAL$
(I
NT ( X5 ) ) ;
II
'
II
; VAL$
(I
NT (
Y5
) ) ;
II
PU"
I
"IWPA8088,4064;"
II
PA2022'
5664"
"FT4,
50,
90PA9722,
2030WG3so
.•
o,
3SOSP6EW35o, o,
:iso;"
990
OUTPUT N
USING
11
1,K"
;
"SP6PA3810,6514"
1000
OUTPUT N
USING
11
1,K"
"VSSI1,1SL.45LB7475A",CHRSC3>
1010
OUTPUT N LISI
NG
II
I,
K"
II
PA4645,
1778"
1020
OUTPUT N
USING
11
1,K"
"SISLLBFeatures"
,,CHR$C3l
1030
OUTPUT N
USING
11
1,K"
"CP-6,-1L8Plot",CHR$C3l
1040
OUTPUT N
USING
11
1,K"
"PA8088,5664"
1050
GOSUB
1180
1
060
OUTPUT N LISI
NG
II
1,
K"
1070
GOSUB
1220
1
080
OUTPUT N LISI
NG
"11, K"
1090
I
1100
I
FRAME
WINDOW
1110
I
1120
OUTPUT N
USING
11
1,K"
1130
OUTPUT N
USING
11
1,K"
1140
END
1150
I
"PA808B,2464;"
"FT4,100,45PA9372,490RR700,700SP1ER700,700"
"PA5080,4064PDPU"
;X3;"
,"
;Y3
II
EA" ;
X4;
II
'II
;
Y4;
II
SPOPA" ;
X4;
II
'II
;
Y4;
II
;
II
1160
! PEN
TO
PEN
REPEATABILITY
SUBROUTINES
1170
I
1180
OUTPUT N USING
11
1,K"
1190
OUTPUT N USING
11
1,K"
1200
RETURN
1210
I
"PR9,
-9PD247,0,0,
18,
-247,0,0,247,
-10,0,0,
-:~47,"
II
- 2 4
7,
0'
0'
- 1
8'
2 4
7,
0, 0,
- 2 4
7'
1
8'
0' 0'
2 4 7 PU"
1220
OUTPUT N
USING
11
1,K"
;
"PR0,512PD0,-1024PU-512,512PD1024,0PU"
1230
I OUTPUT N USING
11
11,K" ;
"-512,0,512,o,o,-512,0,512CI512PU;"
1240
RETURN
1250
I
1260
I
HP
85
RS232C
INTERFACE SETUP
1270
I
1280
CONTROL
10,1
1290
CONTROL
10,2
1300
CONTROL
10,3
7475-A-34-1
16 I RECEIVED DATA GENERATES INTERRUPT
5 I
ACTIVATES
DTR
& CTS
11
I
ACT!
VATES RTS,
DRS
&
DTR
Figure
2-3.
Test Program
(Sheet
2
of
3)
2-7
To Next Page
Loading...
