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

RAINBOW: a "floating bus" example

X-Received	by 10.236.228.106 with SMTP id e100mr43905614yhq.46.1420253751473; Fri, 02 Jan 2015 18:55:51 -0800 (PST)
X-Received	by 10.50.118.42 with SMTP id kj10mr17282igb.9.1420253751359; Fri, 02 Jan 2015 18:55:51 -0800 (PST)
Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!dc16no3752026qab.1!news-out.google.com!h6ni14007igv.0!nntp.google.com!h15no35206495igd.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups	comp.sys.apple2.programmer
Date	Fri, 2 Jan 2015 18:55:50 -0800 (PST)
In-Reply-To	<21d83758-2cfa-4e9c-949b-6af34faf4f1a@d6g2000pra.googlegroups.com>
Complaints-To	groups-abuse@google.com
Injection-Info	glegroupsg2000goo.googlegroups.com; posting-host=67.168.182.173; posting-account=9Dd-GgoAAAAjVgCPcBurQ6c4EXW6Wi8v
NNTP-Posting-Host	67.168.182.173
References	<21d83758-2cfa-4e9c-949b-6af34faf4f1a@d6g2000pra.googlegroups.com>
User-Agent	G2/1.0
MIME-Version	1.0
Message-ID	<8a054e8f-eebf-4132-b6ae-fa3450f59962@googlegroups.com> (permalink)
Subject	RAINBOW: a "floating bus" example
From	michael.pohoreski@gmail.com
Injection-Date	Sat, 03 Jan 2015 02:55:51 +0000
Content-Type	text/plain; charset=ISO-8859-1
Xref	csiph.com comp.sys.apple2.programmer:1462

Show key headers only | View raw

AppleWin 1.26 will display this correctly ...
http://imgur.com/iJZWfsD

I also cleaned up the code, and using it as a reference image for Bug #254.

10 A = 9200 :B = 13168:C=100:X=279
20  TEXT : HOME :GOTO 40
30 HPLOT 0,Y TO X,Y:RETURN
40 DATA 173,87,192,173,83,192,173,84,192,173,80,192
50 DATA 208,251,173,86,192,160,22,136,208,253,234,173,87,192,76,9,3
60  FOR I = 768 TO 796:READ N:POKE I,N:NEXT
70 HGR : POKE  - 16302,0 
80 HCOLOR= 4:HPLOT 0,0: CALL 62454 
90 HCOLOR= 2:Y=63:GOSUB 30:Y=62:GOSUB 30
100 HCOLOR= 6:Y=61:GOSUB 30:Y=60:GOSUB 30
110 HCOLOR= 1:Y=59:GOSUB 30:Y=58:GOSUB 30
120 HCOLOR= 5:Y=55:GOSUB 30:Y=54:GOSUB 30
130 HCOLOR= 0:X=C
140 Y=123:GOSUB 30:Y=122:GOSUB 30
150 Y=119:GOSUB 30:Y=118:GOSUB 30
160 COLOR= 0:FOR I = 0 TO 39:VLIN 0,39 AT I:NEXT 
170 COLOR= 13:HLIN 0,39 AT 14 
180 FOR I = 0 TO 7:POKE A + I,0:POKE B + I,0:NEXT
190 COLOR= 1:HLIN 0,39 AT 13 
200 VTAB 21:? TAB( 16)"RAINBOW"
210 ?:? "MIXED GRAPHICS (HI-RES/COLOR)" 
220 CALL 768

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

Thread

RAINBOW: a "floating bus" example michael.pohoreski@gmail.com - 2015-01-02 18:55 -0800
  Re: RAINBOW: a "floating bus" example wssimms@gmail.com - 2015-01-02 22:08 -0800
    Re: RAINBOW: a "floating bus" example michael.pohoreski@gmail.com - 2015-01-07 16:20 -0800

csiph-web