01-31-2003, 06:25 AM
Quote:Heres a Matrix like screen saver. I cant get it down to 9 lines with the palette changing code so Ill make that optional.You could lose one line by using poke ($B800) instead of locate, colour, and print...
Code:1 screen 12
2 FOR k = 1 TO 33 STEP 8
3 FOR i = 1 TO 6
4 COLOR INT(RND * 15) + 1
5 LOCATE 29, (i + k - 1) * 2
6 IF k = 33 AND i = 6 THEN PRINT INT(RND * 10) ELSE PRINT INT(RND * 10);
7 NEXT
8 NEXT
9 IF INKEY$ = "" THEN GOTO 1
Oh wait, I'm retarded... you'd still need a def seg... nevermind.