� >Crators
� by Philip Mellor (age 15)
� Acorn User/Star Info
(:
2
� 36:�
<dummy=�(-�)
FBș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
P� ballspr &20000
Z;ballspr!0=&1FFFF:ballspr!4=0:ballspr!8=16:ballspr!12=16
d5ș"OS_SpriteOp",256+15,ballspr,"BALL",0,128,64,36
n)ș"OS_SpriteOp",256+29,ballspr,"BALL"
x��byebye:�
�max=3:� x(max),y(max)
�� I=1 � max
�$x(I)=�(1335)+100:y(I)=�(951)+100
��
�:
�I=1
�+ș"OS_SpriteOp",256+60,ballspr,"BALL",0
��:RA%=64
�$R1%=�(127):G1%=�(127):B1%=�(127)
�'R2%=R1%+127:G2%=G1%+127:B2%=B1%+127
��N%=32�0�-2:N1%=32-N%
�HR%=(N%*R1%+N1%*R2%)/32:G%=(N%*G1%+N1%*G2%)/32:B%=(N%*B1%+N1%*B2%)/32
�3ș set_gcol%,(R%<<8)+(G%<<16)+(B%<<24),,,&100,0

ȏ Ȑ RA%,RA%,N%*RA%/32:�

+ș"OS_SpriteOp",256+61,ballspr,"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

6ȏ Ȑ P,P,R1

@(ș"OS_SpriteOp",256+61,ballspr,0,0:�

Jr1=720:r2=0

T�

^� b=1 � 56

h� I=1 � max

rang=�(�(360))

|xpos=r1*�(ang)

�ypos=r1*�(ang)

�Dș "OS_SpriteOp",256+34,ballspr,"BALL",xpos-P+x(I),ypos-P+y(I),8

�ang=�(�(360))

�xpos=r2*�(ang)

�ypos=r2*�(ang)

�Dș "OS_SpriteOp",256+34,ballspr,"BALL",xpos-P+x(I),ypos-P+y(I),8

��

��

�r1-=8:r2+=8

�� r1<r2

��7

�
���=32

��
:
��byebye
&ș"OS_SpriteOp",256+60,ballspr,0,0
&&ș"OS_SpriteOp",256+61,ballspr,0,0
0�:�" at line "Þ
:�
�

00000000  0d 00 0a 0e f4 20 3e 43  72 61 74 6f 72 73 0d 00  |..... >Crators..|
00000010  14 1f f4 20 62 79 20 50  68 69 6c 69 70 20 4d 65  |... by Philip Me|
00000020  6c 6c 6f 72 20 28 61 67  65 20 31 35 29 0d 00 1e  |llor (age 15)...|
00000030  1a f4 20 41 63 6f 72 6e  20 55 73 65 72 2f 53 74  |.. Acorn User/St|
00000040  61 72 20 49 6e 66 6f 0d  00 28 05 3a 0d 00 32 0a  |ar Info..(.:..2.|
00000050  eb 20 33 36 3a 87 0d 00  3c 0f 64 75 6d 6d 79 3d  |. 36:...<.dummy=|
00000060  b3 28 2d 91 29 0d 00 46  42 c8 99 20 22 4f 53 5f  |.(-.)..FB.. "OS_|
00000070  53 57 49 4e 75 6d 62 65  72 46 72 6f 6d 53 74 72  |SWINumberFromStr|
00000080  69 6e 67 22 2c 2c 22 43  6f 6c 6f 75 72 54 72 61  |ing",,"ColourTra|
00000090  6e 73 5f 53 65 74 47 43  4f 4c 22 20 b8 20 73 65  |ns_SetGCOL" . se|
000000a0  74 5f 67 63 6f 6c 25 0d  00 50 14 de 20 62 61 6c  |t_gcol%..P.. bal|
000000b0  6c 73 70 72 20 26 32 30  30 30 30 0d 00 5a 3b 62  |lspr &20000..Z;b|
000000c0  61 6c 6c 73 70 72 21 30  3d 26 31 46 46 46 46 3a  |allspr!0=&1FFFF:|
000000d0  62 61 6c 6c 73 70 72 21  34 3d 30 3a 62 61 6c 6c  |ballspr!4=0:ball|
000000e0  73 70 72 21 38 3d 31 36  3a 62 61 6c 6c 73 70 72  |spr!8=16:ballspr|
000000f0  21 31 32 3d 31 36 0d 00  64 35 c8 99 22 4f 53 5f  |!12=16..d5.."OS_|
00000100  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 35  |SpriteOp",256+15|
00000110  2c 62 61 6c 6c 73 70 72  2c 22 42 41 4c 4c 22 2c  |,ballspr,"BALL",|
00000120  30 2c 31 32 38 2c 36 34  2c 33 36 0d 00 6e 29 c8  |0,128,64,36..n).|
00000130  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000140  35 36 2b 32 39 2c 62 61  6c 6c 73 70 72 2c 22 42  |56+29,ballspr,"B|
00000150  41 4c 4c 22 0d 00 78 0f  ee 85 f2 62 79 65 62 79  |ALL"..x....byeby|
00000160  65 3a e0 0d 00 82 19 6d  61 78 3d 33 3a de 20 78  |e:.....max=3:. x|
00000170  28 6d 61 78 29 2c 79 28  6d 61 78 29 0d 00 8c 0f  |(max),y(max)....|
00000180  e3 20 49 3d 31 20 b8 20  6d 61 78 0d 00 96 24 78  |. I=1 . max...$x|
00000190  28 49 29 3d b3 28 31 33  33 35 29 2b 31 30 30 3a  |(I)=.(1335)+100:|
000001a0  79 28 49 29 3d b3 28 39  35 31 29 2b 31 30 30 0d  |y(I)=.(951)+100.|
000001b0  00 a0 05 ed 0d 00 aa 05  3a 0d 00 b4 07 49 3d 31  |........:....I=1|
000001c0  0d 00 be 2b c8 99 22 4f  53 5f 53 70 72 69 74 65  |...+.."OS_Sprite|
000001d0  4f 70 22 2c 32 35 36 2b  36 30 2c 62 61 6c 6c 73  |Op",256+60,balls|
000001e0  70 72 2c 22 42 41 4c 4c  22 2c 30 0d 00 c8 0c da  |pr,"BALL",0.....|
000001f0  3a 52 41 25 3d 36 34 0d  00 d2 24 52 31 25 3d b3  |:RA%=64...$R1%=.|
00000200  28 31 32 37 29 3a 47 31  25 3d b3 28 31 32 37 29  |(127):G1%=.(127)|
00000210  3a 42 31 25 3d b3 28 31  32 37 29 0d 00 dc 27 52  |:B1%=.(127)...'R|
00000220  32 25 3d 52 31 25 2b 31  32 37 3a 47 32 25 3d 47  |2%=R1%+127:G2%=G|
00000230  31 25 2b 31 32 37 3a 42  32 25 3d 42 31 25 2b 31  |1%+127:B2%=B1%+1|
00000240  32 37 0d 00 e6 19 e3 4e  25 3d 33 32 b8 30 88 2d  |27.....N%=32.0.-|
00000250  32 3a 4e 31 25 3d 33 32  2d 4e 25 0d 00 f0 48 52  |2:N1%=32-N%...HR|
00000260  25 3d 28 4e 25 2a 52 31  25 2b 4e 31 25 2a 52 32  |%=(N%*R1%+N1%*R2|
00000270  25 29 2f 33 32 3a 47 25  3d 28 4e 25 2a 47 31 25  |%)/32:G%=(N%*G1%|
00000280  2b 4e 31 25 2a 47 32 25  29 2f 33 32 3a 42 25 3d  |+N1%*G2%)/32:B%=|
00000290  28 4e 25 2a 42 31 25 2b  4e 31 25 2a 42 32 25 29  |(N%*B1%+N1%*B2%)|
000002a0  2f 33 32 0d 00 fa 33 c8  99 20 73 65 74 5f 67 63  |/32...3.. set_gc|
000002b0  6f 6c 25 2c 28 52 25 3c  3c 38 29 2b 28 47 25 3c  |ol%,(R%<<8)+(G%<|
000002c0  3c 31 36 29 2b 28 42 25  3c 3c 32 34 29 2c 2c 2c  |<16)+(B%<<24),,,|
000002d0  26 31 30 30 2c 30 0d 01  04 1d c8 8f 20 c8 90 20  |&100,0...... .. |
000002e0  52 41 25 2c 52 41 25 2c  4e 25 2a 52 41 25 2f 33  |RA%,RA%,N%*RA%/3|
000002f0  32 3a ed 0d 01 0e 2b c8  99 22 4f 53 5f 53 70 72  |2:....+.."OS_Spr|
00000300  69 74 65 4f 70 22 2c 32  35 36 2b 36 31 2c 62 61  |iteOp",256+61,ba|
00000310  6c 6c 73 70 72 2c 22 42  41 4c 4c 22 2c 30 0d 01  |llspr,"BALL",0..|
00000320  18 17 e6 30 c8 9c 30 3a  c8 93 20 c8 90 20 30 2c  |...0..0:.. .. 0,|
00000330  30 2c 32 35 36 0d 01 22  0c e6 36 33 c8 9c 32 34  |0,256.."..63..24|
00000340  30 0d 01 2c 3b 44 3d b6  28 32 2a 52 41 25 5e 32  |0..,;D=.(2*RA%^2|
00000350  29 2d 52 41 25 3a 50 44  3d b6 28 44 5e 32 2f 32  |)-RA%:PD=.(D^2/2|
00000360  29 3a 52 31 3d 52 41 25  2a 2e 36 3a 50 3d b6 28  |):R1=RA%*.6:P=.(|
00000370  52 31 5e 32 2f 32 29 2b  50 44 2b 34 0d 01 36 10  |R1^2/2)+PD+4..6.|
00000380  c8 8f 20 c8 90 20 50 2c  50 2c 52 31 0d 01 40 28  |.. .. P,P,R1..@(|
00000390  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000003a0  32 35 36 2b 36 31 2c 62  61 6c 6c 73 70 72 2c 30  |256+61,ballspr,0|
000003b0  2c 30 3a 87 0d 01 4a 0f  72 31 3d 37 32 30 3a 72  |,0:...J.r1=720:r|
000003c0  32 3d 30 0d 01 54 05 f5  0d 01 5e 0e e3 20 62 3d  |2=0..T....^.. b=|
000003d0  31 20 b8 20 35 36 0d 01  68 0f e3 20 49 3d 31 20  |1 . 56..h.. I=1 |
000003e0  b8 20 6d 61 78 0d 01 72  11 61 6e 67 3d b2 28 b3  |. max..r.ang=.(.|
000003f0  28 33 36 30 29 29 0d 01  7c 12 78 70 6f 73 3d 72  |(360))..|.xpos=r|
00000400  31 2a b5 28 61 6e 67 29  0d 01 86 12 79 70 6f 73  |1*.(ang)....ypos|
00000410  3d 72 31 2a 9b 28 61 6e  67 29 0d 01 90 44 c8 99  |=r1*.(ang)...D..|
00000420  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000430  35 36 2b 33 34 2c 62 61  6c 6c 73 70 72 2c 22 42  |56+34,ballspr,"B|
00000440  41 4c 4c 22 2c 78 70 6f  73 2d 50 2b 78 28 49 29  |ALL",xpos-P+x(I)|
00000450  2c 79 70 6f 73 2d 50 2b  79 28 49 29 2c 38 0d 01  |,ypos-P+y(I),8..|
00000460  9a 11 61 6e 67 3d b2 28  b3 28 33 36 30 29 29 0d  |..ang=.(.(360)).|
00000470  01 a4 12 78 70 6f 73 3d  72 32 2a b5 28 61 6e 67  |...xpos=r2*.(ang|
00000480  29 0d 01 ae 12 79 70 6f  73 3d 72 32 2a 9b 28 61  |)....ypos=r2*.(a|
00000490  6e 67 29 0d 01 b8 44 c8  99 20 22 4f 53 5f 53 70  |ng)...D.. "OS_Sp|
000004a0  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 62  |riteOp",256+34,b|
000004b0  61 6c 6c 73 70 72 2c 22  42 41 4c 4c 22 2c 78 70  |allspr,"BALL",xp|
000004c0  6f 73 2d 50 2b 78 28 49  29 2c 79 70 6f 73 2d 50  |os-P+x(I),ypos-P|
000004d0  2b 79 28 49 29 2c 38 0d  01 c2 05 ed 0d 01 cc 05  |+y(I),8.........|
000004e0  ed 0d 01 d6 0f 72 31 2d  3d 38 3a 72 32 2b 3d 38  |.....r1-=8:r2+=8|
000004f0  0d 01 e0 0b fd 20 72 31  3c 72 32 0d 01 ea 06 ef  |..... r1<r2.....|
00000500  37 0d 01 f4 0a f5 fd a5  3d 33 32 0d 01 fe 05 e0  |7.......=32.....|
00000510  0d 02 08 05 3a 0d 02 12  0c dd f2 62 79 65 62 79  |....:......byeby|
00000520  65 0d 02 1c 26 c8 99 22  4f 53 5f 53 70 72 69 74  |e...&.."OS_Sprit|
00000530  65 4f 70 22 2c 32 35 36  2b 36 30 2c 62 61 6c 6c  |eOp",256+60,ball|
00000540  73 70 72 2c 30 2c 30 0d  02 26 26 c8 99 22 4f 53  |spr,0,0..&&.."OS|
00000550  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 36  |_SpriteOp",256+6|
00000560  31 2c 62 61 6c 6c 73 70  72 2c 30 2c 30 0d 02 30  |1,ballspr,0,0..0|
00000570  14 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 c3  |..:." at line ".|
00000580  9e 0d 02 3a 05 e1 0d ff                           |...:....|
00000588