Help!

Well I decided to try a starfield. Wasn't exactly as easy as I expected.

(0,0) , since qbasic on 4th quadrant:

a=160
b=100

path of stars:

do
i = i +1
x = 160 cos i
y = 100 sin i

line (a,b) - (a-x, b+y)

loop

Now what? I'm stuck. I could find slope of each line and have the stars move through this but thats not a good way.

What I have so far:


SCREEN 7, , 1, 0

FOR i = 1 TO 15
j = j + 7
OUT &H3C8, i
OUT &H3C9, j
OUT &H3C9, j
OUT &H3C9, j
NEXT

' (a, b) = (0, 0) : Correct?
a = 160
b = 100

'x - cos and y + sin
DO
i = i + 1
IF i > 100 THEN i = 0
LINE (0, 0)-(320, 200), 0, BF


'x = COS(i) * 160
'y = SIN(i) * 100

c = i / 15

LINE (a - i, b - i)-(a - (i + (i / 18)), b - (i + (i / 18))), c
LINE (a + i, b - i)-(a + (i + (i / 18)), b - (i + (i / 18))), c
LINE (a - i, b + i)-(a - (i + (i / 18)), b + (i + (i / 18))), c
LINE (a + i, b + i)-(a + (i + (i / 18)), b + (i + (i / 18))), c
LINE (a + i, b)-(a + (i + (i / 18)), b), c
LINE (a - i, b)-(a - (i + (i / 18)), b), c
LINE (a, b + i)-(a, b + (i + (i / 18))), c
LINE (a, b - i)-(a, b - (i + (i / 18))), c
PCOPY 1, 0
WAIT &H3DA, 8, 8
WAIT &H3DA, 8
LOOP UNTIL INP(&H60) = 1