Groups > comp.sys.apple2.programmer > #282

Re: applesoft basic : how to poke hires screen

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	<mmphosis-1335568130@macgui.com> (permalink)
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

Show key headers only | View raw

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

Back to comp.sys.apple2.programmer | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

applesoft basic : how to poke hires screen andré lozano <nws@provsoire.com> - 2012-04-24 11:11 +0200
  Re: applesoft basic : how to poke hires screen dempson@actrix.gen.nz (David Empson) - 2012-04-24 23:07 +1200
    Re: applesoft basic : how to poke hires screen andré lozano <nws@provsoire.com> - 2012-04-24 14:23 +0200
  Re: applesoft basic : how to poke hires screen mmphosis@macgui.com ( mmphosis) - 2012-04-27 23:08 +0000
    Re: applesoft basic : how to poke hires screen Michael J. Mahon <mjmahon@aol.com> - 2012-04-27 20:40 -0500
      Re: applesoft basic : how to poke hires screen mmphosis@macgui.com ( mmphosis) - 2012-04-29 01:35 +0000
        Re: applesoft basic : how to poke hires screen "Bill Garber" <willy46pa@comcast.net> - 2012-04-28 23:58 -0400
        Re: applesoft basic : how to poke hires screen andré lozano <nws@provsoire.com> - 2012-05-02 19:54 +0200
    Re: applesoft basic : how to poke hires screen mmphosis@macgui.com ( mmphosis) - 2012-05-01 23:20 +0000
  Re: applesoft basic : how to poke hires screen aiiadict@gmail.com - 2012-05-26 09:21 -0700
    Re: applesoft basic : how to poke hires screen aiiadict@gmail.com - 2012-05-26 09:25 -0700
      Re: applesoft basic : how to poke hires screen "Michael J. Mahon" <mjmahon@aol.com> - 2012-05-26 23:42 -0700

csiph-web