Clock

   20 RESTORE : FOR i=0 TO 7: READ a: POKE USR "a"+i,a: NEXT i
   30 DATA 60,126,255,255,255,255,126,60
 1000 BORDER 6: PAPER 6: INK 9: CLS 
 1010 INPUT "Input Time ";TIME
 1030 LET m=INT (TIME/100)*60+time-INT (TIME/100)*100
 1045 LET T=0
 1050 LET D=INT ((INT (M/60))/10)
 1055 GO SUB 1500
 1060 LET T=7
 1065 LET D=(INT (M/60))-10*D
 1070 GO SUB 1500
 1080 PRINT AT 11,15;"\a";AT 8,15;"\a"
 1085 LET T=16
 1090 LET D=INT (60*(M/60-INT (M/60))/10+.05)
 1091 LET S=10*D
 1095 GO SUB 1500
 1100 LET T=23
 1110 LET D=M-INT (M/10)*10
 1115 LET S=S+D
 1120 GO SUB 1500
 1125 IF M/15=INT (M/15) THEN GO SUB 2000
 1130 FOR I=0 TO 54: PRINT AT 17,15;I
 1135 PAUSE 57
 1140 NEXT I: PRINT AT 17,15;"  ": PAUSE 21
 1150 LET M=M+1
 1160 IF M=1440 THEN LET M=0
 1170 GO TO 1045
 1500 LET N=15745+D*8
 1510 PRINT AT 7,T;: FOR N=N TO N+5
 1520 LET X=PEEK N: FOR L=1 TO 7
 1530 LET C=32: IF X<128 THEN GO TO 1560
 1540 LET C=144: LET X=X-128
 1560 LET X=X*2
 1570 PRINT CHR$ C;
 1580 NEXT L
 1585 OVER 1: PRINT TAB T;: OVER 0
 1590 NEXT N
 1600 RETURN 
 2000 BEEP .5,12: BEEP .5,8: BEEP .5,10: BEEP 1,3: IF S=15 THEN GO TO 2005
 2001 BEEP .5,3: BEEP .5,10: BEEP .5,12: BEEP 1,8: IF S=30 THEN GO TO 2005
 2002 BEEP .5,12: BEEP .5,8: BEEP .5,10: BEEP 1,3: IF S=45 THEN GO TO 2005
 2003 BEEP .5,3: BEEP .5,10: BEEP .5,12: BEEP 1,8
 2005 BORDER RND*7
 2010 RETURN