Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Text mode screen 0 revisited....
#3
well, till i come up with something better, my text-fire from the 9-liner:

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
Reply


Messages In This Thread
Text mode screen 0 revisited.... - by relsoft - 08-11-2003, 12:07 PM
Text mode screen 0 revisited.... - by oracle - 08-11-2003, 12:25 PM
Text mode screen 0 revisited.... - by toonski84 - 08-11-2003, 12:29 PM
Text mode screen 0 revisited.... - by relsoft - 08-11-2003, 12:34 PM
Text mode screen 0 revisited.... - by relsoft - 08-11-2003, 12:35 PM
Text mode screen 0 revisited.... - by toonski84 - 08-11-2003, 12:43 PM
Text mode screen 0 revisited.... - by relsoft - 08-11-2003, 12:52 PM
Text mode screen 0 revisited.... - by toonski84 - 08-11-2003, 01:07 PM
Text mode screen 0 revisited.... - by na_th_an - 08-11-2003, 02:05 PM
Text mode screen 0 revisited.... - by toonski84 - 08-11-2003, 02:13 PM
Text mode screen 0 revisited.... - by na_th_an - 08-11-2003, 02:15 PM
Text mode screen 0 revisited.... - by toonski84 - 08-11-2003, 05:50 PM
Text mode screen 0 revisited.... - by na_th_an - 08-11-2003, 06:22 PM
Text mode screen 0 revisited.... - by Ninkazu - 08-11-2003, 06:48 PM
Text mode screen 0 revisited.... - by oracle - 08-12-2003, 03:24 AM
Text mode screen 0 revisited.... - by relsoft - 08-12-2003, 09:59 AM
Text mode screen 0 revisited.... - by Nexinarus - 08-12-2003, 03:29 PM
Text mode screen 0 revisited.... - by BinarySHOCK - 08-27-2003, 08:40 AM
Text mode screen 0 revisited.... - by relsoft - 08-27-2003, 12:50 PM
Text mode screen 0 revisited.... - by barok - 08-27-2003, 10:26 PM
Text mode screen 0 revisited.... - by Agamemnus - 08-27-2003, 11:29 PM
Text mode screen 0 revisited.... - by Nexinarus - 08-30-2003, 01:04 AM
Text mode screen 0 revisited.... - by barok - 08-30-2003, 03:46 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)