�     >SprDem7 (Info17)
� By  DA
� For 32-bit machines
(� (c) BAU April 1993
2:
<� 13
F�
P� 19,0,24,&80,&80,&80
Z�init_sprite_area
d�make_picture
n	�demo
x�
�:
�� �init_sprite_area
�sprite_op%=&2E
�area_size%=161*1024
�"� sprites% area_size%,zoom% 16
�!sprites%=area_size%
�sprites%!8=16
�ș sprite_op%,&109,sprites%
�5ș sprite_op%,&10F,sprites%,"picture",,320,256,13
�)ș sprite_op%,&11D,sprites%,"picture"
�*ș sprite_op%,&3E � ,,,save_area_size%
� � save_area% save_area_size%
��

:

� �make_picture

�"Please wait..."

"m$="BBC Acorn User"

,!save_area%=0

6Bș sprite_op%,&13C,sprites%,"picture",save_area% � r0,r1,r2,r3

@� 128+%101010

J�

T� i%=1 � 30

^ x%=�(1280)-512

h y%=�(1280)-128

r xscale=1+�(1)*4

| yscale=1+�(1)*4

�+ �message(x%-8,y%-8,xscale,yscale,m$,0)

�. �message(x%,y%,xscale,yscale,m$,�(256)-1)

��

�ș sprite_op%,r0,r1,r2,r3

��

�:

�)� �message(x%,y%,xscale,yscale,t$,c%)

�� i%

�!zoom%=&100*xscale

�zoom%!4=&100*yscale

�zoom%!8=&100

�zoom%!12=&100

�� (c% � 63) Ȝ (c% � 192)
� i%=1 � �(t$)
- ș sprite_op%,&33,��t$,i%),,x%,y%,,zoom%
 x%+=32*xscale
&�
0�
::
D� �demo
Nn%=8
X� r%(n%),col%(n%),tint%(n%)
b� i%=0 � n%-1
l, � i%<7 col%(i%)=1<<i% � tint%(i%)=1<<i%
v r%(i%)=-64*i%
��
��
��
� !save_area%=0
�C ș sprite_op%,&13D,sprites%,"picture",save_area% � r0,r1,r2,r3
� � 128 Ȝ 0
� �
� � i%=0 � n%-1
�  � r%(i%)>0 �
�   � col%(i%) Ȝ tint%(i%)
�   ȏ Ȑ 640,512,r%(i%)
�  �
�  r%(i%)+=16
 �
 ș sprite_op%,r0,r1,r2,r3
 Ȗ
 0 ș sprite_op%,&122,sprites%,"picture",0,0,8
*� r%(7)>820
4�
�

00000000  0d 00 0a 1b f4 20 20 20  20 20 3e 53 70 72 44 65  |.....     >SprDe|
00000010  6d 37 20 28 49 6e 66 6f  31 37 29 0d 00 14 0c f4  |m7 (Info17).....|
00000020  20 42 79 20 20 44 41 0d  00 1e 19 f4 20 46 6f 72  | By  DA..... For|
00000030  20 33 32 2d 62 69 74 20  6d 61 63 68 69 6e 65 73  | 32-bit machines|
00000040  0d 00 28 18 f4 20 28 63  29 20 42 41 55 20 41 70  |..(.. (c) BAU Ap|
00000050  72 69 6c 20 31 39 39 33  0d 00 32 05 3a 0d 00 3c  |ril 1993..2.:..<|
00000060  08 eb 20 31 33 0d 00 46  05 87 0d 00 50 19 ef 20  |.. 13..F....P.. |
00000070  31 39 2c 30 2c 32 34 2c  26 38 30 2c 26 38 30 2c  |19,0,24,&80,&80,|
00000080  26 38 30 0d 00 5a 15 f2  69 6e 69 74 5f 73 70 72  |&80..Z..init_spr|
00000090  69 74 65 5f 61 72 65 61  0d 00 64 11 f2 6d 61 6b  |ite_area..d..mak|
000000a0  65 5f 70 69 63 74 75 72  65 0d 00 6e 09 f2 64 65  |e_picture..n..de|
000000b0  6d 6f 0d 00 78 05 e0 0d  00 82 05 3a 0d 00 8c 17  |mo..x......:....|
000000c0  dd 20 f2 69 6e 69 74 5f  73 70 72 69 74 65 5f 61  |. .init_sprite_a|
000000d0  72 65 61 0d 00 96 12 73  70 72 69 74 65 5f 6f 70  |rea....sprite_op|
000000e0  25 3d 26 32 45 0d 00 a0  17 61 72 65 61 5f 73 69  |%=&2E....area_si|
000000f0  7a 65 25 3d 31 36 31 2a  31 30 32 34 0d 00 aa 22  |ze%=161*1024..."|
00000100  de 20 73 70 72 69 74 65  73 25 20 61 72 65 61 5f  |. sprites% area_|
00000110  73 69 7a 65 25 2c 7a 6f  6f 6d 25 20 31 36 0d 00  |size%,zoom% 16..|
00000120  b4 18 21 73 70 72 69 74  65 73 25 3d 61 72 65 61  |..!sprites%=area|
00000130  5f 73 69 7a 65 25 0d 00  be 11 73 70 72 69 74 65  |_size%....sprite|
00000140  73 25 21 38 3d 31 36 0d  00 c8 1f c8 99 20 73 70  |s%!8=16...... sp|
00000150  72 69 74 65 5f 6f 70 25  2c 26 31 30 39 2c 73 70  |rite_op%,&109,sp|
00000160  72 69 74 65 73 25 0d 00  d2 35 c8 99 20 73 70 72  |rites%...5.. spr|
00000170  69 74 65 5f 6f 70 25 2c  26 31 30 46 2c 73 70 72  |ite_op%,&10F,spr|
00000180  69 74 65 73 25 2c 22 70  69 63 74 75 72 65 22 2c  |ites%,"picture",|
00000190  2c 33 32 30 2c 32 35 36  2c 31 33 0d 00 dc 29 c8  |,320,256,13...).|
000001a0  99 20 73 70 72 69 74 65  5f 6f 70 25 2c 26 31 31  |. sprite_op%,&11|
000001b0  44 2c 73 70 72 69 74 65  73 25 2c 22 70 69 63 74  |D,sprites%,"pict|
000001c0  75 72 65 22 0d 00 e6 2a  c8 99 20 73 70 72 69 74  |ure"...*.. sprit|
000001d0  65 5f 6f 70 25 2c 26 33  45 20 b8 20 2c 2c 2c 73  |e_op%,&3E . ,,,s|
000001e0  61 76 65 5f 61 72 65 61  5f 73 69 7a 65 25 0d 00  |ave_area_size%..|
000001f0  f0 20 de 20 73 61 76 65  5f 61 72 65 61 25 20 73  |. . save_area% s|
00000200  61 76 65 5f 61 72 65 61  5f 73 69 7a 65 25 0d 00  |ave_area_size%..|
00000210  fa 05 e1 0d 01 04 05 3a  0d 01 0e 13 dd 20 f2 6d  |.......:..... .m|
00000220  61 6b 65 5f 70 69 63 74  75 72 65 0d 01 18 15 f1  |ake_picture.....|
00000230  22 50 6c 65 61 73 65 20  77 61 69 74 2e 2e 2e 22  |"Please wait..."|
00000240  0d 01 22 17 6d 24 3d 22  42 42 43 20 41 63 6f 72  |..".m$="BBC Acor|
00000250  6e 20 55 73 65 72 22 0d  01 2c 11 21 73 61 76 65  |n User"..,.!save|
00000260  5f 61 72 65 61 25 3d 30  0d 01 36 42 c8 99 20 73  |_area%=0..6B.. s|
00000270  70 72 69 74 65 5f 6f 70  25 2c 26 31 33 43 2c 73  |prite_op%,&13C,s|
00000280  70 72 69 74 65 73 25 2c  22 70 69 63 74 75 72 65  |prites%,"picture|
00000290  22 2c 73 61 76 65 5f 61  72 65 61 25 20 b8 20 72  |",save_area% . r|
000002a0  30 2c 72 31 2c 72 32 2c  72 33 0d 01 40 11 e6 20  |0,r1,r2,r3..@.. |
000002b0  31 32 38 2b 25 31 30 31  30 31 30 0d 01 4a 05 da  |128+%101010..J..|
000002c0  0d 01 54 0f e3 20 69 25  3d 31 20 b8 20 33 30 0d  |..T.. i%=1 . 30.|
000002d0  01 5e 13 20 78 25 3d b3  28 31 32 38 30 29 2d 35  |.^. x%=.(1280)-5|
000002e0  31 32 0d 01 68 13 20 79  25 3d b3 28 31 32 38 30  |12..h. y%=.(1280|
000002f0  29 2d 31 32 38 0d 01 72  14 20 78 73 63 61 6c 65  |)-128..r. xscale|
00000300  3d 31 2b b3 28 31 29 2a  34 0d 01 7c 14 20 79 73  |=1+.(1)*4..|. ys|
00000310  63 61 6c 65 3d 31 2b b3  28 31 29 2a 34 0d 01 86  |cale=1+.(1)*4...|
00000320  2b 20 f2 6d 65 73 73 61  67 65 28 78 25 2d 38 2c  |+ .message(x%-8,|
00000330  79 25 2d 38 2c 78 73 63  61 6c 65 2c 79 73 63 61  |y%-8,xscale,ysca|
00000340  6c 65 2c 6d 24 2c 30 29  0d 01 90 2e 20 f2 6d 65  |le,m$,0).... .me|
00000350  73 73 61 67 65 28 78 25  2c 79 25 2c 78 73 63 61  |ssage(x%,y%,xsca|
00000360  6c 65 2c 79 73 63 61 6c  65 2c 6d 24 2c b3 28 32  |le,yscale,m$,.(2|
00000370  35 36 29 2d 31 29 0d 01  9a 05 ed 0d 01 a4 1d c8  |56)-1)..........|
00000380  99 20 73 70 72 69 74 65  5f 6f 70 25 2c 72 30 2c  |. sprite_op%,r0,|
00000390  72 31 2c 72 32 2c 72 33  0d 01 ae 05 e1 0d 01 b8  |r1,r2,r3........|
000003a0  05 3a 0d 01 c2 29 dd 20  f2 6d 65 73 73 61 67 65  |.:...). .message|
000003b0  28 78 25 2c 79 25 2c 78  73 63 61 6c 65 2c 79 73  |(x%,y%,xscale,ys|
000003c0  63 61 6c 65 2c 74 24 2c  63 25 29 0d 01 cc 08 ea  |cale,t$,c%).....|
000003d0  20 69 25 0d 01 d6 16 21  7a 6f 6f 6d 25 3d 26 31  | i%....!zoom%=&1|
000003e0  30 30 2a 78 73 63 61 6c  65 0d 01 e0 17 7a 6f 6f  |00*xscale....zoo|
000003f0  6d 25 21 34 3d 26 31 30  30 2a 79 73 63 61 6c 65  |m%!4=&100*yscale|
00000400  0d 01 ea 10 7a 6f 6f 6d  25 21 38 3d 26 31 30 30  |....zoom%!8=&100|
00000410  0d 01 f4 11 7a 6f 6f 6d  25 21 31 32 3d 26 31 30  |....zoom%!12=&10|
00000420  30 0d 01 fe 1d e6 20 28  63 25 20 80 20 36 33 29  |0..... (c% . 63)|
00000430  20 c8 9c 20 28 63 25 20  80 20 31 39 32 29 0d 02  | .. (c% . 192)..|
00000440  08 12 e3 20 69 25 3d 31  20 b8 20 a9 28 74 24 29  |... i%=1 . .(t$)|
00000450  0d 02 12 2d 20 c8 99 20  73 70 72 69 74 65 5f 6f  |...- .. sprite_o|
00000460  70 25 2c 26 33 33 2c 97  c1 74 24 2c 69 25 29 2c  |p%,&33,..t$,i%),|
00000470  2c 78 25 2c 79 25 2c 2c  7a 6f 6f 6d 25 0d 02 1c  |,x%,y%,,zoom%...|
00000480  12 20 78 25 2b 3d 33 32  2a 78 73 63 61 6c 65 0d  |. x%+=32*xscale.|
00000490  02 26 05 ed 0d 02 30 05  e1 0d 02 3a 05 3a 0d 02  |.&....0....:.:..|
000004a0  44 0b dd 20 f2 64 65 6d  6f 0d 02 4e 08 6e 25 3d  |D.. .demo..N.n%=|
000004b0  38 0d 02 58 1f de 20 72  25 28 6e 25 29 2c 63 6f  |8..X.. r%(n%),co|
000004c0  6c 25 28 6e 25 29 2c 74  69 6e 74 25 28 6e 25 29  |l%(n%),tint%(n%)|
000004d0  0d 02 62 11 e3 20 69 25  3d 30 20 b8 20 6e 25 2d  |..b.. i%=0 . n%-|
000004e0  31 0d 02 6c 2c 20 e7 20  69 25 3c 37 20 63 6f 6c  |1..l, . i%<7 col|
000004f0  25 28 69 25 29 3d 31 3c  3c 69 25 20 8b 20 74 69  |%(i%)=1<<i% . ti|
00000500  6e 74 25 28 69 25 29 3d  31 3c 3c 69 25 0d 02 76  |nt%(i%)=1<<i%..v|
00000510  12 20 72 25 28 69 25 29  3d 2d 36 34 2a 69 25 0d  |. r%(i%)=-64*i%.|
00000520  02 80 05 ed 0d 02 8a 05  db 0d 02 94 05 f5 0d 02  |................|
00000530  9e 12 20 21 73 61 76 65  5f 61 72 65 61 25 3d 30  |.. !save_area%=0|
00000540  0d 02 a8 43 20 c8 99 20  73 70 72 69 74 65 5f 6f  |...C .. sprite_o|
00000550  70 25 2c 26 31 33 44 2c  73 70 72 69 74 65 73 25  |p%,&13D,sprites%|
00000560  2c 22 70 69 63 74 75 72  65 22 2c 73 61 76 65 5f  |,"picture",save_|
00000570  61 72 65 61 25 20 b8 20  72 30 2c 72 31 2c 72 32  |area% . r0,r1,r2|
00000580  2c 72 33 0d 02 b2 0f 20  e6 20 31 32 38 20 c8 9c  |,r3.... . 128 ..|
00000590  20 30 0d 02 bc 06 20 da  0d 02 c6 12 20 e3 20 69  | 0.... ..... . i|
000005a0  25 3d 30 20 b8 20 6e 25  2d 31 0d 02 d0 12 20 20  |%=0 . n%-1....  |
000005b0  e7 20 72 25 28 69 25 29  3e 30 20 8c 0d 02 da 1e  |. r%(i%)>0 .....|
000005c0  20 20 20 e6 20 63 6f 6c  25 28 69 25 29 20 c8 9c  |   . col%(i%) ..|
000005d0  20 74 69 6e 74 25 28 69  25 29 0d 02 e4 1b 20 20  | tint%(i%)....  |
000005e0  20 c8 8f 20 c8 90 20 36  34 30 2c 35 31 32 2c 72  | .. .. 640,512,r|
000005f0  25 28 69 25 29 0d 02 ee  07 20 20 cd 0d 02 f8 10  |%(i%)....  .....|
00000600  20 20 72 25 28 69 25 29  2b 3d 31 36 0d 03 02 06  |  r%(i%)+=16....|
00000610  20 ed 0d 03 0c 1e 20 c8  99 20 73 70 72 69 74 65  | ..... .. sprite|
00000620  5f 6f 70 25 2c 72 30 2c  72 31 2c 72 32 2c 72 33  |_op%,r0,r1,r2,r3|
00000630  0d 03 16 07 20 c8 96 0d  03 20 30 20 c8 99 20 73  |.... .... 0 .. s|
00000640  70 72 69 74 65 5f 6f 70  25 2c 26 31 32 32 2c 73  |prite_op%,&122,s|
00000650  70 72 69 74 65 73 25 2c  22 70 69 63 74 75 72 65  |prites%,"picture|
00000660  22 2c 30 2c 30 2c 38 0d  03 2a 0f fd 20 72 25 28  |",0,0,8..*.. r%(|
00000670  37 29 3e 38 32 30 0d 03  34 05 e1 0d ff           |7)>820..4....|
0000067d