01-29-2003, 04:36 PM
Heres a Matrix like screen saver. I cant get it down to 9 lines with the palette changing code so Ill make that optional.
The optional palette code sits between lines 1 and 2 and sets the colors to 16 shades of green for a real Matrix look 8). I didnt actually write this bit and I cant remember who I stole it from either. ;-)
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
The optional palette code sits between lines 1 and 2 and sets the colors to 16 shades of green for a real Matrix look 8). I didnt actually write this bit and I cant remember who I stole it from either. ;-)
Code:
OUT &H3C8, 0
FOR i = 0 TO 15
OUT &H3C9, (0)
OUT &H3C9, (i * 4)
OUT &H3C9, (0)
NEXT
esus saves.... Passes to Moses, shoots, he scores!