02-10-2003, 12:26 AM
oh, and i dont know who wanted this, i think it was rel, but i converted my text fire to "hi res" 80x50 and added a vertical refresh:
Code:
1 IF i = 0 THEN WIDTH 80, 50 ELSE OUT &H3C8, 0
2 FOR i = 0 TO 18
3 IF i = 18 THEN WAIT &H3DA, 8 ELSE IF i MOD 3 = 0 THEN OUT &H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0
4 NEXT i
5 IF x% = 0 THEN DEF SEG = &HB800 ELSE CLS
6 FOR x% = 7999 TO 5080 STEP -2
7 IF x% > 7840 THEN POKE x%, CINT(RND) * 80 ELSE POKE x%, ((PEEK(x% + 160) + PEEK(x% + 162) + PEEK(x% + 158) + PEEK(x% + 320) * 1.5) / 5)
8 NEXT
9 IF INKEY$ = "" THEN GOTO 1
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