Radio Shack TRS-80 Model 3 - Page 65

'I SET UP USR CALL...
'MSB IS SAME FOR BOTH CALLS
'CALL USR SUBROUTINE
SampleProgram
5 CI .... S
10 DEFINT A·"·Z
20 EN = 152= DI = 161 'LSB OF SCLKON/SCLKOFF
30 PRINT "<E) NABLE CLOCK DISPLAY"
40 PRINT "<D) ISABLE CLOCK DISPLAY"
:50 I NPUT f.'~f;
60 IF AS = "E" THEN SW - EN: GOTO 100
70 IF AS = "D" THEN SW - DI: GOTO 100
Bill GOTO :30
100 POKE 16526, SW
110 POKE 16527, 2
1 20 X ::: US R( flI )
1:]0 END
Forfurther information about the real-time clock, see$CLKON and $CLKOFF in the
Technical Information chapter.
10/3