"Show us your Colors" is hiding in the ether [Archive]

View Full Version : "Show us your Colors" is hiding in the ether

boroko

- 20th September 2009, 12:00

I have went looking for "Show us your Colors" a few times and I am unable to find it anymore. The link that I have bookmarked and the one that shows up in the searches is http://www.picbasic.co.uk/forum/showthread.php?t=6221 , but that just throws an error..
Anyone?

Bo

mackrackit

- 20th September 2009, 19:03

In MCS save your project as htm. Open the htm in notepad or something like that. Copy the htm to the post between code tags.

' Convert numeric value to ASCII hexadecimal equivalents.

INCLUDE "bs1defs.bas" ' Include BS1 variable and serial definitions

SO CON 0 ' Define serial out

mainloop: W6 = W0 : GOSUB HexW ' Print W0
SEROUT SO,N2400,[13,10] ' Print end of line
 RANDOM W0 ' Randomize W0
GOTO mainloop ' Do this forever!!!

' Send W6 as XXXX (Uses W5)
HexW: GOSUB HexB13 ' Print MSB
B13 = B12 ' Print LSB
HexB13: B11 = B13 / 16 ' Print MSN
 GOSUB HexB11
 B11 = B13 & 15
HexB11: LOOKUP B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11)
SEROUT SO,N2400,[B10]
RETURN


Above code is from MeLabs web site.

Darrel Taylor

- 20th September 2009, 19:09

Yeah, I made the mistake of posting several threads in the "Test Area"...
Back in April, the entire area was deleted without warning.

For a while it was available from google cache, but that doesn't seem to be there anymore either.

I saved a copy of the cache when it was there.
"I cached the Google cache" :D

Show us your Colors (http://www.darreltaylor.com/files/Show%20us%20your%20Colors_%20-%20MEL%20PICBASIC%20Forum.htm)

Darrel Taylor

- 20th September 2009, 22:47

Dave,

Ouch!
Your "Colors" hurt my eyes.

I go cross-eyed trying to read the strings. :eek:

Maybe they're better on a white background.

boroko

- 21st September 2009, 01:48

Thanks,
I have tried to use it a few times, but I couldn't remember what to exclude when I pasted it to get it to work right.

Bo

mackrackit

- 21st September 2009, 18:08

Dave,

Ouch!
Your "Colors" hurt my eyes.

I go cross-eyed trying to read the strings. :eek:

Maybe they're better on a white background.
 
Everyone is a critic :)
It does not look bad for me... but I am a little cross-eyed to start with so it has a reverse effect :eek:

comwarrior

- 22nd September 2009, 03:25

love the colours, EXCEPT THE BRIGHT GREEN! ahhh!

I cadney read it captain... :p

Darrel Taylor

- 22nd September 2009, 05:38

There ya go, it does look better on a white background, although black would be cool too.
>> EXCEPT THE BRIGHT GREEN!

In a code block ... OOOUUUUCHHH!

The deadly (green) Snow Crystals
Had deprived him of his sight
And he stood up
And he looked around
And he said:
I CAN'T SEE
OH WOE IS ME
I CAN'T SEE
NO NO
I CAN'T SEE
NO . . . I . . .
He took a dog-doo sno-cone
An' stuffed it in my right eye
He took a dog-doo sno-cone
An' stuffed it in my other eye
An' the huskie wee-wee,
I mean the doggie wee-wee
Has blinded me
An' I can't see
Temporarily

Frank Zappa

But then ... everyone is going "green" these days. :)

mackrackit

- 22nd September 2009, 06:49

OK,OK...
I will change it :)
Mr. Zappa convinced me...

' Convert numeric value to ASCII hexadecimal equivalents.

INCLUDE "bs1defs.bas" ' Include BS1 variable and serial definitions

SO CON 0 ' Define serial out

mainloop: W6 = W0 : GOSUB HexW ' Print W0
SEROUT SO,N2400,[13,10] ' Print end of line
 RANDOM W0 ' Randomize W0
GOTO mainloop ' Do this forever!!!

' Send W6 as XXXX (Uses W5)
HexW: GOSUB HexB13 ' Print MSB
B13 = B12 ' Print LSB
HexB13: B11 = B13 / 16 ' Print MSN
 GOSUB HexB11
 B11 = B13 & 15
HexB11: LOOKUP B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11)
SEROUT SO,N2400,[B10]
RETURN