'===========================================================================
' Subject: STARZ!                            Date: 01-16-97 (12:14)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
'Starz! 1.0
'
'1996 By: - Nick Kochakian -
'You can use Starz! in any of your programs... Just be shure to include my
'name some where in your program where people can READ it.
'Thanks! :)
':) Have fun fooling around with the demnsions! :)

RANDOMIZE TIMER
SCREEN 13 'Set up VGA screen (256 colors) (300x200)
CLS 'Clear the screen

S1XMAX = 300 'Starz 1 X Maximum number
S1YMAX = 190 'Starz 1 Y Maximum number
S1CMAX = 256 'Color Maximum for Starz 1

S2XMAX = 300 'Starz 2 X Maximum number
S2YMAX = 190 'Starz 2 Y Maximum number
S2CMAX = 30'Color Maximum for Starz 2

ENDSTARZ = INT(RND * 6000) + 1 'Set ending number

'You can set the starz to your liking.
'Please type STARZ$ entrys in ALL CAPS
'STARZ$="MIXED" mixes colored starz with grey scale starz
'STARZ$="COLOR" color starz only
'STARZ$="GREY" grey scale starz only
STARZ$ = "GREY"

DO
S1X = INT(RND * S1XMAX) + 1
S1Y = INT(RND * S1YMAX) + 1
IF STARZ$ = "MIXED" THEN S1C = INT(RND * S1CMAX) + 1
IF STARZ$ = "COLOR" THEN S1C = INT(RND * S1CMAX) + 1

IF STARZ$ = "GREY" THEN
DO
REPICK:
S1C = INT(RND * S2CMAX) + 1
IF S1C < 16 THEN GOTO REPICK:
IF S1C > 30 THEN GOTO REPICK:
LOOP UNTIL S1C = 16 OR S1C = 30 OR S1C = 16 <> 30
END IF

PSET (S1X, S1Y), S1C

S2X = INT(RND * S2XMAX) + 1
S2Y = INT(RND * S2YMAX) + 1
IF STARZ$ = "COLOR" THEN PSET (S2X, S2Y), S1C
IF STARZ$ = "MIXED" THEN S2C = INT(RND * S2C) + 1: PSET (S2X, S2Y), S2C
IF STARZ$ = "GREY" THEN PSET (S2X, S2Y), S1C
ENDIT = ENDIT + 1
LOOP UNTIL ENDIT = ENDSTARZ

'Shining grey starz!
IF STARZ$ = "GREY" THEN
DO
REPIKME:
  C = INT(RND * 30) + 1
CC = INT(RND * 30) + 1
IF CC < 16 THEN GOTO REPIKME:
IF CC > 30 THEN GOTO REPIKME:
R = CC
G = CC
B = CC
IF C < 16 THEN GOTO REPIKME:
IF C > 30 THEN GOTO REPIKME:
  PAL& = 65536 * B + 256 * G + R
  PALETTE C, PAL&
LOOP UNTIL INKEY$ <> ""
PALETTE
CLS
PRINT "Starz! 1996 By: - Nick Kochakian -"
END
END IF

IF STARZ$ = "MIXED" OR STARZ$ = "COLOR" THEN
DO
REPIKMETWO:
C = INT(RND * 255) + 1
CC = INT(RND * 255) + 1
IF CC < 0 THEN GOTO REPIKMETWO:
IF CC > 255 THEN GOTO REPIKMETWO:

CPIK = 0
DO
READ R, G, B
CPIK = CPIK + 1
LOOP UNTIL CPIK = CC
RESTORE

IF C < 0 THEN GOTO REPIKMETWO:
IF C > 255 THEN GOTO REPIKMETWO:
  PAL& = 65536 * B + 256 * G + R
  PALETTE C, PAL&
LOOP UNTIL INKEY$ <> ""
PALETTE
CLS
PRINT "Starz! 1996 By: - Nick Kochakian -"
END
END IF

END
'Palette DATA

'"HOT" palette

DATA  0 , 0 , 0
DATA  21 , 21 , 21
DATA  0 , 42 , 42
DATA  42 , 42 , 42
DATA  4 , 0 , 0
DATA  8 , 0 , 0
DATA  8 , 0 , 0
DATA  12 , 0 , 0
DATA  14 , 0 , 0
DATA  16 , 0 , 0
DATA  17 , 0 , 0
DATA  16 , 0 , 0
DATA  21 , 0 , 0
DATA  20 , 0 , 0
DATA  24 , 0 , 0
DATA  24 , 0 , 0
DATA  28 , 0 , 0
DATA  30 , 0 , 0
DATA  32 , 0 , 0
DATA  33 , 0 , 0
DATA  32 , 0 , 0
DATA  37 , 0 , 0
DATA  36 , 0 , 0
DATA  40 , 0 , 0
DATA  42 , 0 , 0
DATA  44 , 0 , 0
DATA  46 , 0 , 0
DATA  48 , 0 , 0
DATA  49 , 0 , 0
DATA  51 , 0 , 0
DATA  53 , 0 , 0
DATA  55 , 0 , 0
DATA  56 , 0 , 0
DATA  58 , 0 , 0
DATA  60 , 0 , 0
DATA  62 , 0 , 0
DATA  63 , 0 , 0
DATA  63 , 1 , 0
DATA  63 , 0 , 0
DATA  63 , 5 , 0
DATA  63 , 4 , 0
DATA  63 , 8 , 0
DATA  63 , 10 , 0
DATA  63 , 12 , 0
DATA  63 , 13 , 0
DATA  63 , 12 , 0
DATA  63 , 17 , 0
DATA  63 , 16 , 0
DATA  63 , 20 , 0
DATA  63 , 22 , 0
DATA  63 , 24 , 0
DATA  63 , 25 , 0
DATA  63 , 24 , 0
DATA  63 , 29 , 0
DATA  63 , 28 , 0
DATA  63 , 32 , 0
DATA  63 , 32 , 0
DATA  63 , 36 , 0
DATA  63 , 38 , 0
DATA  63 , 36 , 0
DATA  63 , 41 , 0
DATA  63 , 43 , 0
DATA  63 , 44 , 0
DATA  63 , 46 , 0
DATA  63 , 48 , 0
DATA  63 , 50 , 0
DATA  63 , 51 , 0
DATA  63 , 53 , 0
DATA  63 , 55 , 0
DATA  63 , 57 , 0
DATA  63 , 58 , 0
DATA  63 , 60 , 0
DATA  63 , 62 , 0
DATA  63 , 63 , 0
DATA  62 , 63 , 0
DATA  60 , 63 , 0
DATA  58 , 63 , 0
DATA  56 , 63 , 0
DATA  55 , 63 , 0
DATA  53 , 63 , 0
DATA  51 , 63 , 0
DATA  49 , 63 , 0
DATA  47 , 63 , 0
DATA  46 , 63 , 0
DATA  44 , 63 , 0
DATA  42 , 63 , 0
DATA  40 , 63 , 0
DATA  36 , 63 , 0
DATA  37 , 63 , 0
DATA  32 , 63 , 0
DATA  33 , 63 , 0
DATA  28 , 63 , 0
DATA  30 , 63 , 0
DATA  28 , 63 , 0
DATA  24 , 63 , 0
DATA  24 , 63 , 0
DATA  20 , 63 , 0
DATA  21 , 63 , 0
DATA  16 , 63 , 0
DATA  17 , 63 , 0
DATA  12 , 63 , 0
DATA  14 , 63 , 0
DATA  12 , 63 , 0
DATA  8 , 63 , 0
DATA  8 , 63 , 0
DATA  4 , 63 , 0
DATA  5 , 63 , 0
DATA  0 , 63 , 0
DATA  1 , 63 , 0
DATA  0 , 63 , 0
DATA  0 , 63 , 1
DATA  0 , 63 , 0
DATA  0 , 63 , 5
DATA  0 , 63 , 4
DATA  0 , 63 , 8
DATA  0 , 63 , 10
DATA  0 , 63 , 12
DATA  0 , 63 , 13
DATA  0 , 63 , 12
DATA  0 , 63 , 17
DATA  0 , 63 , 16
DATA  0 , 63 , 20
DATA  0 , 63 , 22
DATA  0 , 63 , 24
DATA  0 , 63 , 25
DATA  0 , 63 , 24
DATA  0 , 63 , 29
DATA  0 , 63 , 28
DATA  0 , 63 , 32
DATA  0 , 63 , 32
DATA  0 , 63 , 36
DATA  0 , 63 , 38
DATA  0 , 63 , 36
DATA  0 , 63 , 41
DATA  0 , 63 , 43
DATA  0 , 63 , 44
DATA  0 , 63 , 46
DATA  0 , 63 , 48
DATA  0 , 63 , 50
DATA  0 , 63 , 51
DATA  0 , 63 , 53
DATA  0 , 63 , 55
DATA  0 , 63 , 57
DATA  0 , 63 , 58
DATA  0 , 63 , 60
DATA  0 , 63 , 62
DATA  0 , 63 , 63
DATA  0 , 62 , 63
DATA  0 , 60 , 63
DATA  0 , 58 , 63
DATA  0 , 56 , 63
DATA  0 , 55 , 63
DATA  0 , 53 , 63
DATA  0 , 51 , 63
DATA  0 , 49 , 63
DATA  0 , 47 , 63
DATA  0 , 46 , 63
DATA  0 , 44 , 63
DATA  0 , 42 , 63
DATA  0 , 40 , 63
DATA  0 , 36 , 63
DATA  0 , 37 , 63
DATA  0 , 32 , 63
DATA  0 , 33 , 63
DATA  0 , 28 , 63
DATA  0 , 30 , 63
DATA  0 , 28 , 63
DATA  0 , 24 , 63
DATA  0 , 24 , 63
DATA  0 , 20 , 63
DATA  0 , 21 , 63
DATA  0 , 16 , 63
DATA  0 , 17 , 63
DATA  0 , 12 , 63
DATA  0 , 14 , 63
DATA  0 , 12 , 63
DATA  0 , 8 , 63
DATA  0 , 8 , 63
DATA  0 , 4 , 63
DATA  0 , 5 , 63
DATA  0 , 0 , 63
DATA  0 , 1 , 63
DATA  0 , 0 , 63
DATA  1 , 0 , 63
DATA  0 , 0 , 63
DATA  5 , 0 , 63
DATA  4 , 0 , 63
DATA  8 , 0 , 63
DATA  10 , 0 , 63
DATA  12 , 0 , 63
DATA  13 , 0 , 63
DATA  12 , 0 , 63
DATA  17 , 0 , 63
DATA  16 , 0 , 63
DATA  20 , 0 , 63
DATA  22 , 0 , 63
DATA  24 , 0 , 63
DATA  25 , 0 , 63
DATA  24 , 0 , 63
DATA  29 , 0 , 63
DATA  28 , 0 , 63
DATA  32 , 0 , 63
DATA  32 , 0 , 63
DATA  36 , 0 , 63
DATA  38 , 0 , 63
DATA  36 , 0 , 63
DATA  41 , 0 , 63
DATA  43 , 0 , 63
DATA  44 , 0 , 63
DATA  46 , 0 , 63
DATA  48 , 0 , 63
DATA  50 , 0 , 63
DATA  51 , 0 , 63
DATA  53 , 0 , 63
DATA  55 , 0 , 63
DATA  57 , 0 , 63
DATA  58 , 0 , 63
DATA  60 , 0 , 63
DATA  62 , 0 , 63
DATA  63 , 0 , 63
DATA  63 , 1 , 63
DATA  63 , 0 , 63
DATA  63 , 5 , 63
DATA  63 , 4 , 63
DATA  63 , 8 , 63
DATA  63 , 8 , 63
DATA  63 , 12 , 63
DATA  63 , 14 , 63
DATA  63 , 16 , 63
DATA  63 , 17 , 63
DATA  63 , 16 , 63
DATA  63 , 21 , 63
DATA  63 , 20 , 63
DATA  63 , 24 , 63
DATA  63 , 24 , 63
DATA  63 , 28 , 63
DATA  63 , 30 , 63
DATA  63 , 32 , 63
DATA  63 , 33 , 63
DATA  63 , 32 , 63
DATA  63 , 37 , 63
DATA  63 , 36 , 63
DATA  63 , 40 , 63
DATA  63 , 42 , 63
DATA  63 , 44 , 63
DATA  63 , 46 , 63
DATA  63 , 48 , 63
DATA  63 , 49 , 63
DATA  63 , 51 , 63
DATA  63 , 53 , 63
DATA  63 , 55 , 63
DATA  63 , 56 , 63
DATA  63 , 58 , 63
DATA  63 , 60 , 63
DATA  63 , 62 , 63
DATA  63 , 63 , 63