[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Apple IIe power questions
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).