Path: csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!border4.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!news.bbs-scene.org!macgui.com!mmphosis From: mmphosis@macgui.com ( mmphosis) Newsgroups: comp.sys.apple2.programmer Subject: Re: applesoft basic : how to poke hires screen Date: Fri, 27 Apr 2012 23:08:52 +0000 (UTC) Organization: Mac GUI Lines: 23 Message-ID: References: <4f966e32$0$12520$ba4acef3@reader.news.orange.fr> NNTP-Posting-Host: gunshin.wiredns.net Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Trace: technocratmedia-w1.news.bbs-scene.org 1335568132 637 74.119.145.48 (27 Apr 2012 23:08:52 GMT) X-Complaints-To: abuse@bbs-scene.org NNTP-Posting-Date: Fri, 27 Apr 2012 23:08:52 +0000 (UTC) User-Agent: Mac GUI City Usenet Posting X-Received-Bytes: 1550 Xref: csiph.com comp.sys.apple2.programmer:282 An example of how to make the HGR2 screen orange, in Applesoft using POKE: 1 FOR I=B TO E:POKE I,C:I=I+U:POKE I,D:NEXT:IF B THEN TEXT:END 20 B = 16384:REMstart of HGR2 30 E = 24567:REM end of HGR2 40 C = 170 :REMorange byte0 50 D = 213 :REMorange byte1 60 U = 1 :REMone 100 REMhi-resolution 110 POKE -16297,0 120 REMfull screen 130 POKE -16302,0 140 REMsecond page 150 POKE -16299,0 160 REMgraphics 170 POKE -16304,0 180 GOTO 1 A faster way to make the HGR2 screen orange, in Applesoft without using POKE: HGR2:HCOLOR=5:HPLOT 0,0:CALL-3082:TEXT