on emulators (emulating the classic R-Time8) I use the following code in Turbo-BASIC:
800 PROC SET_RTIME8 805 ? "Stelle die Uhrzeit "; 810 RT=$D5B8 820 T$="000000" 830 POKE RT,%0:S=PEEK(RT)*10+PEEK(RT) 831 POKE RT,%1:M=PEEK(RT)*10+PEEK(RT) 832 POKE RT,%2:H=PEEK(RT)*10+PEEK(RT) 840 IF H<10:T$(%2,%2)=STR$(H):ELSE :T$(%1,%2)=STR$(H):ENDIF 841 IF M<10:T$(4,4)=STR$(M):ELSE :T$(%3,4)=STR$(M):ENDIF 842 IF S<10:T$(6,6)=STR$(S):ELSE :T$(5,6)=STR$(S):ENDIF 850 TRAP 860:TIME$= T$:TRAP 40000:? "auf ";T$(%1,%2);":";T$(%3,4);":";T$(5,6):GOTO 899 860 ? "Fehlgeschlagen" 899 ENDPROC
How do I do the same with the KMK-IDE-Hardware?













