� > <BasicSave$Dir>.Animate
� by Mike Goldberg
� (c) The Micro User
(:
2�5:H%=&2000:�=&2000
<�"Filename",f$'"Number",N%
F2�L%=1�N%:�cli("LOAD "+f$+�(L%)+" "+�~�a(L%)):�
P:
Z�:�C
d:
n
� � F%,N%
x�F%=-1�:�F%,N%
��A(F%):�w(N%*10)
�� �
�:
�d��A(F%)�A%,I%,J%,Y%:Y%=�a(F%):A%=&6780:�J%=1�4:�I%=0�63�4:A%!I%=Y%!I%:�:A%=A%+&140:Y%=Y%+&40:�:�
�:
�ݤa(F%)=H%+(F%-1)*&100
�:
���C:�23,1,0;0;0;0;19,3,4;0;
��0,131:�24,496;496;780;652;
��:�26:�0,128
��24,508;504;770;644;:�:�26
��19,2,1;0;:�3,129
� �24,456;464;820;684;:�:*FX15

G=�(100):A%=632:B%=640:�3,1

�Q%=1�20:�A%,464:�1,0,216

�B%,464:�1,0,216:�w(5)

"A%=A%-8:B%=B%+8:�

,�19,2,3;0;:�

6:

@��w(T%)T%=�+T%:���>T%:�

J$��cli($&700)�X%,Y%:Y%=7:�&FFF7:�

T:

^�1,6,2,8

h
�-1,-1
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 42 61 73 69 63 53 61  |..... > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  41 6e 69 6d 61 74 65 0d  |ve$Dir>.Animate.|
00000020  00 14 16 f4 20 62 79 20  4d 69 6b 65 20 47 6f 6c  |.... by Mike Gol|
00000030  64 62 65 72 67 0d 00 1e  18 f4 20 28 63 29 20 54  |dberg..... (c) T|
00000040  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000050  05 3a 0d 00 32 17 eb 35  3a 48 25 3d 26 32 30 30  |.:..2..5:H%=&200|
00000060  30 3a d3 3d 26 32 30 30  30 0d 00 3c 1e e8 22 46  |0:.=&2000..<.."F|
00000070  69 6c 65 6e 61 6d 65 22  2c 66 24 27 22 4e 75 6d  |ilename",f$'"Num|
00000080  62 65 72 22 2c 4e 25 0d  00 46 32 e3 4c 25 3d 31  |ber",N%..F2.L%=1|
00000090  b8 4e 25 3a f2 63 6c 69  28 22 4c 4f 41 44 20 22  |.N%:.cli("LOAD "|
000000a0  2b 66 24 2b c3 28 4c 25  29 2b 22 20 22 2b c3 7e  |+f$+.(L%)+" "+.~|
000000b0  a4 61 28 4c 25 29 29 3a  ed 0d 00 50 05 3a 0d 00  |.a(L%)):...P.:..|
000000c0  5a 08 db 3a f2 43 0d 00  64 05 3a 0d 00 6e 0d f5  |Z..:.C..d.:..n..|
000000d0  20 f3 20 46 25 2c 4e 25  0d 00 78 12 e7 46 25 3d  | . F%,N%..x..F%=|
000000e0  2d 31 f7 3a f3 46 25 2c  4e 25 0d 00 82 14 f2 41  |-1.:.F%,N%.....A|
000000f0  28 46 25 29 3a f2 77 28  4e 25 2a 31 30 29 0d 00  |(F%):.w(N%*10)..|
00000100  8c 07 fd 20 a3 0d 00 96  05 3a 0d 00 a0 64 dd f2  |... .....:...d..|
00000110  41 28 46 25 29 ea 41 25  2c 49 25 2c 4a 25 2c 59  |A(F%).A%,I%,J%,Y|
00000120  25 3a 59 25 3d a4 61 28  46 25 29 3a 41 25 3d 26  |%:Y%=.a(F%):A%=&|
00000130  36 37 38 30 3a e3 4a 25  3d 31 b8 34 3a e3 49 25  |6780:.J%=1.4:.I%|
00000140  3d 30 b8 36 33 88 34 3a  41 25 21 49 25 3d 59 25  |=0.63.4:A%!I%=Y%|
00000150  21 49 25 3a ed 3a 41 25  3d 41 25 2b 26 31 34 30  |!I%:.:A%=A%+&140|
00000160  3a 59 25 3d 59 25 2b 26  34 30 3a ed 3a e1 0d 00  |:Y%=Y%+&40:.:...|
00000170  aa 05 3a 0d 00 b4 1a dd  a4 61 28 46 25 29 3d 48  |..:......a(F%)=H|
00000180  25 2b 28 46 25 2d 31 29  2a 26 31 30 30 0d 00 be  |%+(F%-1)*&100...|
00000190  05 3a 0d 00 c8 1f dd f2  43 3a ef 32 33 2c 31 2c  |.:......C:.23,1,|
000001a0  30 3b 30 3b 30 3b 30 3b  31 39 2c 33 2c 34 3b 30  |0;0;0;0;19,3,4;0|
000001b0  3b 0d 00 d2 1f e6 30 2c  31 33 31 3a ef 32 34 2c  |;.....0,131:.24,|
000001c0  34 39 36 3b 34 39 36 3b  37 38 30 3b 36 35 32 3b  |496;496;780;652;|
000001d0  0d 00 dc 10 da 3a ef 32  36 3a e6 30 2c 31 32 38  |.....:.26:.0,128|
000001e0  0d 00 e6 1e ef 32 34 2c  35 30 38 3b 35 30 34 3b  |.....24,508;504;|
000001f0  37 37 30 3b 36 34 34 3b  3a da 3a ef 32 36 0d 00  |770;644;:.:.26..|
00000200  f0 15 ef 31 39 2c 32 2c  31 3b 30 3b 3a e6 33 2c  |...19,2,1;0;:.3,|
00000210  31 32 39 0d 00 fa 20 ef  32 34 2c 34 35 36 3b 34  |129... .24,456;4|
00000220  36 34 3b 38 32 30 3b 36  38 34 3b 3a da 3a 2a 46  |64;820;684;:.:*F|
00000230  58 31 35 0d 01 04 1f 47  3d a6 28 31 30 30 29 3a  |X15....G=.(100):|
00000240  41 25 3d 36 33 32 3a 42  25 3d 36 34 30 3a e6 33  |A%=632:B%=640:.3|
00000250  2c 31 0d 01 0e 1d e3 51  25 3d 31 b8 32 30 3a ec  |,1.....Q%=1.20:.|
00000260  41 25 2c 34 36 34 3a f0  31 2c 30 2c 32 31 36 0d  |A%,464:.1,0,216.|
00000270  01 18 1a ec 42 25 2c 34  36 34 3a f0 31 2c 30 2c  |....B%,464:.1,0,|
00000280  32 31 36 3a f2 77 28 35  29 0d 01 22 15 41 25 3d  |216:.w(5)..".A%=|
00000290  41 25 2d 38 3a 42 25 3d  42 25 2b 38 3a ed 0d 01  |A%-8:B%=B%+8:...|
000002a0  2c 10 ef 31 39 2c 32 2c  33 3b 30 3b 3a e1 0d 01  |,..19,2,3;0;:...|
000002b0  36 05 3a 0d 01 40 1b dd  f2 77 28 54 25 29 54 25  |6.:..@...w(T%)T%|
000002c0  3d 91 2b 54 25 3a f5 fd  91 3e 54 25 3a e1 0d 01  |=.+T%:...>T%:...|
000002d0  4a 24 dd f2 63 6c 69 28  24 26 37 30 30 29 ea 58  |J$..cli($&700).X|
000002e0  25 2c 59 25 3a 59 25 3d  37 3a d6 26 46 46 46 37  |%,Y%:Y%=7:.&FFF7|
000002f0  3a e1 0d 01 54 05 3a 0d  01 5e 0c dc 31 2c 36 2c  |:...T.:..^..1,6,|
00000300  32 2c 38 0d 01 68 0a dc  2d 31 2c 2d 31 0d ff     |2,8..h..-1,-1..|
0000030f