Radio Shack TRS-80 Model III - Page 65

OPERATION
Sample
Program
5 CI....S
10 DEFINT
A
20
EN
=
132
30
PRINT
"<
40 PRINT
"-
:
50
INPUT
Ai:
60 IF
A*
=
70
IF
A*
=
80 GOTO
30
1 00 POKE
2
DI
=
161
M...SB
OF
<E>
NABLE
CLOCK
DISPLAY"
CD>
I
SABLE
CLOCK
DISPLAY"
*CLKON/*CLKOFF
II
p
II
"D"
THEN
THEN
16526,
SW
110 POKE
16527,
120 X
=
USR<0)
130
END
SW
SW
EN:
DI
i
bO i O
GOTO
'
USB
100
100
UP
re;
USR
SAME
CALL
FOR
BOTH
CALLS
'CALL
USR
SUBROUTINE
For further
information
about
the real-time clock, see
SCLKON and SCLKOFF in the
Technical
Information
chapter.
55