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

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

Re: RAINBOW: a "floating bus" example

Show all headers | View raw

Am Freitag, 2. Januar 2015 21:55:51 UTC-5 schrieb michael....@gmail.com:
> 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

That's an interesting usage of "cleaned up".

Back to comp.sys.apple2.programmer | Previous | Next — Previous in thread | 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