SET NO DOUBLE 
10 CLEAR 
20 A$=DATE$(0)+" "+TIME$(0)
25 PRINT "#6"+A$
30 AA$=DATE$(0)+" "+TIME$(0)
40 IF AA$=A$ THEN 30 ELSE 10
