    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
