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 >
Commodore BASIC  |  2022-10-26  |  276b  |  11 lines
  1. 5 ifpeek(49153)<>58thenload"rtc 49152",8,8
  2. 10 sys49152,0:print"[147] rtc - pruefprogramm      nh-110889-arr
  3. 20 [158]49158,"235950311289do
  4. 30 fori=1to1300
  5. 40 sys49155,0,a$
  6. 50 print" "a$"  moment...[145]"
  7. 60 next:print" rtc-baustein ";
  8. 70 ifa$<>"00:00:31 fr,01.01.90"thenprint"fehlerhaft[146] !":end
  9. 80 print"okay.
  10. 90 [128]
  11.