10 CLS:KEY OFF:KEY(1) ON:ON KEY(1) GOSUB 100
20 LOCATE 1,1:COLOR 4,0:PRINT "De tijd is "TIME$,DATE$
30 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
40 COLOR 12,0:LOCATE 10,10:PRINT "Datum    (in mm-dd-yyyy)                 :";:COLOR 2,7:PRINT " "DATE$:COLOR 12,0
50 LOCATE 11,10:PRINT "Tijd     (in uu:mm:ss)                   :";:COLOR 2,7:PRINT " ";TIME$:COLOR 12,0
60 LOCATE 12,10:PRINT "Seconden na systeem reset of middernacht :";:COLOR 2,7:PRINT TIMER;:COLOR 12,0
70 LOCATE 23,10:COLOR 4,0:PRINT "F1=";:COLOR 3,0:PRINT "Einde tijd,datum en secondevieuwer"
80 LOCATE 10,52:COLOR 2,7:PRINT " "DATE$:LOCATE 11,52:PRINT " "TIME$:LOCATE 12,52:PRINT TIMER;:COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$
90 GOTO 80
100 RUN"amenu.bas