� 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