Source Code
10 REM "DIGITAL CLOCK" TO SAVE GOTO 700
15 PRINT " INPUT TIME"
20 INPUT TIME
25 CLS
30 LET M=INT (TIME/100)*60+TIME-INT (TIME/100)*100
35 GOTO 140
40 LET T=0
50 LET D=INT ((INT (M/60))/10)
55 GOSUB 500
60 LET T=7
65 LET D=(INT (M/60))-10*D
70 GOSUB 500
75 PLOT 31,20
80 PLOT 31,27
85 LET T=16
90 LET D=INT (60*(M/60-INT (M/60))/10+.05)
95 GOSUB 500
100 LET T=23
110 LET D=M-INT (M/10)*10
120 GOSUB 500
130 IF PEEK 16437<>245 THEN GOTO 130
140 PAUSE 1248
150 LET M=M+1
160 IF M=1440 THEN LET M=0
170 GOTO 40
500 LET N=7905+D*8
505 PRINT AT 7,T;
510 FOR N=N TO N+5
515 LET X=PEEK N
520 FOR L=1 TO 7
525 LET C=0
530 IF X<128 THEN GOTO 560
540 LET C=128
550 LET X=X-128
560 LET X=X*2
570 PRINT CHR$ C;
580 NEXT L
585 PRINT TAB T;
590 NEXT N
600 RETURN
700 SAVE "DIGITAL CLOC%K"
710 RUN
