Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/!Mandel/BASICFile

Server1/!Mandel/BASICFile

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 » Greaseweazled » adfs_IJJOBS21.adf
Filename: Server1/!Mandel/BASICFile
Read OK:
File size: 035F bytes
Load address: FFFFFB45
Exec address: 3D02B147
Duplicates

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

File contents
   10REM Bounce
   20:
   30MODE 12
   40*!MANDEL.!PALETTE
   50*SLOAD !MANDEL.!BSPR
   60*SCHOOSE BALL
   70:
   80DIM BX(10),BY(10),XV(10),YV(10)
   90:
  100FOR BN=1 TO 1
  110BX(BN)=RND(1000)
  120BY(BN)=RND(1000)
  130XV(BN)=RND(2):IF XV(BN)=2 THEN XV(BN)=-1
  140YV(BN)=RND(2):IF YV(BN)=2 THEN YV(BN)=-1
  150NEXT
  160:
  170REM REPEAT
  180STER=FALSE
  190FOR BA=1 TO 1
  200FOR BB=BA TO 1
  210IF BA=BB THEN STC=FALSE ELSE STC=TRUE
  220IF ABS(BX(BA)-BX(BB))<20 AND STC=TRUE THEN STER=TRUE
  230IF ABS(BY(BA)-BY(BB))<20 AND STC=TRUE THEN STER=TRUE
  240NEXT,
  250REM UNTIL STER=FALSE
  260:
  270REPEAT
  280FORBN=1 TO 1
  290PLOT &ED,BX(BN),BY(BN)
  300NEXT
  310:
  320FOR BN=1 TO 1
  330BX(BN)=BX(BN)+XV(BN)
  340IF BX(BN)<0 OR BX(BN)>1200 THEN XV(BN)=-XV(BN)
  350FOR BC=1 TO 1
  360IF (BX(BN)-BX(BC))^2+(BY(BN)-BY(BC)^2)<400 AND BC<>BN THEN XV(BN)=-XV(BN)
  370NEXT
  380:
  390BY(BN)=BY(BN)+YV(BN)
  400IF BY(BN)<0 OR BY(BN)>960 THEN YV(BN)=-YV(BN)
  410FOR BC=1 TO 1
  420IF (BY(BN)-BY(BC))^2+(BY(BN)-BY(BC)^2)<400 AND BC<>BN THEN YV(BN)=-YV(BN)
  430NEXT,
  440:
  450UNTIL FALSE

� Bounce
:
� 12
(*!MANDEL.!PALETTE
2*SLOAD !MANDEL.!BSPR
<*SCHOOSE BALL
F:
P!� BX(10),BY(10),XV(10),YV(10)
Z:
d� BN=1 � 1
nBX(BN)=�(1000)
xBY(BN)=�(1000)
�&XV(BN)=�(2):� XV(BN)=2 � XV(BN)=-1
�&YV(BN)=�(2):� YV(BN)=2 � YV(BN)=-1
��
�:
�� REPEAT
�
STER=�
�� BA=1 � 1
�� BB=BA � 1
�� BA=BB � STC=� � STC=�
�*� �(BX(BA)-BX(BB))<20 � STC=� � STER=�
�*� �(BY(BA)-BY(BB))<20 � STC=� � STER=�
��,
�� UNTIL STER=FALSE
:
�

�BN=1 � 1
"� &ED,BX(BN),BY(BN)
,�
6:
@� BN=1 � 1
JBX(BN)=BX(BN)+XV(BN)
T-� BX(BN)<0 � BX(BN)>1200 � XV(BN)=-XV(BN)
^� BC=1 � 1
hG� (BX(BN)-BX(BC))^2+(BY(BN)-BY(BC)^2)<400 � BC<>BN � XV(BN)=-XV(BN)
r�
|:
�BY(BN)=BY(BN)+YV(BN)
�,� BY(BN)<0 � BY(BN)>960 � YV(BN)=-YV(BN)
�� BC=1 � 1
�G� (BY(BN)-BY(BC))^2+(BY(BN)-BY(BC)^2)<400 � BC<>BN � YV(BN)=-YV(BN)
��,
�:
�� �
�
00000000  0d 00 0a 0c f4 20 42 6f  75 6e 63 65 0d 00 14 05  |..... Bounce....|
00000010  3a 0d 00 1e 08 eb 20 31  32 0d 00 28 15 2a 21 4d  |:..... 12..(.*!M|
00000020  41 4e 44 45 4c 2e 21 50  41 4c 45 54 54 45 0d 00  |ANDEL.!PALETTE..|
00000030  32 18 2a 53 4c 4f 41 44  20 21 4d 41 4e 44 45 4c  |2.*SLOAD !MANDEL|
00000040  2e 21 42 53 50 52 0d 00  3c 11 2a 53 43 48 4f 4f  |.!BSPR..<.*SCHOO|
00000050  53 45 20 42 41 4c 4c 0d  00 46 05 3a 0d 00 50 21  |SE BALL..F.:..P!|
00000060  de 20 42 58 28 31 30 29  2c 42 59 28 31 30 29 2c  |. BX(10),BY(10),|
00000070  58 56 28 31 30 29 2c 59  56 28 31 30 29 0d 00 5a  |XV(10),YV(10)..Z|
00000080  05 3a 0d 00 64 0e e3 20  42 4e 3d 31 20 b8 20 31  |.:..d.. BN=1 . 1|
00000090  0d 00 6e 12 42 58 28 42  4e 29 3d b3 28 31 30 30  |..n.BX(BN)=.(100|
000000a0  30 29 0d 00 78 12 42 59  28 42 4e 29 3d b3 28 31  |0)..x.BY(BN)=.(1|
000000b0  30 30 30 29 0d 00 82 26  58 56 28 42 4e 29 3d b3  |000)...&XV(BN)=.|
000000c0  28 32 29 3a e7 20 58 56  28 42 4e 29 3d 32 20 8c  |(2):. XV(BN)=2 .|
000000d0  20 58 56 28 42 4e 29 3d  2d 31 0d 00 8c 26 59 56  | XV(BN)=-1...&YV|
000000e0  28 42 4e 29 3d b3 28 32  29 3a e7 20 59 56 28 42  |(BN)=.(2):. YV(B|
000000f0  4e 29 3d 32 20 8c 20 59  56 28 42 4e 29 3d 2d 31  |N)=2 . YV(BN)=-1|
00000100  0d 00 96 05 ed 0d 00 a0  05 3a 0d 00 aa 0c f4 20  |.........:..... |
00000110  52 45 50 45 41 54 0d 00  b4 0a 53 54 45 52 3d a3  |REPEAT....STER=.|
00000120  0d 00 be 0e e3 20 42 41  3d 31 20 b8 20 31 0d 00  |..... BA=1 . 1..|
00000130  c8 0f e3 20 42 42 3d 42  41 20 b8 20 31 0d 00 d2  |... BB=BA . 1...|
00000140  1b e7 20 42 41 3d 42 42  20 8c 20 53 54 43 3d a3  |.. BA=BB . STC=.|
00000150  20 8b 20 53 54 43 3d b9  0d 00 dc 2a e7 20 94 28  | . STC=....*. .(|
00000160  42 58 28 42 41 29 2d 42  58 28 42 42 29 29 3c 32  |BX(BA)-BX(BB))<2|
00000170  30 20 80 20 53 54 43 3d  b9 20 8c 20 53 54 45 52  |0 . STC=. . STER|
00000180  3d b9 0d 00 e6 2a e7 20  94 28 42 59 28 42 41 29  |=....*. .(BY(BA)|
00000190  2d 42 59 28 42 42 29 29  3c 32 30 20 80 20 53 54  |-BY(BB))<20 . ST|
000001a0  43 3d b9 20 8c 20 53 54  45 52 3d b9 0d 00 f0 06  |C=. . STER=.....|
000001b0  ed 2c 0d 00 fa 16 f4 20  55 4e 54 49 4c 20 53 54  |.,..... UNTIL ST|
000001c0  45 52 3d 46 41 4c 53 45  0d 01 04 05 3a 0d 01 0e  |ER=FALSE....:...|
000001d0  05 f5 0d 01 18 0d e3 42  4e 3d 31 20 b8 20 31 0d  |.......BN=1 . 1.|
000001e0  01 22 17 f0 20 26 45 44  2c 42 58 28 42 4e 29 2c  |.".. &ED,BX(BN),|
000001f0  42 59 28 42 4e 29 0d 01  2c 05 ed 0d 01 36 05 3a  |BY(BN)..,....6.:|
00000200  0d 01 40 0e e3 20 42 4e  3d 31 20 b8 20 31 0d 01  |..@.. BN=1 . 1..|
00000210  4a 18 42 58 28 42 4e 29  3d 42 58 28 42 4e 29 2b  |J.BX(BN)=BX(BN)+|
00000220  58 56 28 42 4e 29 0d 01  54 2d e7 20 42 58 28 42  |XV(BN)..T-. BX(B|
00000230  4e 29 3c 30 20 84 20 42  58 28 42 4e 29 3e 31 32  |N)<0 . BX(BN)>12|
00000240  30 30 20 8c 20 58 56 28  42 4e 29 3d 2d 58 56 28  |00 . XV(BN)=-XV(|
00000250  42 4e 29 0d 01 5e 0e e3  20 42 43 3d 31 20 b8 20  |BN)..^.. BC=1 . |
00000260  31 0d 01 68 47 e7 20 28  42 58 28 42 4e 29 2d 42  |1..hG. (BX(BN)-B|
00000270  58 28 42 43 29 29 5e 32  2b 28 42 59 28 42 4e 29  |X(BC))^2+(BY(BN)|
00000280  2d 42 59 28 42 43 29 5e  32 29 3c 34 30 30 20 80  |-BY(BC)^2)<400 .|
00000290  20 42 43 3c 3e 42 4e 20  8c 20 58 56 28 42 4e 29  | BC<>BN . XV(BN)|
000002a0  3d 2d 58 56 28 42 4e 29  0d 01 72 05 ed 0d 01 7c  |=-XV(BN)..r....||
000002b0  05 3a 0d 01 86 18 42 59  28 42 4e 29 3d 42 59 28  |.:....BY(BN)=BY(|
000002c0  42 4e 29 2b 59 56 28 42  4e 29 0d 01 90 2c e7 20  |BN)+YV(BN)...,. |
000002d0  42 59 28 42 4e 29 3c 30  20 84 20 42 59 28 42 4e  |BY(BN)<0 . BY(BN|
000002e0  29 3e 39 36 30 20 8c 20  59 56 28 42 4e 29 3d 2d  |)>960 . YV(BN)=-|
000002f0  59 56 28 42 4e 29 0d 01  9a 0e e3 20 42 43 3d 31  |YV(BN)..... BC=1|
00000300  20 b8 20 31 0d 01 a4 47  e7 20 28 42 59 28 42 4e  | . 1...G. (BY(BN|
00000310  29 2d 42 59 28 42 43 29  29 5e 32 2b 28 42 59 28  |)-BY(BC))^2+(BY(|
00000320  42 4e 29 2d 42 59 28 42  43 29 5e 32 29 3c 34 30  |BN)-BY(BC)^2)<40|
00000330  30 20 80 20 42 43 3c 3e  42 4e 20 8c 20 59 56 28  |0 . BC<>BN . YV(|
00000340  42 4e 29 3d 2d 59 56 28  42 4e 29 0d 01 ae 06 ed  |BN)=-YV(BN).....|
00000350  2c 0d 01 b8 05 3a 0d 01  c2 07 fd 20 a3 0d ff     |,....:..... ...|
0000035f
Server1/!Mandel/BASICFile.m0
Server1/!Mandel/BASICFile.m1
Server1/!Mandel/BASICFile.m2
Server1/!Mandel/BASICFile.m4
Server1/!Mandel/BASICFile.m5