�     >ColBalls
� by  Jan Vibe
� (Risc PC version)
(� (c) AU May 1995
2
<�mode("X640 Y480 C32K"):�
P� SPR &20000
Z+SPR!0=&20000:SPR!4=0:SPR!8=16:SPR!12=16
d2ș "OS_SpriteOp",256+15,SPR,"BALL",0,128,128,�
n&ș "OS_SpriteOp",256+29,SPR,"BALL"
x
�� � �err:�
��
�'ș"OS_SpriteOp",256+60,SPR,"BALL",0
��:RA%=�(97)+31
�$R1%=�(127):G1%=�(127):B1%=�(127)
�'R2%=R1%+127:G2%=G1%+127:B2%=B1%+127
��N%=32�0�-1:N1%=32-N%
�HR%=(N%*R1%+N1%*R2%)/32:G%=(N%*G1%+N1%*G2%)/32:B%=(N%*B1%+N1%*B2%)/32
�� R%,G%,B%
�ȏ Ȑ RA%,RA%,N%*RA%/32:�
�'ș"OS_SpriteOp",256+61,SPR,"BALL",0
��0Ȝ0:ȓ Ȑ 0,0,256
��63Ȝ240

;D=�(2*RA%^2)-RA%:PD=�(D^2/2):R1=RA%*.6:P=�(R1^2/2)+PD+4

ȏ Ȑ P,P,R1

$ș"OS_SpriteOp",256+61,SPR,0,0:�

"(X%=�(1280-2*R1)+R1:Y%=�(960-2*R1)+R1

,2ș "OS_SpriteOp",256+34,SPR,"BALL",X%-P,Y%-P,8

6�0

@

J
� �err

T"ș"OS_SpriteOp",256+60,SPR,0,0

^"ș"OS_SpriteOp",256+61,SPR,0,0

h�:�" at line "Þ

r�

|:

�� �mode(mode$)

�� c$,ex,ey,mode,end

�
� mode 64

�end=mode+20

�!mode=1

�mode!4=��_m(mode$,"X","")

�mode!8=��_m(mode$,"Y","")

�c$=�_m(mode$,"C","*")

�� c$="*" �

� c$=�_m(mode$,"G","")

�' � c$="256" !end=3:end!4=255:end+=8

��

�mode!12=�_bpp(c$)
 mode!16=��_m(mode$,"F","-1")
ex=��_m(mode$,"EX","-1")
#� ex<>-1 !end=4:end!4=ex:end+=8
&ey=��_m(mode$,"EY","-1")
0#� ey<>-1 !end=5:end!4=ey:end+=8
:!end=-1
D
� mode
N�
X
b� �_m(s$,p$,d$)
l	� i,j
v
i=�s$,p$)
�%� i<1 � d$="" � 490,"Missing "+p$
�� i<1 � =d$
�j=�s$+" "," ",i+1)
�=�s$,i+1,j-i-1)
�
�� �_bpp(n$)
�Ȏ n$ �
�
 � "2":=0
�
 � "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
! : � 490,"Bad parameter "+n$
�

�

00000000  0d 00 0a 13 f4 20 20 20  20 20 3e 43 6f 6c 42 61  |.....     >ColBa|
00000010  6c 6c 73 0d 00 14 12 f4  20 62 79 20 20 4a 61 6e  |lls..... by  Jan|
00000020  20 56 69 62 65 0d 00 1e  17 f4 20 28 52 69 73 63  | Vibe..... (Risc|
00000030  20 50 43 20 76 65 72 73  69 6f 6e 29 0d 00 28 15  | PC version)..(.|
00000040  f4 20 28 63 29 20 41 55  20 4d 61 79 20 31 39 39  |. (c) AU May 199|
00000050  35 0d 00 32 04 0d 00 3c  1d f2 6d 6f 64 65 28 22  |5..2...<..mode("|
00000060  58 36 34 30 20 59 34 38  30 20 43 33 32 4b 22 29  |X640 Y480 C32K")|
00000070  3a 87 0d 00 50 10 de 20  53 50 52 20 26 32 30 30  |:...P.. SPR &200|
00000080  30 30 0d 00 5a 2b 53 50  52 21 30 3d 26 32 30 30  |00..Z+SPR!0=&200|
00000090  30 30 3a 53 50 52 21 34  3d 30 3a 53 50 52 21 38  |00:SPR!4=0:SPR!8|
000000a0  3d 31 36 3a 53 50 52 21  31 32 3d 31 36 0d 00 64  |=16:SPR!12=16..d|
000000b0  32 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2.. "OS_SpriteOp|
000000c0  22 2c 32 35 36 2b 31 35  2c 53 50 52 2c 22 42 41  |",256+15,SPR,"BA|
000000d0  4c 4c 22 2c 30 2c 31 32  38 2c 31 32 38 2c eb 0d  |LL",0,128,128,..|
000000e0  00 6e 26 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.n&.. "OS_Sprite|
000000f0  4f 70 22 2c 32 35 36 2b  32 39 2c 53 50 52 2c 22  |Op",256+29,SPR,"|
00000100  42 41 4c 4c 22 0d 00 78  04 0d 00 82 0e ee 20 85  |BALL"..x...... .|
00000110  20 f2 65 72 72 3a e0 0d  00 8c 05 f5 0d 00 96 27  | .err:.........'|
00000120  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000130  32 35 36 2b 36 30 2c 53  50 52 2c 22 42 41 4c 4c  |256+60,SPR,"BALL|
00000140  22 2c 30 0d 00 a0 12 da  3a 52 41 25 3d b3 28 39  |",0.....:RA%=.(9|
00000150  37 29 2b 33 31 0d 00 aa  24 52 31 25 3d b3 28 31  |7)+31...$R1%=.(1|
00000160  32 37 29 3a 47 31 25 3d  b3 28 31 32 37 29 3a 42  |27):G1%=.(127):B|
00000170  31 25 3d b3 28 31 32 37  29 0d 00 b4 27 52 32 25  |1%=.(127)...'R2%|
00000180  3d 52 31 25 2b 31 32 37  3a 47 32 25 3d 47 31 25  |=R1%+127:G2%=G1%|
00000190  2b 31 32 37 3a 42 32 25  3d 42 31 25 2b 31 32 37  |+127:B2%=B1%+127|
000001a0  0d 00 be 19 e3 4e 25 3d  33 32 b8 30 88 2d 31 3a  |.....N%=32.0.-1:|
000001b0  4e 31 25 3d 33 32 2d 4e  25 0d 00 c8 48 52 25 3d  |N1%=32-N%...HR%=|
000001c0  28 4e 25 2a 52 31 25 2b  4e 31 25 2a 52 32 25 29  |(N%*R1%+N1%*R2%)|
000001d0  2f 33 32 3a 47 25 3d 28  4e 25 2a 47 31 25 2b 4e  |/32:G%=(N%*G1%+N|
000001e0  31 25 2a 47 32 25 29 2f  33 32 3a 42 25 3d 28 4e  |1%*G2%)/32:B%=(N|
000001f0  25 2a 42 31 25 2b 4e 31  25 2a 42 32 25 29 2f 33  |%*B1%+N1%*B2%)/3|
00000200  32 0d 00 d2 0e e6 20 52  25 2c 47 25 2c 42 25 0d  |2..... R%,G%,B%.|
00000210  00 dc 1d c8 8f 20 c8 90  20 52 41 25 2c 52 41 25  |..... .. RA%,RA%|
00000220  2c 4e 25 2a 52 41 25 2f  33 32 3a ed 0d 00 e6 27  |,N%*RA%/32:....'|
00000230  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000240  32 35 36 2b 36 31 2c 53  50 52 2c 22 42 41 4c 4c  |256+61,SPR,"BALL|
00000250  22 2c 30 0d 00 f0 17 e6  30 c8 9c 30 3a c8 93 20  |",0.....0..0:.. |
00000260  c8 90 20 30 2c 30 2c 32  35 36 0d 00 fa 0c e6 36  |.. 0,0,256.....6|
00000270  33 c8 9c 32 34 30 0d 01  04 3b 44 3d b6 28 32 2a  |3..240...;D=.(2*|
00000280  52 41 25 5e 32 29 2d 52  41 25 3a 50 44 3d b6 28  |RA%^2)-RA%:PD=.(|
00000290  44 5e 32 2f 32 29 3a 52  31 3d 52 41 25 2a 2e 36  |D^2/2):R1=RA%*.6|
000002a0  3a 50 3d b6 28 52 31 5e  32 2f 32 29 2b 50 44 2b  |:P=.(R1^2/2)+PD+|
000002b0  34 0d 01 0e 10 c8 8f 20  c8 90 20 50 2c 50 2c 52  |4...... .. P,P,R|
000002c0  31 0d 01 18 24 c8 99 22  4f 53 5f 53 70 72 69 74  |1...$.."OS_Sprit|
000002d0  65 4f 70 22 2c 32 35 36  2b 36 31 2c 53 50 52 2c  |eOp",256+61,SPR,|
000002e0  30 2c 30 3a 87 0d 01 22  28 58 25 3d b3 28 31 32  |0,0:..."(X%=.(12|
000002f0  38 30 2d 32 2a 52 31 29  2b 52 31 3a 59 25 3d b3  |80-2*R1)+R1:Y%=.|
00000300  28 39 36 30 2d 32 2a 52  31 29 2b 52 31 0d 01 2c  |(960-2*R1)+R1..,|
00000310  32 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2.. "OS_SpriteOp|
00000320  22 2c 32 35 36 2b 33 34  2c 53 50 52 2c 22 42 41  |",256+34,SPR,"BA|
00000330  4c 4c 22 2c 58 25 2d 50  2c 59 25 2d 50 2c 38 0d  |LL",X%-P,Y%-P,8.|
00000340  01 36 06 fd 30 0d 01 40  04 0d 01 4a 0a dd 20 f2  |.6..0..@...J.. .|
00000350  65 72 72 0d 01 54 22 c8  99 22 4f 53 5f 53 70 72  |err..T".."OS_Spr|
00000360  69 74 65 4f 70 22 2c 32  35 36 2b 36 30 2c 53 50  |iteOp",256+60,SP|
00000370  52 2c 30 2c 30 0d 01 5e  22 c8 99 22 4f 53 5f 53  |R,0,0..^".."OS_S|
00000380  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 36 31 2c  |priteOp",256+61,|
00000390  53 50 52 2c 30 2c 30 0d  01 68 14 f6 3a f1 22 20  |SPR,0,0..h..:." |
000003a0  61 74 20 6c 69 6e 65 20  22 c3 9e 0d 01 72 05 e1  |at line "....r..|
000003b0  0d 01 7c 05 3a 0d 01 86  12 dd 20 f2 6d 6f 64 65  |..|.:..... .mode|
000003c0  28 6d 6f 64 65 24 29 0d  01 90 17 ea 20 63 24 2c  |(mode$)..... c$,|
000003d0  65 78 2c 65 79 2c 6d 6f  64 65 2c 65 6e 64 0d 01  |ex,ey,mode,end..|
000003e0  9a 0d de 20 6d 6f 64 65  20 36 34 0d 01 a4 0f 65  |... mode 64....e|
000003f0  6e 64 3d 6d 6f 64 65 2b  32 30 0d 01 ae 0b 21 6d  |nd=mode+20....!m|
00000400  6f 64 65 3d 31 0d 01 b8  1d 6d 6f 64 65 21 34 3d  |ode=1....mode!4=|
00000410  bb a4 5f 6d 28 6d 6f 64  65 24 2c 22 58 22 2c 22  |.._m(mode$,"X","|
00000420  22 29 0d 01 c2 1d 6d 6f  64 65 21 38 3d bb a4 5f  |")....mode!8=.._|
00000430  6d 28 6d 6f 64 65 24 2c  22 59 22 2c 22 22 29 0d  |m(mode$,"Y","").|
00000440  01 cc 19 63 24 3d a4 5f  6d 28 6d 6f 64 65 24 2c  |...c$=._m(mode$,|
00000450  22 43 22 2c 22 2a 22 29  0d 01 d6 0e e7 20 63 24  |"C","*")..... c$|
00000460  3d 22 2a 22 20 8c 0d 01  e0 19 20 63 24 3d a4 5f  |="*" ..... c$=._|
00000470  6d 28 6d 6f 64 65 24 2c  22 47 22 2c 22 22 29 0d  |m(mode$,"G","").|
00000480  01 ea 27 20 e7 20 63 24  3d 22 32 35 36 22 20 21  |..' . c$="256" !|
00000490  65 6e 64 3d 33 3a 65 6e  64 21 34 3d 32 35 35 3a  |end=3:end!4=255:|
000004a0  65 6e 64 2b 3d 38 0d 01  f4 05 cd 0d 01 fe 15 6d  |end+=8.........m|
000004b0  6f 64 65 21 31 32 3d a4  5f 62 70 70 28 63 24 29  |ode!12=._bpp(c$)|
000004c0  0d 02 08 20 6d 6f 64 65  21 31 36 3d bb a4 5f 6d  |... mode!16=.._m|
000004d0  28 6d 6f 64 65 24 2c 22  46 22 2c 22 2d 31 22 29  |(mode$,"F","-1")|
000004e0  0d 02 12 1c 65 78 3d bb  a4 5f 6d 28 6d 6f 64 65  |....ex=.._m(mode|
000004f0  24 2c 22 45 58 22 2c 22  2d 31 22 29 0d 02 1c 23  |$,"EX","-1")...#|
00000500  e7 20 65 78 3c 3e 2d 31  20 21 65 6e 64 3d 34 3a  |. ex<>-1 !end=4:|
00000510  65 6e 64 21 34 3d 65 78  3a 65 6e 64 2b 3d 38 0d  |end!4=ex:end+=8.|
00000520  02 26 1c 65 79 3d bb a4  5f 6d 28 6d 6f 64 65 24  |.&.ey=.._m(mode$|
00000530  2c 22 45 59 22 2c 22 2d  31 22 29 0d 02 30 23 e7  |,"EY","-1")..0#.|
00000540  20 65 79 3c 3e 2d 31 20  21 65 6e 64 3d 35 3a 65  | ey<>-1 !end=5:e|
00000550  6e 64 21 34 3d 65 79 3a  65 6e 64 2b 3d 38 0d 02  |nd!4=ey:end+=8..|
00000560  3a 0b 21 65 6e 64 3d 2d  31 0d 02 44 0a eb 20 6d  |:.!end=-1..D.. m|
00000570  6f 64 65 0d 02 4e 05 e1  0d 02 58 04 0d 02 62 13  |ode..N....X...b.|
00000580  dd 20 a4 5f 6d 28 73 24  2c 70 24 2c 64 24 29 0d  |. ._m(s$,p$,d$).|
00000590  02 6c 09 ea 20 69 2c 6a  0d 02 76 0d 69 3d a7 73  |.l.. i,j..v.i=.s|
000005a0  24 2c 70 24 29 0d 02 80  25 e7 20 69 3c 31 20 80  |$,p$)...%. i<1 .|
000005b0  20 64 24 3d 22 22 20 85  20 34 39 30 2c 22 4d 69  | d$="" . 490,"Mi|
000005c0  73 73 69 6e 67 20 22 2b  70 24 0d 02 8a 0f e7 20  |ssing "+p$..... |
000005d0  69 3c 31 20 8c 20 3d 64  24 0d 02 94 16 6a 3d a7  |i<1 . =d$....j=.|
000005e0  73 24 2b 22 20 22 2c 22  20 22 2c 69 2b 31 29 0d  |s$+" "," ",i+1).|
000005f0  02 9e 13 3d c1 73 24 2c  69 2b 31 2c 6a 2d 69 2d  |...=.s$,i+1,j-i-|
00000600  31 29 0d 02 a8 04 0d 02  b2 0f dd 20 a4 5f 62 70  |1)......... ._bp|
00000610  70 28 6e 24 29 0d 02 bc  0b c8 8e 20 6e 24 20 ca  |p(n$)...... n$ .|
00000620  0d 02 c6 0d 20 c9 20 22  32 22 3a 3d 30 0d 02 d0  |.... . "2":=0...|
00000630  0d 20 c9 20 22 34 22 3a  3d 31 0d 02 da 0e 20 c9  |. . "4":=1.... .|
00000640  20 22 31 36 22 3a 3d 32  0d 02 e4 0f 20 c9 20 22  | "16":=2.... . "|
00000650  32 35 36 22 3a 3d 33 0d  02 ee 21 20 c9 20 22 33  |256":=3...! . "3|
00000660  32 54 22 2c 22 33 32 74  22 2c 22 33 32 4b 22 2c  |2T","32t","32K",|
00000670  22 33 32 6b 22 3a 3d 34  0d 02 f8 15 20 c9 20 22  |"32k":=4.... . "|
00000680  31 36 4d 22 2c 22 31 36  6d 22 3a 3d 35 0d 03 02  |16M","16m":=5...|
00000690  21 20 7f 3a 20 85 20 34  39 30 2c 22 42 61 64 20  |! .: . 490,"Bad |
000006a0  70 61 72 61 6d 65 74 65  72 20 22 2b 6e 24 0d 03  |parameter "+n$..|
000006b0  0c 05 cb 0d 03 16 04 0d  ff                       |.........|
000006b9