home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / echtzeituhr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  21 lines
  1. 1 x=49152:forz=1to15:reada$:fori=1tolen(a$):b$=mid$(a$,i,1):gosub3:h=b*16:i=i+1
  2. 2 b$=mid$(a$,i,1):gosub3:h=h+b:pokex,h:x=x+1:nexti:nextz:poke2206,58:goto4
  3. 3 a=asc(b$):b=a-48:ifa>64thenb=a-55:return
  4. 4 return:input"uhrzeit (stunde,minute) ";h,m:ifh>23orm>59then4
  5. 5 print"[158]idee:     t.oelsner":print"umsetzung:m.lange[154]":poke49587,h:poke49609,m:sys49586:new
  6. 6 data"aa4a4a4a4aa88a290f8502a90088300818f86916d81890f518f86502d860e88efa07a9338d"
  7. 7 data"01d08d03d08d05d0a9178d00d0a92f8d02d0a9478d04d0ad0edc09808d0edca9078d17d08d"
  8. 8 data"10d0a248a0008e05dc8c04dca208a0c28e30038c3103a216a0c28e32038c3303eaa9008d1b"
  9. 9 data"d08d1bd08d1cd08d1dd0a9018d27d08d28d08d29d0a9078d15d078a224a0c28e14038c1503"
  10. 10 data"5860a8a9338501a9d8aaa90088c0fff0091869089001e84ca0c08db7c08eb8c0a200bd98d9"
  11. 11 data"9d00cfe8e008d0f5a937850160c90a900638e9091890031869306098290f20c6c08d03ce98"
  12. 12 data"4a4a4a4a20c6c08d02ce8a290f20c6c08d01ce8a4a4a4a4a20c6c08d00ce60a200a000bd00"
  13. 13 data"cf994103e8c8c8c8e008d0f260a213c981f00f297fc91a3010186906c924d009a2008e0bdc"
  14. 14 data"8e08dc8aaaac0adc20d4c0ad00ce2096c0a240a0038e05c18c06c120fdc0ad01ce2096c0a2"
  15. 15 data"418e05c120fdc0a93a2096c0a2428e05c120fdc0ad02ce2096c0a2808e05c120fdc0ad03ce"
  16. 16 data"2096c0a2818e05c120fdc0ae09dcac08dc20d4c0a93a2096c0a2828e05c120fdc0ad00ce20"
  17. 17 data"96c0a2c08e05c120fdc0ad01ce2096c0a2c18e05c120fdc04c31eaa900c91890034c48b220"
  18. 18 data"00c0c920300338e9068d0bdca900c93c90034c48b22000c08d0adca9008d09dc8d08dca200"
  19. 19 data"8a9d4003e8e0c0d0f8a20d8ef807e88ef9074c1ec078a2008e15d0a231a0ea8e14038c1503"
  20. 20 data"5860a0008c15d020a5f4a0078c15d060a0008c15d020edf5a0078c15d060ad0bdc4c10c14d"
  21.