CLS
PRINT "               ___           |\    /|           ___"
PRINT "              /   \          | \__/ |          /   \"
PRINT "            /       \__      | o  o |      __/       \"
PRINT "          /            \    /        \    /            \"
PRINT "        /                \/            \/                \"
PRINT "      /                     SIMULATION                     \"
PRINT "    /                  DE VOYAGES SPATIAUX                   \"
PRINT "  /\    /\    /\    /\                      /\    /\    /\    /\"
PRINT "/    \/    \/    \/    \       ____       /    \/    \/    \/    \"
PRINT "                         \    /    \    /           "
PRINT "                           \/        \/           "
PRINT "                            by e-REKCAH             "
PRINT ""
INPUT "Nombre d'‚toiles (d‚faut : 150) "; Nbr%
INPUT "Etoiles grosse (=1) ou petite (=0) (1/0)"; tail%
IF Nbr% < 2 THEN Nbr% = 150
IF tail% = 1 THEN
 SCREEN 7
 limx% = 320
 limy% = 200
 ELSE SCREEN 12
 limx% = 640
 limy% = 480
END IF
CLS
DIM tabx%(Nbr%), taby%(Nbr%), tabc%(Nbr%), tabv%(Nbr%)

RANDOMIZE TIMER
FOR i% = 0 TO Nbr%
 tabx%(i%) = INT(RND * limx%) + 1
 taby%(i%) = INT(RND * limy%) + 1
 tabc%(i%) = INT(RND * 14) + 1
 tabv%(i%) = INT(RND * 8) + 1
NEXT i%

5 FOR i% = 0 TO Nbr%
  IF tabx%(i%) > limx% + 3 THEN
   'LINE (tabx%(i%), taby%(i%))-(tabx%(i%), taby%(i%)), 0
   tabx%(i%) = 1
  END IF
  IF INKEY$ = CHR$(27) THEN SYSTEM
  LINE (tabx%(i%), taby%(i%))-(tabx%(i%) + 1, taby%(i%)), tabc%(i%)
  LINE (tabx%(i%) - tabv%(i%), taby%(i%))-(tabx%(i%), taby%(i%)), 0
  tabx%(i%) = tabx%(i%) + tabv%(i%)
NEXT i%
GOTO 5