[Coco] CoCo and The Matrix

[John Kowalski]

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/