05-26-2003, 08:47 PM
oh, what the hell, here's a crappy 9-line matrix:
remember, if it doesnt have a label in front it ain't a line break.
Code:
1 DEF SEG = &HB800
2 FOR x = 4000 TO 0 STEP -2
3 IF x <= 24 THEN OUT &H3C9, -(((x \ 2) MOD 3) = 2) * 15 * (4 - x \ 6 - 1) ELSE OUT &H3C8, 0
4 IF PEEK(x + 1) > 0 THEN POKE x + 161, PEEK(x + 1)
5 IF PEEK(x + 1) > 0 THEN POKE x + 1, PEEK(x + 161) - 1 ELSE POKE INT(RND * 1999) * 2, INT(RND * 9) + 48
6 IF x MOD 250 = 0 THEN POKE INT(RND * 319) * 2 + 1, 3 ELSE n = 1
7 NEXT
8 FOR x = 0 TO 100000: NEXT
9 IF INKEY$ = "" THEN GOTO 2
remember, if it doesnt have a label in front it ain't a line break.
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry