mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
777 B
30 lines
777 B
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
|
|
|