10 X$="":Z$="":R=5:C=5:W=9:DIMA$(R,W),T(C) 20 H=7:V$="{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}": 30 GOSUB 900 40 PRINT"{CLR}SET TIME? (Y/N)" 50 GET X$:IF X$<>"Y" AND X$<>"N" GOTO 50 60 IF X$="N" GOTO 90 70 PRINT"{CLR}TIME HHMM[SS]";:INPUT X$:IF LEN(X$)=4 THEN X$=X$+"00" 80 TI$=X$ 90 PRINT"{CLEAR}" 100 X$=TI$:IF X$=Z$ GOTO 100 110 ?V$TAB(H); 120 FORI=.TOC:T(I)=VAL(MID$(X$,I+1,1)):NEXT 130 FORJ=.TOC:FOR I=.TOR 140 PRINTA$(I,T(J));:IFI