"Show us your Colors" is hiding in the ether

Printable View

- 20th September 2009, 12:00
boroko

"Show us your Colors" is hiding in the ether

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
- 20th September 2009, 19:03
mackrackit

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.

Code:

' 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.
- 20th September 2009, 19:09
Darrel Taylor

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
- 20th September 2009, 22:47
Darrel Taylor

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.
- 21st September 2009, 01:48
boroko

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
- 21st September 2009, 18:08
mackrackit

Quote:

Originally Posted by Darrel Taylor

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:
- 22nd September 2009, 03:25
comwarrior

love the colours, EXCEPT THE BRIGHT GREEN! ahhh!

I cadney read it captain... :p
- 22nd September 2009, 05:38
Darrel Taylor

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!

Code:

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. :)
- 22nd September 2009, 06:49
mackrackit

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

Code:

' 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