100 REM -- ADJUST USR FUNCTION POINTER
110 POKE 5118,6
120 POKE 5119,20
200 REM -- RTC BUFFER AT 5120-5125
210 FOR I=0 TO 14
220 READ A
230 POKE 5126+I,A
240 NEXT I
250 DATA 6,32,123,178,40,1,4,33,0,20,207,17,0,0,201
300 INPUT "GET OR SET TIME (GET=0,SET=1)"P
310 IF P=0 GOTO 400
320 A=5120:INPUT "YEAR"Q:GOSUB 500
330 A=5121:INPUT "MONTH"Q:GOSUB 500
340 A=5122:INPUT "DAY"Q:GOSUB 500
350 A=5123:INPUT "HOURS"Q:GOSUB 500
360 A=5124:INPUT "MINS"Q:GOSUB 500
370 A=5125:INPUT "SECS"Q:GOSUB 500
400 Q=USR(P)
410 PRINT $8,PEEK(5120),"-",
420 PRINT $8,PEEK(5121),"-",
430 PRINT $8,PEEK(5122)," ",
440 PRINT $8,PEEK(5123),":",
450 PRINT $8,PEEK(5124),":",
460 PRINT $8,PEEK(5125)
470 GOTO 300
500 T=Q/10
510 U=Q-10*T
520 B=T*16+U
530 POKE A,B
540 RETURN