Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

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

Re: applesoft basic : how to poke hires screen

From "Bill Garber" <willy46pa@comcast.net>
Newsgroups comp.sys.apple2.programmer
References <4f966e32$0$12520$ba4acef3@reader.news.orange.fr> <mmphosis-1335568130@macgui.com> <2139877211357269825.977594mjmahon-aol.com@news.giganews.com> <mmphosis-1335663325@macgui.com>
Subject Re: applesoft basic : how to poke hires screen
Date 2012-04-28 23:58 -0400
Message-ID <SdOdnTsES47uIQHSnZ2dnUVZ8vudnZ2d@giganews.com> (permalink)

Show all headers | View raw

" mmphosis" <mmphosis@macgui.com> wrote in message news:mmphosis-1335663325@macgui.com...
> 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 

Or just change the color number in this line: 

HGR2:HCOLOR=6:HPLOT 0,0:CALL-3082 

SEPA Electronics 
http://www.sepa-electronics.com 
Bill Garber

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