'===========================================================================
' Subject: 3D STARZ SCROLLER                  Date: 01-07-98 (19:26)       
'  Author: Nick Kochakian                     Code: QB, QBasic, PDS        
'  Origin: NickK@worldnet.att.net           Packet: EGAVGA.ABC
'===========================================================================
'3D Starz - High res!
'
'10/22/97 By: - Nick Kochakian -
'
'
'Yup, another star scroller...
'
'
'web site: http://www.geocities.com/siliconvalley/heights/5914
'e-mail:   nickk@worldnet.att.net
'
'have fun! :)

DEFINT A-Z
RANDOMIZE TIMER

SCREEN 12

stars = 100

DIM x(stars)
DIM y(stars)
DIM z(stars)
DIM c(stars)

'640 x 480

FOR i = 1 TO stars
x(i) = INT(RND * 640) + 1
y(i) = INT(RND * 480) + 1
z(i) = INT(RND * 3) + 1
IF z(i) = 1 THEN c(i) = 8
IF z(i) = 2 THEN c(i) = 7
IF z(i) = 3 THEN c(i) = 15
NEXT i

FOR i = 1 TO stars
PSET (x(i), y(i)), c(i)
NEXT i

i = 1

move$ = "<"

DO
PSET (x(i), y(i)), 0
IF move$ = "<" THEN
IF z(i) = 1 THEN x(i) = x(i) - 1
IF z(i) = 2 THEN x(i) = x(i) - 2.5
IF z(i) = 3 THEN x(i) = x(i) - 3.5
END IF

PSET (x(i), y(i)), c(i)

IF x(i) < 0 THEN GOSUB re.rand.star:

i = i + 1
IF i > stars THEN i = 1
LOOP UNTIL INKEY$ <> ""
END

re.rand.star:
x(i) = 640
y(i) = INT(RND * 480) + 1
z(i) = INT(RND * 3) + 1
IF z(i) = 1 THEN c(i) = 8
IF z(i) = 2 THEN c(i) = 7
IF z(i) = 3 THEN c(i) = 15
RETURN