Re: A One Liner

["Peter Watson" <paw77@N_O_hotmail_S_P_A_M.com>]

"Sheldon Simms" <sheldonsimms@yahoo.com> wrote in message
pan.2004.02.13.07.03.04.232675@yahoo.com">news:pan.2004.02.13.07.03.04.232675@yahoo.com...
>
> Ok, certainly nothing special, but I was looking to waste a bit of
> time this evening and came up with this:
>
> 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
>
> So, who can make the program shorter while keeping the exact same
> display?

Sorry, I couldn't resist!  You made that too easy with "C=0"!  :-)
But I'm sure there's a *real* way to make it shorter!

1GR:HOME:D=176:A=1616:FORX=4TO35STEP2:COLOR=C:VLIN0,39ATX:VLIN0,39ATX+1:H=IN
T(C/10):POKEA+X,H+D:POKEA+X+1,C+D-10*H:C=C+1:A=1744-A+1616:NEXT

Actually, am I missing something? Shouldn't "A=1744-A+1616" be changed to
"A=3360-A"?
-- 
Peter Watson
-- Write to MSDOS disks on the Apple IIgs?
-- Impossible!  ;-)