� mode% 52, pal% 256*4
�mode("X640 Y512 g256")
�
(� � �:� �:�
2� pal% 256*4
<� h%=1 � 255
FKș"ColourTrans_ConvertHSVToRGB",(h%/255)*360*65536,65536,255 � r%,g%,b%
P$w%=(b%<<24) � (g%<<16) � (r%<<8)
Zpal%!(h%*4)=w%
d� h%
n3pal%!0=0:� colour zero is black for background.
x*ș "ColourTrans_WritePalette",-1,,pal%
�
E=�1:C%=2
�5ȑ640,512:�:�:�"      LOGARITHMIC SPIRAL-WHIRL":�
���"SUGGESTED ANGLES; 1 RADIANT=57.3 DEG. OR GOLDEN RATIO GROWTH=85.62 DEG.":�"TO SEE THE PATTERN WITHOUT TRANSFORMATION ; ANGLE = 0."
���"AFTER THE WHIRL IS FINISHED YOU CAN GET YOURSELF HYPNOTISED BY THE COMPUTER.":�"PRESS LEFT/RIGHT MOUSE BUTTON TO GO FOR A BIT OF COLOUR CYCLING."
�?�"MIDDLE BUTTON TO START AGAIN WITH A DIFFERENT PARAMETER."
�U�"ANGLE OF SPIRAL WITH RADIUS (IN DEGREES < 90)";A:A=�A:� A>�/2-.0001 A=�/2-.0001
�#� �A;" DEGREES.":� A=0 A=.00001
�B=� A:D=255/�:� MAIN LOOP
�� X%=-640�0�2:Z%=X%*X%
�� Y%=-512�512�C%
�R=�(Z%+Y%*Y%)
�
� R=0 �:�
�V=�(R/A)*B

M=X%*�V+Y%*�V

N=Y%*�V-X%*�V

,ș "OS_SetColour",0,((�(N/M)+�)*D)�255+1

"Ȓ X%,Y%

,Ȓ -X%,-Y%

6�:�

@�

J�ȗ x%,y%,z%:�z%

T� z%=1 �

^tempw%=pal%!(255*4)

h� i%=254 � 1 � -1

rpal%!((i%+1)*4)=pal%!(i%*4)

|�

�pal%!4=tempw%

�*ș "ColourTrans_WritePalette",-1,,pal%

��

�� z%=4 �

�tempw%=pal%!4

�� i%=2 � 255 � 1

�pal%!((i%-1)*4)=pal%!(i%*4)

��

�pal%!(255*4)=tempw%

�*ș "ColourTrans_WritePalette",-1,,pal%

��

�	�z%=2

��
�
&]� Part of my library, improved on the AU version for 256 entry *definable* palette modes.
'.� Do: DIM mode% 52, pal% 256*4 before use.
0V� Sorry, it's really "hacky" but that's the way it is without the proper PRMs. ;-)
:�
D:
N��mode(mode$)
X� i%=1 � �mode$
bB�mode$,i%,1)=�(�(�mode$,i%,1)) � 32):� force A-Z to lower case
l� i%
vsmode$=" "+mode$
�b� �smode$," x")=0 � �" x pixels missing from mode string (="""mode$""") passed to PROCmode.":�
�S� �smode$," y")=0 � �" y pixels missing from mode string passed to PROCmode.":�
�d� �smode$," c")=0 � �smode$," g")=0 � �" colours missing from mode string passed to PROCmode.":�
�+xpix%=��smode$,�smode$-�smode$," x")-1)
�+ypix%=��smode$,�smode$-�smode$," y")-1)
�col_start%=�smode$," c")
�-� col_start%=0 � col_start%=�smode$," g")
�&colour$="":col_start%+=1:offset%=0
��
�*colour$+=�smode$,col_start%+offset%,1)
�offset%+=1
�F� �smode$,col_start%+offset%,1)=" " � (col_start%+offset%)>�smode$
�u� �"c2g2c4g4c16g16c256g256c32kc16m",colour$)=0 � �" number of colours specified in """mode$""" is not available."
S� �smode$," f")<>0 framerate%=��smode$,�smode$-�smode$," f")-1) � framerate%=-1
H� �smode$," ex")<>0 � ex%=��smode$,�smode$-�smode$," ex")-2) � ex%=1
H� �smode$," ey")<>0 � ey%=��smode$,�smode$-�smode$," ey")-2) � ey%=1
 "� put together mode block now.
*
pos%=0
4mode%!pos%=1:pos%+=4
>mode%!pos%=xpix%:pos%+=4
Hmode%!pos%=ypix%:pos%+=4
R#� colour$="c2" � colour$="g2" �
\mode%!pos%=0:pos%+=4
f!mode%!pos%=framerate%:pos%+=4
pmode%!pos%=5:pos%+=4
zmode%!pos%=ey%:pos%+=4
�mode%!pos%=4:pos%+=4
�mode%!pos%=ex%:pos%+=4
��
�#� colour$="c4" � colour$="g4" �
�mode%!pos%=1:pos%+=4
�!mode%!pos%=framerate%:pos%+=4
�mode%!pos%=5:pos%+=4
�mode%!pos%=ey%:pos%+=4
�mode%!pos%=4:pos%+=4
�mode%!pos%=ex%:pos%+=4
��
�� colour$="c16" �
�mode%!pos%=2:pos%+=4
!mode%!pos%=framerate%:pos%+=4
mode%!pos%=5:pos%+=4
mode%!pos%=ey%:pos%+=4
$mode%!pos%=4:pos%+=4
.mode%!pos%=ex%:pos%+=4
8�
B� colour$="g16" �
Lmode%!pos%=2:pos%+=4
V!mode%!pos%=framerate%:pos%+=4
`mode%!pos%=5:pos%+=4
jmode%!pos%=ey%:pos%+=4
tmode%!pos%=4:pos%+=4
~mode%!pos%=ex%:pos%+=4
��
�� colour$="c256" �
�mode%!pos%=3:pos%+=4
�!mode%!pos%=framerate%:pos%+=4
�mode%!pos%=5:pos%+=4
�mode%!pos%=ey%:pos%+=4
�mode%!pos%=4:pos%+=4
�mode%!pos%=ex%:pos%+=4
��
�� colour$="g256" �
�mode%!pos%=3:pos%+=4
�!mode%!pos%=framerate%:pos%+=4
mode%!pos%=5:pos%+=4

mode%!pos%=ey%:pos%+=4
mode%!pos%=4:pos%+=4
mode%!pos%=ex%:pos%+=4
(mode%!pos%=0:pos%+=4
2mode%!pos%=&80:pos%+=4
<mode%!pos%=3:pos%+=4
Fmode%!pos%=&FF:pos%+=4
P�
Z� colour$="c32k" �
dmode%!pos%=4:pos%+=4
n!mode%!pos%=framerate%:pos%+=4
xmode%!pos%=5:pos%+=4
�mode%!pos%=ey%:pos%+=4
�mode%!pos%=4:pos%+=4
�mode%!pos%=ex%:pos%+=4
��
�� colour$="c16m" �
�mode%!pos%=5:pos%+=4
�!mode%!pos%=framerate%:pos%+=4
�mode%!pos%=5:pos%+=4
�mode%!pos%=ey%:pos%+=4
�mode%!pos%=4:pos%+=4
�mode%!pos%=ex%:pos%+=4
��
�mode%!pos%=-1
� mode%
� colour$="g256" �
� c%=0 � 255
"pal%!(c%*4)=�add(c%,c%,c%)
,�
6)ș"ColourTrans_WritePalette",-1,,pal%
@�
J� colour$="g16" �
Tpal%!0=�add(&FF,&FF,&FF)
^pal%!4=�add(&DD,&DD,&DD)
hpal%!8=�add(&BB,&BB,&BB)
rpal%!12=�add(&99,&99,&99)
|pal%!16=�add(&77,&77,&77)
�pal%!20=�add(&55,&55,&55)
�pal%!24=�add(&33,&33,&33)
�pal%!28=�add(&00,&00,&00)
�pal%!32=�add(&10,&10,&10)
�pal%!36=�add(&C0,&C0,&C0)
�pal%!40=�add(&60,&60,&60)
�pal%!44=�add(&20,&20,&20)
�pal%!48=�add(&E0,&E0,&E0)
�pal%!52=�add(&40,&40,&40)
�pal%!56=�add(&A0,&A0,&A0)
�pal%!60=�add(&80,&80,&80)
�)ș"ColourTrans_WritePalette",-1,,pal%
��
�
:
ݤadd(r%,g%,b%)
&"=(b%<<24) � (g%<<16) � (r%<<8)
0:
�

00000000  0d 00 0a 1a de 20 6d 6f  64 65 25 20 35 32 2c 20  |..... mode% 52, |
00000010  70 61 6c 25 20 32 35 36  2a 34 0d 00 14 1b f2 6d  |pal% 256*4.....m|
00000020  6f 64 65 28 22 58 36 34  30 20 59 35 31 32 20 67  |ode("X640 Y512 g|
00000030  32 35 36 22 29 0d 00 1e  05 87 0d 00 28 0f ee 20  |256").......(.. |
00000040  85 20 f6 3a f1 20 9e 3a  fa 0d 00 32 10 de 20 70  |. .:. .:...2.. p|
00000050  61 6c 25 20 32 35 36 2a  34 0d 00 3c 10 e3 20 68  |al% 256*4..<.. h|
00000060  25 3d 31 20 b8 20 32 35  35 0d 00 46 4b c8 99 22  |%=1 . 255..FK.."|
00000070  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 43 6f 6e 76  |ColourTrans_Conv|
00000080  65 72 74 48 53 56 54 6f  52 47 42 22 2c 28 68 25  |ertHSVToRGB",(h%|
00000090  2f 32 35 35 29 2a 33 36  30 2a 36 35 35 33 36 2c  |/255)*360*65536,|
000000a0  36 35 35 33 36 2c 32 35  35 20 b8 20 72 25 2c 67  |65536,255 . r%,g|
000000b0  25 2c 62 25 0d 00 50 24  77 25 3d 28 62 25 3c 3c  |%,b%..P$w%=(b%<<|
000000c0  32 34 29 20 84 20 28 67  25 3c 3c 31 36 29 20 84  |24) . (g%<<16) .|
000000d0  20 28 72 25 3c 3c 38 29  0d 00 5a 12 70 61 6c 25  | (r%<<8)..Z.pal%|
000000e0  21 28 68 25 2a 34 29 3d  77 25 0d 00 64 08 ed 20  |!(h%*4)=w%..d.. |
000000f0  68 25 0d 00 6e 33 70 61  6c 25 21 30 3d 30 3a f4  |h%..n3pal%!0=0:.|
00000100  20 63 6f 6c 6f 75 72 20  7a 65 72 6f 20 69 73 20  | colour zero is |
00000110  62 6c 61 63 6b 20 66 6f  72 20 62 61 63 6b 67 72  |black for backgr|
00000120  6f 75 6e 64 2e 0d 00 78  2a c8 99 20 22 43 6f 6c  |ound...x*.. "Col|
00000130  6f 75 72 54 72 61 6e 73  5f 57 72 69 74 65 50 61  |ourTrans_WritePa|
00000140  6c 65 74 74 65 22 2c 2d  31 2c 2c 70 61 6c 25 0d  |lette",-1,,pal%.|
00000150  00 82 0d 45 3d a1 31 3a  43 25 3d 32 0d 00 8c 35  |...E=.1:C%=2...5|
00000160  c8 91 36 34 30 2c 35 31  32 3a 87 3a f1 3a f1 22  |..640,512:.:.:."|
00000170  20 20 20 20 20 20 4c 4f  47 41 52 49 54 48 4d 49  |      LOGARITHMI|
00000180  43 20 53 50 49 52 41 4c  2d 57 48 49 52 4c 22 3a  |C SPIRAL-WHIRL":|
00000190  f1 0d 00 96 88 f1 22 53  55 47 47 45 53 54 45 44  |......"SUGGESTED|
000001a0  20 41 4e 47 4c 45 53 3b  20 31 20 52 41 44 49 41  | ANGLES; 1 RADIA|
000001b0  4e 54 3d 35 37 2e 33 20  44 45 47 2e 20 4f 52 20  |NT=57.3 DEG. OR |
000001c0  47 4f 4c 44 45 4e 20 52  41 54 49 4f 20 47 52 4f  |GOLDEN RATIO GRO|
000001d0  57 54 48 3d 38 35 2e 36  32 20 44 45 47 2e 22 3a  |WTH=85.62 DEG.":|
000001e0  f1 22 54 4f 20 53 45 45  20 54 48 45 20 50 41 54  |."TO SEE THE PAT|
000001f0  54 45 52 4e 20 57 49 54  48 4f 55 54 20 54 52 41  |TERN WITHOUT TRA|
00000200  4e 53 46 4f 52 4d 41 54  49 4f 4e 20 3b 20 41 4e  |NSFORMATION ; AN|
00000210  47 4c 45 20 3d 20 30 2e  22 0d 00 a0 97 f1 22 41  |GLE = 0."....."A|
00000220  46 54 45 52 20 54 48 45  20 57 48 49 52 4c 20 49  |FTER THE WHIRL I|
00000230  53 20 46 49 4e 49 53 48  45 44 20 59 4f 55 20 43  |S FINISHED YOU C|
00000240  41 4e 20 47 45 54 20 59  4f 55 52 53 45 4c 46 20  |AN GET YOURSELF |
00000250  48 59 50 4e 4f 54 49 53  45 44 20 42 59 20 54 48  |HYPNOTISED BY TH|
00000260  45 20 43 4f 4d 50 55 54  45 52 2e 22 3a f1 22 50  |E COMPUTER.":."P|
00000270  52 45 53 53 20 4c 45 46  54 2f 52 49 47 48 54 20  |RESS LEFT/RIGHT |
00000280  4d 4f 55 53 45 20 42 55  54 54 4f 4e 20 54 4f 20  |MOUSE BUTTON TO |
00000290  47 4f 20 46 4f 52 20 41  20 42 49 54 20 4f 46 20  |GO FOR A BIT OF |
000002a0  43 4f 4c 4f 55 52 20 43  59 43 4c 49 4e 47 2e 22  |COLOUR CYCLING."|
000002b0  0d 00 aa 3f f1 22 4d 49  44 44 4c 45 20 42 55 54  |...?."MIDDLE BUT|
000002c0  54 4f 4e 20 54 4f 20 53  54 41 52 54 20 41 47 41  |TON TO START AGA|
000002d0  49 4e 20 57 49 54 48 20  41 20 44 49 46 46 45 52  |IN WITH A DIFFER|
000002e0  45 4e 54 20 50 41 52 41  4d 45 54 45 52 2e 22 0d  |ENT PARAMETER.".|
000002f0  00 b4 55 e8 22 41 4e 47  4c 45 20 4f 46 20 53 50  |..U."ANGLE OF SP|
00000300  49 52 41 4c 20 57 49 54  48 20 52 41 44 49 55 53  |IRAL WITH RADIUS|
00000310  20 28 49 4e 20 44 45 47  52 45 45 53 20 3c 20 39  | (IN DEGREES < 9|
00000320  30 29 22 3b 41 3a 41 3d  b2 41 3a e7 20 41 3e af  |0)";A:A=.A:. A>.|
00000330  2f 32 2d 2e 30 30 30 31  20 41 3d af 2f 32 2d 2e  |/2-.0001 A=./2-.|
00000340  30 30 30 31 0d 00 be 23  f1 20 9d 41 3b 22 20 44  |0001...#. .A;" D|
00000350  45 47 52 45 45 53 2e 22  3a e7 20 41 3d 30 20 41  |EGREES.":. A=0 A|
00000360  3d 2e 30 30 30 30 31 0d  00 c8 1d 42 3d b7 20 41  |=.00001....B=. A|
00000370  3a 44 3d 32 35 35 2f af  3a f4 20 4d 41 49 4e 20  |:D=255/.:. MAIN |
00000380  4c 4f 4f 50 0d 00 d2 1a  e3 20 58 25 3d 2d 36 34  |LOOP..... X%=-64|
00000390  30 b8 30 88 32 3a 5a 25  3d 58 25 2a 58 25 0d 00  |0.0.2:Z%=X%*X%..|
000003a0  dc 14 e3 20 59 25 3d 2d  35 31 32 b8 35 31 32 88  |... Y%=-512.512.|
000003b0  43 25 0d 00 e6 11 52 3d  b6 28 5a 25 2b 59 25 2a  |C%....R=.(Z%+Y%*|
000003c0  59 25 29 0d 00 f0 0d e7  20 52 3d 30 20 ed 3a ed  |Y%)..... R=0 .:.|
000003d0  0d 00 fa 0e 56 3d aa 28  52 2f 41 29 2a 42 0d 01  |....V=.(R/A)*B..|
000003e0  04 11 4d 3d 58 25 2a 9b  56 2b 59 25 2a b5 56 0d  |..M=X%*.V+Y%*.V.|
000003f0  01 0e 11 4e 3d 59 25 2a  9b 56 2d 58 25 2a b5 56  |...N=Y%*.V-X%*.V|
00000400  0d 01 18 2c c8 99 20 22  4f 53 5f 53 65 74 43 6f  |...,.. "OS_SetCo|
00000410  6c 6f 75 72 22 2c 30 2c  28 28 99 28 4e 2f 4d 29  |lour",0,((.(N/M)|
00000420  2b af 29 2a 44 29 83 32  35 35 2b 31 0d 01 22 0c  |+.)*D).255+1..".|
00000430  c8 92 20 58 25 2c 59 25  0d 01 2c 0e c8 92 20 2d  |.. X%,Y%..,... -|
00000440  58 25 2c 2d 59 25 0d 01  36 07 ed 3a ed 0d 01 40  |X%,-Y%..6..:...@|
00000450  05 f5 0d 01 4a 14 f5 c8  97 20 78 25 2c 79 25 2c  |....J.... x%,y%,|
00000460  7a 25 3a fd 7a 25 0d 01  54 0c e7 20 7a 25 3d 31  |z%:.z%..T.. z%=1|
00000470  20 8c 0d 01 5e 17 74 65  6d 70 77 25 3d 70 61 6c  | ...^.tempw%=pal|
00000480  25 21 28 32 35 35 2a 34  29 0d 01 68 15 e3 20 69  |%!(255*4)..h.. i|
00000490  25 3d 32 35 34 20 b8 20  31 20 88 20 2d 31 0d 01  |%=254 . 1 . -1..|
000004a0  72 1f 70 61 6c 25 21 28  28 69 25 2b 31 29 2a 34  |r.pal%!((i%+1)*4|
000004b0  29 3d 70 61 6c 25 21 28  69 25 2a 34 29 0d 01 7c  |)=pal%!(i%*4)..||
000004c0  05 ed 0d 01 86 11 70 61  6c 25 21 34 3d 74 65 6d  |......pal%!4=tem|
000004d0  70 77 25 0d 01 90 2a c8  99 20 22 43 6f 6c 6f 75  |pw%...*.. "Colou|
000004e0  72 54 72 61 6e 73 5f 57  72 69 74 65 50 61 6c 65  |rTrans_WritePale|
000004f0  74 74 65 22 2c 2d 31 2c  2c 70 61 6c 25 0d 01 9a  |tte",-1,,pal%...|
00000500  05 cd 0d 01 a4 0c e7 20  7a 25 3d 34 20 8c 0d 01  |....... z%=4 ...|
00000510  ae 11 74 65 6d 70 77 25  3d 70 61 6c 25 21 34 0d  |..tempw%=pal%!4.|
00000520  01 b8 14 e3 20 69 25 3d  32 20 b8 20 32 35 35 20  |.... i%=2 . 255 |
00000530  88 20 31 0d 01 c2 1f 70  61 6c 25 21 28 28 69 25  |. 1....pal%!((i%|
00000540  2d 31 29 2a 34 29 3d 70  61 6c 25 21 28 69 25 2a  |-1)*4)=pal%!(i%*|
00000550  34 29 0d 01 cc 05 ed 0d  01 d6 17 70 61 6c 25 21  |4).........pal%!|
00000560  28 32 35 35 2a 34 29 3d  74 65 6d 70 77 25 0d 01  |(255*4)=tempw%..|
00000570  e0 2a c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.*.. "ColourTran|
00000580  73 5f 57 72 69 74 65 50  61 6c 65 74 74 65 22 2c  |s_WritePalette",|
00000590  2d 31 2c 2c 70 61 6c 25  0d 01 ea 05 cd 0d 01 f4  |-1,,pal%........|
000005a0  09 fd 7a 25 3d 32 0d 01  fe 05 f9 0d 02 08 05 e0  |..z%=2..........|
000005b0  0d 02 26 5d f4 20 50 61  72 74 20 6f 66 20 6d 79  |..&]. Part of my|
000005c0  20 6c 69 62 72 61 72 79  2c 20 69 6d 70 72 6f 76  | library, improv|
000005d0  65 64 20 6f 6e 20 74 68  65 20 41 55 20 76 65 72  |ed on the AU ver|
000005e0  73 69 6f 6e 20 66 6f 72  20 32 35 36 20 65 6e 74  |sion for 256 ent|
000005f0  72 79 20 2a 64 65 66 69  6e 61 62 6c 65 2a 20 70  |ry *definable* p|
00000600  61 6c 65 74 74 65 20 6d  6f 64 65 73 2e 0d 02 27  |alette modes...'|
00000610  2e f4 20 44 6f 3a 20 44  49 4d 20 6d 6f 64 65 25  |.. Do: DIM mode%|
00000620  20 35 32 2c 20 70 61 6c  25 20 32 35 36 2a 34 20  | 52, pal% 256*4 |
00000630  62 65 66 6f 72 65 20 75  73 65 2e 0d 02 30 56 f4  |before use...0V.|
00000640  20 53 6f 72 72 79 2c 20  69 74 27 73 20 72 65 61  | Sorry, it's rea|
00000650  6c 6c 79 20 22 68 61 63  6b 79 22 20 62 75 74 20  |lly "hacky" but |
00000660  74 68 61 74 27 73 20 74  68 65 20 77 61 79 20 69  |that's the way i|
00000670  74 20 69 73 20 77 69 74  68 6f 75 74 20 74 68 65  |t is without the|
00000680  20 70 72 6f 70 65 72 20  50 52 4d 73 2e 20 3b 2d  | proper PRMs. ;-|
00000690  29 0d 02 3a 05 e0 0d 02  44 05 3a 0d 02 4e 11 dd  |)..:....D.:..N..|
000006a0  f2 6d 6f 64 65 28 6d 6f  64 65 24 29 0d 02 58 13  |.mode(mode$)..X.|
000006b0  e3 20 69 25 3d 31 20 b8  20 a9 6d 6f 64 65 24 0d  |. i%=1 . .mode$.|
000006c0  02 62 42 c1 6d 6f 64 65  24 2c 69 25 2c 31 29 3d  |.bB.mode$,i%,1)=|
000006d0  bd 28 97 28 c1 6d 6f 64  65 24 2c 69 25 2c 31 29  |.(.(.mode$,i%,1)|
000006e0  29 20 84 20 33 32 29 3a  f4 20 66 6f 72 63 65 20  |) . 32):. force |
000006f0  41 2d 5a 20 74 6f 20 6c  6f 77 65 72 20 63 61 73  |A-Z to lower cas|
00000700  65 0d 02 6c 08 ed 20 69  25 0d 02 76 14 73 6d 6f  |e..l.. i%..v.smo|
00000710  64 65 24 3d 22 20 22 2b  6d 6f 64 65 24 0d 02 80  |de$=" "+mode$...|
00000720  62 e7 20 a7 73 6d 6f 64  65 24 2c 22 20 78 22 29  |b. .smode$," x")|
00000730  3d 30 20 8c 20 f1 22 20  78 20 70 69 78 65 6c 73  |=0 . ." x pixels|
00000740  20 6d 69 73 73 69 6e 67  20 66 72 6f 6d 20 6d 6f  | missing from mo|
00000750  64 65 20 73 74 72 69 6e  67 20 28 3d 22 22 22 6d  |de string (="""m|
00000760  6f 64 65 24 22 22 22 29  20 70 61 73 73 65 64 20  |ode$""") passed |
00000770  74 6f 20 50 52 4f 43 6d  6f 64 65 2e 22 3a e1 0d  |to PROCmode.":..|
00000780  02 8a 53 e7 20 a7 73 6d  6f 64 65 24 2c 22 20 79  |..S. .smode$," y|
00000790  22 29 3d 30 20 8c 20 f1  22 20 79 20 70 69 78 65  |")=0 . ." y pixe|
000007a0  6c 73 20 6d 69 73 73 69  6e 67 20 66 72 6f 6d 20  |ls missing from |
000007b0  6d 6f 64 65 20 73 74 72  69 6e 67 20 70 61 73 73  |mode string pass|
000007c0  65 64 20 74 6f 20 50 52  4f 43 6d 6f 64 65 2e 22  |ed to PROCmode."|
000007d0  3a e1 0d 02 94 64 e7 20  a7 73 6d 6f 64 65 24 2c  |:....d. .smode$,|
000007e0  22 20 63 22 29 3d 30 20  80 20 a7 73 6d 6f 64 65  |" c")=0 . .smode|
000007f0  24 2c 22 20 67 22 29 3d  30 20 8c 20 f1 22 20 63  |$," g")=0 . ." c|
00000800  6f 6c 6f 75 72 73 20 6d  69 73 73 69 6e 67 20 66  |olours missing f|
00000810  72 6f 6d 20 6d 6f 64 65  20 73 74 72 69 6e 67 20  |rom mode string |
00000820  70 61 73 73 65 64 20 74  6f 20 50 52 4f 43 6d 6f  |passed to PROCmo|
00000830  64 65 2e 22 3a e1 0d 02  9e 2b 78 70 69 78 25 3d  |de.":....+xpix%=|
00000840  bb c2 73 6d 6f 64 65 24  2c a9 73 6d 6f 64 65 24  |..smode$,.smode$|
00000850  2d a7 73 6d 6f 64 65 24  2c 22 20 78 22 29 2d 31  |-.smode$," x")-1|
00000860  29 0d 02 a8 2b 79 70 69  78 25 3d bb c2 73 6d 6f  |)...+ypix%=..smo|
00000870  64 65 24 2c a9 73 6d 6f  64 65 24 2d a7 73 6d 6f  |de$,.smode$-.smo|
00000880  64 65 24 2c 22 20 79 22  29 2d 31 29 0d 02 b2 1c  |de$," y")-1)....|
00000890  63 6f 6c 5f 73 74 61 72  74 25 3d a7 73 6d 6f 64  |col_start%=.smod|
000008a0  65 24 2c 22 20 63 22 29  0d 02 bc 2d e7 20 63 6f  |e$," c")...-. co|
000008b0  6c 5f 73 74 61 72 74 25  3d 30 20 8c 20 63 6f 6c  |l_start%=0 . col|
000008c0  5f 73 74 61 72 74 25 3d  a7 73 6d 6f 64 65 24 2c  |_start%=.smode$,|
000008d0  22 20 67 22 29 0d 02 c6  26 63 6f 6c 6f 75 72 24  |" g")...&colour$|
000008e0  3d 22 22 3a 63 6f 6c 5f  73 74 61 72 74 25 2b 3d  |="":col_start%+=|
000008f0  31 3a 6f 66 66 73 65 74  25 3d 30 0d 02 d0 05 f5  |1:offset%=0.....|
00000900  0d 02 da 2a 63 6f 6c 6f  75 72 24 2b 3d c1 73 6d  |...*colour$+=.sm|
00000910  6f 64 65 24 2c 63 6f 6c  5f 73 74 61 72 74 25 2b  |ode$,col_start%+|
00000920  6f 66 66 73 65 74 25 2c  31 29 0d 02 e4 0e 6f 66  |offset%,1)....of|
00000930  66 73 65 74 25 2b 3d 31  0d 02 ee 46 fd 20 c1 73  |fset%+=1...F. .s|
00000940  6d 6f 64 65 24 2c 63 6f  6c 5f 73 74 61 72 74 25  |mode$,col_start%|
00000950  2b 6f 66 66 73 65 74 25  2c 31 29 3d 22 20 22 20  |+offset%,1)=" " |
00000960  84 20 28 63 6f 6c 5f 73  74 61 72 74 25 2b 6f 66  |. (col_start%+of|
00000970  66 73 65 74 25 29 3e a9  73 6d 6f 64 65 24 0d 02  |fset%)>.smode$..|
00000980  f8 75 e7 20 a7 22 63 32  67 32 63 34 67 34 63 31  |.u. ."c2g2c4g4c1|
00000990  36 67 31 36 63 32 35 36  67 32 35 36 63 33 32 6b  |6g16c256g256c32k|
000009a0  63 31 36 6d 22 2c 63 6f  6c 6f 75 72 24 29 3d 30  |c16m",colour$)=0|
000009b0  20 8c 20 f1 22 20 6e 75  6d 62 65 72 20 6f 66 20  | . ." number of |
000009c0  63 6f 6c 6f 75 72 73 20  73 70 65 63 69 66 69 65  |colours specifie|
000009d0  64 20 69 6e 20 22 22 22  6d 6f 64 65 24 22 22 22  |d in """mode$"""|
000009e0  20 69 73 20 6e 6f 74 20  61 76 61 69 6c 61 62 6c  | is not availabl|
000009f0  65 2e 22 0d 03 02 53 e7  20 a7 73 6d 6f 64 65 24  |e."...S. .smode$|
00000a00  2c 22 20 66 22 29 3c 3e  30 20 66 72 61 6d 65 72  |," f")<>0 framer|
00000a10  61 74 65 25 3d bb c2 73  6d 6f 64 65 24 2c a9 73  |ate%=..smode$,.s|
00000a20  6d 6f 64 65 24 2d a7 73  6d 6f 64 65 24 2c 22 20  |mode$-.smode$," |
00000a30  66 22 29 2d 31 29 20 8b  20 66 72 61 6d 65 72 61  |f")-1) . framera|
00000a40  74 65 25 3d 2d 31 0d 03  0c 48 e7 20 a7 73 6d 6f  |te%=-1...H. .smo|
00000a50  64 65 24 2c 22 20 65 78  22 29 3c 3e 30 20 8c 20  |de$," ex")<>0 . |
00000a60  65 78 25 3d bb c2 73 6d  6f 64 65 24 2c a9 73 6d  |ex%=..smode$,.sm|
00000a70  6f 64 65 24 2d a7 73 6d  6f 64 65 24 2c 22 20 65  |ode$-.smode$," e|
00000a80  78 22 29 2d 32 29 20 8b  20 65 78 25 3d 31 0d 03  |x")-2) . ex%=1..|
00000a90  16 48 e7 20 a7 73 6d 6f  64 65 24 2c 22 20 65 79  |.H. .smode$," ey|
00000aa0  22 29 3c 3e 30 20 8c 20  65 79 25 3d bb c2 73 6d  |")<>0 . ey%=..sm|
00000ab0  6f 64 65 24 2c a9 73 6d  6f 64 65 24 2d a7 73 6d  |ode$,.smode$-.sm|
00000ac0  6f 64 65 24 2c 22 20 65  79 22 29 2d 32 29 20 8b  |ode$," ey")-2) .|
00000ad0  20 65 79 25 3d 31 0d 03  20 22 f4 20 70 75 74 20  | ey%=1.. ". put |
00000ae0  74 6f 67 65 74 68 65 72  20 6d 6f 64 65 20 62 6c  |together mode bl|
00000af0  6f 63 6b 20 6e 6f 77 2e  0d 03 2a 0a 70 6f 73 25  |ock now...*.pos%|
00000b00  3d 30 0d 03 34 18 6d 6f  64 65 25 21 70 6f 73 25  |=0..4.mode%!pos%|
00000b10  3d 31 3a 70 6f 73 25 2b  3d 34 0d 03 3e 1c 6d 6f  |=1:pos%+=4..>.mo|
00000b20  64 65 25 21 70 6f 73 25  3d 78 70 69 78 25 3a 70  |de%!pos%=xpix%:p|
00000b30  6f 73 25 2b 3d 34 0d 03  48 1c 6d 6f 64 65 25 21  |os%+=4..H.mode%!|
00000b40  70 6f 73 25 3d 79 70 69  78 25 3a 70 6f 73 25 2b  |pos%=ypix%:pos%+|
00000b50  3d 34 0d 03 52 23 e7 20  63 6f 6c 6f 75 72 24 3d  |=4..R#. colour$=|
00000b60  22 63 32 22 20 84 20 63  6f 6c 6f 75 72 24 3d 22  |"c2" . colour$="|
00000b70  67 32 22 20 8c 0d 03 5c  18 6d 6f 64 65 25 21 70  |g2" ...\.mode%!p|
00000b80  6f 73 25 3d 30 3a 70 6f  73 25 2b 3d 34 0d 03 66  |os%=0:pos%+=4..f|
00000b90  21 6d 6f 64 65 25 21 70  6f 73 25 3d 66 72 61 6d  |!mode%!pos%=fram|
00000ba0  65 72 61 74 65 25 3a 70  6f 73 25 2b 3d 34 0d 03  |erate%:pos%+=4..|
00000bb0  70 18 6d 6f 64 65 25 21  70 6f 73 25 3d 35 3a 70  |p.mode%!pos%=5:p|
00000bc0  6f 73 25 2b 3d 34 0d 03  7a 1a 6d 6f 64 65 25 21  |os%+=4..z.mode%!|
00000bd0  70 6f 73 25 3d 65 79 25  3a 70 6f 73 25 2b 3d 34  |pos%=ey%:pos%+=4|
00000be0  0d 03 84 18 6d 6f 64 65  25 21 70 6f 73 25 3d 34  |....mode%!pos%=4|
00000bf0  3a 70 6f 73 25 2b 3d 34  0d 03 8e 1a 6d 6f 64 65  |:pos%+=4....mode|
00000c00  25 21 70 6f 73 25 3d 65  78 25 3a 70 6f 73 25 2b  |%!pos%=ex%:pos%+|
00000c10  3d 34 0d 03 98 05 cd 0d  03 a2 23 e7 20 63 6f 6c  |=4........#. col|
00000c20  6f 75 72 24 3d 22 63 34  22 20 84 20 63 6f 6c 6f  |our$="c4" . colo|
00000c30  75 72 24 3d 22 67 34 22  20 8c 0d 03 ac 18 6d 6f  |ur$="g4" .....mo|
00000c40  64 65 25 21 70 6f 73 25  3d 31 3a 70 6f 73 25 2b  |de%!pos%=1:pos%+|
00000c50  3d 34 0d 03 b6 21 6d 6f  64 65 25 21 70 6f 73 25  |=4...!mode%!pos%|
00000c60  3d 66 72 61 6d 65 72 61  74 65 25 3a 70 6f 73 25  |=framerate%:pos%|
00000c70  2b 3d 34 0d 03 c0 18 6d  6f 64 65 25 21 70 6f 73  |+=4....mode%!pos|
00000c80  25 3d 35 3a 70 6f 73 25  2b 3d 34 0d 03 ca 1a 6d  |%=5:pos%+=4....m|
00000c90  6f 64 65 25 21 70 6f 73  25 3d 65 79 25 3a 70 6f  |ode%!pos%=ey%:po|
00000ca0  73 25 2b 3d 34 0d 03 d4  18 6d 6f 64 65 25 21 70  |s%+=4....mode%!p|
00000cb0  6f 73 25 3d 34 3a 70 6f  73 25 2b 3d 34 0d 03 de  |os%=4:pos%+=4...|
00000cc0  1a 6d 6f 64 65 25 21 70  6f 73 25 3d 65 78 25 3a  |.mode%!pos%=ex%:|
00000cd0  70 6f 73 25 2b 3d 34 0d  03 e8 05 cd 0d 03 f2 15  |pos%+=4.........|
00000ce0  e7 20 63 6f 6c 6f 75 72  24 3d 22 63 31 36 22 20  |. colour$="c16" |
00000cf0  8c 0d 03 fc 18 6d 6f 64  65 25 21 70 6f 73 25 3d  |.....mode%!pos%=|
00000d00  32 3a 70 6f 73 25 2b 3d  34 0d 04 06 21 6d 6f 64  |2:pos%+=4...!mod|
00000d10  65 25 21 70 6f 73 25 3d  66 72 61 6d 65 72 61 74  |e%!pos%=framerat|
00000d20  65 25 3a 70 6f 73 25 2b  3d 34 0d 04 10 18 6d 6f  |e%:pos%+=4....mo|
00000d30  64 65 25 21 70 6f 73 25  3d 35 3a 70 6f 73 25 2b  |de%!pos%=5:pos%+|
00000d40  3d 34 0d 04 1a 1a 6d 6f  64 65 25 21 70 6f 73 25  |=4....mode%!pos%|
00000d50  3d 65 79 25 3a 70 6f 73  25 2b 3d 34 0d 04 24 18  |=ey%:pos%+=4..$.|
00000d60  6d 6f 64 65 25 21 70 6f  73 25 3d 34 3a 70 6f 73  |mode%!pos%=4:pos|
00000d70  25 2b 3d 34 0d 04 2e 1a  6d 6f 64 65 25 21 70 6f  |%+=4....mode%!po|
00000d80  73 25 3d 65 78 25 3a 70  6f 73 25 2b 3d 34 0d 04  |s%=ex%:pos%+=4..|
00000d90  38 05 cd 0d 04 42 15 e7  20 63 6f 6c 6f 75 72 24  |8....B.. colour$|
00000da0  3d 22 67 31 36 22 20 8c  0d 04 4c 18 6d 6f 64 65  |="g16" ...L.mode|
00000db0  25 21 70 6f 73 25 3d 32  3a 70 6f 73 25 2b 3d 34  |%!pos%=2:pos%+=4|
00000dc0  0d 04 56 21 6d 6f 64 65  25 21 70 6f 73 25 3d 66  |..V!mode%!pos%=f|
00000dd0  72 61 6d 65 72 61 74 65  25 3a 70 6f 73 25 2b 3d  |ramerate%:pos%+=|
00000de0  34 0d 04 60 18 6d 6f 64  65 25 21 70 6f 73 25 3d  |4..`.mode%!pos%=|
00000df0  35 3a 70 6f 73 25 2b 3d  34 0d 04 6a 1a 6d 6f 64  |5:pos%+=4..j.mod|
00000e00  65 25 21 70 6f 73 25 3d  65 79 25 3a 70 6f 73 25  |e%!pos%=ey%:pos%|
00000e10  2b 3d 34 0d 04 74 18 6d  6f 64 65 25 21 70 6f 73  |+=4..t.mode%!pos|
00000e20  25 3d 34 3a 70 6f 73 25  2b 3d 34 0d 04 7e 1a 6d  |%=4:pos%+=4..~.m|
00000e30  6f 64 65 25 21 70 6f 73  25 3d 65 78 25 3a 70 6f  |ode%!pos%=ex%:po|
00000e40  73 25 2b 3d 34 0d 04 88  05 cd 0d 04 92 16 e7 20  |s%+=4.......... |
00000e50  63 6f 6c 6f 75 72 24 3d  22 63 32 35 36 22 20 8c  |colour$="c256" .|
00000e60  0d 04 9c 18 6d 6f 64 65  25 21 70 6f 73 25 3d 33  |....mode%!pos%=3|
00000e70  3a 70 6f 73 25 2b 3d 34  0d 04 a6 21 6d 6f 64 65  |:pos%+=4...!mode|
00000e80  25 21 70 6f 73 25 3d 66  72 61 6d 65 72 61 74 65  |%!pos%=framerate|
00000e90  25 3a 70 6f 73 25 2b 3d  34 0d 04 b0 18 6d 6f 64  |%:pos%+=4....mod|
00000ea0  65 25 21 70 6f 73 25 3d  35 3a 70 6f 73 25 2b 3d  |e%!pos%=5:pos%+=|
00000eb0  34 0d 04 ba 1a 6d 6f 64  65 25 21 70 6f 73 25 3d  |4....mode%!pos%=|
00000ec0  65 79 25 3a 70 6f 73 25  2b 3d 34 0d 04 c4 18 6d  |ey%:pos%+=4....m|
00000ed0  6f 64 65 25 21 70 6f 73  25 3d 34 3a 70 6f 73 25  |ode%!pos%=4:pos%|
00000ee0  2b 3d 34 0d 04 ce 1a 6d  6f 64 65 25 21 70 6f 73  |+=4....mode%!pos|
00000ef0  25 3d 65 78 25 3a 70 6f  73 25 2b 3d 34 0d 04 d8  |%=ex%:pos%+=4...|
00000f00  05 cd 0d 04 e2 16 e7 20  63 6f 6c 6f 75 72 24 3d  |....... colour$=|
00000f10  22 67 32 35 36 22 20 8c  0d 04 ec 18 6d 6f 64 65  |"g256" .....mode|
00000f20  25 21 70 6f 73 25 3d 33  3a 70 6f 73 25 2b 3d 34  |%!pos%=3:pos%+=4|
00000f30  0d 04 f6 21 6d 6f 64 65  25 21 70 6f 73 25 3d 66  |...!mode%!pos%=f|
00000f40  72 61 6d 65 72 61 74 65  25 3a 70 6f 73 25 2b 3d  |ramerate%:pos%+=|
00000f50  34 0d 05 00 18 6d 6f 64  65 25 21 70 6f 73 25 3d  |4....mode%!pos%=|
00000f60  35 3a 70 6f 73 25 2b 3d  34 0d 05 0a 1a 6d 6f 64  |5:pos%+=4....mod|
00000f70  65 25 21 70 6f 73 25 3d  65 79 25 3a 70 6f 73 25  |e%!pos%=ey%:pos%|
00000f80  2b 3d 34 0d 05 14 18 6d  6f 64 65 25 21 70 6f 73  |+=4....mode%!pos|
00000f90  25 3d 34 3a 70 6f 73 25  2b 3d 34 0d 05 1e 1a 6d  |%=4:pos%+=4....m|
00000fa0  6f 64 65 25 21 70 6f 73  25 3d 65 78 25 3a 70 6f  |ode%!pos%=ex%:po|
00000fb0  73 25 2b 3d 34 0d 05 28  18 6d 6f 64 65 25 21 70  |s%+=4..(.mode%!p|
00000fc0  6f 73 25 3d 30 3a 70 6f  73 25 2b 3d 34 0d 05 32  |os%=0:pos%+=4..2|
00000fd0  1a 6d 6f 64 65 25 21 70  6f 73 25 3d 26 38 30 3a  |.mode%!pos%=&80:|
00000fe0  70 6f 73 25 2b 3d 34 0d  05 3c 18 6d 6f 64 65 25  |pos%+=4..<.mode%|
00000ff0  21 70 6f 73 25 3d 33 3a  70 6f 73 25 2b 3d 34 0d  |!pos%=3:pos%+=4.|
00001000  05 46 1a 6d 6f 64 65 25  21 70 6f 73 25 3d 26 46  |.F.mode%!pos%=&F|
00001010  46 3a 70 6f 73 25 2b 3d  34 0d 05 50 05 cd 0d 05  |F:pos%+=4..P....|
00001020  5a 16 e7 20 63 6f 6c 6f  75 72 24 3d 22 63 33 32  |Z.. colour$="c32|
00001030  6b 22 20 8c 0d 05 64 18  6d 6f 64 65 25 21 70 6f  |k" ...d.mode%!po|
00001040  73 25 3d 34 3a 70 6f 73  25 2b 3d 34 0d 05 6e 21  |s%=4:pos%+=4..n!|
00001050  6d 6f 64 65 25 21 70 6f  73 25 3d 66 72 61 6d 65  |mode%!pos%=frame|
00001060  72 61 74 65 25 3a 70 6f  73 25 2b 3d 34 0d 05 78  |rate%:pos%+=4..x|
00001070  18 6d 6f 64 65 25 21 70  6f 73 25 3d 35 3a 70 6f  |.mode%!pos%=5:po|
00001080  73 25 2b 3d 34 0d 05 82  1a 6d 6f 64 65 25 21 70  |s%+=4....mode%!p|
00001090  6f 73 25 3d 65 79 25 3a  70 6f 73 25 2b 3d 34 0d  |os%=ey%:pos%+=4.|
000010a0  05 8c 18 6d 6f 64 65 25  21 70 6f 73 25 3d 34 3a  |...mode%!pos%=4:|
000010b0  70 6f 73 25 2b 3d 34 0d  05 96 1a 6d 6f 64 65 25  |pos%+=4....mode%|
000010c0  21 70 6f 73 25 3d 65 78  25 3a 70 6f 73 25 2b 3d  |!pos%=ex%:pos%+=|
000010d0  34 0d 05 a0 05 cd 0d 05  aa 16 e7 20 63 6f 6c 6f  |4.......... colo|
000010e0  75 72 24 3d 22 63 31 36  6d 22 20 8c 0d 05 b4 18  |ur$="c16m" .....|
000010f0  6d 6f 64 65 25 21 70 6f  73 25 3d 35 3a 70 6f 73  |mode%!pos%=5:pos|
00001100  25 2b 3d 34 0d 05 be 21  6d 6f 64 65 25 21 70 6f  |%+=4...!mode%!po|
00001110  73 25 3d 66 72 61 6d 65  72 61 74 65 25 3a 70 6f  |s%=framerate%:po|
00001120  73 25 2b 3d 34 0d 05 c8  18 6d 6f 64 65 25 21 70  |s%+=4....mode%!p|
00001130  6f 73 25 3d 35 3a 70 6f  73 25 2b 3d 34 0d 05 d2  |os%=5:pos%+=4...|
00001140  1a 6d 6f 64 65 25 21 70  6f 73 25 3d 65 79 25 3a  |.mode%!pos%=ey%:|
00001150  70 6f 73 25 2b 3d 34 0d  05 dc 18 6d 6f 64 65 25  |pos%+=4....mode%|
00001160  21 70 6f 73 25 3d 34 3a  70 6f 73 25 2b 3d 34 0d  |!pos%=4:pos%+=4.|
00001170  05 e6 1a 6d 6f 64 65 25  21 70 6f 73 25 3d 65 78  |...mode%!pos%=ex|
00001180  25 3a 70 6f 73 25 2b 3d  34 0d 05 f0 05 cd 0d 05  |%:pos%+=4.......|
00001190  fa 11 6d 6f 64 65 25 21  70 6f 73 25 3d 2d 31 0d  |..mode%!pos%=-1.|
000011a0  06 04 0b eb 20 6d 6f 64  65 25 0d 06 0e 16 e7 20  |.... mode%..... |
000011b0  63 6f 6c 6f 75 72 24 3d  22 67 32 35 36 22 20 8c  |colour$="g256" .|
000011c0  0d 06 18 10 e3 20 63 25  3d 30 20 b8 20 32 35 35  |..... c%=0 . 255|
000011d0  0d 06 22 1e 70 61 6c 25  21 28 63 25 2a 34 29 3d  |..".pal%!(c%*4)=|
000011e0  a4 61 64 64 28 63 25 2c  63 25 2c 63 25 29 0d 06  |.add(c%,c%,c%)..|
000011f0  2c 05 ed 0d 06 36 29 c8  99 22 43 6f 6c 6f 75 72  |,....6).."Colour|
00001200  54 72 61 6e 73 5f 57 72  69 74 65 50 61 6c 65 74  |Trans_WritePalet|
00001210  74 65 22 2c 2d 31 2c 2c  70 61 6c 25 0d 06 40 05  |te",-1,,pal%..@.|
00001220  cd 0d 06 4a 15 e7 20 63  6f 6c 6f 75 72 24 3d 22  |...J.. colour$="|
00001230  67 31 36 22 20 8c 0d 06  54 1c 70 61 6c 25 21 30  |g16" ...T.pal%!0|
00001240  3d a4 61 64 64 28 26 46  46 2c 26 46 46 2c 26 46  |=.add(&FF,&FF,&F|
00001250  46 29 0d 06 5e 1c 70 61  6c 25 21 34 3d a4 61 64  |F)..^.pal%!4=.ad|
00001260  64 28 26 44 44 2c 26 44  44 2c 26 44 44 29 0d 06  |d(&DD,&DD,&DD)..|
00001270  68 1c 70 61 6c 25 21 38  3d a4 61 64 64 28 26 42  |h.pal%!8=.add(&B|
00001280  42 2c 26 42 42 2c 26 42  42 29 0d 06 72 1d 70 61  |B,&BB,&BB)..r.pa|
00001290  6c 25 21 31 32 3d a4 61  64 64 28 26 39 39 2c 26  |l%!12=.add(&99,&|
000012a0  39 39 2c 26 39 39 29 0d  06 7c 1d 70 61 6c 25 21  |99,&99)..|.pal%!|
000012b0  31 36 3d a4 61 64 64 28  26 37 37 2c 26 37 37 2c  |16=.add(&77,&77,|
000012c0  26 37 37 29 0d 06 86 1d  70 61 6c 25 21 32 30 3d  |&77)....pal%!20=|
000012d0  a4 61 64 64 28 26 35 35  2c 26 35 35 2c 26 35 35  |.add(&55,&55,&55|
000012e0  29 0d 06 90 1d 70 61 6c  25 21 32 34 3d a4 61 64  |)....pal%!24=.ad|
000012f0  64 28 26 33 33 2c 26 33  33 2c 26 33 33 29 0d 06  |d(&33,&33,&33)..|
00001300  9a 1d 70 61 6c 25 21 32  38 3d a4 61 64 64 28 26  |..pal%!28=.add(&|
00001310  30 30 2c 26 30 30 2c 26  30 30 29 0d 06 a4 1d 70  |00,&00,&00)....p|
00001320  61 6c 25 21 33 32 3d a4  61 64 64 28 26 31 30 2c  |al%!32=.add(&10,|
00001330  26 31 30 2c 26 31 30 29  0d 06 ae 1d 70 61 6c 25  |&10,&10)....pal%|
00001340  21 33 36 3d a4 61 64 64  28 26 43 30 2c 26 43 30  |!36=.add(&C0,&C0|
00001350  2c 26 43 30 29 0d 06 b8  1d 70 61 6c 25 21 34 30  |,&C0)....pal%!40|
00001360  3d a4 61 64 64 28 26 36  30 2c 26 36 30 2c 26 36  |=.add(&60,&60,&6|
00001370  30 29 0d 06 c2 1d 70 61  6c 25 21 34 34 3d a4 61  |0)....pal%!44=.a|
00001380  64 64 28 26 32 30 2c 26  32 30 2c 26 32 30 29 0d  |dd(&20,&20,&20).|
00001390  06 cc 1d 70 61 6c 25 21  34 38 3d a4 61 64 64 28  |...pal%!48=.add(|
000013a0  26 45 30 2c 26 45 30 2c  26 45 30 29 0d 06 d6 1d  |&E0,&E0,&E0)....|
000013b0  70 61 6c 25 21 35 32 3d  a4 61 64 64 28 26 34 30  |pal%!52=.add(&40|
000013c0  2c 26 34 30 2c 26 34 30  29 0d 06 e0 1d 70 61 6c  |,&40,&40)....pal|
000013d0  25 21 35 36 3d a4 61 64  64 28 26 41 30 2c 26 41  |%!56=.add(&A0,&A|
000013e0  30 2c 26 41 30 29 0d 06  ea 1d 70 61 6c 25 21 36  |0,&A0)....pal%!6|
000013f0  30 3d a4 61 64 64 28 26  38 30 2c 26 38 30 2c 26  |0=.add(&80,&80,&|
00001400  38 30 29 0d 06 f4 29 c8  99 22 43 6f 6c 6f 75 72  |80)...).."Colour|
00001410  54 72 61 6e 73 5f 57 72  69 74 65 50 61 6c 65 74  |Trans_WritePalet|
00001420  74 65 22 2c 2d 31 2c 2c  70 61 6c 25 0d 06 fe 05  |te",-1,,pal%....|
00001430  cd 0d 07 08 05 e1 0d 07  12 05 3a 0d 07 1c 13 dd  |..........:.....|
00001440  a4 61 64 64 28 72 25 2c  67 25 2c 62 25 29 0d 07  |.add(r%,g%,b%)..|
00001450  26 22 3d 28 62 25 3c 3c  32 34 29 20 84 20 28 67  |&"=(b%<<24) . (g|
00001460  25 3c 3c 31 36 29 20 84  20 28 72 25 3c 3c 38 29  |%<<16) . (r%<<8)|
00001470  0d 07 30 05 3a 0d ff                              |..0.:..|
00001477