Digital Clock

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Digital Clock

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 

People

No people associated with this content.

Scroll to Top