Posts: 3,368
Threads: 195
Joined: Jan 2003
Does it draw your letters? (name?), keyboard? Oh, er, I guess not errrrrr
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Posts: 81
Threads: 0
Joined: Apr 2002
Hmmm..., let me give you a clue:
It's "moving"...
Hmmm, hard to tell without telling too much...
.
Posts: 1,813
Threads: 284
Joined: Mar 2003
Quote: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
earn.