' press   CTRL + PAUSE/BREAK   to stop program.

CLS
1

LOCATE 1, 1
PRINT TIMER             ' system timer
PRINT TIME$             ' current system time
PRINT DATE$             ' current system date

GOTO 1