Serious challenge: Graphics demo within 25 LINES OR FEWER!

[Mango]

Code:

'This is my starfield entry hacked down to 25 lines
'It needs a pretty fast computer...looks OK on my 1.5 GHz
'JKC 2003

1 TYPE star
  x AS INTEGER
  y AS INTEGER
  z AS INTEGER
  END TYPE
6 DIM astar(0 TO 300) AS star
7 DIM oldstar(0 TO 300) AS star
8 FOR i = 0 TO 300
9  astar(i).x = RND * 640
10  astar(i).y = RND * 480
11  astar(i).z = RND * 300
12 NEXT i
13 SCREEN 11
14 DO
15 FOR i = 0 TO 300
16   IF astar(i).z < 1 THEN astar(i).z = 300 ELSE astar(i).z = astar(i).z - 1
17   FOR p% = 0 TO oldstar(i).z
18     CIRCLE (oldstar(i).x, oldstar(i).y), p%, 0
19     IF astar(i).z <> 300 THEN CIRCLE (INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30)), INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30))), p%
20   NEXT p%
21   oldstar(i).x = INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30))
22   oldstar(i).y = INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30))
23   oldstar(i).z = 5 / (1 + astar(i).z / 20)
24 NEXT i
25 LOOP UNTIL INKEY$ <> ""

sorry for regurgit :barf: ting some code I wrote for another challenge