Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » Digital

Digital

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_tape28a_acorn_eu_1991_october.wav
Filename: Digital
Read OK: ✔
File size: 0242 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10REM > <basicsave$dir>.Digital Clock (12 or 24 Hour)
   20REM by Jon Millington
   30REM (c) The Micro User
   40MODE 7
   50PRINT'"Enter: a) 1-12h or b) 0-24h (a/b)?";
   60REPEAT T=INSTR("AaBb",GET$):UNTIL T>0
   70INPUT'"Give time now"''"Hours? "H
   80INPUT'"Minutes? "M'"Seconds? "S
   90:
  100IF T<3 THEN L=12 ELSE L=24
  110CLS:VDU 23,1,0;0;0;0;
  120TIME=100*(3600*H+60*M+S)
  130:
  140REPEAT
  150H=(TIME DIV 360000) MOD L
  160IF T<3 THEN H=H+1
  170M=(TIME DIV 6000) MOD 60
  180S=(TIME DIV 100) MOD 60
  190:
  200t$=STR$(H)
  210IF LEN(t$)=2 ELSEIF T<3 THEN t$=" "+t$ ELSE t$="0"+t$
  220m$=RIGHT$("0"+STR$(M),2)
  230s$=RIGHT$("0"+STR$(S),2)
  240t$=t$+":"+m$+":"+s$
  250:
  260FOR Y%=11 TO 12
  270PRINTTAB(14,Y%)CHR$(141)t$
  280NEXT
  290UNTIL FALSE


5� > <basicsave$dir>.Digital Clock (12 or 24 Hour)
� by Jon Millington
� (c) The Micro User
(� 7
2+�'"Enter: a) 1-12h or b) 0-24h (a/b)?";
<� T=�"AaBb",�):� T>0
F!�'"Give time now"''"Hours? "H
P�'"Minutes? "M'"Seconds? "S
Z:
d� T<3 � L=12 � L=24
n�:� 23,1,0;0;0;0;
x�=100*(3600*H+60*M+S)
�:
��
�H=(� � 360000) � L
�� T<3 � H=H+1
�M=(� � 6000) � 60
�S=(� � 100) � 60
�:
�t$=�(H)
�,� �(t$)=2 �� T<3 � t$=" "+t$ � t$="0"+t$
�m$=�"0"+�(M),2)
�s$=�"0"+�(S),2)
�t$=t$+":"+m$+":"+s$
�:
� Y%=11 � 12
�14,Y%)�(141)t$
�
"� �
�
00000000  0d 00 0a 35 f4 20 3e 20  3c 62 61 73 69 63 73 61  |...5. > <basicsa|
00000010  76 65 24 64 69 72 3e 2e  44 69 67 69 74 61 6c 20  |ve$dir>.Digital |
00000020  43 6c 6f 63 6b 20 28 31  32 20 6f 72 20 32 34 20  |Clock (12 or 24 |
00000030  48 6f 75 72 29 0d 00 14  17 f4 20 62 79 20 4a 6f  |Hour)..... by Jo|
00000040  6e 20 4d 69 6c 6c 69 6e  67 74 6f 6e 0d 00 1e 18  |n Millington....|
00000050  f4 20 28 63 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (c) The Micro |
00000060  55 73 65 72 0d 00 28 07  eb 20 37 0d 00 32 2b f1  |User..(.. 7..2+.|
00000070  27 22 45 6e 74 65 72 3a  20 61 29 20 31 2d 31 32  |'"Enter: a) 1-12|
00000080  68 20 6f 72 20 62 29 20  30 2d 32 34 68 20 28 61  |h or b) 0-24h (a|
00000090  2f 62 29 3f 22 3b 0d 00  3c 18 f5 20 54 3d a7 22  |/b)?";..<.. T=."|
000000a0  41 61 42 62 22 2c be 29  3a fd 20 54 3e 30 0d 00  |AaBb",.):. T>0..|
000000b0  46 21 e8 27 22 47 69 76  65 20 74 69 6d 65 20 6e  |F!.'"Give time n|
000000c0  6f 77 22 27 27 22 48 6f  75 72 73 3f 20 22 48 0d  |ow"''"Hours? "H.|
000000d0  00 50 1f e8 27 22 4d 69  6e 75 74 65 73 3f 20 22  |.P..'"Minutes? "|
000000e0  4d 27 22 53 65 63 6f 6e  64 73 3f 20 22 53 0d 00  |M'"Seconds? "S..|
000000f0  5a 05 3a 0d 00 64 17 e7  20 54 3c 33 20 8c 20 4c  |Z.:..d.. T<3 . L|
00000100  3d 31 32 20 8b 20 4c 3d  32 34 0d 00 6e 15 db 3a  |=12 . L=24..n..:|
00000110  ef 20 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |. 23,1,0;0;0;0;.|
00000120  00 78 19 d1 3d 31 30 30  2a 28 33 36 30 30 2a 48  |.x..=100*(3600*H|
00000130  2b 36 30 2a 4d 2b 53 29  0d 00 82 05 3a 0d 00 8c  |+60*M+S)....:...|
00000140  05 f5 0d 00 96 16 48 3d  28 91 20 81 20 33 36 30  |......H=(. . 360|
00000150  30 30 30 29 20 83 20 4c  0d 00 a0 11 e7 20 54 3c  |000) . L..... T<|
00000160  33 20 8c 20 48 3d 48 2b  31 0d 00 aa 15 4d 3d 28  |3 . H=H+1....M=(|
00000170  91 20 81 20 36 30 30 30  29 20 83 20 36 30 0d 00  |. . 6000) . 60..|
00000180  b4 14 53 3d 28 91 20 81  20 31 30 30 29 20 83 20  |..S=(. . 100) . |
00000190  36 30 0d 00 be 05 3a 0d  00 c8 0b 74 24 3d c3 28  |60....:....t$=.(|
000001a0  48 29 0d 00 d2 2c e7 20  a9 28 74 24 29 3d 32 20  |H)...,. .(t$)=2 |
000001b0  8b e7 20 54 3c 33 20 8c  20 74 24 3d 22 20 22 2b  |.. T<3 . t$=" "+|
000001c0  74 24 20 8b 20 74 24 3d  22 30 22 2b 74 24 0d 00  |t$ . t$="0"+t$..|
000001d0  dc 13 6d 24 3d c2 22 30  22 2b c3 28 4d 29 2c 32  |..m$=."0"+.(M),2|
000001e0  29 0d 00 e6 13 73 24 3d  c2 22 30 22 2b c3 28 53  |)....s$=."0"+.(S|
000001f0  29 2c 32 29 0d 00 f0 17  74 24 3d 74 24 2b 22 3a  |),2)....t$=t$+":|
00000200  22 2b 6d 24 2b 22 3a 22  2b 73 24 0d 00 fa 05 3a  |"+m$+":"+s$....:|
00000210  0d 01 04 10 e3 20 59 25  3d 31 31 20 b8 20 31 32  |..... Y%=11 . 12|
00000220  0d 01 0e 14 f1 8a 31 34  2c 59 25 29 bd 28 31 34  |......14,Y%).(14|
00000230  31 29 74 24 0d 01 18 05  ed 0d 01 22 07 fd 20 a3  |1)t$.......".. .|
00000240  0d ff                                             |..|
00000242
Digital.m0
Digital.m1
Digital.m2
Digital.m4
Digital.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .