[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: My new two liner
- Subject: Re: My new two liner
- From: "BLuRry" <brendan.robert@gmail.com>
- Date: 1 Apr 2006 07:38:01 -0800
- Complaints-to: groups-abuse@google.com
- In-reply-to: <mMmXf.696$n13.28@fe12.lga>
- Injection-info: z34g2000cwc.googlegroups.com; posting-host=12.110.208.10; posting-account=N5hIbA0AAACzTGVDiZh9ucUYdzqr6aq7
- Newsgroups: comp.sys.apple2
- Organization: http://groups.google.com
- References: <mMmXf.696$n13.28@fe12.lga>
- User-agent: G2/0.2
- Xref: g2news1.google.com comp.sys.apple2:6019
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