Update TastyBasic

Source/TastyBasic/examples/SBCRTC.BAS

@@ -0,0 +1,30 @@
+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