HP 8112A Operating, Programming And Servicing Manual page 109

130 A=SPOLL ( 7 1 2 )
140
1 50 DIM A$ [ 1 53]
1 60
170 PRINT " Re c all ing s ett ing from locat ion 0 (Standard S ett ing)
180 OUTPUT 7 1 2 ; " RCLO"
190
PRINT
200
2 1 0
PRINT "Reading the current s ett ing
220 Oldt ime=TIMEDATE
230
240
OUTPUT 7 1 2 ; " CST"
250 ENTER 7 1 2 ; A$
260
270 Timetaken= ( (TIMEDATE-Oldtime) DIV . 00 1 ) / 1 000
PRINT "
280
290 PRINT " This took " ; Timetaken ; " s econds . "
300 PRINT
3 10 PRINT "The current Learn String is : "
320 PRINT A$
330 PRINT
340
350 WAIT 4
360 PRINT " P eriod is s et t o 999 ms . "
370 OUTPUT 7 1 2 ; " PER999MS "
380 WAIT 4
390
400 PRINT
4 1 0
PRINT " S ending the L earn String b ack t o the HP8 1 1 2A
420
O l dt ime=TIMEDATE
430
440
450 OUTPUT 7 12 ; A$
460
470 Timetaken= ( (TIMEDATE-Oldtime) DIV . 00 1 ) / 1 000
480 PRINT "
490 PRINT "This took " ; Timetaken ; " seconds . "
500 PRINT
5 1 0 PRINT " End o f the program LRN_DEMO . "
520
530 LOCAL 7 1 2
540 END
!
clear St atus Byte
!
The L e arn String cons ists of 153 ASC I I charact ers .
read the current s ett ing
f inished . "
f inished . "
1 1 .
'
. . .
.
Programming Examples
. . . "
"
,
·
. .
7 -17