100 CLEAR:DEFINT A-Z:DIM T(12)
110 COLOR 7,0,,4:CLS
115 *TIME_READ
120   WHILE NOT(INP(&H70,1)) AND &H80:BEEP:WEND
130   OUT &H80,&H80
140   FOR I=0 TO 12
150     OUT &H70,I
160     OUT &H80,&H81
170     OUT &H80,&H80
180     OUT &H80,&H84
190     IF I=5 OR I=8 THEN AN=3 ELSE AN=15
200     T(I)=INP(&H70,1) AND AN
210     OUT &H80,&H80
220   NEXT
230   OUT &H80,&H00
240   LOCATE 0,0
250   PRINT USING"19##年##月##日 ##時##分##秒";T(12)*10+T(11);T(10)*10+T(9)          ;T(8)*10+T(7);T(5)*10+T(4);T(3)*10+T(2);T(1)*10+T(0)
260   GOTO *TIME_READ