Commodore CBM - Digital Display Clock

/0 S- ;1~ 1/
1;0 3~71.' S ~ /!'JT((.!i~
The example shows that it took 191 jiffies to print the keyboard characters on the
screen. Dividing
jiffy time by 60 (the number of jiffies in a second):
191 -;- 60 = 3.1833
it took 3.1833 seconds or 191 jiffies to process the program. Below is a sample
run of the program.
**KEYBOARD TEST**
!"#$%&"'()*+.-.r'e123456789:;<=:>?@ABCDEFG
HI.JKLMNOPQRSTUVWXYZ[ ..... J1'+- '''#$%&'''()*+.-.r'
e123456789:;<=:>?'.-...J li "" 'h'--o_,.-1-,.-i11 .--
-..JI -.J· ........ ' __ I h VL,...,.,.-..t ,.)(0+ ,,-HI '1T'"
1 .-...J Il "" II-. '--o_,.-1-,.-i1 1 .-- ....... -.J 1T
ti*END TEST**
TI = 191
DIGITAL DISPLAY CLOCK
The following program is a fun program. It is a variation of the PET digital
clock using enlarged numbers 0 through
9. created with the graphie characters. It
prints out only the hour and minutes due to the size of the clock and the screen.
but is very accurate. The program is long. as vou can see. but it is made up almost
entirely of
PRINT statements to print the numbers. After keying in the program.
watch it run.
1121121 PR 1 NT Il :IlIMiItlIlJIlJIDQ" ;
11121 S=INT(TIMEr'6121)
12121 M=INT<Sr'6e)
13121 H=INT<Mr'6e)
14121 M=M-H*6121
15121 T=H
16121 GOSUB5ee
1 7121 PR INT "lhOOlll •• 00 '.1'lllIIOO •• 00 : IIII II l!! ";
18121 T=M
19121 GOSUB5el2l
2121121 PRIt-~T"~.I";
21121 GOT0l1121
5121121 U=T-ll21*INT(Tr'le)
510 T=INT<Tr'll21)
52121 D=T+l
53121 GOSUB6el2l
54121 D=U+l
55121 GOSUB6el2l
56121 RETURN
6121121 ON D GOSUB 1121121121.11121121.12121121.13121121.14121121.15121121.16121121.
17121121.181210.19121121
61121 RETURN
285