BT1664

Home » Personal collection » Acorn ADFS disks » Electron » Electron_disk_loader_B.ADF » BT1664

BT1664

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 ADFS disks » Electron » Electron_disk_loader_B.ADF
Filename:	BT1664
Read OK:	✔
File size:	0409 bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

Duplicates

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

Personal collection » Acorn ADFS disks » Electron » Electron_disk_loader_A.ADF » BT1664
Personal collection » Acorn ADFS disks » Electron » Electron_disk_loader_B.ADF » BT1664
Personal collection » Acorn hard disk » zipped_disks » elk07 » discload/BT1664

File contents

   10 A%=8
   20 FOR B%=1 TO 3
   30 FOR C%=1 TO 4
   40 D%=7-B%-C%:IF D%<2 THEN NEXT C%,B%:END
   50 FOR E%=1 TO 4-B%
   55 PRINT B%,C%,E%
   60 O%=E%
   70 FOR R%=1 TO 5-B%-E%
   80 S%=6-B%-E%-R%
   90 FOR P%=2 TO 6-O%
  100 Q%=8-O%-P%:IF Q%<2 THEN NEXT P%,R%,E%,C%,B%:END
  110 FOR N%=1 TO D%-1
  120 T%=13-N%-Q%-R%:IF T%<1 THEN NEXT N%,P%,R%,E%,C%,B%:END
  130 FOR F%=1 TO P%-1
  140 H%=13-C%-F%-T%:IF H%<=R% THEN NEXT F%,N%,P%,R%,E%,C%,B%:END
  150 FOR G%=1 TO Q%-1:IF G%>4 THEN NEXT G%,F%,N%,P%,R%,E%,C%,B%:END
  160 K%=9-E%-F%-G%:IF K%<1 THEN NEXT G%,F%,N%,P%,R%,E%,C%,B%:END
  170 IF 11-K%-N%<=B% THEN NEXT G%,F%,N%,P%,R%,E%,C%,B%:END ELSE FOR L%=B%+1 TO 11-K%-N%
  180 I%=13-L%-O%-H%:IF I%<=S% THEN NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END
  190 M%=13-K%-L%-N%:IF M%<=C% THEN NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END
  200 J%=16-M%-P%-R%:IF J%<=T% THEN NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END
  205 IF D%+G%+I%+J%<>18 THEN NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END
  210 Z=SQR(A%^2+B%^2+C%^2+D%^2+E%^2+F%^2+G%^2+H%^2+I%^2+J%^2+K%^2+L%^2+M%^2+N%^2+O%^2+P%^2+Q%^2+R%^2+S%^2+T%^2):IF INT(Z)<>Z THEN NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END
  220 PRINT A%,K%'B%,L%'C%,M%'D%,N%'E%,O%'F%,P%'G%,Q%'H%,R%'I%,S%'J%,T%:A$=GET$:NEXT L%,G%,F%,N%,P%,R%,E%,C%,B%:END


	 A%=8
 � B%=1 � 3
 � C%=1 � 4
(" D%=7-B%-C%:� D%<2 � � C%,B%:�
2 � E%=1 � 4-B%
7 � B%,C%,E%
<
 O%=E%
F � R%=1 � 5-B%-E%
P S%=6-B%-E%-R%
Z � P%=2 � 6-O%
d+ Q%=8-O%-P%:� Q%<2 � � P%,R%,E%,C%,B%:�
n � N%=1 � D%-1
x2 T%=13-N%-Q%-R%:� T%<1 � � N%,P%,R%,E%,C%,B%:�
� � F%=1 � P%-1
�7 H%=13-C%-F%-T%:� H%<=R% � � F%,N%,P%,R%,E%,C%,B%:�
�7 � G%=1 � Q%-1:� G%>4 � � G%,F%,N%,P%,R%,E%,C%,B%:�
�7 K%=9-E%-F%-G%:� K%<1 � � G%,F%,N%,P%,R%,E%,C%,B%:�
�H � 11-K%-N%<=B% � � G%,F%,N%,P%,R%,E%,C%,B%:� � � L%=B%+1 � 11-K%-N%
�= I%=13-L%-O%-H%:� I%<=S% � � L%,G%,F%,N%,P%,R%,E%,C%,B%:�
�= M%=13-K%-L%-N%:� M%<=C% � � L%,G%,F%,N%,P%,R%,E%,C%,B%:�
�= J%=16-M%-P%-R%:� J%<=T% � � L%,G%,F%,N%,P%,R%,E%,C%,B%:�
�7 � D%+G%+I%+J%<>18 � � L%,G%,F%,N%,P%,R%,E%,C%,B%:�
Ҙ Z=�(A%^2+B%^2+C%^2+D%^2+E%^2+F%^2+G%^2+H%^2+I%^2+J%^2+K%^2+L%^2+M%^2+N%^2+O%^2+P%^2+Q%^2+R%^2+S%^2+T%^2):� �(Z)<>Z � � L%,G%,F%,N%,P%,R%,E%,C%,B%:�
�f � A%,K%'B%,L%'C%,M%'D%,N%'E%,O%'F%,P%'G%,Q%'H%,R%'I%,S%'J%,T%:A$=�:� L%,G%,F%,N%,P%,R%,E%,C%,B%:�
�

00000000  0d 00 0a 09 20 41 25 3d  38 0d 00 14 0f 20 e3 20  |.... A%=8.... . |
00000010  42 25 3d 31 20 b8 20 33  0d 00 1e 0f 20 e3 20 43  |B%=1 . 3.... . C|
00000020  25 3d 31 20 b8 20 34 0d  00 28 22 20 44 25 3d 37  |%=1 . 4..(" D%=7|
00000030  2d 42 25 2d 43 25 3a e7  20 44 25 3c 32 20 8c 20  |-B%-C%:. D%<2 . |
00000040  ed 20 43 25 2c 42 25 3a  e0 0d 00 32 12 20 e3 20  |. C%,B%:...2. . |
00000050  45 25 3d 31 20 b8 20 34  2d 42 25 0d 00 37 0f 20  |E%=1 . 4-B%..7. |
00000060  f1 20 42 25 2c 43 25 2c  45 25 0d 00 3c 0a 20 4f  |. B%,C%,E%..<. O|
00000070  25 3d 45 25 0d 00 46 15  20 e3 20 52 25 3d 31 20  |%=E%..F. . R%=1 |
00000080  b8 20 35 2d 42 25 2d 45  25 0d 00 50 12 20 53 25  |. 5-B%-E%..P. S%|
00000090  3d 36 2d 42 25 2d 45 25  2d 52 25 0d 00 5a 12 20  |=6-B%-E%-R%..Z. |
000000a0  e3 20 50 25 3d 32 20 b8  20 36 2d 4f 25 0d 00 64  |. P%=2 . 6-O%..d|
000000b0  2b 20 51 25 3d 38 2d 4f  25 2d 50 25 3a e7 20 51  |+ Q%=8-O%-P%:. Q|
000000c0  25 3c 32 20 8c 20 ed 20  50 25 2c 52 25 2c 45 25  |%<2 . . P%,R%,E%|
000000d0  2c 43 25 2c 42 25 3a e0  0d 00 6e 12 20 e3 20 4e  |,C%,B%:...n. . N|
000000e0  25 3d 31 20 b8 20 44 25  2d 31 0d 00 78 32 20 54  |%=1 . D%-1..x2 T|
000000f0  25 3d 31 33 2d 4e 25 2d  51 25 2d 52 25 3a e7 20  |%=13-N%-Q%-R%:. |
00000100  54 25 3c 31 20 8c 20 ed  20 4e 25 2c 50 25 2c 52  |T%<1 . . N%,P%,R|
00000110  25 2c 45 25 2c 43 25 2c  42 25 3a e0 0d 00 82 12  |%,E%,C%,B%:.....|
00000120  20 e3 20 46 25 3d 31 20  b8 20 50 25 2d 31 0d 00  | . F%=1 . P%-1..|
00000130  8c 37 20 48 25 3d 31 33  2d 43 25 2d 46 25 2d 54  |.7 H%=13-C%-F%-T|
00000140  25 3a e7 20 48 25 3c 3d  52 25 20 8c 20 ed 20 46  |%:. H%<=R% . . F|
00000150  25 2c 4e 25 2c 50 25 2c  52 25 2c 45 25 2c 43 25  |%,N%,P%,R%,E%,C%|
00000160  2c 42 25 3a e0 0d 00 96  37 20 e3 20 47 25 3d 31  |,B%:....7 . G%=1|
00000170  20 b8 20 51 25 2d 31 3a  e7 20 47 25 3e 34 20 8c  | . Q%-1:. G%>4 .|
00000180  20 ed 20 47 25 2c 46 25  2c 4e 25 2c 50 25 2c 52  | . G%,F%,N%,P%,R|
00000190  25 2c 45 25 2c 43 25 2c  42 25 3a e0 0d 00 a0 37  |%,E%,C%,B%:....7|
000001a0  20 4b 25 3d 39 2d 45 25  2d 46 25 2d 47 25 3a e7  | K%=9-E%-F%-G%:.|
000001b0  20 4b 25 3c 31 20 8c 20  ed 20 47 25 2c 46 25 2c  | K%<1 . . G%,F%,|
000001c0  4e 25 2c 50 25 2c 52 25  2c 45 25 2c 43 25 2c 42  |N%,P%,R%,E%,C%,B|
000001d0  25 3a e0 0d 00 aa 48 20  e7 20 31 31 2d 4b 25 2d  |%:....H . 11-K%-|
000001e0  4e 25 3c 3d 42 25 20 8c  20 ed 20 47 25 2c 46 25  |N%<=B% . . G%,F%|
000001f0  2c 4e 25 2c 50 25 2c 52  25 2c 45 25 2c 43 25 2c  |,N%,P%,R%,E%,C%,|
00000200  42 25 3a e0 20 8b 20 e3  20 4c 25 3d 42 25 2b 31  |B%:. . . L%=B%+1|
00000210  20 b8 20 31 31 2d 4b 25  2d 4e 25 0d 00 b4 3d 20  | . 11-K%-N%...= |
00000220  49 25 3d 31 33 2d 4c 25  2d 4f 25 2d 48 25 3a e7  |I%=13-L%-O%-H%:.|
00000230  20 49 25 3c 3d 53 25 20  8c 20 ed 20 4c 25 2c 47  | I%<=S% . . L%,G|
00000240  25 2c 46 25 2c 4e 25 2c  50 25 2c 52 25 2c 45 25  |%,F%,N%,P%,R%,E%|
00000250  2c 43 25 2c 42 25 3a e0  0d 00 be 3d 20 4d 25 3d  |,C%,B%:....= M%=|
00000260  31 33 2d 4b 25 2d 4c 25  2d 4e 25 3a e7 20 4d 25  |13-K%-L%-N%:. M%|
00000270  3c 3d 43 25 20 8c 20 ed  20 4c 25 2c 47 25 2c 46  |<=C% . . L%,G%,F|
00000280  25 2c 4e 25 2c 50 25 2c  52 25 2c 45 25 2c 43 25  |%,N%,P%,R%,E%,C%|
00000290  2c 42 25 3a e0 0d 00 c8  3d 20 4a 25 3d 31 36 2d  |,B%:....= J%=16-|
000002a0  4d 25 2d 50 25 2d 52 25  3a e7 20 4a 25 3c 3d 54  |M%-P%-R%:. J%<=T|
000002b0  25 20 8c 20 ed 20 4c 25  2c 47 25 2c 46 25 2c 4e  |% . . L%,G%,F%,N|
000002c0  25 2c 50 25 2c 52 25 2c  45 25 2c 43 25 2c 42 25  |%,P%,R%,E%,C%,B%|
000002d0  3a e0 0d 00 cd 37 20 e7  20 44 25 2b 47 25 2b 49  |:....7 . D%+G%+I|
000002e0  25 2b 4a 25 3c 3e 31 38  20 8c 20 ed 20 4c 25 2c  |%+J%<>18 . . L%,|
000002f0  47 25 2c 46 25 2c 4e 25  2c 50 25 2c 52 25 2c 45  |G%,F%,N%,P%,R%,E|
00000300  25 2c 43 25 2c 42 25 3a  e0 0d 00 d2 98 20 5a 3d  |%,C%,B%:..... Z=|
00000310  b6 28 41 25 5e 32 2b 42  25 5e 32 2b 43 25 5e 32  |.(A%^2+B%^2+C%^2|
00000320  2b 44 25 5e 32 2b 45 25  5e 32 2b 46 25 5e 32 2b  |+D%^2+E%^2+F%^2+|
00000330  47 25 5e 32 2b 48 25 5e  32 2b 49 25 5e 32 2b 4a  |G%^2+H%^2+I%^2+J|
00000340  25 5e 32 2b 4b 25 5e 32  2b 4c 25 5e 32 2b 4d 25  |%^2+K%^2+L%^2+M%|
00000350  5e 32 2b 4e 25 5e 32 2b  4f 25 5e 32 2b 50 25 5e  |^2+N%^2+O%^2+P%^|
00000360  32 2b 51 25 5e 32 2b 52  25 5e 32 2b 53 25 5e 32  |2+Q%^2+R%^2+S%^2|
00000370  2b 54 25 5e 32 29 3a e7  20 a8 28 5a 29 3c 3e 5a  |+T%^2):. .(Z)<>Z|
00000380  20 8c 20 ed 20 4c 25 2c  47 25 2c 46 25 2c 4e 25  | . . L%,G%,F%,N%|
00000390  2c 50 25 2c 52 25 2c 45  25 2c 43 25 2c 42 25 3a  |,P%,R%,E%,C%,B%:|
000003a0  e0 0d 00 dc 66 20 f1 20  41 25 2c 4b 25 27 42 25  |....f . A%,K%'B%|
000003b0  2c 4c 25 27 43 25 2c 4d  25 27 44 25 2c 4e 25 27  |,L%'C%,M%'D%,N%'|
000003c0  45 25 2c 4f 25 27 46 25  2c 50 25 27 47 25 2c 51  |E%,O%'F%,P%'G%,Q|
000003d0  25 27 48 25 2c 52 25 27  49 25 2c 53 25 27 4a 25  |%'H%,R%'I%,S%'J%|
000003e0  2c 54 25 3a 41 24 3d be  3a ed 20 4c 25 2c 47 25  |,T%:A$=.:. L%,G%|
000003f0  2c 46 25 2c 4e 25 2c 50  25 2c 52 25 2c 45 25 2c  |,F%,N%,P%,R%,E%,|
00000400  43 25 2c 42 25 3a e0 0d  ff                       |C%,B%:...|
00000409

BT1664.m0

BT1664.m1

BT1664.m2

BT1664.m4

BT1664.m5

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