� CHAMELION PALLETTE SETUP
� By Mike Cook
&� Beeb Body Building Course Feb 90
(� 7
2� R(15),G(15),B(15),M% 18
<� RT(7),GT(7),BT(7)
FP%=&FE60
P?&FE62=&FF
Z?&FE6C=&AE
dSCOL=M%
n	P%=M%
x[
�	OPT 0
�
STA &FE60
�
STX &FE60
�
STY &FE60
�LDA #&E0
�
STA &FE60
�RTS
�]
�C=0
�
� A=0 � 7
�� A � 1 � R(A)=15 � R(A)=0
�� A � 2 � G(A)=15 � G(A)=0
�� A � 4 � B(A)=15 � B(A)=0

�DCOL(A,R(A),G(A),B(A))

�DCOL(A+8,C,C,C)

R(A+8)=C:G(A+8)=C:B(A+8)=C

"	C=C+2

,�

6�

@+�"   CHAMELEON COLOUR PALETTE SELECTOR"

J�

T!�"Select a working colour by"

^�"   typing its number."

h�

r �"Add more Red Green & Blue"

|�"by hitting R G B Keys"

�"�"Hold down shift to subtract"

��

�$�"S - Will alter the saturation"

�$�"V - Will alter the brightness"

��"H - Will alter the hue"

��

�0�"E - To exchange main & alternate palettes"

�/�"I - Will interpolate between two colours"

�!�"L - To load a palette file"

�"�"W - To write a palette file"

��

��"CTRL Q - To Quit"

��
 �"PRESS ANY KEY TO CONTINUE"
N=�
�2
&� �0,15)
0
� A=1 � 7
:
� A:� 0,A
D� "COLOUR NUMBER ";A
N�
X� 177*(A-1),1023
b� 0,0,-200
l� 81,177,0
v
� 0,0,200
�� 81,-177,0
��
� � �0,7);" 1  2  3 4  5  6 7"
�N=1
�#� �0,10);"WORKING COLOUR No.";N
��
��
��"RED   =";R(N);" "
��"GREEN =";G(N);" "
��"BLUE  =";B(N);" "
�C$=�
�� �(-1) � INC=-1 � INC=1
�?� C$="R" � R(N)=R(N)+INC:� R(N)<0 � R(N)>15 � R(N)=R(N)-INC
?� C$="G" � G(N)=G(N)+INC:� G(N)<0 � G(N)>15 � G(N)=G(N)-INC
?� C$="B" � B(N)=B(N)+INC:� B(N)<0 � B(N)>15 � B(N)=B(N)-INC
� C$="E" � �PSWAP
 � C$="I" � �INTERP
*$� C$="H" � �HVAL(R(N),G(N),B(N))
4$� C$="V" � �VVAL(R(N),G(N),B(N))
>$� C$="S" � �SVAL(R(N),G(N),B(N))
H� C$="W" � �FILE(1)
R� C$="L" � �FILE(0)
\� C$=�(17) � � 7:�
f�DCOL(N,R(N),G(N),B(N))
p
� �0,12);
z� �(C$)<&3A
�N=�(C$) � 7
� � �thB
���DCOL(CN%,R%,G%,B%)
�?&FE60=&E0+CN%
�A%=R% � 15
�X%=(G% � 15)+64
�Y%=(B% � 15)+128
�	*FX19
�
� SCOL
��
�� �PSWAP
�� TEMP%
�
� A=0 � 7
'TEMP%=R(A):R(A)=R(A+8):R(A+8)=TEMP%
'TEMP%=G(A):G(A)=G(A+8):G(A+8)=TEMP%
'TEMP%=B(A):B(A)=B(A+8):B(A+8)=TEMP%
$�
.� A=0 � 15
8�DCOL(A,R(A),G(A),B(A))
B�
L�
V
� �INTERP
`
� A=0 � 7
jRT(A)=R(A)
tGT(A)=G(A)
~BT(A)=B(A)
��
�� �0,10);�120," ")
�"� �0,10);"INTERPOLATE BETWEEN"
��
�� "   COLOUR";
�S%=� � 7
�� " ";S%
�� "TO COLOUR";
�F%=� � 7
�� " ";F%
�� S%>F% � T%=S%:S%=F%:F%=T%
�DIS%=F%-S%
� DIS%<1 � �ttE

RI=(R(F%)-R(S%))/DIS%
GI=(G(F%)-G(S%))/DIS%
BI=(B(F%)-B(S%))/DIS%
(!AGR=R(S%):AGG=G(S%):AGB=B(S%)
2� A=S%+1 � F%-1
<AGR=AGR+RI
FRT(A)=�(AGR)
PAGG=AGG+GI
ZGT(A)=�(AGG)
dAGB=AGB+BI
nBT(A)=�(AGB)
x�DCOL(A,RT(A),GT(A),BT(A))
��
��"KEEP/REJECT (K/R)";
�C$=�
�� C$="R" � �dRE
�� C$="K" � �ttE � �tVE
�
� A=0 � 7
�$R(A)=RT(A):G(A)=GT(A):B(A)=BT(A)
��
�
� A=0 � 7
��DCOL(A,R(A),G(A),B(A))
��
�� �0,10);�120," ")
�C$=�(N)
�
� �HVAL(RI,GI,BI)
�RGB_HSV(RI,GI,BI)
"H=H+INC*60
,� H<0 � H=0
6� H>430 � H=180:S=1/15
@� H>360 � H=H-360
J�HVS_RGB
T&� CERR=0 � R(N)=RI:G(N)=GI:B(N)=BI
^�
h� �VVAL(RI,GI,BI)
r�RGB_HSV(RI,GI,BI)
|V=V+(INC/15)
�� V>1 � V=1
�� V<0 � V=0
��HVS_RGB
�&� CERR=0 � R(N)=RI:G(N)=GI:B(N)=BI
��
�� �SVAL(RI,GI,BI)
��RGB_HSV(RI,GI,BI)
�S=S+(INC/15)
�� S>1 � S=1
�� S<0 � S=0
�� S<>0 � H>400 � H=180
��HVS_RGB
�&� CERR=0 � R(N)=RI:G(N)=GI:B(N)=BI
�
� �RGB_HSV(RI,GI,BI)
RI=RI/15:GI=GI/15:BI=BI/15
&
MAX=RI
0� RI<GI � MAX=GI
:� MAX<BI � MAX=BI
D
MIN=RI
N� MIN>GI � MIN=GI
X� MIN>BI � MIN=BI
b� MAX=0 � S=0:V=0:� �tJG
l	V=MAX
vS=(MAX-MIN)/MAX
�� MAX=MIN � S=0
�� S=0 � H=999:� �ddG
�RC=(MAX-RI)/(MAX-MIN)
�GC=(MAX-GI)/(MAX-MIN)
�BC=(MAX-BI)/(MAX-MIN)
�� RI=MAX � H=BC-GC
�� GI=MAX � H=2+RC-BC
�� BI=MAX � H=4+GC-RC
�
H=H*60
�� H<0 � H=H+360
��
�
��HVS_RGB
� � I,F,P,Q

CERR=0
"� H>400 � RI=V:GI=V:BI=V:�tbH
� S=0 � H<361 � CERR=1:�
 � H=360 � H=0
*
H=H/60
4
I=�(H)
>	F=H-I
H
P=V*(1-S)
RQ=V*(1-(S*F))
\T=V*(1-(S*(1-F)))
f� I=0 � RI=V:GI=T:BI=P
p� I=1 � RI=Q:GI=V:BI=P
z� I=2 � RI=P:GI=V:BI=T
�� I=3 � RI=P:GI=Q:BI=V
�� I=4 � RI=T:GI=P:BI=V
�� I=5 � RI=V:GI=P:BI=Q
�0RI=�(RI*15+.5):GI=�(GI*15+.5):BI=�(BI*15+.5)
��
�� �FILE(D%)
�� �0,10);�120," ")
�� �0,10);"FILE NAME";
�(� D%=0 � �" TO READ" � � " TO WRITE"
�� "TYPE Q TO QUIT"
�� C$
�� C$="Q" � �TxI
�� D%=0 � P%=� C$ � P%=� C$
	� A=0 � 15
	6� D%=0 � �#P%,R(A),G(A),B(A) � �#P%,R(A),G(A),B(A)
	$� D%=0 � �DCOL(A,R(A),G(A),B(A))
	$�
	.�#P%
	8 C$=�(N+&30)
	B� �0,10);�120," ")
	L�
�

00000000  0d 00 0a 1e f4 20 43 48  41 4d 45 4c 49 4f 4e 20  |..... CHAMELION |
00000010  50 41 4c 4c 45 54 54 45  20 53 45 54 55 50 0d 00  |PALLETTE SETUP..|
00000020  14 12 f4 20 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |... By Mike Cook|
00000030  0d 00 1e 26 f4 20 42 65  65 62 20 42 6f 64 79 20  |...&. Beeb Body |
00000040  42 75 69 6c 64 69 6e 67  20 43 6f 75 72 73 65 20  |Building Course |
00000050  46 65 62 20 39 30 0d 00  28 07 eb 20 37 0d 00 32  |Feb 90..(.. 7..2|
00000060  1d de 20 52 28 31 35 29  2c 47 28 31 35 29 2c 42  |.. R(15),G(15),B|
00000070  28 31 35 29 2c 4d 25 20  31 38 0d 00 3c 17 de 20  |(15),M% 18..<.. |
00000080  52 54 28 37 29 2c 47 54  28 37 29 2c 42 54 28 37  |RT(7),GT(7),BT(7|
00000090  29 0d 00 46 0c 50 25 3d  26 46 45 36 30 0d 00 50  |)..F.P%=&FE60..P|
000000a0  0e 3f 26 46 45 36 32 3d  26 46 46 0d 00 5a 0e 3f  |.?&FE62=&FF..Z.?|
000000b0  26 46 45 36 43 3d 26 41  45 0d 00 64 0b 53 43 4f  |&FE6C=&AE..d.SCO|
000000c0  4c 3d 4d 25 0d 00 6e 09  50 25 3d 4d 25 0d 00 78  |L=M%..n.P%=M%..x|
000000d0  05 5b 0d 00 82 09 4f 50  54 20 30 0d 00 8c 0d 53  |.[....OPT 0....S|
000000e0  54 41 20 26 46 45 36 30  0d 00 96 0d 53 54 58 20  |TA &FE60....STX |
000000f0  26 46 45 36 30 0d 00 a0  0d 53 54 59 20 26 46 45  |&FE60....STY &FE|
00000100  36 30 0d 00 aa 0c 4c 44  41 20 23 26 45 30 0d 00  |60....LDA #&E0..|
00000110  b4 0d 53 54 41 20 26 46  45 36 30 0d 00 be 07 52  |..STA &FE60....R|
00000120  54 53 0d 00 c8 05 5d 0d  00 d2 07 43 3d 30 0d 00  |TS....]....C=0..|
00000130  dc 0d e3 20 41 3d 30 20  b8 20 37 0d 00 e6 1e e7  |... A=0 . 7.....|
00000140  20 41 20 80 20 31 20 8c  20 52 28 41 29 3d 31 35  | A . 1 . R(A)=15|
00000150  20 8b 20 52 28 41 29 3d  30 0d 00 f0 1e e7 20 41  | . R(A)=0..... A|
00000160  20 80 20 32 20 8c 20 47  28 41 29 3d 31 35 20 8b  | . 2 . G(A)=15 .|
00000170  20 47 28 41 29 3d 30 0d  00 fa 1e e7 20 41 20 80  | G(A)=0..... A .|
00000180  20 34 20 8c 20 42 28 41  29 3d 31 35 20 8b 20 42  | 4 . B(A)=15 . B|
00000190  28 41 29 3d 30 0d 01 04  1b f2 44 43 4f 4c 28 41  |(A)=0.....DCOL(A|
000001a0  2c 52 28 41 29 2c 47 28  41 29 2c 42 28 41 29 29  |,R(A),G(A),B(A))|
000001b0  0d 01 0e 14 f2 44 43 4f  4c 28 41 2b 38 2c 43 2c  |.....DCOL(A+8,C,|
000001c0  43 2c 43 29 0d 01 18 1e  52 28 41 2b 38 29 3d 43  |C,C)....R(A+8)=C|
000001d0  3a 47 28 41 2b 38 29 3d  43 3a 42 28 41 2b 38 29  |:G(A+8)=C:B(A+8)|
000001e0  3d 43 0d 01 22 09 43 3d  43 2b 32 0d 01 2c 05 ed  |=C..".C=C+2..,..|
000001f0  0d 01 36 05 db 0d 01 40  2b f1 22 20 20 20 43 48  |..6....@+."   CH|
00000200  41 4d 45 4c 45 4f 4e 20  43 4f 4c 4f 55 52 20 50  |AMELEON COLOUR P|
00000210  41 4c 45 54 54 45 20 53  45 4c 45 43 54 4f 52 22  |ALETTE SELECTOR"|
00000220  0d 01 4a 05 f1 0d 01 54  21 f1 22 53 65 6c 65 63  |..J....T!."Selec|
00000230  74 20 61 20 77 6f 72 6b  69 6e 67 20 63 6f 6c 6f  |t a working colo|
00000240  75 72 20 62 79 22 0d 01  5e 1c f1 22 20 20 20 74  |ur by"..^.."   t|
00000250  79 70 69 6e 67 20 69 74  73 20 6e 75 6d 62 65 72  |yping its number|
00000260  2e 22 0d 01 68 05 f1 0d  01 72 20 f1 22 41 64 64  |."..h....r ."Add|
00000270  20 6d 6f 72 65 20 52 65  64 20 47 72 65 65 6e 20  | more Red Green |
00000280  26 20 42 6c 75 65 22 0d  01 7c 1c f1 22 62 79 20  |& Blue"..|.."by |
00000290  68 69 74 74 69 6e 67 20  52 20 47 20 42 20 4b 65  |hitting R G B Ke|
000002a0  79 73 22 0d 01 86 22 f1  22 48 6f 6c 64 20 64 6f  |ys"..."."Hold do|
000002b0  77 6e 20 73 68 69 66 74  20 74 6f 20 73 75 62 74  |wn shift to subt|
000002c0  72 61 63 74 22 0d 01 90  05 f1 0d 01 9a 24 f1 22  |ract"........$."|
000002d0  53 20 2d 20 57 69 6c 6c  20 61 6c 74 65 72 20 74  |S - Will alter t|
000002e0  68 65 20 73 61 74 75 72  61 74 69 6f 6e 22 0d 01  |he saturation"..|
000002f0  a4 24 f1 22 56 20 2d 20  57 69 6c 6c 20 61 6c 74  |.$."V - Will alt|
00000300  65 72 20 74 68 65 20 62  72 69 67 68 74 6e 65 73  |er the brightnes|
00000310  73 22 0d 01 ae 1d f1 22  48 20 2d 20 57 69 6c 6c  |s"....."H - Will|
00000320  20 61 6c 74 65 72 20 74  68 65 20 68 75 65 22 0d  | alter the hue".|
00000330  01 b8 05 f1 0d 01 c2 30  f1 22 45 20 2d 20 54 6f  |.......0."E - To|
00000340  20 65 78 63 68 61 6e 67  65 20 6d 61 69 6e 20 26  | exchange main &|
00000350  20 61 6c 74 65 72 6e 61  74 65 20 70 61 6c 65 74  | alternate palet|
00000360  74 65 73 22 0d 01 cc 2f  f1 22 49 20 2d 20 57 69  |tes".../."I - Wi|
00000370  6c 6c 20 69 6e 74 65 72  70 6f 6c 61 74 65 20 62  |ll interpolate b|
00000380  65 74 77 65 65 6e 20 74  77 6f 20 63 6f 6c 6f 75  |etween two colou|
00000390  72 73 22 0d 01 d6 21 f1  22 4c 20 2d 20 54 6f 20  |rs"...!."L - To |
000003a0  6c 6f 61 64 20 61 20 70  61 6c 65 74 74 65 20 66  |load a palette f|
000003b0  69 6c 65 22 0d 01 e0 22  f1 22 57 20 2d 20 54 6f  |ile"..."."W - To|
000003c0  20 77 72 69 74 65 20 61  20 70 61 6c 65 74 74 65  | write a palette|
000003d0  20 66 69 6c 65 22 0d 01  ea 05 f1 0d 01 f4 17 f1  | file"..........|
000003e0  22 43 54 52 4c 20 51 20  2d 20 54 6f 20 51 75 69  |"CTRL Q - To Qui|
000003f0  74 22 0d 01 fe 05 f1 0d  02 08 20 f1 22 50 52 45  |t"........ ."PRE|
00000400  53 53 20 41 4e 59 20 4b  45 59 20 54 4f 20 43 4f  |SS ANY KEY TO CO|
00000410  4e 54 49 4e 55 45 22 0d  02 12 07 4e 3d a5 0d 02  |NTINUE"....N=...|
00000420  1c 06 eb 32 0d 02 26 0c  f1 20 8a 30 2c 31 35 29  |...2..&.. .0,15)|
00000430  0d 02 30 0d e3 20 41 3d  31 20 b8 20 37 0d 02 3a  |..0.. A=1 . 7..:|
00000440  0d fb 20 41 3a e6 20 30  2c 41 0d 02 44 18 f1 20  |.. A:. 0,A..D.. |
00000450  22 43 4f 4c 4f 55 52 20  4e 55 4d 42 45 52 20 22  |"COLOUR NUMBER "|
00000460  3b 41 0d 02 4e 05 f1 0d  02 58 14 ec 20 31 37 37  |;A..N....X.. 177|
00000470  2a 28 41 2d 31 29 2c 31  30 32 33 0d 02 62 0e f0  |*(A-1),1023..b..|
00000480  20 30 2c 30 2c 2d 32 30  30 0d 02 6c 0e f0 20 38  | 0,0,-200..l.. 8|
00000490  31 2c 31 37 37 2c 30 0d  02 76 0d f0 20 30 2c 30  |1,177,0..v.. 0,0|
000004a0  2c 32 30 30 0d 02 80 0f  f0 20 38 31 2c 2d 31 37  |,200..... 81,-17|
000004b0  37 2c 30 0d 02 8a 05 ed  0d 02 94 20 f1 20 8a 30  |7,0........ . .0|
000004c0  2c 37 29 3b 22 20 31 20  20 32 20 20 33 20 34 20  |,7);" 1  2  3 4 |
000004d0  20 35 20 20 36 20 37 22  0d 02 9e 07 4e 3d 31 0d  | 5  6 7"....N=1.|
000004e0  02 a8 23 f1 20 8a 30 2c  31 30 29 3b 22 57 4f 52  |..#. .0,10);"WOR|
000004f0  4b 49 4e 47 20 43 4f 4c  4f 55 52 20 4e 6f 2e 22  |KING COLOUR No."|
00000500  3b 4e 0d 02 b2 05 f1 0d  02 bc 05 f5 0d 02 c6 17  |;N..............|
00000510  f1 22 52 45 44 20 20 20  3d 22 3b 52 28 4e 29 3b  |."RED   =";R(N);|
00000520  22 20 22 0d 02 d0 17 f1  22 47 52 45 45 4e 20 3d  |" "....."GREEN =|
00000530  22 3b 47 28 4e 29 3b 22  20 22 0d 02 da 17 f1 22  |";G(N);" "....."|
00000540  42 4c 55 45 20 20 3d 22  3b 42 28 4e 29 3b 22 20  |BLUE  =";B(N);" |
00000550  22 0d 02 e4 08 43 24 3d  be 0d 02 ee 1c e7 20 a6  |"....C$=...... .|
00000560  28 2d 31 29 20 8c 20 49  4e 43 3d 2d 31 20 8b 20  |(-1) . INC=-1 . |
00000570  49 4e 43 3d 31 0d 02 f8  3f e7 20 43 24 3d 22 52  |INC=1...?. C$="R|
00000580  22 20 8c 20 52 28 4e 29  3d 52 28 4e 29 2b 49 4e  |" . R(N)=R(N)+IN|
00000590  43 3a e7 20 52 28 4e 29  3c 30 20 84 20 52 28 4e  |C:. R(N)<0 . R(N|
000005a0  29 3e 31 35 20 8c 20 52  28 4e 29 3d 52 28 4e 29  |)>15 . R(N)=R(N)|
000005b0  2d 49 4e 43 0d 03 02 3f  e7 20 43 24 3d 22 47 22  |-INC...?. C$="G"|
000005c0  20 8c 20 47 28 4e 29 3d  47 28 4e 29 2b 49 4e 43  | . G(N)=G(N)+INC|
000005d0  3a e7 20 47 28 4e 29 3c  30 20 84 20 47 28 4e 29  |:. G(N)<0 . G(N)|
000005e0  3e 31 35 20 8c 20 47 28  4e 29 3d 47 28 4e 29 2d  |>15 . G(N)=G(N)-|
000005f0  49 4e 43 0d 03 0c 3f e7  20 43 24 3d 22 42 22 20  |INC...?. C$="B" |
00000600  8c 20 42 28 4e 29 3d 42  28 4e 29 2b 49 4e 43 3a  |. B(N)=B(N)+INC:|
00000610  e7 20 42 28 4e 29 3c 30  20 84 20 42 28 4e 29 3e  |. B(N)<0 . B(N)>|
00000620  31 35 20 8c 20 42 28 4e  29 3d 42 28 4e 29 2d 49  |15 . B(N)=B(N)-I|
00000630  4e 43 0d 03 16 15 e7 20  43 24 3d 22 45 22 20 8c  |NC..... C$="E" .|
00000640  20 f2 50 53 57 41 50 0d  03 20 16 e7 20 43 24 3d  | .PSWAP.. .. C$=|
00000650  22 49 22 20 8c 20 f2 49  4e 54 45 52 50 0d 03 2a  |"I" . .INTERP..*|
00000660  24 e7 20 43 24 3d 22 48  22 20 8c 20 f2 48 56 41  |$. C$="H" . .HVA|
00000670  4c 28 52 28 4e 29 2c 47  28 4e 29 2c 42 28 4e 29  |L(R(N),G(N),B(N)|
00000680  29 0d 03 34 24 e7 20 43  24 3d 22 56 22 20 8c 20  |)..4$. C$="V" . |
00000690  f2 56 56 41 4c 28 52 28  4e 29 2c 47 28 4e 29 2c  |.VVAL(R(N),G(N),|
000006a0  42 28 4e 29 29 0d 03 3e  24 e7 20 43 24 3d 22 53  |B(N))..>$. C$="S|
000006b0  22 20 8c 20 f2 53 56 41  4c 28 52 28 4e 29 2c 47  |" . .SVAL(R(N),G|
000006c0  28 4e 29 2c 42 28 4e 29  29 0d 03 48 17 e7 20 43  |(N),B(N))..H.. C|
000006d0  24 3d 22 57 22 20 8c 20  f2 46 49 4c 45 28 31 29  |$="W" . .FILE(1)|
000006e0  0d 03 52 17 e7 20 43 24  3d 22 4c 22 20 8c 20 f2  |..R.. C$="L" . .|
000006f0  46 49 4c 45 28 30 29 0d  03 5c 16 e7 20 43 24 3d  |FILE(0)..\.. C$=|
00000700  bd 28 31 37 29 20 8c 20  eb 20 37 3a e0 0d 03 66  |.(17) . . 7:...f|
00000710  1b f2 44 43 4f 4c 28 4e  2c 52 28 4e 29 2c 47 28  |..DCOL(N,R(N),G(|
00000720  4e 29 2c 42 28 4e 29 29  0d 03 70 0d f1 20 8a 30  |N),B(N))..p.. .0|
00000730  2c 31 32 29 3b 0d 03 7a  0f fd 20 97 28 43 24 29  |,12);..z.. .(C$)|
00000740  3c 26 33 41 0d 03 84 0f  4e 3d 97 28 43 24 29 20  |<&3A....N=.(C$) |
00000750  80 20 37 0d 03 8e 0b 20  e5 20 8d 74 68 42 0d 03  |. 7.... . .thB..|
00000760  98 18 dd f2 44 43 4f 4c  28 43 4e 25 2c 52 25 2c  |....DCOL(CN%,R%,|
00000770  47 25 2c 42 25 29 0d 03  a2 12 3f 26 46 45 36 30  |G%,B%)....?&FE60|
00000780  3d 26 45 30 2b 43 4e 25  0d 03 ac 0e 41 25 3d 52  |=&E0+CN%....A%=R|
00000790  25 20 82 20 31 35 0d 03  b6 13 58 25 3d 28 47 25  |% . 15....X%=(G%|
000007a0  20 82 20 31 35 29 2b 36  34 0d 03 c0 14 59 25 3d  | . 15)+64....Y%=|
000007b0  28 42 25 20 82 20 31 35  29 2b 31 32 38 0d 03 ca  |(B% . 15)+128...|
000007c0  09 2a 46 58 31 39 0d 03  d4 0a d6 20 53 43 4f 4c  |.*FX19..... SCOL|
000007d0  0d 03 de 05 e1 0d 03 e8  0c dd 20 f2 50 53 57 41  |.......... .PSWA|
000007e0  50 0d 03 f2 0b ea 20 54  45 4d 50 25 0d 03 fc 0d  |P..... TEMP%....|
000007f0  e3 20 41 3d 30 20 b8 20  37 0d 04 06 27 54 45 4d  |. A=0 . 7...'TEM|
00000800  50 25 3d 52 28 41 29 3a  52 28 41 29 3d 52 28 41  |P%=R(A):R(A)=R(A|
00000810  2b 38 29 3a 52 28 41 2b  38 29 3d 54 45 4d 50 25  |+8):R(A+8)=TEMP%|
00000820  0d 04 10 27 54 45 4d 50  25 3d 47 28 41 29 3a 47  |...'TEMP%=G(A):G|
00000830  28 41 29 3d 47 28 41 2b  38 29 3a 47 28 41 2b 38  |(A)=G(A+8):G(A+8|
00000840  29 3d 54 45 4d 50 25 0d  04 1a 27 54 45 4d 50 25  |)=TEMP%...'TEMP%|
00000850  3d 42 28 41 29 3a 42 28  41 29 3d 42 28 41 2b 38  |=B(A):B(A)=B(A+8|
00000860  29 3a 42 28 41 2b 38 29  3d 54 45 4d 50 25 0d 04  |):B(A+8)=TEMP%..|
00000870  24 05 ed 0d 04 2e 0e e3  20 41 3d 30 20 b8 20 31  |$....... A=0 . 1|
00000880  35 0d 04 38 1b f2 44 43  4f 4c 28 41 2c 52 28 41  |5..8..DCOL(A,R(A|
00000890  29 2c 47 28 41 29 2c 42  28 41 29 29 0d 04 42 05  |),G(A),B(A))..B.|
000008a0  ed 0d 04 4c 05 e1 0d 04  56 0d dd 20 f2 49 4e 54  |...L....V.. .INT|
000008b0  45 52 50 0d 04 60 0d e3  20 41 3d 30 20 b8 20 37  |ERP..`.. A=0 . 7|
000008c0  0d 04 6a 0e 52 54 28 41  29 3d 52 28 41 29 0d 04  |..j.RT(A)=R(A)..|
000008d0  74 0e 47 54 28 41 29 3d  47 28 41 29 0d 04 7e 0e  |t.GT(A)=G(A)..~.|
000008e0  42 54 28 41 29 3d 42 28  41 29 0d 04 88 05 ed 0d  |BT(A)=B(A)......|
000008f0  04 92 16 f1 20 8a 30 2c  31 30 29 3b c4 31 32 30  |.... .0,10);.120|
00000900  2c 22 20 22 29 0d 04 9c  22 f1 20 8a 30 2c 31 30  |," ")...". .0,10|
00000910  29 3b 22 49 4e 54 45 52  50 4f 4c 41 54 45 20 42  |);"INTERPOLATE B|
00000920  45 54 57 45 45 4e 22 0d  04 a6 05 f1 0d 04 b0 12  |ETWEEN".........|
00000930  f1 20 22 20 20 20 43 4f  4c 4f 55 52 22 3b 0d 04  |. "   COLOUR";..|
00000940  ba 0c 53 25 3d a5 20 80  20 37 0d 04 c4 0c f1 20  |..S%=. . 7..... |
00000950  22 20 22 3b 53 25 0d 04  ce 12 f1 20 22 54 4f 20  |" ";S%..... "TO |
00000960  43 4f 4c 4f 55 52 22 3b  0d 04 d8 0c 46 25 3d a5  |COLOUR";....F%=.|
00000970  20 80 20 37 0d 04 e2 0c  f1 20 22 20 22 3b 46 25  | . 7..... " ";F%|
00000980  0d 04 ec 1f e7 20 53 25  3e 46 25 20 8c 20 54 25  |..... S%>F% . T%|
00000990  3d 53 25 3a 53 25 3d 46  25 3a 46 25 3d 54 25 0d  |=S%:S%=F%:F%=T%.|
000009a0  04 f6 0e 44 49 53 25 3d  46 25 2d 53 25 0d 05 00  |...DIS%=F%-S%...|
000009b0  13 e7 20 44 49 53 25 3c  31 20 8c 20 8d 74 74 45  |.. DIS%<1 . .ttE|
000009c0  0d 05 0a 19 52 49 3d 28  52 28 46 25 29 2d 52 28  |....RI=(R(F%)-R(|
000009d0  53 25 29 29 2f 44 49 53  25 0d 05 14 19 47 49 3d  |S%))/DIS%....GI=|
000009e0  28 47 28 46 25 29 2d 47  28 53 25 29 29 2f 44 49  |(G(F%)-G(S%))/DI|
000009f0  53 25 0d 05 1e 19 42 49  3d 28 42 28 46 25 29 2d  |S%....BI=(B(F%)-|
00000a00  42 28 53 25 29 29 2f 44  49 53 25 0d 05 28 21 41  |B(S%))/DIS%..(!A|
00000a10  47 52 3d 52 28 53 25 29  3a 41 47 47 3d 47 28 53  |GR=R(S%):AGG=G(S|
00000a20  25 29 3a 41 47 42 3d 42  28 53 25 29 0d 05 32 13  |%):AGB=B(S%)..2.|
00000a30  e3 20 41 3d 53 25 2b 31  20 b8 20 46 25 2d 31 0d  |. A=S%+1 . F%-1.|
00000a40  05 3c 0e 41 47 52 3d 41  47 52 2b 52 49 0d 05 46  |.<.AGR=AGR+RI..F|
00000a50  10 52 54 28 41 29 3d a8  28 41 47 52 29 0d 05 50  |.RT(A)=.(AGR)..P|
00000a60  0e 41 47 47 3d 41 47 47  2b 47 49 0d 05 5a 10 47  |.AGG=AGG+GI..Z.G|
00000a70  54 28 41 29 3d a8 28 41  47 47 29 0d 05 64 0e 41  |T(A)=.(AGG)..d.A|
00000a80  47 42 3d 41 47 42 2b 42  49 0d 05 6e 10 42 54 28  |GB=AGB+BI..n.BT(|
00000a90  41 29 3d a8 28 41 47 42  29 0d 05 78 1e f2 44 43  |A)=.(AGB)..x..DC|
00000aa0  4f 4c 28 41 2c 52 54 28  41 29 2c 47 54 28 41 29  |OL(A,RT(A),GT(A)|
00000ab0  2c 42 54 28 41 29 29 0d  05 82 05 ed 0d 05 8c 19  |,BT(A)).........|
00000ac0  f1 22 4b 45 45 50 2f 52  45 4a 45 43 54 20 28 4b  |."KEEP/REJECT (K|
00000ad0  2f 52 29 22 3b 0d 05 96  08 43 24 3d be 0d 05 a0  |/R)";....C$=....|
00000ae0  13 e7 20 43 24 3d 22 52  22 20 8c 20 8d 64 52 45  |.. C$="R" . .dRE|
00000af0  0d 05 aa 1a e7 20 43 24  3d 22 4b 22 20 8c 20 8d  |..... C$="K" . .|
00000b00  74 74 45 20 8b 20 8d 74  56 45 0d 05 b4 0d e3 20  |ttE . .tVE..... |
00000b10  41 3d 30 20 b8 20 37 0d  05 be 24 52 28 41 29 3d  |A=0 . 7...$R(A)=|
00000b20  52 54 28 41 29 3a 47 28  41 29 3d 47 54 28 41 29  |RT(A):G(A)=GT(A)|
00000b30  3a 42 28 41 29 3d 42 54  28 41 29 0d 05 c8 05 ed  |:B(A)=BT(A).....|
00000b40  0d 05 d2 0d e3 20 41 3d  30 20 b8 20 37 0d 05 dc  |..... A=0 . 7...|
00000b50  1b f2 44 43 4f 4c 28 41  2c 52 28 41 29 2c 47 28  |..DCOL(A,R(A),G(|
00000b60  41 29 2c 42 28 41 29 29  0d 05 e6 05 ed 0d 05 f0  |A),B(A))........|
00000b70  16 f1 20 8a 30 2c 31 30  29 3b c4 31 32 30 2c 22  |.. .0,10);.120,"|
00000b80  20 22 29 0d 05 fa 0b 43  24 3d bd 28 4e 29 0d 06  | ")....C$=.(N)..|
00000b90  04 05 e1 0d 06 0e 15 dd  20 f2 48 56 41 4c 28 52  |........ .HVAL(R|
00000ba0  49 2c 47 49 2c 42 49 29  0d 06 18 16 f2 52 47 42  |I,GI,BI).....RGB|
00000bb0  5f 48 53 56 28 52 49 2c  47 49 2c 42 49 29 0d 06  |_HSV(RI,GI,BI)..|
00000bc0  22 0e 48 3d 48 2b 49 4e  43 2a 36 30 0d 06 2c 0f  |".H=H+INC*60..,.|
00000bd0  e7 20 48 3c 30 20 8c 20  48 3d 30 0d 06 36 1a e7  |. H<0 . H=0..6..|
00000be0  20 48 3e 34 33 30 20 8c  20 48 3d 31 38 30 3a 53  | H>430 . H=180:S|
00000bf0  3d 31 2f 31 35 0d 06 40  15 e7 20 48 3e 33 36 30  |=1/15..@.. H>360|
00000c00  20 8c 20 48 3d 48 2d 33  36 30 0d 06 4a 0c f2 48  | . H=H-360..J..H|
00000c10  56 53 5f 52 47 42 0d 06  54 26 e7 20 43 45 52 52  |VS_RGB..T&. CERR|
00000c20  3d 30 20 8c 20 52 28 4e  29 3d 52 49 3a 47 28 4e  |=0 . R(N)=RI:G(N|
00000c30  29 3d 47 49 3a 42 28 4e  29 3d 42 49 0d 06 5e 05  |)=GI:B(N)=BI..^.|
00000c40  e1 0d 06 68 15 dd 20 f2  56 56 41 4c 28 52 49 2c  |...h.. .VVAL(RI,|
00000c50  47 49 2c 42 49 29 0d 06  72 16 f2 52 47 42 5f 48  |GI,BI)..r..RGB_H|
00000c60  53 56 28 52 49 2c 47 49  2c 42 49 29 0d 06 7c 10  |SV(RI,GI,BI)..|.|
00000c70  56 3d 56 2b 28 49 4e 43  2f 31 35 29 0d 06 86 0f  |V=V+(INC/15)....|
00000c80  e7 20 56 3e 31 20 8c 20  56 3d 31 0d 06 90 0f e7  |. V>1 . V=1.....|
00000c90  20 56 3c 30 20 8c 20 56  3d 30 0d 06 9a 0c f2 48  | V<0 . V=0.....H|
00000ca0  56 53 5f 52 47 42 0d 06  a4 26 e7 20 43 45 52 52  |VS_RGB...&. CERR|
00000cb0  3d 30 20 8c 20 52 28 4e  29 3d 52 49 3a 47 28 4e  |=0 . R(N)=RI:G(N|
00000cc0  29 3d 47 49 3a 42 28 4e  29 3d 42 49 0d 06 ae 05  |)=GI:B(N)=BI....|
00000cd0  e1 0d 06 b8 15 dd 20 f2  53 56 41 4c 28 52 49 2c  |...... .SVAL(RI,|
00000ce0  47 49 2c 42 49 29 0d 06  c2 16 f2 52 47 42 5f 48  |GI,BI).....RGB_H|
00000cf0  53 56 28 52 49 2c 47 49  2c 42 49 29 0d 06 cc 10  |SV(RI,GI,BI)....|
00000d00  53 3d 53 2b 28 49 4e 43  2f 31 35 29 0d 06 d6 0f  |S=S+(INC/15)....|
00000d10  e7 20 53 3e 31 20 8c 20  53 3d 31 0d 06 e0 0f e7  |. S>1 . S=1.....|
00000d20  20 53 3c 30 20 8c 20 53  3d 30 0d 06 ea 1a e7 20  | S<0 . S=0..... |
00000d30  53 3c 3e 30 20 80 20 48  3e 34 30 30 20 8c 20 48  |S<>0 . H>400 . H|
00000d40  3d 31 38 30 0d 06 f4 0c  f2 48 56 53 5f 52 47 42  |=180.....HVS_RGB|
00000d50  0d 06 fe 26 e7 20 43 45  52 52 3d 30 20 8c 20 52  |...&. CERR=0 . R|
00000d60  28 4e 29 3d 52 49 3a 47  28 4e 29 3d 47 49 3a 42  |(N)=RI:G(N)=GI:B|
00000d70  28 4e 29 3d 42 49 0d 07  08 05 e1 0d 07 12 18 dd  |(N)=BI..........|
00000d80  20 f2 52 47 42 5f 48 53  56 28 52 49 2c 47 49 2c  | .RGB_HSV(RI,GI,|
00000d90  42 49 29 0d 07 1c 1e 52  49 3d 52 49 2f 31 35 3a  |BI)....RI=RI/15:|
00000da0  47 49 3d 47 49 2f 31 35  3a 42 49 3d 42 49 2f 31  |GI=GI/15:BI=BI/1|
00000db0  35 0d 07 26 0a 4d 41 58  3d 52 49 0d 07 30 14 e7  |5..&.MAX=RI..0..|
00000dc0  20 52 49 3c 47 49 20 8c  20 4d 41 58 3d 47 49 0d  | RI<GI . MAX=GI.|
00000dd0  07 3a 15 e7 20 4d 41 58  3c 42 49 20 8c 20 4d 41  |.:.. MAX<BI . MA|
00000de0  58 3d 42 49 0d 07 44 0a  4d 49 4e 3d 52 49 0d 07  |X=BI..D.MIN=RI..|
00000df0  4e 15 e7 20 4d 49 4e 3e  47 49 20 8c 20 4d 49 4e  |N.. MIN>GI . MIN|
00000e00  3d 47 49 0d 07 58 15 e7  20 4d 49 4e 3e 42 49 20  |=GI..X.. MIN>BI |
00000e10  8c 20 4d 49 4e 3d 42 49  0d 07 62 1c e7 20 4d 41  |. MIN=BI..b.. MA|
00000e20  58 3d 30 20 8c 20 53 3d  30 3a 56 3d 30 3a e5 20  |X=0 . S=0:V=0:. |
00000e30  8d 74 4a 47 0d 07 6c 09  56 3d 4d 41 58 0d 07 76  |.tJG..l.V=MAX..v|
00000e40  13 53 3d 28 4d 41 58 2d  4d 49 4e 29 2f 4d 41 58  |.S=(MAX-MIN)/MAX|
00000e50  0d 07 80 13 e7 20 4d 41  58 3d 4d 49 4e 20 8c 20  |..... MAX=MIN . |
00000e60  53 3d 30 0d 07 8a 18 e7  20 53 3d 30 20 8c 20 48  |S=0..... S=0 . H|
00000e70  3d 39 39 39 3a e5 20 8d  64 64 47 0d 07 94 19 52  |=999:. .ddG....R|
00000e80  43 3d 28 4d 41 58 2d 52  49 29 2f 28 4d 41 58 2d  |C=(MAX-RI)/(MAX-|
00000e90  4d 49 4e 29 0d 07 9e 19  47 43 3d 28 4d 41 58 2d  |MIN)....GC=(MAX-|
00000ea0  47 49 29 2f 28 4d 41 58  2d 4d 49 4e 29 0d 07 a8  |GI)/(MAX-MIN)...|
00000eb0  19 42 43 3d 28 4d 41 58  2d 42 49 29 2f 28 4d 41  |.BC=(MAX-BI)/(MA|
00000ec0  58 2d 4d 49 4e 29 0d 07  b2 16 e7 20 52 49 3d 4d  |X-MIN)..... RI=M|
00000ed0  41 58 20 8c 20 48 3d 42  43 2d 47 43 0d 07 bc 18  |AX . H=BC-GC....|
00000ee0  e7 20 47 49 3d 4d 41 58  20 8c 20 48 3d 32 2b 52  |. GI=MAX . H=2+R|
00000ef0  43 2d 42 43 0d 07 c6 18  e7 20 42 49 3d 4d 41 58  |C-BC..... BI=MAX|
00000f00  20 8c 20 48 3d 34 2b 47  43 2d 52 43 0d 07 d0 0a  | . H=4+GC-RC....|
00000f10  48 3d 48 2a 36 30 0d 07  da 13 e7 20 48 3c 30 20  |H=H*60..... H<0 |
00000f20  8c 20 48 3d 48 2b 33 36  30 0d 07 e4 05 e1 0d 07  |. H=H+360.......|
00000f30  ee 0d dd f2 48 56 53 5f  52 47 42 0d 07 f8 0e 20  |....HVS_RGB.... |
00000f40  ea 20 49 2c 46 2c 50 2c  51 0d 08 02 0a 43 45 52  |. I,F,P,Q....CER|
00000f50  52 3d 30 0d 08 0c 22 e7  20 48 3e 34 30 30 20 8c  |R=0...". H>400 .|
00000f60  20 52 49 3d 56 3a 47 49  3d 56 3a 42 49 3d 56 3a  | RI=V:GI=V:BI=V:|
00000f70  e5 8d 74 62 48 0d 08 16  1c e7 20 53 3d 30 20 80  |..tbH..... S=0 .|
00000f80  20 48 3c 33 36 31 20 8c  20 43 45 52 52 3d 31 3a  | H<361 . CERR=1:|
00000f90  e1 0d 08 20 11 e7 20 48  3d 33 36 30 20 8c 20 48  |... .. H=360 . H|
00000fa0  3d 30 0d 08 2a 0a 48 3d  48 2f 36 30 0d 08 34 0a  |=0..*.H=H/60..4.|
00000fb0  49 3d a8 28 48 29 0d 08  3e 09 46 3d 48 2d 49 0d  |I=.(H)..>.F=H-I.|
00000fc0  08 48 0d 50 3d 56 2a 28  31 2d 53 29 0d 08 52 11  |.H.P=V*(1-S)..R.|
00000fd0  51 3d 56 2a 28 31 2d 28  53 2a 46 29 29 0d 08 5c  |Q=V*(1-(S*F))..\|
00000fe0  15 54 3d 56 2a 28 31 2d  28 53 2a 28 31 2d 46 29  |.T=V*(1-(S*(1-F)|
00000ff0  29 29 0d 08 66 1a e7 20  49 3d 30 20 8c 20 52 49  |))..f.. I=0 . RI|
00001000  3d 56 3a 47 49 3d 54 3a  42 49 3d 50 0d 08 70 1a  |=V:GI=T:BI=P..p.|
00001010  e7 20 49 3d 31 20 8c 20  52 49 3d 51 3a 47 49 3d  |. I=1 . RI=Q:GI=|
00001020  56 3a 42 49 3d 50 0d 08  7a 1a e7 20 49 3d 32 20  |V:BI=P..z.. I=2 |
00001030  8c 20 52 49 3d 50 3a 47  49 3d 56 3a 42 49 3d 54  |. RI=P:GI=V:BI=T|
00001040  0d 08 84 1a e7 20 49 3d  33 20 8c 20 52 49 3d 50  |..... I=3 . RI=P|
00001050  3a 47 49 3d 51 3a 42 49  3d 56 0d 08 8e 1a e7 20  |:GI=Q:BI=V..... |
00001060  49 3d 34 20 8c 20 52 49  3d 54 3a 47 49 3d 50 3a  |I=4 . RI=T:GI=P:|
00001070  42 49 3d 56 0d 08 98 1a  e7 20 49 3d 35 20 8c 20  |BI=V..... I=5 . |
00001080  52 49 3d 56 3a 47 49 3d  50 3a 42 49 3d 51 0d 08  |RI=V:GI=P:BI=Q..|
00001090  a2 30 52 49 3d a8 28 52  49 2a 31 35 2b 2e 35 29  |.0RI=.(RI*15+.5)|
000010a0  3a 47 49 3d a8 28 47 49  2a 31 35 2b 2e 35 29 3a  |:GI=.(GI*15+.5):|
000010b0  42 49 3d a8 28 42 49 2a  31 35 2b 2e 35 29 0d 08  |BI=.(BI*15+.5)..|
000010c0  ac 05 e1 0d 08 b6 0f dd  20 f2 46 49 4c 45 28 44  |........ .FILE(D|
000010d0  25 29 0d 08 c0 16 f1 20  8a 30 2c 31 30 29 3b c4  |%)..... .0,10);.|
000010e0  31 32 30 2c 22 20 22 29  0d 08 ca 19 f1 20 8a 30  |120," ")..... .0|
000010f0  2c 31 30 29 3b 22 46 49  4c 45 20 4e 41 4d 45 22  |,10);"FILE NAME"|
00001100  3b 0d 08 d4 28 e7 20 44  25 3d 30 20 8c 20 f1 22  |;...(. D%=0 . ."|
00001110  20 54 4f 20 52 45 41 44  22 20 8b 20 f1 20 22 20  | TO READ" . . " |
00001120  54 4f 20 57 52 49 54 45  22 0d 08 de 16 f1 20 22  |TO WRITE"..... "|
00001130  54 59 50 45 20 51 20 54  4f 20 51 55 49 54 22 0d  |TYPE Q TO QUIT".|
00001140  08 e8 08 e8 20 43 24 0d  08 f2 13 e7 20 43 24 3d  |.... C$..... C$=|
00001150  22 51 22 20 8c 20 8d 54  78 49 0d 08 fc 1e e7 20  |"Q" . .TxI..... |
00001160  44 25 3d 30 20 8c 20 50  25 3d 8e 20 43 24 20 8b  |D%=0 . P%=. C$ .|
00001170  20 50 25 3d ae 20 43 24  0d 09 06 0e e3 20 41 3d  | P%=. C$..... A=|
00001180  30 20 b8 20 31 35 0d 09  10 36 e7 20 44 25 3d 30  |0 . 15...6. D%=0|
00001190  20 8c 20 e8 23 50 25 2c  52 28 41 29 2c 47 28 41  | . .#P%,R(A),G(A|
000011a0  29 2c 42 28 41 29 20 8b  20 f1 23 50 25 2c 52 28  |),B(A) . .#P%,R(|
000011b0  41 29 2c 47 28 41 29 2c  42 28 41 29 0d 09 1a 24  |A),G(A),B(A)...$|
000011c0  e7 20 44 25 3d 30 20 8c  20 f2 44 43 4f 4c 28 41  |. D%=0 . .DCOL(A|
000011d0  2c 52 28 41 29 2c 47 28  41 29 2c 42 28 41 29 29  |,R(A),G(A),B(A))|
000011e0  0d 09 24 05 ed 0d 09 2e  08 d9 23 50 25 0d 09 38  |..$.......#P%..8|
000011f0  10 20 43 24 3d bd 28 4e  2b 26 33 30 29 0d 09 42  |. C$=.(N+&30)..B|
00001200  16 f1 20 8a 30 2c 31 30  29 3b c4 31 32 30 2c 22  |.. .0,10);.120,"|
00001210  20 22 29 0d 09 4c 05 e1  0d ff                    | ")..L....|
0000121a