�     >CDexamp (Info3)
� By  Andrew Bennett
� For 8-bit machines
(� (c) BAU June 1993
2:
<� 7
F*LOAD CDcode
P� anim% &100
Z� opt%=0 � 2 � 2
dP%=anim%:[OPT opt%
n%EQUB 2       \ Number of programs
x'EQUW prog1   \ Pointer to program 1
�'EQUW prog2   \ Pointer to program 2
�:
�.prog1       \ Program 1
�.EQUB 0       \ Initial delay (/50 seconds)
�1EQUB 4       \ Subsequent delay (/50 seconds)
�EQUB 1       \ Direction
� EQUB 9       \ String length
�EQUS "Character" \ String
�%EQUB 20      \ First X coordinate
�%EQUB 0       \ First Y coordinate
�8EQUB 128+10  \ Second X coordinate and add in offset
�&EQUB 12      \ Second Y coordinate
�*EQUB &FF     \ End of path and program

:

.prog2       \ Program 2


EQUB 0

"
EQUB 4

,EQUB &FF

6EQUB 11

@EQUS "Dynanimator"

JEQUB 20

T
EQUB 0

^EQUB 128+20

hEQUB 12

rEQUB &FF

|]

��

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

�
� &900

��

��
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 43 44 65 78 61  |.....     >CDexa|
00000010  6d 70 20 28 49 6e 66 6f  33 29 0d 00 14 18 f4 20  |mp (Info3)..... |
00000020  42 79 20 20 41 6e 64 72  65 77 20 42 65 6e 6e 65  |By  Andrew Benne|
00000030  74 74 0d 00 1e 18 f4 20  46 6f 72 20 38 2d 62 69  |tt..... For 8-bi|
00000040  74 20 6d 61 63 68 69 6e  65 73 0d 00 28 17 f4 20  |t machines..(.. |
00000050  28 63 29 20 42 41 55 20  4a 75 6e 65 20 31 39 39  |(c) BAU June 199|
00000060  33 0d 00 32 05 3a 0d 00  3c 07 eb 20 37 0d 00 46  |3..2.:..<.. 7..F|
00000070  10 2a 4c 4f 41 44 20 43  44 63 6f 64 65 0d 00 50  |.*LOAD CDcode..P|
00000080  10 de 20 61 6e 69 6d 25  20 26 31 30 30 0d 00 5a  |.. anim% &100..Z|
00000090  14 e3 20 6f 70 74 25 3d  30 20 b8 20 32 20 88 20  |.. opt%=0 . 2 . |
000000a0  32 0d 00 64 16 50 25 3d  61 6e 69 6d 25 3a 5b 4f  |2..d.P%=anim%:[O|
000000b0  50 54 20 6f 70 74 25 0d  00 6e 25 45 51 55 42 20  |PT opt%..n%EQUB |
000000c0  32 20 20 20 20 20 20 20  5c 20 4e 75 6d 62 65 72  |2       \ Number|
000000d0  20 6f 66 20 70 72 6f 67  72 61 6d 73 0d 00 78 27  | of programs..x'|
000000e0  45 51 55 57 20 70 72 6f  67 31 20 20 20 5c 20 50  |EQUW prog1   \ P|
000000f0  6f 69 6e 74 65 72 20 74  6f 20 70 72 6f 67 72 61  |ointer to progra|
00000100  6d 20 31 0d 00 82 27 45  51 55 57 20 70 72 6f 67  |m 1...'EQUW prog|
00000110  32 20 20 20 5c 20 50 6f  69 6e 74 65 72 20 74 6f  |2   \ Pointer to|
00000120  20 70 72 6f 67 72 61 6d  20 32 0d 00 8c 05 3a 0d  | program 2....:.|
00000130  00 96 1c 2e 70 72 6f 67  31 20 20 20 20 20 20 20  |....prog1       |
00000140  5c 20 50 72 6f 67 72 61  6d 20 31 0d 00 a0 2e 45  |\ Program 1....E|
00000150  51 55 42 20 30 20 20 20  20 20 20 20 5c 20 49 6e  |QUB 0       \ In|
00000160  69 74 69 61 6c 20 64 65  6c 61 79 20 28 2f 35 30  |itial delay (/50|
00000170  20 73 65 63 6f 6e 64 73  29 0d 00 aa 31 45 51 55  | seconds)...1EQU|
00000180  42 20 34 20 20 20 20 20  20 20 5c 20 53 75 62 73  |B 4       \ Subs|
00000190  65 71 75 65 6e 74 20 64  65 6c 61 79 20 28 2f 35  |equent delay (/5|
000001a0  30 20 73 65 63 6f 6e 64  73 29 0d 00 b4 1c 45 51  |0 seconds)....EQ|
000001b0  55 42 20 31 20 20 20 20  20 20 20 5c 20 44 69 72  |UB 1       \ Dir|
000001c0  65 63 74 69 6f 6e 0d 00  be 20 45 51 55 42 20 39  |ection... EQUB 9|
000001d0  20 20 20 20 20 20 20 5c  20 53 74 72 69 6e 67 20  |       \ String |
000001e0  6c 65 6e 67 74 68 0d 00  c8 1d 45 51 55 53 20 22  |length....EQUS "|
000001f0  43 68 61 72 61 63 74 65  72 22 20 5c 20 53 74 72  |Character" \ Str|
00000200  69 6e 67 0d 00 d2 25 45  51 55 42 20 32 30 20 20  |ing...%EQUB 20  |
00000210  20 20 20 20 5c 20 46 69  72 73 74 20 58 20 63 6f  |    \ First X co|
00000220  6f 72 64 69 6e 61 74 65  0d 00 dc 25 45 51 55 42  |ordinate...%EQUB|
00000230  20 30 20 20 20 20 20 20  20 5c 20 46 69 72 73 74  | 0       \ First|
00000240  20 59 20 63 6f 6f 72 64  69 6e 61 74 65 0d 00 e6  | Y coordinate...|
00000250  38 45 51 55 42 20 31 32  38 2b 31 30 20 20 5c 20  |8EQUB 128+10  \ |
00000260  53 65 63 6f 6e 64 20 58  20 63 6f 6f 72 64 69 6e  |Second X coordin|
00000270  61 74 65 20 61 6e 64 20  61 64 64 20 69 6e 20 6f  |ate and add in o|
00000280  66 66 73 65 74 0d 00 f0  26 45 51 55 42 20 31 32  |ffset...&EQUB 12|
00000290  20 20 20 20 20 20 5c 20  53 65 63 6f 6e 64 20 59  |      \ Second Y|
000002a0  20 63 6f 6f 72 64 69 6e  61 74 65 0d 00 fa 2a 45  | coordinate...*E|
000002b0  51 55 42 20 26 46 46 20  20 20 20 20 5c 20 45 6e  |QUB &FF     \ En|
000002c0  64 20 6f 66 20 70 61 74  68 20 61 6e 64 20 70 72  |d of path and pr|
000002d0  6f 67 72 61 6d 0d 01 04  05 3a 0d 01 0e 1c 2e 70  |ogram....:.....p|
000002e0  72 6f 67 32 20 20 20 20  20 20 20 5c 20 50 72 6f  |rog2       \ Pro|
000002f0  67 72 61 6d 20 32 0d 01  18 0a 45 51 55 42 20 30  |gram 2....EQUB 0|
00000300  0d 01 22 0a 45 51 55 42  20 34 0d 01 2c 0c 45 51  |..".EQUB 4..,.EQ|
00000310  55 42 20 26 46 46 0d 01  36 0b 45 51 55 42 20 31  |UB &FF..6.EQUB 1|
00000320  31 0d 01 40 16 45 51 55  53 20 22 44 79 6e 61 6e  |1..@.EQUS "Dynan|
00000330  69 6d 61 74 6f 72 22 0d  01 4a 0b 45 51 55 42 20  |imator"..J.EQUB |
00000340  32 30 0d 01 54 0a 45 51  55 42 20 30 0d 01 5e 0f  |20..T.EQUB 0..^.|
00000350  45 51 55 42 20 31 32 38  2b 32 30 0d 01 68 0b 45  |EQUB 128+20..h.E|
00000360  51 55 42 20 31 32 0d 01  72 0c 45 51 55 42 20 26  |QUB 12..r.EQUB &|
00000370  46 46 0d 01 7c 05 5d 0d  01 86 05 ed 0d 01 90 1b  |FF..|.].........|
00000380  58 25 3d 61 6e 69 6d 25  3a 59 25 3d 61 6e 69 6d  |X%=anim%:Y%=anim|
00000390  25 20 81 20 32 35 36 0d  01 9a 0a d6 20 26 39 30  |% . 256..... &90|
000003a0  30 0d 01 a4 05 f1 0d 01  ae 05 e0 0d ff           |0............|
000003ad