'===========================================================================
' Subject: REALLY SIMPLE STARFIELD           Date: 07-03-97 (12:01)       
' Author:  Brian Mahocker                    Code: QB, QBasic, PDS        
' Origin:  Kain121182@aol.com              Packet: GRAPHICS.ABC
'===========================================================================
SCREEN 13: RANDOMIZE TIMER
'320 LR - 200 UD
DEFINT A-Z
LET NOS = 100
DIM x(NOS), y(NOS), c(NOS)
FOR GetInfo = 1 TO NOS
   LET x(GetInfo) = INT(RND * 320) + 1
   LET y(GetInfo) = INT(RND * 200) + 1
   LET ctemp = INT(RND * 3) + 1
   IF ctemp = 1 THEN LET c(GetInfo) = 15
   IF ctemp = 2 THEN LET c(GetInfo) = 7
   IF ctemp = 3 THEN LET c(GetInfo) = 8
NEXT GetInfo
FOR P1st = 1 TO NOS
  PSET (x(P1st), y(P1st)), c(P1st)
NEXT P1st
DO
   FOR MS = 1 TO NOS
      PSET (x(MS), y(MS)), 0
      LET x(MS) = x(MS) + 1
      IF x(MS) = 320 THEN
         LET x(MS) = 1
         LET y(MS) = INT(RND * 200)
      END IF
      PSET (x(MS), y(MS)), c(MS)
   NEXT MS
LOOP