02-09-2003, 09:18 AM
Code:
1 IF x& = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
2 IF x& = 0 THEN DEF SEG = &HA000 ELSE i& = i& + iv&
3 IF x& = 0 THEN iv& = 1 ELSE IF i& = 320 OR i& = -1 THEN iv& = -iv&
4 CIRCLE (i&, -ABS(COS(i& / 30) * 80) + 153), 4, 30
5 PAINT (i&, -ABS(COS(i& / 30) * 80) + 153), 30
6 FOR x& = 12800 TO 51200
7 IF ABS(i& - (x& MOD 320)) < 18 THEN IF PEEK(x&) = 0 THEN POKE x&, 16 ELSE POKE x&, ((PEEK(x& + 1) + PEEK(x& - 1) + PEEK(x& + 320) + PEEK(x& - 320)) - 64) \ 4 + 16
8 NEXT x&
9 IF INKEY$ = "" THEN GOTO 1
interviewer: joe, are you running out of ideas?
joe: yes, yes i am.
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