Source Code
1 SAVE "1007%8"
10 PRINT "**** DIGITAL CLOCK ****"
20 PRINT "ENTER TIME IE. 2345"
30 INPUT TIME
40 CLS
50 LET M=INT (TIME/100)*60+TIME-INT (TIME/100)*100
60 GOTO 220
70 LET T=0
80 LET D=INT ((INT (M/60))/10)
90 GOSUB 260
100 LET T=7
110 LET D=(INT (M/60))-10*D
120 GOSUB 260
130 PLOT 31,20
140 PLOT 31,27
150 LET T=16
160 LET D=INT (60*(M/60-INT (M/60))/10+.01)
170 GOSUB 260
180 LET T=23
190 LET D=M-INT (M/10)*10
200 GOSUB 260
210 IF PEEK 16437<>245 THEN GOTO 210
220 PAUSE 1263
230 LET M=M+1
240 IF M=1440 THEN LET M=0
250 GOTO 70
260 LET N=7905+D*8
270 PRINT AT 7,T;
280 FOR N=N TO N+5
290 LET X=PEEK N
300 FOR L=1 TO 7
310 LET C=0
320 IF X<128 THEN GOTO 350
330 LET C=128
340 LET X=X-128
350 LET X=X*2
360 PRINT CHR$ C;
370 NEXT L
380 PRINT TAB T;
390 NEXT N
400 RETURN
