Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape19b_acorn_eu_1991_february.wav » R.Clock

R.Clock

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape19b_acorn_eu_1991_february.wav
Filename: R.Clock
Read OK:
File size: 0263 bytes
Load address: FFFF1900
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Clock
   20REM by Graham Kendall
   30REM (c) The Micro User
   40REM February 1991
   50MODE 7:PROCSetClock
   60REPEAT:PROCDisplayTime
   70UNTIL FALSE:END
   80DEF PROCSetClock
   90Title$="Set Clock"
  100PRINT SPC(10);CHR$(141);Title$
  110PRINT SPC(10);CHR$(141);Title$
  120REPEAT:INPUT TAB(3,10);"Please Input the Hour (0-23)";Hour
  130UNTIL Hour>-1 AND Hour<24
  140REPEAT:INPUT TAB(3,12);"And the minutes (0-59)";Minute
  150UNTIL Minute>-1 AND Minute<60
  160TIME=100*60*(Minute+60*Hour):CLS
  170ENDPROC
  180DEF PROCDisplayTime
  190Hour=TIME DIV 360000 MOD 24
  200Hour$=RIGHT$("0"+STR$(Hour),2)
  210Minute=TIME DIV (100*60) MOD 60
  220Minute$=RIGHT$("0"+STR$(Minute),2)
  230Second=TIME DIV 100 MOD 60
  240Second$=RIGHT$("0"+STR$(Second),2)
  250PRINT TAB(3,1);Hour$;":";Minute$;":";Second$:ENDPROC

� 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
R.Clock.m0
R.Clock.m1
R.Clock.m2
R.Clock.m4
R.Clock.m5