🚀 go-pugleaf

The following is a crosspost from The SockMaster:

- - - - - - - - - - - - - - - - CUT HERE - - - - - - - - - - - - - - - -

Hi folks.

There was some talk about a making the CoCo generate that green cascading 
display like in The Matrix.  That was about a week ago, but I've been really 
busy and I'm pretty far behind in my emails!

Anyway, it seemed like a fun thing to try, so here it is - just like in the 
movie!

All you have to do is print out this listing out, type it in and RUN it. 
Sorry for all that hex stuff at the end.. All the 0s are zeros, by the way.

And remember to save it too.  It'll be worth it if you're a fan of the 
movie.

Oh, and this is for the CoCo 3.  It won't work on a CoCo 1 or 2.

10 CLEAR1000,24576:PALETTE0,0:PALETTE8,19:PALETTE9,59:PALETTE12,16
20 WIDTH80:CLS1:FORG=446464TO446643:LPOKEG,RND(255):NEXT:O=3584
30 FORG=1TO7:READA$:FORH=1TO60STEP2:B$=MID$(A$,H,2):POKEO,VAL("&H"+B$)
40 O=O+1:NEXT:NEXT:EXEC3584
50 PALETTEA,A:GOTO50
60 DATA"1A10867EB7FEF7CC0E10FDFEF81CEF398636B7FFA3108E7100A6214A8401"
70 DATA"A72126688E709EAF24E684E7A45CC47FE7848D78BD0EBBE784C608E701E6"
80 DATA"A48D6B6F01BD0EBBCAF8EBA4BD0EAABD0EBBE784BD0EBBCAF0C020EBA4BD"
90 DATA"0EAAC620E784BD0EBBCAC0EBA4BD0EAAC620E784AE24301E8C6FFF22AE8E"
100 DATA"001E8D3F840F8B601F03C620E7C4301F26F08D2FC4FE86701F016A84AE26"
110 DATA"EC81E3897FFFAF26E322ED22863BB7FFA37E010CC1182502C61886A03D8B"
120 DATA"601F01E6253A39EC22465646564656833039A923E922ED22390000000000"

If you happen to use a TV or composite monitor, replace line 10 with this 
one:
10 CLEAR1000,24576:PALETTE0,0:PALETTE8,33:PALETTE9,62:PALETTE12,17


Oh, and as an extra bonus - try pressing BREAK after it's started running :)

                                         John Kowalski (Sock Master)
                                         http://www.axess.com/twilight/sock/

- - - - - - - - - - - - - - - - CUT HERE - - - - - - - - - - - - - - - -

This is better experienced on a genuine CoCo 3... if you try to do this on a 
emulator we will have to send a squad of Agents to get you...


-=[ Rogelio ]=-