� Clock
� by Graham Kendall
� (c) The Micro User
(� February 1991
2� 7:�SetClock
<�:�DisplayTime
F	� �:�
P� �SetClock
ZTitle$="Set Clock"
d� �(10);�(141);Title$
n� �(10);�(141);Title$
x2�:� �3,10);"Please Input the Hour (0-23)";Hour
�� Hour>-1 � Hour<24
�.�:� �3,12);"And the minutes (0-59)";Minute
�� Minute>-1 � Minute<60
��=100*60*(Minute+60*Hour):�
��
�� �DisplayTime
�Hour=� � 360000 � 24
�Hour$=�"0"+�(Hour),2)
�Minute=� � (100*60) � 60
�Minute$=�"0"+�(Minute),2)
�Second=� � 100 � 60
�Second$=�"0"+�(Second),2)
�+� �3,1);Hour$;":";Minute$;":";Second$:�
�

00000000  0d 00 0a 0b f4 20 43 6c  6f 63 6b 0d 00 14 17 f4  |..... Clock.....|
00000010  20 62 79 20 47 72 61 68  61 6d 20 4b 65 6e 64 61  | by Graham Kenda|
00000020  6c 6c 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |ll..... (c) The |
00000030  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 13 f4 20  |Micro User..(.. |
00000040  46 65 62 72 75 61 72 79  20 31 39 39 31 0d 00 32  |February 1991..2|
00000050  11 eb 20 37 3a f2 53 65  74 43 6c 6f 63 6b 0d 00  |.. 7:.SetClock..|
00000060  3c 12 f5 3a f2 44 69 73  70 6c 61 79 54 69 6d 65  |<..:.DisplayTime|
00000070  0d 00 46 09 fd 20 a3 3a  e0 0d 00 50 0f dd 20 f2  |..F.. .:...P.. .|
00000080  53 65 74 43 6c 6f 63 6b  0d 00 5a 16 54 69 74 6c  |SetClock..Z.Titl|
00000090  65 24 3d 22 53 65 74 20  43 6c 6f 63 6b 22 0d 00  |e$="Set Clock"..|
000000a0  64 19 f1 20 89 28 31 30  29 3b bd 28 31 34 31 29  |d.. .(10);.(141)|
000000b0  3b 54 69 74 6c 65 24 0d  00 6e 19 f1 20 89 28 31  |;Title$..n.. .(1|
000000c0  30 29 3b bd 28 31 34 31  29 3b 54 69 74 6c 65 24  |0);.(141);Title$|
000000d0  0d 00 78 32 f5 3a e8 20  8a 33 2c 31 30 29 3b 22  |..x2.:. .3,10);"|
000000e0  50 6c 65 61 73 65 20 49  6e 70 75 74 20 74 68 65  |Please Input the|
000000f0  20 48 6f 75 72 20 28 30  2d 32 33 29 22 3b 48 6f  | Hour (0-23)";Ho|
00000100  75 72 0d 00 82 17 fd 20  48 6f 75 72 3e 2d 31 20  |ur..... Hour>-1 |
00000110  80 20 48 6f 75 72 3c 32  34 0d 00 8c 2e f5 3a e8  |. Hour<24.....:.|
00000120  20 8a 33 2c 31 32 29 3b  22 41 6e 64 20 74 68 65  | .3,12);"And the|
00000130  20 6d 69 6e 75 74 65 73  20 28 30 2d 35 39 29 22  | minutes (0-59)"|
00000140  3b 4d 69 6e 75 74 65 0d  00 96 1b fd 20 4d 69 6e  |;Minute..... Min|
00000150  75 74 65 3e 2d 31 20 80  20 4d 69 6e 75 74 65 3c  |ute>-1 . Minute<|
00000160  36 30 0d 00 a0 1f d1 3d  31 30 30 2a 36 30 2a 28  |60.....=100*60*(|
00000170  4d 69 6e 75 74 65 2b 36  30 2a 48 6f 75 72 29 3a  |Minute+60*Hour):|
00000180  db 0d 00 aa 05 e1 0d 00  b4 12 dd 20 f2 44 69 73  |........... .Dis|
00000190  70 6c 61 79 54 69 6d 65  0d 00 be 18 48 6f 75 72  |playTime....Hour|
000001a0  3d 91 20 81 20 33 36 30  30 30 30 20 83 20 32 34  |=. . 360000 . 24|
000001b0  0d 00 c8 19 48 6f 75 72  24 3d c2 22 30 22 2b c3  |....Hour$=."0"+.|
000001c0  28 48 6f 75 72 29 2c 32  29 0d 00 d2 1c 4d 69 6e  |(Hour),2)....Min|
000001d0  75 74 65 3d 91 20 81 20  28 31 30 30 2a 36 30 29  |ute=. . (100*60)|
000001e0  20 83 20 36 30 0d 00 dc  1d 4d 69 6e 75 74 65 24  | . 60....Minute$|
000001f0  3d c2 22 30 22 2b c3 28  4d 69 6e 75 74 65 29 2c  |=."0"+.(Minute),|
00000200  32 29 0d 00 e6 17 53 65  63 6f 6e 64 3d 91 20 81  |2)....Second=. .|
00000210  20 31 30 30 20 83 20 36  30 0d 00 f0 1d 53 65 63  | 100 . 60....Sec|
00000220  6f 6e 64 24 3d c2 22 30  22 2b c3 28 53 65 63 6f  |ond$=."0"+.(Seco|
00000230  6e 64 29 2c 32 29 0d 00  fa 2b f1 20 8a 33 2c 31  |nd),2)...+. .3,1|
00000240  29 3b 48 6f 75 72 24 3b  22 3a 22 3b 4d 69 6e 75  |);Hour$;":";Minu|
00000250  74 65 24 3b 22 3a 22 3b  53 65 63 6f 6e 64 24 3a  |te$;":";Second$:|
00000260  e1 0d ff                                          |...|
00000263