5 replies to this topic

[sometimes99er]

100 CALL CLEAR::PRINT"GENERATING PATTERNS","generating patterns"::FOR C=65 TO 90::CALL CHARPAT(C,C$)
110 CALL CHAR(C,"00000000"&SEG$(C$,3,2)&"0"&SEG$(C$,6,5),C+32,SEG$(C$,11,6)&"00"&SEG$(C$,15,2))
120 CALL HCHAR(8,C-62,C)::CALL HCHAR(9,C-62,C+32)::NEXT C::CALL SCREEN(2)
130 T=INT(RND*13)+3
140 B=INT(RND*13)+3::IF T=B THEN 140
150 CALL COLOR(5,T,1,6,T,1,7,T,1,8,T,1,9,B,1,10,B,1,11,B,1,12,B,1)::CALL SOUND(500,110,30)::GOTO 130

[GratedTopping]

neat; did you leave the RANDOMIZE out on purpose?

[sometimes99er]

Yes. RND still produces numbers between 0 and 1. RANDOMIZE just tries and make them a bit more unpredictable. If you do include RANDOMIZE, I guess one statement in the beginning is enough (seen someone on here having RANDOMIZE before every RND).

[TEXAS_JOE]

Yes. That would be me. That was , until you (I think it was you ..... ) pointed out that it was'nt necessary to do that.

I do remember also trying in vain to randomize the randomizer (!?!?) .... hehehe, I try anything once!

Sometimes99er, this one blew me away I don't know how you do the things you do but you're good.

Edited by TEXAS_JOE, Sun Feb 12, 2012 7:30 AM.

[sometimes99er]

Hehe. And thanks. Had actually forgotten all about this demo, so I had to run it to see what it really was. My mind is so entangled with tms9918 (the graphic chip) that it cooks up something that surfaces every now and then. Guess it's a habit I have to shake.

[Tursi]

Don't shake it! I like seeing the stuff you come up with