Challenge....

[relsoft]

Toonski: Woot!!!!! Wooot!!!!!

See it looks great in 80*50!!!!

some 3dwaves:

this is the 9 line Flickers code:

Code:

'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  LINE (0, 0)-(639, 479), 0, BF
4  FOR x% = 0 TO 14
5  FOR z% = 0 TO 15
6  PSET ((320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)), (320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1))), 16 - (((z% * ( _
1 / 15 * 640)) / 640 + 1) - 1) * 15
7  NEXT z%, x%
8  WAIT &H3DA, 8
9  IF INKEY$ = "" THEN 2

This one is better looking but 10 lines so its disqualified:

Code:

'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  FOR x% = 0 TO 14
4  FOR z% = 0 TO 15
5  PSET (TX!(x%, z%), TY!(x%, z%)), 0
6  TX!(x%, z%) = 320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
7  TY!(x%, z%) = 320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
8  PSET (TX!(x%, z%), TY!(x%, z%)), 16 - (((z% * (1 / 15 * 640)) / 640 + 1) - 1) * 15
9  NEXT z%, x%
10 IF INKEY$ = "" THEN 2