Re: A One Liner

[Sheldon Simms <sheldonsimms@yahoo.com>]

On Sun, 15 Feb 2004 21:39:48 -0500, Paul Guertin wrote:

> On Sun, 15 Feb 2004 13:24:31 -0500, I wrote:
> 
>> On Fri, 13 Feb 2004 02:03:04 -0500, Sheldon Simms <sheldonsimms@yahoo.com>
>> wrote:
>> 
>> > 1GR:HOME:C=0:D=176:A=1616:FORX=4TO35STEP2:COLOR=C:VLIN0,39ATX:
>> > VLIN0,39ATX+1:H=INT(C/10):POKEA+X,H+D:POKEA+X+1,C+D-10*H:C=C+1:
>> > A=1744-A+1616:NEXT
>> 
>> (143 characters)
>> 
>> > So, who can make the program shorter while keeping the exact same
>> > display?
>> 
>> 1GR:HOME:A=1616:FORX=4TO35:COLOR=C:H=C>9:VLIN0,39ATX:
>> POKEA+X,176+H:X=X+1:VLIN0,39ATX:POKEA+X,176+C-10*H:C=C+1:
>> A=3360-A:NEXT
>> 
>> (123 characters)
> 
> 1GR:HOME:FORX=4TO35:COLOR=C:H=C>9:POKE1616+128*U+X,176+K*(C-11*H)+H:
> VLIN0,39ATX:C=C+K:K=K=0:U=U=K:NEXT
> 
> (102 characters)

Bravo, that's great! I never really used boolean expressions back
when I was a kid and programmed a lot in Applesoft BASIC, but they
seem to be quite useful.