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

Re: applesoft basic : how to poke hires screen

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!xmission!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	Sun, 29 Apr 2012 01:35:29 +0000 (UTC)
Organization	Mac GUI
Lines	23
Message-ID	<mmphosis-1335663325@macgui.com> (permalink)
References	<4f966e32$0$12520$ba4acef3@reader.news.orange.fr> <mmphosis-1335568130@macgui.com> <2139877211357269825.977594mjmahon-aol.com@news.giganews.com>
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 1335663329 13079 74.119.145.48 (29 Apr 2012 01:35:29 GMT)
X-Complaints-To	abuse@bbs-scene.org
NNTP-Posting-Date	Sun, 29 Apr 2012 01:35:29 +0000 (UTC)
User-Agent	Mac GUI City Usenet Posting
Xref	csiph.com comp.sys.apple2.programmer:285

Show key headers only | View raw

Un exemple de comment faire l'écran bleu HGR, en utilisant Applesoft POKE:

1 FOR I=B TO E:POKE I,C:I=I+U:POKE I,D:NEXT:IF B THEN RETURN
20 B = 8192 :REMau debut de HGR
30 E = 24567:REMfin de HGR
40 C = 213  :REMbyte0 bleu
50 D = 170  :REMbyte1 bleu
60 U = 1    :REMun
100 REMhaute resolution
110 POKE 49293,0
120 REMen plein ecran
130 POKE 49234,0
140 REMla premiere page
150 POKE 49236,0
160 REMgraphique
170 POKE 49232,0
180 GOSUB 1
190 GET K$:TEXT

Une façon plus rapide de faire le bleu écran HGR, dans Applesoft sans
utiliser POKE:

HGR:POKE49234,0:HCOLOR=6:HPLOT 0,0:CALL-3082:WAIT49152,128:POKE49168,0: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