HP 8153A - Page 190

Example 1
Function
This program displays the time from the real time clock on the HP 8153A.
Listing
10 DK KBD GOTO Exit
20 INTEGER Hour, Min, Sec
30 Pram=722
40 GINIT
50 CSIZE 14
60 GRAPHICS ON
65 !
70 LOOP
80 OUTPUT Pmra;"syst:time?"
90 ENTER Pmm; Hour, Min, Sec
100 GCLEAR
110 HOVE 30,50
120 LABEL USING "ZZ,A,ZZ,A,ZZ";Hour;":";Min;":";Sec
130 END LOOP
135 !
140 Exit: GRAPHICS OFF
150 END
Description
Line No.
10
20
30
40 to 60
70
80 to 90
100 to 120
130
140 to 150
Execution goes to Exit when a key on the keyboard is hit.
Declaration of variables.
Setting the address of the instrument (Address = 22).
Initializes the screen
Start of the main loop in the program.
Input the system time from the HP 8153A.
Display the time.
Loop to 70
Restore the screen and end the execution of the program.
10-2 Remote Operation • Programming Examples