1 DIM JN$(10)
5 MCH=9:REM interner FPGA-Modul-MainCh
10 PRINT CHR$(12);"RTC vom FPGA-Modul auslesen"
20 LABBUS 0:INPUT"UHR STELLEN? [J/N] ";JN$
30 IF JN$="J" THEN GOSUB 1000
100 LABREQ MCH,90,H
110 LABREQ MCH,91,M
120 LABREQ MCH,92,S
130 LABREQ MCH,93,D 
140 LABREQ MCH,94,N:REM MONAT 
150 LABREQ MCH,95,Y 
200 CURSOR 0,10
210 PRINT "Time ";H;"h";M;"m";S;"s",
220 PRINT "Date ";D;".";N;".";2000+Y
230 WAIT 2002,32:REM 60Hz-TICKER BIT 4
240 WAIT 2002,32,255
250 GOTO 100
1000 INPUT "STUNDE?";H
1010 LABSET MCH,90,H
1020 INPUT "MINUTE?";M
1030 LABSET MCH,91,M
1040 INPUT "SEKUNDE?";S
1050 LABSET MCH,92,S
1060 INPUT "TAG?";D
1070 LABSET MCH,93,D
1080 INPUT "MONAT?";N
1090 LABSET MCH,94,N
1100 INPUT "JAHR?";Y
1110 IF Y>99 THEN Y=Y-2000
1120 LABSET MCH,95,Y
1200 RETURN
50000 REM SAVE BASIC LISTING AS TEST
50010 LABBUS 0:LABOUT "TSF=CLOCK.TXT"
50020 PRINT CHR$(2):LIST:PRINT CHR$(3)
50030 END
