10 KEY OFF
20 CLS : COLOR 4,0
21 LOCATE 1,1 : PRINT "De tijd is " TIME$, DATE$
22 LOCATE 2,1 : PRINT STRING$(80,205)
23 LOCATE 22,1 : PRINT STRING$(80,205)
30 LOCATE 8,1 : COLOR 12,0 : INPUT "Wat is de tijd    (uu:mm:ss) ";TIJD$
31 IF TIJD$="" THEN TIJD$="00"
40 TIME$=TIJD$
50 COLOR 11,0 : LOCATE 10,1 : INPUT "Wat is de datum (mm-dd-yyyy) ";DATUM$
51 IF DATUM$="" THEN DATUM$="01/01/2000"
60 DATE$=DATUM$
70 COLOR 11,0: LOCATE 14,1 : PRINT "Klopt het ? (J/N)"
80 JN$=INKEY$
90 IF JN$="j" OR JN$="J" GOTO 120
100 IF JN$="n" OR JN$="N" GOTO 10
110 GOTO 80
120 CLS : COLOR 25,0 : PRINT "De tijd is " TIME$; " en de datum is " DATE$" ."
130 LOCATE 2,1 : COLOR 10,0 : PRINT "Dag !" :CHAIN"HMENU.BAS"
140 REM ********************************************
150 REM * Dit programma is om de tijd in uw pc af  *
160 REM * te stellen op de echte tijd en datum.    *
170 REM ********************************************