VIC20 RTC Test Program

10 OPEN 1,12,1			{ open connection to read time }
20 INPUT#1, A$			{ read the time = hhmmss}
30 PRINT"{CLEAR}"
40 PRINT LEFT$(A$,2);		{ display hh:mm:ss }
45 PRINT ":"
50 PRINT MID$(A$,3,2);
55 PRINT ":"
60 PRINT RIGHT$(A$,2)
90 CLOSE 1			{ close connection }
100 OPEN 1,12,2			{ open connection to read date }
110 INPUT#1, B$			{ read the date = yymmdd }
120 PRINT MID$(B$,3,2);		{ display mm/dd/yy }
130 PRINT "/"
140 PRINT RIGHT$(B$,2);
150 PRINT "/"
160 PRINT LEFT$(B$,2)
200 CLOSE 1