   L,€‚COLOUR UTILS (C) 1987 Hugh Haskell HÉ	ðÉðzh`˜HŠH±òÉð¢ÿˆèÈ½ÞÑòð÷Éþðhªh¨h` ]€Lì€ çÿ¢ÿè½	€ ãÿÐ÷ çÿ` ]€ çÿ¢ÿè½¯ ãÿÉÐõ çÿ ÿ¢©  ãÿÊÐúÈ¹À0 ãÿÐõª çÿàÿðH˜iÉÿð@¨ÐØ˜HŠHˆ„V¢ÿèÈ½À03±òÝÀðòÉ.Ð
Èè½ÀúLò€è½ÀúÉÿðŠiÉÿðª¤VL¸€hªh¨h`Éÿðö…Sè½À…Rè½À…Tè½À…Uè½À…Vð0n…Éð°©Œ ôÿ¥…X© …W¦Uà ð  ±R‘WÈÐùæXæSÊÐò¤T±R‘WˆÐù±R‘W¥V0Y©Š¢  O ôÿ L ôÿ D ôÿ  ôÿ R ôÿ U ôÿ N ôÿ  ôÿhhh© `è½À…Wè½À…X©`¤VÀÿÐ©L…Yè½À…Zè½À…[L) Y L|   Program List CHANGEà7   #€Init–<   #€ÿ Cþ 
ô CHAMELION PALLETTE SETUP ô By Mike Cook &ô Beeb Body Building Course Feb 90 (ë 7 2*FX 200,2 <
*DIR C F*K.0 "LSNAPPER|M|Q" PÞ R(15),G(15),B(15),M% 18 ZÞ RT(7),GT(7),BT(7) dP%=&FE60 n?&FE62=&FF x?&FE6C=&AE ‚SCOL=M% Œ	P%=M% –[  	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)6R(A+8)=C:G(A+8)=C:B(A+8)=C@	C=C+2JíTÛ^+ñ"   CHAMELEON COLOUR PALETTE SELECTOR"hñr!ñ"Select a working colour by"|ñ"   typing its number."†ñ ñ"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"ñ&€ñ"‚…Note For VAL, Press ANY KEY then the ‚…FIRSTRED KEY…ON THE LEFT MARKED f0. ‚…THEN FOLLOW No. 6 ON THE INSTRUCTIONS";0 ñ"PRESS ANY KEY TO CONTINUE":N=¥Dë2Nñ Š0,15)Xã A=1 ¸ 7bû A:æ 0,Alñ "COLOUR NUMBER ";Avñ€ì 177*(A-1),1023Šð 0,0,-200”ð 81,177,0žð 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4?ç C$="B" Œ B(N)=B(N)+INC:ç B(N)<0 „ B(N)>15 Œ B(N)=B(N)-INC>ç C$="E" Œ òPSWAPHç C$="I" Œ òINTERPR$ç C$="H" Œ òHVAL(R(N),G(N),B(N))\$ç C$="V" Œ òVVAL(R(N),G(N),B(N))f$ç C$="S" Œ òSVAL(R(N),G(N),B(N))pç C$="W" Œ òFILE(1)zç C$="L" Œ òFILE(0)„ç C$=½(17) Œ å D~IŽòDCOL(N,R(N),G(N),B(N))˜ñ Š0,12);¢ý —(C$)<&3A¬N=—(C$) € 7¶ å dPBÀÝò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%8'TEMP%=G(A):G(A)=G(A+8):G(A+8)=TEMP%B'TEMP%=B(A):B(A)=B(A+8):B(A+8)=TEMP%LíVã A=0 ¸ 15`òDCOL(A,R(A),G(A),B(A))jítá~Ý òINTERPˆã A=0 ¸ 7’RT(A)=R(A)œGT(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 Œ d\E2RI=(R(F%)-R(S%))/DIS%<GI=(G(F%)-G(S%))/DIS%FBI=(B(F%)-B(S%))/DIS%P!AGR=R(S%):AGG=G(S%):AGB=B(S%)Zã A=S%+1 ¸ F%-1dAGR=AGR+RInRT(A)=¨(AGR)xAGG=AGG+GI‚GT(A)=¨(AGG)ŒAGB=AGB+BI–BT(A)=¨(AGB) òDCOL(A,RT(A),GT(A),BT(A))ªí´ñ"KEEP/REJECT (K/R)";¾C$=¾Èç C$="R" Œ dzEÒç C$="K" Œ d\E ‹ t~EÜã 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),á6Ý òHVAL(RI,GI,BI)@òRGB_HSV(RI,GI,BI)JH=H+INC*60Tç H<0 Œ H=0^ç H>430 Œ H=180:S=1/15hç H>360 Œ H=H-360ròHVS_RGB|&ç CERR=0 Œ R(N)=RI:G(N)=GI:B(N)=BI†áÝ òVVAL(RI,GI,BI)šò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0á:Ý òRGB_HSV(RI,GI,BI)DRI=RI/15:GI=GI/15:BI=BI/15N
MAX=RIXç RI<GI Œ MAX=GIbç MAX<BI Œ MAX=BIl
MIN=RIvç MIN>GI Œ MIN=GI€ç MIN>BI Œ MIN=BIŠç MAX=0 Œ S=0:V=0:å trG”	V=MAXžS=(MAX-MIN)/MAX¨ç MAX=MIN Œ S=0²ç S=0 Œ H=999:å TLH¼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4"ç H>400 Œ RI=V:GI=V:BI=V:ådJH>ç S=0 € H<361 Œ CERR=1:áHç H=360 Œ H=0R
H=H/60\
I=¨(H)f	F=H-IpP=V*(1-S)zQ=V*(1-(S*F))„T=V*(1-(S*(1-F)))Žç I=0 Œ RI=V:GI=T:BI=P˜ç I=1 Œ RI=Q:GI=V:BI=P¢ç 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" Œ D`I	$ç D%=0 Œ P%=Ž C$ ‹ P%=® C$	.ã A=0 ¸ 15	86ç D%=0 Œ è#P%,R(A),G(A),B(A) ‹ ñ#P%,R(A),G(A),B(A)	B$ç D%=0 Œ òDCOL(A,R(A),G(A),B(A))	Lí	VÙ#P%	` C$=½(N+&30)	jñ Š0,10);Ä120," ")	tá	~[ë7:ñ''"‚‡Note ForˆVAL.‰Don't forget that PAC- ‚‡MAN is on Games Disc No.„‡TWELVE..."	ˆ£ñ"‡TO ADVOIDˆFLICKERING OF SCREEN‰YOU   ‡MUST REMOVE THE CABLE FROM OUT OF    ‡THE UNDERNEATH OF THE COMPUTER.      ƒ IT IS THE THIN ONE ON THE RIGHT."	’Pñ'''''"     PLEASE INSERT YOUR GAMES DISC                AND PRESS ANY KEY."	œG=¥	¦
*DIR $	°*EXEC !BOOTÿ 
î…ù *FX 200,2 Šñ"Chameleon Initialisation":ñ"Using Basic":ñ"By Mike Cook":?&FE62=&FF:?&FE60=&E0:?&FE6C=&AE:ñ:÷tj@:ãA=0¸15:óR,G,B:òPROGCOL(A,R,G,B):í ª Ü0,0,0,15,0,0,0,15,0,15,15,0 ´$Ü0,0,15,15,0,15,0,15,15,15,15,15 ¾ ÈÜ0,0,0,2,2,2,4,4,4,6,6,6 Ò%Ü8,8,8,10,10,10,12,12,12,14,14,14 Üñ"Done":åD@A ð0ÝòPROGCOL(CN%,R%,G%,B%):?&FE60=CN%+&E0:*FX19B?&FE60=R%‚15:?&FE60=(G%‚15)+64:?&FE60=(B%‚15)+128:?&FE60=&E0:á@/ë2:ãA=0¸7:ûA:ñŠ0,A);"COLOUR ";A:íA:*FX 15,1rõñ"PRESS ANY KEY.":G=¥:?&FE62=&FF:?&FE60=&C0:ñ"AND AGAIN.":G=¥:?&FE60=&E0:ë7:ñ''''"WOULD YOU LIKE TO :-":ñ'"1) USE COLOUR CHANGE PROGRAM":ñ'"2) CONTINUE WITH A DISC":ñ'"…‡           CHOOSE 1 OR 2":ñ"„‡Note For VAL. Press 1 To Continue..  "Â.õ:G$=¾:ýG$="1"„G$="2":çG$="1"Œ×"||.CHANGE"Ö>ñ'"INSERT GAMES DISC AND PRESS ANY KEY...":G=¥:*EXEC !BOOTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ