Re: A One Liner

[Paul Guertin <pg@sff.net>]

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)

Paul Guertin
pg@sff.net