�     >CDex2 (Info4)
� By  Dave Acton
� For 8-bit machines
(� (c) BAU June 1993
2:
<� 7
F� y%=0 � 24
P � 31,0,y%,129+y% � 6
Z�
d*LOAD CDcode
n� anim% &200
x	s%=30
�� pass%=0 � 2 � 2
�P%=anim%
�[OPT pass%
�
EQUB 3
�EQUW prog1
�EQUW prog2
�EQUW prog3
�:
�
.prog1
�
EQUB 0
�
EQUB 2
�
EQUB 1
�
EQUB 3

EQUS "BBC"

]

�rand_path(13,0)

"[OPT pass%

,
.prog2

6EQUB 20

@
EQUB 2

J
EQUB 1

T
EQUB 5

^EQUS "Acorn"

h]

r�rand_path(17,1)

|[OPT pass%

�
.prog3

�EQUB 40

�
EQUB 2

�
EQUB 1

�
EQUB 4

�EQUS "User"

�]

��rand_path(23,2)

�� pass%

�X%=anim%:Y%=anim% � 256

�
� &900

��

�:
� �rand_path(finalx%,yoff%)
x%=1
� y%=20 � 10 � -2
& P%?0=x%
0 P%?1=y%+yoff%
: �
D  x%=�(39)
N � y%<>12 � x%>finalx%+10
X � y%=10 x%=128+finalx%
b P%?2=x%
l P%?3=y%+yoff%
v P%=P%+4
��
�?P%=&FF
�P%=P%+1
��
�

00000000  0d 00 0a 18 f4 20 20 20  20 20 3e 43 44 65 78 32  |.....     >CDex2|
00000010  20 28 49 6e 66 6f 34 29  0d 00 14 14 f4 20 42 79  | (Info4)..... By|
00000020  20 20 44 61 76 65 20 41  63 74 6f 6e 0d 00 1e 18  |  Dave Acton....|
00000030  f4 20 46 6f 72 20 38 2d  62 69 74 20 6d 61 63 68  |. For 8-bit mach|
00000040  69 6e 65 73 0d 00 28 17  f4 20 28 63 29 20 42 41  |ines..(.. (c) BA|
00000050  55 20 4a 75 6e 65 20 31  39 39 33 0d 00 32 05 3a  |U June 1993..2.:|
00000060  0d 00 3c 07 eb 20 37 0d  00 46 0f e3 20 79 25 3d  |..<.. 7..F.. y%=|
00000070  30 20 b8 20 32 34 0d 00  50 19 20 ef 20 33 31 2c  |0 . 24..P. . 31,|
00000080  30 2c 79 25 2c 31 32 39  2b 79 25 20 83 20 36 0d  |0,y%,129+y% . 6.|
00000090  00 5a 05 ed 0d 00 64 10  2a 4c 4f 41 44 20 43 44  |.Z....d.*LOAD CD|
000000a0  63 6f 64 65 0d 00 6e 10  de 20 61 6e 69 6d 25 20  |code..n.. anim% |
000000b0  26 32 30 30 0d 00 78 09  73 25 3d 33 30 0d 00 82  |&200..x.s%=30...|
000000c0  15 e3 20 70 61 73 73 25  3d 30 20 b8 20 32 20 88  |.. pass%=0 . 2 .|
000000d0  20 32 0d 00 8c 0c 50 25  3d 61 6e 69 6d 25 0d 00  | 2....P%=anim%..|
000000e0  96 0e 5b 4f 50 54 20 70  61 73 73 25 0d 00 a0 0a  |..[OPT pass%....|
000000f0  45 51 55 42 20 33 0d 00  aa 0e 45 51 55 57 20 70  |EQUB 3....EQUW p|
00000100  72 6f 67 31 0d 00 b4 0e  45 51 55 57 20 70 72 6f  |rog1....EQUW pro|
00000110  67 32 0d 00 be 0e 45 51  55 57 20 70 72 6f 67 33  |g2....EQUW prog3|
00000120  0d 00 c8 05 3a 0d 00 d2  0a 2e 70 72 6f 67 31 0d  |....:.....prog1.|
00000130  00 dc 0a 45 51 55 42 20  30 0d 00 e6 0a 45 51 55  |...EQUB 0....EQU|
00000140  42 20 32 0d 00 f0 0a 45  51 55 42 20 31 0d 00 fa  |B 2....EQUB 1...|
00000150  0a 45 51 55 42 20 33 0d  01 04 0e 45 51 55 53 20  |.EQUB 3....EQUS |
00000160  22 42 42 43 22 0d 01 0e  05 5d 0d 01 18 14 f2 72  |"BBC"....].....r|
00000170  61 6e 64 5f 70 61 74 68  28 31 33 2c 30 29 0d 01  |and_path(13,0)..|
00000180  22 0e 5b 4f 50 54 20 70  61 73 73 25 0d 01 2c 0a  |".[OPT pass%..,.|
00000190  2e 70 72 6f 67 32 0d 01  36 0b 45 51 55 42 20 32  |.prog2..6.EQUB 2|
000001a0  30 0d 01 40 0a 45 51 55  42 20 32 0d 01 4a 0a 45  |0..@.EQUB 2..J.E|
000001b0  51 55 42 20 31 0d 01 54  0a 45 51 55 42 20 35 0d  |QUB 1..T.EQUB 5.|
000001c0  01 5e 10 45 51 55 53 20  22 41 63 6f 72 6e 22 0d  |.^.EQUS "Acorn".|
000001d0  01 68 05 5d 0d 01 72 14  f2 72 61 6e 64 5f 70 61  |.h.]..r..rand_pa|
000001e0  74 68 28 31 37 2c 31 29  0d 01 7c 0e 5b 4f 50 54  |th(17,1)..|.[OPT|
000001f0  20 70 61 73 73 25 0d 01  86 0a 2e 70 72 6f 67 33  | pass%.....prog3|
00000200  0d 01 90 0b 45 51 55 42  20 34 30 0d 01 9a 0a 45  |....EQUB 40....E|
00000210  51 55 42 20 32 0d 01 a4  0a 45 51 55 42 20 31 0d  |QUB 2....EQUB 1.|
00000220  01 ae 0a 45 51 55 42 20  34 0d 01 b8 0f 45 51 55  |...EQUB 4....EQU|
00000230  53 20 22 55 73 65 72 22  0d 01 c2 05 5d 0d 01 cc  |S "User"....]...|
00000240  14 f2 72 61 6e 64 5f 70  61 74 68 28 32 33 2c 32  |..rand_path(23,2|
00000250  29 0d 01 d6 0b ed 20 70  61 73 73 25 0d 01 e0 1b  |)..... pass%....|
00000260  58 25 3d 61 6e 69 6d 25  3a 59 25 3d 61 6e 69 6d  |X%=anim%:Y%=anim|
00000270  25 20 81 20 32 35 36 0d  01 ea 0a d6 20 26 39 30  |% . 256..... &90|
00000280  30 0d 01 f4 05 e0 0d 01  fe 05 3a 0d 02 08 1f dd  |0.........:.....|
00000290  20 f2 72 61 6e 64 5f 70  61 74 68 28 66 69 6e 61  | .rand_path(fina|
000002a0  6c 78 25 2c 79 6f 66 66  25 29 0d 02 12 08 78 25  |lx%,yoff%)....x%|
000002b0  3d 31 0d 02 1c 15 e3 20  79 25 3d 32 30 20 b8 20  |=1..... y%=20 . |
000002c0  31 30 20 88 20 2d 32 0d  02 26 0c 20 50 25 3f 30  |10 . -2..&. P%?0|
000002d0  3d 78 25 0d 02 30 12 20  50 25 3f 31 3d 79 25 2b  |=x%..0. P%?1=y%+|
000002e0  79 6f 66 66 25 0d 02 3a  06 20 f5 0d 02 44 0e 20  |yoff%..:. ...D. |
000002f0  20 78 25 3d b3 28 33 39  29 0d 02 4e 1d 20 fd 20  | x%=.(39)..N. . |
00000300  79 25 3c 3e 31 32 20 84  20 78 25 3e 66 69 6e 61  |y%<>12 . x%>fina|
00000310  6c 78 25 2b 31 30 0d 02  58 1b 20 e7 20 79 25 3d  |lx%+10..X. . y%=|
00000320  31 30 20 78 25 3d 31 32  38 2b 66 69 6e 61 6c 78  |10 x%=128+finalx|
00000330  25 0d 02 62 0c 20 50 25  3f 32 3d 78 25 0d 02 6c  |%..b. P%?2=x%..l|
00000340  12 20 50 25 3f 33 3d 79  25 2b 79 6f 66 66 25 0d  |. P%?3=y%+yoff%.|
00000350  02 76 0c 20 50 25 3d 50  25 2b 34 0d 02 80 05 ed  |.v. P%=P%+4.....|
00000360  0d 02 8a 0b 3f 50 25 3d  26 46 46 0d 02 94 0b 50  |....?P%=&FF....P|
00000370  25 3d 50 25 2b 31 0d 02  9e 05 e1 0d ff           |%=P%+1.......|
0000037d