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>
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

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