JK-?BANDACCBANDBANDBANDBANDCOLCOLCOLCOLPMBASRAMTOPVPOKEOHM@  * RESISTOR VALUE MODEL* BY Charles D. Moore&&* use the '1 2 3 4' keys to show(&&* different colors for each band2&&9@,;@7,;A,<$$* LOAD BAND COLORS IN TO ARRAYF(-@"$68,-( PSET INITIAL BAND COLORSZ##* OPEN THE KEYBOARD FOR INPUTd36-6-'6-36-@n##@@K:xDEFINE COLOR REGISTERS6-A6-A6-A6-A * BUILD STRING WITH COLORS A* DISABLE THE CURSORAR@ +@* DRAW THE RESISTOR A6-BBy6-A* ESTABLISH P/M AREA(6-F:,&@(6-AV$$$* SET P/M TO 2 LINE RESOLUTION'AY@F'B2w@"* SET P/M FIELD PRIORITY,A#@6* CLEAR P/M AREA@+-%A%A$'+ JSET PLAYER SIZEST/-@+B2V%/ ^ A hSET UP PLAYERSr6-@T|-%@"%A%%A@%%Ah%%A% SET HORIZONTAL POSITIONSB2H@B2IAB2PAB2QA#$ A $* SEE NOTE ON COLORSMAIN PROGRAM STARTS HERE A )@ * RING BUZZER ON WRONG KEY0 @I)!@R&(>:AS,0 A &6-&@H0''AAAA:* INCREMENT BAND COLORD6-%@ A N6-%@ A X6-%@ A b6-%@l A 0v* CLEAR WINDOW#(>:A%,#AR@$$* ASSIGN COLOR NAMES TO WINDOW467@,. %67@7,. 467@,.??67@<@ ,.7$@ %@<$@ %@ ,??67@<@,.7$@ %@<$@ %@ ,??67@<@',.7$@ %@<$@ %@ ,??67@(<@6,.7$@ %@<$@ %@ ,(READ BANDS%%2%%%@@AR@((Resistor value is 6-+$@,%!@ A0 6-$+@#,6-P:%?P, % A( % A`*5 C6-'A+( K ohms5 A`4.6-P:'C,$( Meg ohms. A`>'"@6-$?' APH6-$?R( \( Tolerance isf#"@( 5%.# A p( 10%.z//2+%%%,$@@@%%2 ATEST FOR BAND MAX!@ 6-!@ 6-!@6-!@6-@ @6-@* DISABLE BREAK KEY'@A'B7tA$SET BAND COLORS 8, 8, 8, 8,$$.DRAW RESISTOR80@@@B0@@ @L0@@ @V0@` @j-@@"t/,@ &@%//@`&@%~  @-@@"/,@&@%//@%@% 1 @,@@"1,@@#1 @,@"1/@@"',@#'/@@#',@a@"'/@y@"',@a@#'/@y@#$DEFINE COLOR STRING##* CLEAR STRING FOR COLOR NAME467@,. %67A,. 467@,. -@"3367$@ %@<$@ %B:,%@,.( 2$<++0,64,71,41,254,231,147,117,7,15,31,11F* COLORS FOR WINDOWP))BLACK,BROWN,RED,ORANGE,YELLOW,GREENZ((BLUE,VIOLET,GRAY,WHITE,GOLD,SILVERd2,1,0,0,0,0,1,2n0,1,2,2,2,2,1,0x* PLAYER DATA==252,126,126,126,63,63,63,63,63,63,63,63,126,126,126,252 D:RESISTOR