10 REM Real Time Clock
20 REM By S.E.Holderness 30 REM (c) Computing with the Amstrad 40 MEMORY &7FFF:CLS 50 GOSUB 140 60 WINDOW #7,16,25,1,1 70 WINDOW #0,1,80,2,25 80 CALL &8000:REM start clock 90 END 100 REM POKE &80AA,hours (1-12) 110 REM POKE &80AB,minutes (0-59) 120 REM POKE &80AB,seconds (0-59) 130 REM CALL &8017 to stop clock 140 REM Machine Code 150 address=&8000 160 FOR i=1 TO 18 170 sum=0:READ code$,check$ 180 FOR j=1 TO 21 STEP 2 190 byte=VAL("&"+MID$(code$,j,2)) 200 POKE address,byte 210 sum=sum+byte:address=address+1 220 NEXT 230 IF sum<>VAL("&"+check$) THEN PRINT"Error in data in line";260+i*10 240 NEXT 250 RETURN 260 REM --------------------------- 270 DATA 21B3800681111D80CDEFBC,501 280 DATA 21AD80113200013200C3E9,370 290 DATA BC21AD80C3ECBCF5C5D5E5,7E9 300 DATA 3AAA805F3AAB806F3AAC80,4FD 310 DATA 3C67FE3C201426007D3C6F,35F 320 DATA FE3C200B2E007B3C5FFE0D,3B4 330 DATA 20021E01E5CD78BB22BA80,482 340 DATA 3E07CDB4BBE1CD84BB3E1E,5CA 350 DATA CD5ABB7B32AA80CD8D803E,5D1 360 DATA 3ACD5ABB7D32AB80CD8D80,5D0 370 DATA 3E3ACD5ABB7C32AC80CD8D,58E 380 DATA 803E00CDB4BB2ABA80CD75,5A0 390 DATA BBCD81BBE1D1C1F1C90E30,72F 400 DATA D60A0C30FB0DC60A4779CD,481 410 DATA 5ABB0E3078D6010C30FB0D,3E6 420 DATA 79CD5ABBC90C0000000000,330 430 DATA 0000000000000000000000,000 440 DATA 0000000000000000000000,000 |