Ok, then: Obfuscation anyone?

[seph]

Here's a more difficult one ...:roll:.

Code:

SCREEN &HF - 2
A$="16171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031"
: DO: FOR D% = 0 TO 9: FOR C% = 0 TO 15: IF B% = &HFE + 1 THEN B% = 0
LINE (C% * (10 + (5 + (2 * 2) + 1)), D% * (10 + (5 + (2 * 2) + 1)))-((C% * (10 + (5 + (2 * 2) + 1))) + 19, (D% * (10 + (5 + (2 * 2) + 1))) + 19), B% + VAL(MID$(A$, ((D% * 2) * (4 * 4)) + (C% * (4 - 2)) + 1, (-4 + 6))), BF: NEXT C%, D%: WAIT &H3DA, 8: B% = B% - (4 - 5): LOOP

Hmm, is this accurate?

Code:

SCREEN 13
A$="16171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031"
DO
    FOR D% = 0 TO 9
        FOR C% = 0 TO 15
            IF B% = &HFE + 1 THEN B% = 0
                LINE (C% * 20, D% * 20)-((C% * 20) + 19, (D% * 20) + 19), B% + VAL(MID$(A$, (D% * 32) + (C% * 2) + 1, 2)), BF
    NEXT C%, D%
    WAIT &H3DA, 8
    B% = B% + 1
LOOP

Basically it will draw every colour from 16 to 31 over and over on the screen, and it will "scroll" them from right to left. You just kinda made the equations needlessly complicated LOL