Cute dot-matrix looking clock.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
Gallery
Source Code
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