10 REM    TIME CLOCK PROGRAM
20 REM    JAMES J. BRENNAN
30 REM    ADAPTED FOR OSBORNE 1
40 REM    BY RAY GORDON JR.
50 REM
60 REM     FROM KILOBAUD MICROCOMPUTING
70 REM     JANUARY 1979, #25, P.95
80 REM
90 PRINT CHR$(26)
100 LET X=62735!
110 PRINT
120 PRINT
130 PRINT "               DIGITAL CLOCK PROGRAM"
140 PRINT:PRINT:PRINT
150 PRINT "       THE CLOCK DISPLAY IS THE FOLLOWING:"
160 PRINT
170 PRINT
180 PRINT "                    HH:MM:SS"
190 PRINT:PRINT:PRINT:PRINT:PRINT
200 PRINT "    ENTER THE EXACT TIME YOU WILL HIT RETURN."
210 PRINT:PRINT
220 PRINT "          USE THE FORMAT GIVEN ABOVE."
230 PRINT
240 PRINT "                    ";
250 INPUT"",T$
260 LET TH=VAL(MID$(T$,1,1))+48
270 LET H=VAL(MID$(T$,2,1))+48
280 LET TM=VAL(MID$(T$,4,1))+48
290 LET M=VAL(MID$(T$,5,1))+48
300 LET TS=VAL(MID$(T$,7,1))+48
310 LET S=VAL(MID$(T$,8,1))+48
320 PRINT CHR$(26)
330 IF ST=58 THEN ST+48:S=S+1
340 IF S=58 THEN S=48:TS=TS+1
350 IF TS=54 THEN TS=48:M=M+1
360 IF M=58 THEN M=48:TM=TM+1
370 IF TM=54 THEN TM=48:H=H+1
380 IF H=58 THEN H=48:TH=TH+1
390 IF TH=49 AND H=>51 THEN TH=48:H=(H-2)
400 IF TH=50 AND H=48 THEN TH=48:H=56
410 IF TH=50 AND H=49 THEN TH=48:H=57
420 IF TH=50 AND H=50 THEN TH=49:H=48
430 IF TH=50 AND H=51 THEN TH=49:H=49
440 IF TH=50 AND H=52 THEN TH=48:H=48
450 IF TH>50 THEN GOTO 650
460 IF H>57 THEN GOTO 650
470 IF TM>54 THEN GOTO 650
480 IF M>57 THEN GOTO 650
490 IF TS>54 THEN GOTO 650
500 IF S>57 THEN GOTO 650
510 IF TH=>50 AND H>3 THEN GOTO 650
520 POKE X,TH
530 POKE X+1,H
540 POKE X+2,58
550 POKE X+3,TM
560 POKE X+4,M
570 POKE X+5,58
580 POKE X+6,TS
590 POKE X+7,S
600 LET S=S+1
610 LET Q=551
620 FOR I=1 TO Q
630 NEXT I
640 GOTO 330
650 PRINT "NOT A POSSIBLE TIME. RERUN PROGRAM"
7,S
600