Generates a quick randomized 640 x 480 bitmap filled with stars (you choose the amount of stars or density). Program utilizes the so very easy "DOT X,Y" command. This cou

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem * Title  : STARFIELD BITMAP GENERATOR
Rem * Author : TIMOTHY J. SAUNDERS
Rem * Date   : NOVEMBER 2004
REM ***
INK RGB(255,255,255),0
HIDE MOUSE
SYNC RATE 0

PRINT "This program will generate a black 640 X 480 bitmap filled with stars."
REDOA:
RANDOMIZE TIMER()
REPEAT : WAIT 500 : UNTIL INKEY$()=""
PRINT
INPUT "HOW MANY STARS DO YOU WANT? ",AMOUNT
REDOB:
REPEAT : WAIT 500 : UNTIL INKEY$()=""
CLS
PRINT
INPUT "WHAT WILL THE FILE NAME BE? ",NAME$
IF LEN(NAME$)<1
	PRINT "ERROR: NAME MUST CONTAIN AT LEAST ONE CHARACTER."
	WAIT 5000 : GOTO REDOB
ENDIF
NAME$=NAME$+".bmp"
IF FILE EXIST(NAME$)=1
	PRINT : PRINT NAME$+" <-- THIS FILE ALREADY EXISTS."
	PRINT "WOULD YOU LIKE TO DELETE IT? (Y/N)"
	DO
	IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO ERASE
	IF INKEY$()="N" OR INKEY$()="n" THEN GOTO REDOB
	LOOP
	ERASE:
	REPEAT : WAIT 500 : UNTIL INKEY$()=""
	DELETE FILE NAME$
	REPEAT : WAIT 500 : UNTIL FILE EXIST(NAME$)=0
ENDIF
CLS
FOR STARS=0 TO AMOUNT
DX=RND(640) : DY=RND(480)
DOT DX,DY
NEXT STARS
SAVE BITMAP NAME$
REPEAT : WAIT 500 : UNTIL FILE EXIST(NAME$)=1
PRINT "STARFIELD BITMAP GENERATED."
PRINT
PRINT "DOES IT LOOK OK? (Y/N) "
DO
IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO FINISH
IF INKEY$()="N" OR INKEY$()="n" THEN CLS : GOTO REDOA
LOOP

FINISH:
REPEAT : WAIT 500 : UNTIL INKEY$()=""
PRINT
PRINT "PRESS ANY KEY TO EXIT"
SUSPEND FOR KEY
REM ***