0 HOME : VTAB 7: PRINT "ENTER 0,0 TO USE AS A TIMER.": PRINT : INPUT "ENTER CURRENT HOUR, MINUTE: ";H,M: IF H <0 OR H >12 OR M <0 OR M >59 THEN 0
1 W = -16336:Q = 1:L = 23:C = 17:B = 5:E = 60:F = 140:G = 80:J = 10:K = 0:N = 3:Z = 12:P = 968 -(10 *(H >0)):R = 958: HOME : HGR : HCOLOR= N: HPLOT 76,16 TO 204,16 TO 204,144 TO 76,144 TO 76,16
2 DATA 140,16,145,16,150,16,156,16,163,16,172,16,183,16,196,16,204,24,204,37,204,48,204,57,204,64,204,70,204,75,204,80,204,85,204,90,204,96,204,103,204,112,204,123,204,136,196,144,183,144,172,144,163,144,156,144,150,144,145,144
3 DATA 140,144,135,144,130,144,124,144,117,144,108,144,97,144,84,144,76,136,76,123,76,112,76,103,76,96,76,90,76,85,76,80,76,75,76,70,76,64,76,57,76,48,76,37,76,24,84,16,97,16,108,16,117,16,124,16,130,16,135,16
4 DIM A%(60): DIM B%(60): FOR D = Q TO 60: READ A%(D),B%(D): NEXT
5 HPLOT 135,10 TO 137,10: HPLOT 136,10 TO 136,4: HPLOT 135,5: HPLOT 140,10 TO 144,10: HPLOT 141,9: HPLOT 142,8: HPLOT 143,7: HPLOT 144,6 TO 144,5: HPLOT 141,4 TO 143,4: HPLOT 140,5: HPLOT 140,15 TO 140,13
6 HPLOT 139,150 TO 141,150: HPLOT 138,151 TO 138,155: HPLOT 139,156 TO 141,156: HPLOT 142,155 TO 142,154: HPLOT 139,153 TO 141,153: HPLOT 140,145 TO 140,147
7 HPLOT 67,77 TO 69,77: HPLOT 67,80 TO 70,80: HPLOT 70,78 TO 70,81: HPLOT 66,78 TO 66,79: HPLOT 67,83 TO 68,83: HPLOT 69,82: HPLOT 75,80 TO 73,80
8 HPLOT 210,77 TO 214,77: HPLOT 213,78: HPLOT 212,79: HPLOT 213,80: HPLOT 214,81 TO 214,82: HPLOT 211,83 TO 213,83: HPLOT 210,82: HPLOT 205,80 TO 207,80: HPLOT 172,4 TO 172,10: HPLOT 171,10 TO 173,10: HPLOT 171,5: HPLOT 172,15 TO 172,13
9 HPLOT 210,51 TO 214,51: HPLOT 211,45 TO 213,45: HPLOT 210,46: HPLOT 214,46 TO 214,47: HPLOT 213,48: HPLOT 212,49: HPLOT 211,50: HPLOT 205,48 TO 207,48
10 HPLOT 210,113 TO 214,113: HPLOT 213,109 TO 213,115: HPLOT 210,112: HPLOT 211,111: HPLOT 212,110: HPLOT 205,112 TO 207,112
11 HPLOT 170,150 TO 174,150: HPLOT 170,152 TO 173,152: HPLOT 170,151: HPLOT 174,153 TO 174,155: HPLOT 171,156 TO 173,156: HPLOT 170,155: HPLOT 172,145 TO 172,147
12 HPLOT 106,150 TO 110,150: HPLOT 110,151: HPLOT 109,152: HPLOT 108,153 TO 108,156: HPLOT 108,145 TO 108,147
13 HPLOT 67,109 TO 69,109: HPLOT 70,110 TO 70,111: HPLOT 66,110 TO 66,111: HPLOT 67,112 TO 69,112: HPLOT 66,113 TO 66,114: HPLOT 70,113 TO 70,114: HPLOT 67,115 TO 69,115: HPLOT 75,112 TO 73,112
14 HPLOT 62,45 TO 62,51: HPLOT 61,46: HPLOT 61,51 TO 63,51: HPLOT 67,45 TO 69,45: HPLOT 66,46 TO 66,50: HPLOT 70,46 TO 70,50: HPLOT 67,51 TO 69,51: HPLOT 67,49: HPLOT 68,48: HPLOT 69,47: HPLOT 75,48 TO 73,48
15 HPLOT 104,10 TO 106,10: HPLOT 105,10 TO 105,4: HPLOT 104,5: HPLOT 110,10 TO 112,10: HPLOT 111,10 TO 111,4: HPLOT 110,5: HPLOT 108,15 TO 108,13
16 D = PEEK(121) +256 * PEEK(122) +1: POKE 103,D - INT(D/256) *256: POKE 104, INT(D/256): IF H < >0 THEN GOSUB 26: GOSUB 29
17 X = X +Q: IF X >E THEN X = Q
18 HCOLOR= N: HPLOT A%(X),B%(X) TO F,G: FOR D = Q TO P: NEXT : HCOLOR= K: IF S < >M AND S < >B *H AND NOT (S = K AND H = Z) THEN HPLOT A%(X),B%(X) TO F,G
19 S = S +Q:D = PEEK(W) + PEEK(W): IF S = E THEN S = K:M = M +Q: GOSUB 26: IF M = E THEN M = K:H = H +Q:P = R: GOSUB 29
20 VTAB L: HTAB C: IF H <J THEN PRINT K;H;":";: GOTO 22
21 PRINT H;":";
22 IF M <J THEN PRINT K;M;":";: GOTO 24
23 PRINT M;":";
24 IF S <J THEN PRINT K;S: GOTO 17
25 PRINT S: GOTO 17
26 X = M: HCOLOR= K +N *(H = (M -Q)/B): HPLOT A%(X),B%(X) TO F,G:X = Q: IF M = E THEN 28
27 X = M +Q
28 HCOLOR= N: HPLOT A%(X),B%(X) TO F,G:X = K: RETURN
29 IF H >Z THEN H = H -Z
30 D = B *(H -Q) +Q: HCOLOR= K: HPLOT A%(D),B%(D) TO F,G:X = Q: IF H = Z THEN 32
31 D = B *H +Q:X = D
32 HCOLOR= N: HPLOT A%(X),B%(X) TO F,G:X = K: RETURN
