10 REM Real Time Clock (RTC)
20 REM By Simon Payne 30 REM Amstrad Action October 1988 40 REM SECONDS ARE STORED AT &9C40 50 REM MINUTES ARE STORED AT &9C41 60 REM HOURS ARE STORED AT &9C42 70 MODE 1 80 LN=180 90 FOR ADR=&8000 TO &809F STEP 13 100 READ BYTE$:CHK=0 110 FOR I=0 TO 12 120 V=VAL("&"+MID$(BYTE$,I*2+1,2)) 130 POKE ADR+I,V:CHK=CHK+V 140 NEXT 150 LOCATE 10,10:PRINT "CHECKING LINE ";LN 160 IF CHK<>VAL("&"+RIGHT$(BYTE$,3)) THEN PRINT "ERROR IN LINE :";LN:STOP 170 LN=LN+10:NEXT 180 DATA 21A2800681111D80C3EFBC219C5A3 190 DATA 80113200013200C3E9BC219C8049B 200 DATA C3ECBC3A409C3CFE3CCC2D80326A2 210 DATA 409CCD5680C93A419C3CFE3CCC6A1 220 DATA 3F8032419C3E0032409CC93A4245F 230 DATA 9C3CFE18CC000032429C3E003243A 240 DATA 419C3E07CD5ABBC93E06CD1EBB5B7 250 DATA C83A429CCD83803E3ACD5ABB3A644 260 DATA 419CCD83803E3ACD5ABB3A409C61D 270 DATA CD83803E07CD5ABB3E0DCD5ABB624 280 DATA C9160ACD8A8016010E009238033B2 290 DATA 0C18FA82F579C630CD5ABBF1C97A0 300 DATA 00000000000000000000000000000 310 CALL &8000:CALL &800B 320 MODE 1:INPUT "ENTER HOUR ";H:POKE 40002,H 330 INPUT "ENTER MIN ";H:POKE 40001,H 340 INPUT "ENTER SEC ";H:POKE 40000,H 350 MODE 1:PRINT "TIME SET. PRESS THE SMALL ENTER KEY TO SEE THE TIME" |