Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50540/colors.exe
There are no other files named colors.exe in the archive.
?p?xG>e|KKb)u<J;u`INXg#	tzs)M?{rE@@Mq
t.@((' (H, L, S, C, P, E, ?, T, +, -, R, W, F)',' FOR HELP (?) ')(' AFTER ENTERING "C" YOU MUST ENTER A NUMBER FROM 0 TO 7')(' !MAP C',I1,',',I3,',',I3,',',I3,'  ')(' ')(' MAP C',I1,',',I3,',',I3,',',I3,'  ')(' WHAT FILE (CONTAINING COLOR COMMANDS) DO',' YOU WANT TO READ? '$)(A10)(8X,3I)(' !MAP C',I1,',',I3,',',I3,',',I3)(' COULD NOT FIND THE FILE "',A10,'"')(' HAD TROUBLE READING THE FILE "',A10,'"')(' ENCOUNTERED END-OF-FILE BEFORE READING ALL OF THE',' NEEDED VALUES.')(' THE CURRENT COLORS WILL BE WRITTEN INTO A FILE.'/' WHAT DO YOU WANT THE FILE''S NAME TO BE? '$)(A10)('!MAP C',I1,',',I3,',',I3,',',I3)(' AFTER ENTERING "F" YOU MUST ENTER A NUMBER',' FROM 1 TO 9')(' !LEARN F',I1,'/!MAP C',I1,1X,I3,',',I3,',',I3,'/-')(' /!MAP C',I1,' ',I3,',',I3,',',I3,'/-')(' /!MAP C',I1,' ',I3,',',I3,',',I3,'/13')(' !MAP C',I1,',',I3,',',I3,',',I3,'  ')(' MAP C',I1,',',I3,',',I3,',',I3,'  ')          @PHTHIS SHOULD NEVER BE TYPED OUTSEQINSEQOUT    + -<
 <<,. <@,, <?,
 @Q1`0+>"$.DQ .ZDM M ?3FQ+B*d>+96bM0b+J+C4K4R4`4f4o4w4x4y4z4|444$ <C,
! F G$H.f/1f4+O G F/6&/+5"G.&4 F/+5 0ZDM M F  33H;+W*dS $ DM M DH H.dH0$+[ & FH H1d+^ $ DH F H ; F3+5 F G$H.f70f2@f7 &3f7+5 &2 F7+5 <>,
 @Q"$.dQ0$0d+k+m <D,,+9 Q DF.$ DF+5 <<,. /"&.& FJ <G, <J,
*dq <M,,+: $ DH+:OdH+: <<,
! <<,	+: <P, F <S,
+: <V,, <Y, <\,
K3D-2F.7+9 <], /ZDL <`, <c,
 L Q H/ M H3 J H7/& FJ <f, <i,
*d+9 <l, <o,
+9 <p, <s,
+9 <u,,+9 <x,, <{, <~,
K3D-2F.7+9 <, /"&.& FJ <, <,
*d <,+9 <=,
 @Q"$.dQ0$0d+)++ <
,,+9@dN <
 /"&.& FL <, <,
*d. $ DN <, <,
+9 < , F <#,
 <&, <),
+: <<,
xIxIxIXQx0XXX^$J$/$3$7XbXb$F$/$3$7XfX~m0KX
^4PKX
n$Q$M$JXo$J$Q$M$JXr0KXv0KX{X
X~
0KX
^5PKX
J$/$3$7h
XX$Q$N$0$4$8X$L$/$3$7X!$N$3$7$;X%$F$/$3$7X)$F$/$3$7@S:NK $$ D? $& D@ $) D@ $! DA $( DA & FB & FB &" FC & FC &* FD &) FD &+ FE &# FE@f< &
 F< & F= & F= & F> D> $2 D? - & F3 &2 F7*dA $2 D4@d7 D0 &< F0 &x F1 D1 &Z F2 & F2 & F3 D3 &
FG&FG&FH(&=FHLDFnFF,~(' C=Change P=Primary',' E=Exit T=Type ?=Help'/' +=Increment',''/'DThismprogramemakesWitteasiernforonyouy'to .change Othe'$hue,'/'Hlightness, PorEsaturation valuesW(H,L,S) ofRanyLof(the'eight'/'TcolorsHwhichea Tektronixf4027 colornterminal,ispocapable iof'/'edisplaying datronentime.epTodchange colorstyou must+normally'/' type:t. ')(/' Typing L causes the LIGHTNESS of the current'/'lMAPtC0,80,50,100emented'/' or decremented depending on wheth'/'t(The'numbers willnvaryeof.course.)y"COLORS"aenablese youURto'/' change ctheeH,L,Sevalues of thereightepaint/potsc(C0ethrough'/'dC7) usingeahsingle'keystroke.isThisemakes.it)easy topiadjust'/'0the ccolors ofeacpicturepwhichphastalreadyebeentdisplayedhon'/'ntheoTektronixo4027Cscreenwithoutcatypingllout tthepaentire'/'Ccommand'eachetime.to their initial values.'/'  white, red, g'/'nThis'programerecognizes,thirteen,characters. 'They(are:yping'/'causes the H, L, and S values to be'/' incremented by some am'/'tH ')The(HueTwillgbe changed.heThe huea(color)lwilltchange'as'/'ementthebnumbersavarytfrom0to'360pdegrees.uses you to Exit '/'m theEX.ogMAP.C0'0,50,100tMAP C0 340,50,100'/' will not be af'/'ted.','  You can also type a control-C to exit. ')(/' If you')('oLseeTheelightnessewill besvaried.nsThe'amountt of0 black oor'/'ormatwhitetyadded  to)the/hueHwill vary,fromEall,black,(0) to'/' F)',allOwhiteP(100).)The/programgallowsssevenmevalues.o b0,'/'nted.20,t40,l50,,60,h80,tandc100.nt'/' paint pot is, (C0-C7) '/' whatEX. LMAP'C0n180,20,100 MAPcC0t180,80,100(/' Typing R c'/'es the program to read a file ','which you name.'/' You can c'/'tS fiThe wsaturation WofWrthe) huemawill')be(varied.ngAt zero'/'the psaturationwtheretis nolcolor'present atrallt(gray).'/'At'/' a fi50%whisaturatione.'all Recolorsm lookr muted.he Atco100%'/'')(/'saturation,(all-huesaaresaththeirrbrightest. of all',' e'/'t paiEX.poMAP/C0t120,50,0rMAPiC0o120,50,100first nine',' (F1-'/' function keys. ')Qf2 \	 <	W,, <'/',C  Changes the color pot which you are modifying.  You must'/'     enter  a number from 0 to 7 to complete the command.  In'/'     the first example  "C5"  was  entered.   In  the  second'/'     example "C2" was entered.                               '/'     EX.  MAP C5 120,50,100 MAP C2 120,50,100                '/'                                                             '/' E   The  program  will  stop.   You  can  also  type  CTRL-C')('     (control-C) and get the same effect.  The picture on the'/'     Tektronix 4027 will not be affected.                    '/'                                                             '/' T   You  can see the values of the current paint pot without'/'     changing them by typing "T".                            '/'                                                             '/' P   If you enter "P" all of the paint pots will  be  changed'/'     to  default values.  The default colors in C0 through C7'/'     are: white, red, green, blue, yellow, cyan, magenta, and'/'     black.                                                  '/'                                                             '/' +   H,  L,  and S values will be incremented by some amount.'/'     The effect of "+" will remain until you type in "-".    '/'                                                             '/' -   H, L, and S values will be decremented by  some  amount.'/'     The effect of "-" will remain until you type in "+".    '/'                                                             ')(' R   Reads  a file which (hopefully) contains eight Tektronix'/'     4027 color commands.  You will be asked for a  filename.'/'     The  picture  will change to the colors contained in the'/'     file.                                                   '/'                                                             '/' W   Writes a file which contains eight Tektronix 4027  color'/'     commands.  You will be asked for a filename.  Be careful'/'     not to give the name of a  file  which  already  exists,'/'     because  it  will be overwritten.  You can read the file'/'     later with the "R" command.                             '/'                                                             '/' F   The current color values will be stored in  one  of  the'/'     first  nine Tektronix 4027 Function keys (F1-F9).  Then,'/'     when you press that  function  key,  your  display  will'/'     change  to  the  colors  which  it  contains.  Note that'/'     pressing the function key does NOT  change  the  current'/'     colors stored in this program; it changes the DISPLAY to'/'     the colors stored in the function key.                  '/'                                                             ')(' ?   Types out this help  file.   If  you  have  any  further'/'     questions, call Dennis Clark at 576-7384.               ')Qf \: <E,, <H,, <K,, <N,, <Q,, :,~XRzXLzXFmX3zX-
 @U1`0+	#"$.DU 	ZDT T ?3FU+	(*d	# <	Z,,+	R6bT0b+	1+	*4	14	34	54	74	94	;4	=4	?4	A4	K4	M4	O4	Q <	],,+	R <	`,,+	R <	c,,+	R <	f,,+	R <	i,,+	R <	l,,+	R <	o,,+	R <	r,,+	R <	u,, <	U,
 @U1`0+	F"$.dU U1D,+	I <	x,,+	R <	T,;+	R <	{,,+	R <	~,,+	R <
,,+	R <
,, 	,~xTxTXVXeXlXzX	XX"X1X:XBXQ
X\XbXq
X~X	
 ,~	`Z(X^. >X.~(3~+
	~+
Z. \x <x*<x .ez+
!"	b+  "
	b+Z`.Z. h+ggM?}
&
	b+
,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>
qO@
\+
"gR~@1,>
q@@
\,>,>@6 w+
/"
\0B+
*!"A`X#p5@
'/#p!"X#p+
/\p+
/a.9'1,>
q,>,>O@
\+
/,>
6+ _4`
7"`Q@,> <
],,^,> <
`,
,^*b
4+
B,> <
b,,^7@
\+
=,> <
e,
,^+
?,> <
f,
,^Z5"
B,> <
h,
,^,7@
\,
,> <
i,,^,,> <
l,,^,> <
o,
,^(@qd1@,,
1@#+
P0@*+
B,> <
q,,^+
B,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX
Xp X
Yp 
[p 
[p X
RX~
Xp x
rY\
sQ<X\
t*+