   10 DIM JN$(10)
INPUT "STUNDE?";H
LABSET MCH,90,H
INPUT "MINUTE?";M
LABSET MCH,91,M
   60 INPUT "SEKUNDE?";S
   70 LABSET MCH,92,S
   80 INPUT "TAG?";D
   90 LABSET MCH,93,D
  100 INPUT "MONAT?";N
  110 LABSET MCH,94,N
  120 INPUT "JAHR?";Y
 1000 IF Y>99 THEN Y=Y-2000
LABSET MCH,95,Y
PLOT CIRCLE 30,255
PLOT WAVE $B000,255
50000 REMSAVE BASIC LISTING AS TEST
50010 LABBUS 0:LABOUT "TSF=CLOCK.TXT"
50020 A=4
50030 PRINT CHR$(2):LIST:PRINT CHR$(3)
50040 END
