Publication 8/Publication_08_1996_High-Tech_de_Side_B.d64/interrupt-uhr

Commodore BASIC | 2023-02-26 | 1KB | 7 lines

1 print"[147]nach ablauf des programms erscheint obenrechts die uhrzeit":print"mit sys 51200 koennen sie die uhr ein   und ausschalten":print"und mit sys51200,"chr$(34)"hhmmss"chr$(34)" stellen":x=0:fori=51200to51482:reada:pokei,a:x=x+a:next:ifx<>33213thenprint"data-fehler!":stop
2 data173,14,220,9,128,141,14,220,173,15,220,41,127,141,15,220,32,121,,240:data101,32,253,174,32,158,173,32,163,182,201,6,208,107,160,,177,34,56:data233,48,201,3,176,96,10,10,10,10,133,248,200,177,34,56,233,48,201,10
3 data176,80,5,248,208,4,169,146,208,15,201,36,176,68,201,19,144,7,56,248:data233,18,216,9,128,141,11,220,32,253,200,141,10,220,32,253,200,141,9:data220,169,,141,8,220,32,121,,240,13,32,253,174,32,158,183,224,16,176
4 data22,142,167,2,120,173,20,3,73,161,141,20,3,173,21,3,73,34,141,21,3:data88,96,76,72,178,165,251,72,165,252,72,173,136,2,133,252,169,,133,251:data160,30,173,11,220,201,18,240,17,201,128,144,15,41,127,201,18,240,9
5 data248,24,105,18,216,208,2,169,,32,219,200,173,10,220,32,219,200,173:data9,220,32,219,200,173,8,220,9,48,32,243,200,104,133,252,104,133,251:data76,49,234,72,41,240,74,74,74,74,24,105,48,32,243,200,104,41,15,24
6 data105,48,32,243,200,169,58,145,251,173,167,2,153,,216,200,96,200,177:data34,56,233,48,201,6,176,134,10,10,10,10,133,248,200,177,34,56,233,48:data201,10,176,238,5,248,96,255:input"farbcode";fa:input"uhrzeit (hhmmss) ";uz$:sys51200,uz$,fa