HP 8112A Operating, Programming And Servicing Manual page 111

70
CLEAR SCREEN
80
90
CLEAR 7 1 2
1 0 0 A=SPOLL ( 7 1 2 )
!
1 10
1 20 L e arn String interrogate funct ion CST ( Current S ett ing)
130
140 DIM S ett ing$ [ 1 53]
150 OUTPUT 7 1 2 ; " CST"
160 ENTER 7 1 2 ; Sett ing$
170
180 PRINT " The current s ett ing of the HP8 1 1 2A i s : "
190 PRINT S ett ing$
200 PRINT
2 1 0 PRINT
!
220
230 Interrogate Parameter Set IRCL0 . . 9
240
250
OUTPUT 7 1 2 ; " IRCL 5 "
260 ENTER 7 1 2 ; Sett ing$
270
280 PRINT " The current s ett ing of locat ion 5 i s : "
290 PRINT Sett ing$
300 PRINT
3 10 PRINT
!
320
330 Interrogate Error !ERR
340
350 DIM A$ [ 1 00]
360 OUTPUT 7 1 2 ; "WID 1MS "
370
PRINT " Width and s lope error caused . "
380
390 OUTPUT 7 12 ; " IERR"
400 ENTER 7 12 ; A$
4 1 0
420
PRINT " Errors read with !ERR :
430 PRINT
440
OUTPUT 7 1 2 ; 1 1 WID 1US 11
450
460
!
470 Interrogate Error commands (here shown : !PER , IHIL , and !BUR)
480
490 OUTPUT 7 12 ; " IPER"
500 ENTER 7 1 2 ; P eriod$
5 1 0
520 PRINT " Respon s e after !PER command :
530
540 OUTPUT 7 1 2 ; " IHIL"
550 ENTER 7 1 2 ; H igh_ l evel$
560
570 PRINT " Respon s e after IHIL command :
init i al ize int erface and HP8 1 1 2A
clear status byte
read s ett ing from locat ion 5
!
cause width and s lope error
!
read error ( s )
" ; A$
!
correct error
" ; Perfod$
" ; High_l evel$
Programming Examples 7 -19