[Coco] Decypher this code!

Robert Gault robert.gault at worldnet.att.net
Wed Oct 1 20:16:00 EDT 2008


tim lindner wrote:
> Here is an image from an UnderColor article:
> 
> <http://cocomag.dyndns.org/UnderColor/850108/large/850108-011.850108-003-to
> c-4.cktct-art-2.jpg>
> 
> Near the end of that image there is some seriously messed up typesetting.
> (No offense Dennis!) :)
> 
> Here is what I came up with:
> 
> 95
> CLS(0):FORX=1TO26STEP2:Y=(X-1)*16:T2=(X-1)*16*16:PRINT at T,P$(X,1);:PRINT at T2,
> P$(X,2);:NEXTX:END
> 
> Here are scan of the whole article for context:
> 
> <http://cocomag.dyndns.org/cgi-bin/show_magazine.pl?magazine=UnderColor&iss
> ue=850108&pagescans&images=850108-010,850108-011,850108-012>
> 
> And here is a close up of the listing:
> 
> <http://cocomag.dyndns.org/UnderColor/850108/large/850108-011.850108-003-to
> c-4.cktct-lst-1.jpg>
> 
> Thanks for any help!
> 

My guess is that it can't be 16*16. Two reasons, first you would just 
use 256. Second, when X=1 the strings would over-print. Likewise Y= 
anything does not seem likely. T would be a better choice as the strings 
are printed @T and @T2.

It would help to see the DATA statements but without them, my best guess 
would be:

95 CLS(0):FORX=1TO26STEP2:T=(X-1)*16:T2=(X-1)*16+16:PRINT at T,P$(X,1);:
PRINT at T2,P$(X,2);:NEXTX:END

Translating $1m1 into ,2 is a stretch but that might be clarified by 
seeing the DATA statements.



More information about the Coco mailing list