�mode("X640 Y480 G256")
ȑ 640,512
CLOCKWISE=1
(NO_OF_RINGS=17
2RINGSIZE=50
<Y=-RINGSIZE*NO_OF_RINGS
FX=0
P:
ZREG=360
d� RING = 1 � NO_OF_RINGS
nC=0
x� R = 1 � REG
�/ș "OS_SetColour",0,C+(NO_OF_RINGS-RING)*15
�	� X,Y
�	� 0,0
��ROT(X,Y,360/REG)
�X=NX
�Y=NY
�
� &55,X,Y
�C+=CLOCKWISE
�� C>14 � C=0
�� C<0 � C=14
�� R
�Y+=RINGSIZE
�REG+=15


� RING

:

� palette  256*4

"CN=0

,�

6	CN+=1

@� CN>14 � CN=0 

J� D = 0 � 16

T  CC=CN

^  � C = 0 � 14

h    G=(C*5+180)*(D+2)/18

r0    !(palette+(CC+D*15)*4)=(G<<8) � (G<<16) 

|
    CC+=1

�    � CC>14 � CC=0

�	  � C

�� D

�-ș "ColourTrans_WritePalette",-1,,palette

�
� WAIT

�� �

��

�� �ROT(RX,RY,RD)

�� R

�R=�(-RD)

�NX=RX*�(R)-RY*�(R)

�NY=RX*�(R)+RY*�(R)

��
:
� �mode(mode$)
� c$,ex,ey,mode,end
&
� mode 64
0end=mode+20
:!mode=1
Dmode!4=� �_m(mode$,"X","")
Nmode!8=� �_m(mode$,"Y","")
Xc$=�_m(mode$,"C","*")
b� c$="*" �
l c$=�_m(mode$,"G","")
v' � 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")
�#� ey<>-1 !end=5:end!4=ey:end+=8
�!end=-1
�
� mode
��
�
�� �_m(s$,p$,d$)
�	� i,j

i=�s$,p$)
%� i<1 � d$="" � 490,"Missing "+p$
� i<1 � =d$
 j=�s$+" "," ",i+1)
*=�s$,i+1,j-i-1)
4
>� �_bpp(n$)
HȎ n$ �
R
 � "2":=0
\
 � "4":=1
f � "16":=2
p � "256":=3
z! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�

00000000  0d 00 0a 1b f2 6d 6f 64  65 28 22 58 36 34 30 20  |.....mode("X640 |
00000010  59 34 38 30 20 47 32 35  36 22 29 0d 00 14 0e c8  |Y480 G256").....|
00000020  91 20 36 34 30 2c 35 31  32 0d 00 1e 0f 43 4c 4f  |. 640,512....CLO|
00000030  43 4b 57 49 53 45 3d 31  0d 00 28 12 4e 4f 5f 4f  |CKWISE=1..(.NO_O|
00000040  46 5f 52 49 4e 47 53 3d  31 37 0d 00 32 0f 52 49  |F_RINGS=17..2.RI|
00000050  4e 47 53 49 5a 45 3d 35  30 0d 00 3c 1b 59 3d 2d  |NGSIZE=50..<.Y=-|
00000060  52 49 4e 47 53 49 5a 45  2a 4e 4f 5f 4f 46 5f 52  |RINGSIZE*NO_OF_R|
00000070  49 4e 47 53 0d 00 46 07  58 3d 30 0d 00 50 05 3a  |INGS..F.X=0..P.:|
00000080  0d 00 5a 0b 52 45 47 3d  33 36 30 0d 00 64 1c e3  |..Z.REG=360..d..|
00000090  20 52 49 4e 47 20 3d 20  31 20 b8 20 4e 4f 5f 4f  | RING = 1 . NO_O|
000000a0  46 5f 52 49 4e 47 53 0d  00 6e 07 43 3d 30 0d 00  |F_RINGS..n.C=0..|
000000b0  78 11 e3 20 52 20 3d 20  31 20 b8 20 52 45 47 0d  |x.. R = 1 . REG.|
000000c0  00 82 2f c8 99 20 22 4f  53 5f 53 65 74 43 6f 6c  |../.. "OS_SetCol|
000000d0  6f 75 72 22 2c 30 2c 43  2b 28 4e 4f 5f 4f 46 5f  |our",0,C+(NO_OF_|
000000e0  52 49 4e 47 53 2d 52 49  4e 47 29 2a 31 35 0d 00  |RINGS-RING)*15..|
000000f0  8c 09 ec 20 58 2c 59 0d  00 96 09 ec 20 30 2c 30  |... X,Y..... 0,0|
00000100  0d 00 a0 15 f2 52 4f 54  28 58 2c 59 2c 33 36 30  |.....ROT(X,Y,360|
00000110  2f 52 45 47 29 0d 00 aa  08 58 3d 4e 58 0d 00 b4  |/REG)....X=NX...|
00000120  08 59 3d 4e 59 0d 00 be  0d f0 20 26 35 35 2c 58  |.Y=NY..... &55,X|
00000130  2c 59 0d 00 c8 10 43 2b  3d 43 4c 4f 43 4b 57 49  |,Y....C+=CLOCKWI|
00000140  53 45 0d 00 d2 10 e7 20  43 3e 31 34 20 8c 20 43  |SE..... C>14 . C|
00000150  3d 30 0d 00 dc 10 e7 20  43 3c 30 20 8c 20 43 3d  |=0..... C<0 . C=|
00000160  31 34 0d 00 e6 07 ed 20  52 0d 00 f0 0f 59 2b 3d  |14..... R....Y+=|
00000170  52 49 4e 47 53 49 5a 45  0d 00 fa 0b 52 45 47 2b  |RINGSIZE....REG+|
00000180  3d 31 35 0d 01 04 0a ed  20 52 49 4e 47 0d 01 0e  |=15..... RING...|
00000190  05 3a 0d 01 18 14 de 20  70 61 6c 65 74 74 65 20  |.:..... palette |
000001a0  20 32 35 36 2a 34 0d 01  22 08 43 4e 3d 30 0d 01  | 256*4..".CN=0..|
000001b0  2c 05 f5 0d 01 36 09 43  4e 2b 3d 31 0d 01 40 13  |,....6.CN+=1..@.|
000001c0  e7 20 43 4e 3e 31 34 20  8c 20 43 4e 3d 30 20 0d  |. CN>14 . CN=0 .|
000001d0  01 4a 10 e3 20 44 20 3d  20 30 20 b8 20 31 36 0d  |.J.. D = 0 . 16.|
000001e0  01 54 0b 20 20 43 43 3d  43 4e 0d 01 5e 12 20 20  |.T.  CC=CN..^.  |
000001f0  e3 20 43 20 3d 20 30 20  b8 20 31 34 0d 01 68 1c  |. C = 0 . 14..h.|
00000200  20 20 20 20 47 3d 28 43  2a 35 2b 31 38 30 29 2a  |    G=(C*5+180)*|
00000210  28 44 2b 32 29 2f 31 38  0d 01 72 30 20 20 20 20  |(D+2)/18..r0    |
00000220  21 28 70 61 6c 65 74 74  65 2b 28 43 43 2b 44 2a  |!(palette+(CC+D*|
00000230  31 35 29 2a 34 29 3d 28  47 3c 3c 38 29 20 84 20  |15)*4)=(G<<8) . |
00000240  28 47 3c 3c 31 36 29 20  0d 01 7c 0d 20 20 20 20  |(G<<16) ..|.    |
00000250  43 43 2b 3d 31 0d 01 86  16 20 20 20 20 e7 20 43  |CC+=1....    . C|
00000260  43 3e 31 34 20 8c 20 43  43 3d 30 0d 01 90 09 20  |C>14 . CC=0.... |
00000270  20 ed 20 43 0d 01 9a 07  ed 20 44 0d 01 a4 2d c8  | . C..... D...-.|
00000280  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 57  |. "ColourTrans_W|
00000290  72 69 74 65 50 61 6c 65  74 74 65 22 2c 2d 31 2c  |ritePalette",-1,|
000002a0  2c 70 61 6c 65 74 74 65  0d 01 ae 0a f4 20 57 41  |,palette..... WA|
000002b0  49 54 0d 01 b8 07 fd 20  a3 0d 01 c2 05 e0 0d 01  |IT..... ........|
000002c0  cc 14 dd 20 f2 52 4f 54  28 52 58 2c 52 59 2c 52  |... .ROT(RX,RY,R|
000002d0  44 29 0d 01 d6 07 ea 20  52 0d 01 e0 0c 52 3d b2  |D)..... R....R=.|
000002e0  28 2d 52 44 29 0d 01 ea  16 4e 58 3d 52 58 2a 9b  |(-RD)....NX=RX*.|
000002f0  28 52 29 2d 52 59 2a b5  28 52 29 0d 01 f4 16 4e  |(R)-RY*.(R)....N|
00000300  59 3d 52 58 2a b5 28 52  29 2b 52 59 2a 9b 28 52  |Y=RX*.(R)+RY*.(R|
00000310  29 0d 01 fe 05 e1 0d 02  08 05 3a 0d 02 12 12 dd  |).........:.....|
00000320  20 f2 6d 6f 64 65 28 6d  6f 64 65 24 29 0d 02 1c  | .mode(mode$)...|
00000330  17 ea 20 63 24 2c 65 78  2c 65 79 2c 6d 6f 64 65  |.. c$,ex,ey,mode|
00000340  2c 65 6e 64 0d 02 26 0d  de 20 6d 6f 64 65 20 36  |,end..&.. mode 6|
00000350  34 0d 02 30 0f 65 6e 64  3d 6d 6f 64 65 2b 32 30  |4..0.end=mode+20|
00000360  0d 02 3a 0b 21 6d 6f 64  65 3d 31 0d 02 44 1e 6d  |..:.!mode=1..D.m|
00000370  6f 64 65 21 34 3d bb 20  a4 5f 6d 28 6d 6f 64 65  |ode!4=. ._m(mode|
00000380  24 2c 22 58 22 2c 22 22  29 0d 02 4e 1e 6d 6f 64  |$,"X","")..N.mod|
00000390  65 21 38 3d bb 20 a4 5f  6d 28 6d 6f 64 65 24 2c  |e!8=. ._m(mode$,|
000003a0  22 59 22 2c 22 22 29 0d  02 58 19 63 24 3d a4 5f  |"Y","")..X.c$=._|
000003b0  6d 28 6d 6f 64 65 24 2c  22 43 22 2c 22 2a 22 29  |m(mode$,"C","*")|
000003c0  0d 02 62 0e e7 20 63 24  3d 22 2a 22 20 8c 0d 02  |..b.. c$="*" ...|
000003d0  6c 19 20 63 24 3d a4 5f  6d 28 6d 6f 64 65 24 2c  |l. c$=._m(mode$,|
000003e0  22 47 22 2c 22 22 29 0d  02 76 27 20 e7 20 63 24  |"G","")..v' . c$|
000003f0  3d 22 32 35 36 22 20 21  65 6e 64 3d 33 3a 65 6e  |="256" !end=3:en|
00000400  64 21 34 3d 32 35 35 3a  65 6e 64 2b 3d 38 0d 02  |d!4=255:end+=8..|
00000410  80 05 cd 0d 02 8a 15 6d  6f 64 65 21 31 32 3d a4  |.......mode!12=.|
00000420  5f 62 70 70 28 63 24 29  0d 02 94 21 6d 6f 64 65  |_bpp(c$)...!mode|
00000430  21 31 36 3d bb 20 a4 5f  6d 28 6d 6f 64 65 24 2c  |!16=. ._m(mode$,|
00000440  22 46 22 2c 22 2d 31 22  29 0d 02 9e 1d 65 78 3d  |"F","-1")....ex=|
00000450  bb 20 a4 5f 6d 28 6d 6f  64 65 24 2c 22 45 58 22  |. ._m(mode$,"EX"|
00000460  2c 22 2d 31 22 29 0d 02  a8 23 e7 20 65 78 3c 3e  |,"-1")...#. ex<>|
00000470  2d 31 20 21 65 6e 64 3d  34 3a 65 6e 64 21 34 3d  |-1 !end=4:end!4=|
00000480  65 78 3a 65 6e 64 2b 3d  38 0d 02 b2 1d 65 79 3d  |ex:end+=8....ey=|
00000490  bb 20 a4 5f 6d 28 6d 6f  64 65 24 2c 22 45 59 22  |. ._m(mode$,"EY"|
000004a0  2c 22 2d 31 22 29 0d 02  bc 23 e7 20 65 79 3c 3e  |,"-1")...#. ey<>|
000004b0  2d 31 20 21 65 6e 64 3d  35 3a 65 6e 64 21 34 3d  |-1 !end=5:end!4=|
000004c0  65 79 3a 65 6e 64 2b 3d  38 0d 02 c6 0b 21 65 6e  |ey:end+=8....!en|
000004d0  64 3d 2d 31 0d 02 d0 0a  eb 20 6d 6f 64 65 0d 02  |d=-1..... mode..|
000004e0  da 05 e1 0d 02 e4 04 0d  02 ee 13 dd 20 a4 5f 6d  |............ ._m|
000004f0  28 73 24 2c 70 24 2c 64  24 29 0d 02 f8 09 ea 20  |(s$,p$,d$)..... |
00000500  69 2c 6a 0d 03 02 0d 69  3d a7 73 24 2c 70 24 29  |i,j....i=.s$,p$)|
00000510  0d 03 0c 25 e7 20 69 3c  31 20 80 20 64 24 3d 22  |...%. i<1 . d$="|
00000520  22 20 85 20 34 39 30 2c  22 4d 69 73 73 69 6e 67  |" . 490,"Missing|
00000530  20 22 2b 70 24 0d 03 16  0f e7 20 69 3c 31 20 8c  | "+p$..... i<1 .|
00000540  20 3d 64 24 0d 03 20 16  6a 3d a7 73 24 2b 22 20  | =d$.. .j=.s$+" |
00000550  22 2c 22 20 22 2c 69 2b  31 29 0d 03 2a 13 3d c1  |"," ",i+1)..*.=.|
00000560  73 24 2c 69 2b 31 2c 6a  2d 69 2d 31 29 0d 03 34  |s$,i+1,j-i-1)..4|
00000570  04 0d 03 3e 0f dd 20 a4  5f 62 70 70 28 6e 24 29  |...>.. ._bpp(n$)|
00000580  0d 03 48 0b c8 8e 20 6e  24 20 ca 0d 03 52 0d 20  |..H... n$ ...R. |
00000590  c9 20 22 32 22 3a 3d 30  0d 03 5c 0d 20 c9 20 22  |. "2":=0..\. . "|
000005a0  34 22 3a 3d 31 0d 03 66  0e 20 c9 20 22 31 36 22  |4":=1..f. . "16"|
000005b0  3a 3d 32 0d 03 70 0f 20  c9 20 22 32 35 36 22 3a  |:=2..p. . "256":|
000005c0  3d 33 0d 03 7a 21 20 c9  20 22 33 32 54 22 2c 22  |=3..z! . "32T","|
000005d0  33 32 74 22 2c 22 33 32  4b 22 2c 22 33 32 6b 22  |32t","32K","32k"|
000005e0  3a 3d 34 0d 03 84 15 20  c9 20 22 31 36 4d 22 2c  |:=4.... . "16M",|
000005f0  22 31 36 6d 22 3a 3d 35  0d 03 8e 21 20 7f 3a 20  |"16m":=5...! .: |
00000600  85 20 34 39 30 2c 22 42  61 64 20 70 61 72 61 6d  |. 490,"Bad param|
00000610  65 74 65 72 20 22 2b 6e  24 0d 03 98 05 cb 0d ff  |eter "+n$.......|
00000620