Duplicates

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

• Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE3/A/CLOCK
• Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE3/A/CLOCK
• Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TAPE3/A/CLOCK
• Personal collection » Acorn tapes » Own_Work » box02_tape03a_c15_acorn_maths.wav » CLOCK

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   10 F%=0
   20 MODE6
   30 DIM T%(7)
   40 DIM X%(68,7)
   50 FOR N%=1 TO 8
   60 T%=RND(8)-1
   70 IF T%(T%)<>0 THEN GOTO 60
   80 T%(T%)=N%
   90 NEXT N%
  100 R%=T%(0)*T%(1)+T%(1)*T%(2)+T%(2)*T%(3)+T%(3)*T%(4)+T%(4)*T%(5)+T%(5)*T%(6)+T%(6)*T%(7)+T%(7)*T%(0)
  110 IF X%(R%-123,0)=0 THEN FOR SET=0 TO 7:X%(R%-123,SET)=T%(SET):NEXT:F%=F%+1:PRINTF%
  120 FOR C=0 TO 7:T%(C)=0:NEXT C
  130 IF F%<>69 THEN GOTO 50
  140 FOR PR=0 TO 68
  150 FOR BI=0 TO 7:PRINT;X%(PR,BI);:NEXT
  160 PRINT,PR+123
  170 A$=GET$
  180 NEXT

	 F%=0
 �6
 � T%(7)
( � X%(68,7)
2 � N%=1 � 8
< T%=�(8)-1
F � T%(T%)<>0 � � �T|@
P T%(T%)=N%
Z	 � N%
dg R%=T%(0)*T%(1)+T%(1)*T%(2)+T%(2)*T%(3)+T%(3)*T%(4)+T%(4)*T%(5)+T%(5)*T%(6)+T%(6)*T%(7)+T%(7)*T%(0)
nH � X%(R%-123,0)=0 � � SET=0 � 7:X%(R%-123,SET)=T%(SET):�:F%=F%+1:�F%
x � C=0 � 7:T%(C)=0:� C
� � F%<>69 � � �Tr@
� � PR=0 � 68
� � BI=0 � 7:�;X%(PR,BI);:�
�
 �,PR+123
�	 A$=�
� �
�

00000000  0d 00 0a 09 20 46 25 3d  30 0d 00 14 07 20 eb 36  |.... F%=0.... .6|
00000010  0d 00 1e 0c 20 de 20 54  25 28 37 29 0d 00 28 0f  |.... . T%(7)..(.|
00000020  20 de 20 58 25 28 36 38  2c 37 29 0d 00 32 0f 20  | . X%(68,7)..2. |
00000030  e3 20 4e 25 3d 31 20 b8  20 38 0d 00 3c 0e 20 54  |. N%=1 . 8..<. T|
00000040  25 3d b3 28 38 29 2d 31  0d 00 46 19 20 e7 20 54  |%=.(8)-1..F. . T|
00000050  25 28 54 25 29 3c 3e 30  20 8c 20 e5 20 8d 54 7c  |%(T%)<>0 . . .T||
00000060  40 0d 00 50 0e 20 54 25  28 54 25 29 3d 4e 25 0d  |@..P. T%(T%)=N%.|
00000070  00 5a 09 20 ed 20 4e 25  0d 00 64 67 20 52 25 3d  |.Z. . N%..dg R%=|
00000080  54 25 28 30 29 2a 54 25  28 31 29 2b 54 25 28 31  |T%(0)*T%(1)+T%(1|
00000090  29 2a 54 25 28 32 29 2b  54 25 28 32 29 2a 54 25  |)*T%(2)+T%(2)*T%|
000000a0  28 33 29 2b 54 25 28 33  29 2a 54 25 28 34 29 2b  |(3)+T%(3)*T%(4)+|
000000b0  54 25 28 34 29 2a 54 25  28 35 29 2b 54 25 28 35  |T%(4)*T%(5)+T%(5|
000000c0  29 2a 54 25 28 36 29 2b  54 25 28 36 29 2a 54 25  |)*T%(6)+T%(6)*T%|
000000d0  28 37 29 2b 54 25 28 37  29 2a 54 25 28 30 29 0d  |(7)+T%(7)*T%(0).|
000000e0  00 6e 48 20 e7 20 58 25  28 52 25 2d 31 32 33 2c  |.nH . X%(R%-123,|
000000f0  30 29 3d 30 20 8c 20 e3  20 53 45 54 3d 30 20 b8  |0)=0 . . SET=0 .|
00000100  20 37 3a 58 25 28 52 25  2d 31 32 33 2c 53 45 54  | 7:X%(R%-123,SET|
00000110  29 3d 54 25 28 53 45 54  29 3a ed 3a 46 25 3d 46  |)=T%(SET):.:F%=F|
00000120  25 2b 31 3a f1 46 25 0d  00 78 1a 20 e3 20 43 3d  |%+1:.F%..x. . C=|
00000130  30 20 b8 20 37 3a 54 25  28 43 29 3d 30 3a ed 20  |0 . 7:T%(C)=0:. |
00000140  43 0d 00 82 16 20 e7 20  46 25 3c 3e 36 39 20 8c  |C.... . F%<>69 .|
00000150  20 e5 20 8d 54 72 40 0d  00 8c 10 20 e3 20 50 52  | . .Tr@.... . PR|
00000160  3d 30 20 b8 20 36 38 0d  00 96 1e 20 e3 20 42 49  |=0 . 68.... . BI|
00000170  3d 30 20 b8 20 37 3a f1  3b 58 25 28 50 52 2c 42  |=0 . 7:.;X%(PR,B|
00000180  49 29 3b 3a ed 0d 00 a0  0d 20 f1 2c 50 52 2b 31  |I);:..... .,PR+1|
00000190  32 33 0d 00 aa 09 20 41  24 3d be 0d 00 b4 06 20  |23.... A$=..... |
000001a0  ed 0d ff                                          |...|
000001a3

TAPE3/A/CLOCK.m0

TAPE3/A/CLOCK.m1

TAPE3/A/CLOCK.m2

TAPE3/A/CLOCK.m4

TAPE3/A/CLOCK.m5