Re: My new two liner

["Smohn Jith" <robwiles@optonline.net>]

"BLuRry" <brendan.robert@gmail.com> wrote in message 
1143905881.200076.99020@z34g2000cwc.googlegroups.com">news:1143905881.200076.99020@z34g2000cwc.googlegroups.com...
>I remember a few nibble 1/2 liners that did some shgr stuff.  They were
> mostly pure assembler (binary listings) though.  In the spirit of
> unreadable nibble 1-liners, I've shortened your 2-liner into a
> 246-character one liner which should work, but I haven't tested it.
>
> 1 input"c1$ filename:";a$:? chr$(4)"bload "A$",a$1000,t$c1":for a=1 to
> 11: read b,c: poke b,c:next:data
> 49193,65,60,0,61,16,62,0,63,144,66,0,67,32,768,56,769,76,770,17,771,195:call
> 768:? "Press any key:":get a$:poke 49193,193:get a$:poke 49193,65
>

I figured it could be done, I was just happy with my success and did go for 
all out optimization.  2 liners were one of my favorite things, so much with 
so little....