💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › MiscInfo › Misc › vid… captured on 2023-01-29 at 10:05:16.
-=-=-=-=-=-=-
Jeff Blakeney wrote: > > >Which brings up the argument of how many colors can the Apple display > >in hi-res mode? > > The most I've ever heard of is ten colours. It might be that the answer is hardware dependent, but my experience is: twelve. Back in my //e days, I experimented a bit with a colour TV. But mind you, it was a European Apple and a PAL TV. However, the program below works on a IIgs as well, and on Gus. It displays all twelve available colors. Line 5 is a safety catch in case you start with 80 columns. Line 15 is only for the benefit of IIgses: it changes the border color of the screen, so you can see that the HGR colors displayed are indeed the colors we want to display. The rest should be self evident... 5 PRINT CHR$ (21) 10 TEXT : POKE 34,20: FOR C = 0 TO 15: HGR : HOME : READ C1,C2,X 15 IF PEEK (65055) - 96 THEN POKE 49204,C 20 PRINT "Color "C;: IF X < 0 THEN PRINT " is unavailable";: GOTO 50 30 FOR X = X + 6 TO 273 STEP 14: HCOLOR= C1: HPLOT X,0 TO X,150 40 HCOLOR= C2: HPLOT X + 1,0 TO X + 1,150: NEXT 50 PRINT : PRINT : INPUT "Press return...";X$ 60 NEXT 1000 DATA 0,0,0 1001 DATA 0,0,-1 1002 DATA 7,0,0 1003 DATA 3,0,0 1004 DATA 0,0,-1 1005 DATA 0,0,-1 1006 DATA 7,4,0 1007 DATA 3,4,0 1008 DATA 7,0,7 1009 DATA 7,4,7 1010 DATA 0,0,-1 1011 DATA 7,3,7 1012 DATA 0,3,0 1013 DATA 3,4,7 1014 DATA 7,3,0 1015 DATA 3,3,0 -- Groetjes, Pim To send me e-mail, insert a t right before the dot. If you want to send spam, be sure to include your snail-mail address (he, he).