home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 67
/
64er_Magazin_Sonderheft_67_19xx_Markt__Technik_de_Side_B.d64
/
rtc-test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
276b
|
11 lines
5 ifpeek(49153)<>58thenload"rtc 49152",8,8
10 sys49152,0:print"[147] rtc - pruefprogramm nh-110889-arr
20 [158]49158,"235950311289do
30 fori=1to1300
40 sys49155,0,a$
50 print" "a$" moment...[145]"
60 next:print" rtc-baustein ";
70 ifa$<>"00:00:31 fr,01.01.90"thenprint"fehlerhaft[146] !":end
80 print"okay.
90 [128]