FILE
#
12
100
REM
High level learn
and
tolerance change
Program
110 ON
SRQ
THEN 450
120
DELETE F$vCvDvFvPvSvT
130
REM
Default
address
for
the
PSSOlO
140 P=22
150
PRINT
@P:'USER
ON'
160
PAGE
170 BRINY
180 PRINT
'
This ~rosfram
allows
uou
to
manuellw
set
UP
the
PSSOiO
190 PRINT
'
front panel and then chan~e the flostirtd
SUPP~V
voltages'
200
PRINT
'
hr
plus and
minus
a
selectable ~ercentagev br using them
310
PRINT
'
INST ID button
as
a
user
interru~t."
220
PRINT
230
PRINT
'
Enter percent tolerance chanse~ then RETURN.
'i
240
INPUT
T
250
PRINT
260
PRINT
'
Set
UP
front panel
fm
initial settin~sv then press
'
270
PRINT
'
PS5010 INST
ID
button."
280
WAIT
290
FRINP @P:'VNEG?iVPOS?'
300
INPUT @PtAvH
310 LET F=ltT/lOO
320
F'RINT
330 PRINT
'
F'lt~s
'
;Ti
'
percent tolerance.
'
340 PRINT @Pt8VNEG 'iA*Fi8iVFOS 'iB*F
350
WAIT
360
LET
F=l--T/lOO
370
F'RINT
380 PRINT
'
Minus VT;' percent tolerance/
390
PRINT
@Yt'VNEG
'iA*Fi'iVPOS 'iB*F
400 WAIT
410 PRINT
420
PRINT
'
Returned to initial settinsfst
'
430
PRINT @F:'VNEG 'iAi8iVPOS 'iE
440
GO TO
220
450
REM
SRQ Service routine
460
POLL L'1,SiF'
470
IF
S=67
OR
S=83
THEN
540
480
PRINT
490
PRINT 'SRQ serviced
@
address 'iP
500
PRINT
'
POLL
status
returned:
'
iS
510
F'RINT @F':'ERR?im
r.
3
JAO
INPUT
@F:F$
530
PRINT
'
Error Querr response:
'if$
540
RETURN