Why isn't this creating a random map?

[TheDarkJay]

I am trying to make a lot of random colours, it was the start of making a scrolling thingy-ma-bob that went a little wrong.


Basically this is what i'm trying to do (if you go to far it will crash)

Code:

DIM shared enter$, tb$, esc$, up$, down$, lft$, rght$, F1$, F2$, F3$, F4$, F5$, F6$, F7$, F8$, F9$, F10$, F11$, F12$, Insert$, Home$, Delete$,

PageUp$, PageDown$
enter$ = CHR$(13)
tb$ = CHR$(9)
esc$ = CHR$(27)
up$ = CHR$(255) + CHR$(72)
down$ = CHR$(255) + CHR$(80)
lft$ = CHR$(255) + CHR$(75)
rght$ = CHR$(255) + CHR$(77)
F1$ = CHR$(255) + ";"
F2$ = CHR$(255) + "<"
F3$ = CHR$(255) + "="
F4$ = CHR$(255) + ">"
F5$ = CHR$(255) + "?"
F6$ = CHR$(255) + "@"
F7$ = CHR$(255) + "A"
F8$ = CHR$(255) + "B"
F9$ = CHR$(255) + "C"
F10$ = CHR$(255) + "D"
F11$ = CHR$(255) + "à"
F12$ = CHR$(255) + "Ã¥"
Insert$ = CHR$(255) + "R"
Home$ = CHR$(255) + "G"
Delete$ = CHR$(255) + "S"
PageUp$ = CHR$(255) + "I"
PageDown$ = CHR$(255) + "Q"

SCREENRES 200,200
DIM map(1000,800)
DIM SHARED bground (10,10)
DIM SHARED key AS STRING

'1000 is the maximum cell x co-ordinate
'800 is the maximum cell y co-ordinate

FOR y = 1 TO 800
FOR x = 1 TO 1000
map(x,y) = int((RND * 16) + 1)
NEXT
NEXT

DIM SHARED playerx
playerx = 500 'where in the cell the player is
DIM SHARED playery
playery = 400
DIM SHARED camerax
camerax = playerx - 100 'The size of the camera box
DIM SHARED cameray
cameray = playery - 100 'and

cx = camerax
cy = cameray
FOR y = 0 to 200
cy = cy + 1
FOR x = 0 to 200
cx = cx + 1
PSET (x,y), map(cx,cy)
NEXT
cx = camerax
NEXT

px = 100
py = 100

LINE (px, py)-(px + 10, py + 10), 15, BF

DO
    key = INKEY$
    SELECT CASE key
          
           case up$
CLS
cameray = cameray - 10
cx = camerax
cy = cameray
FOR y = 0 to 200
cy = cy + 1
FOR x = 0 to 200
cx = cx + 1
PSET (x,y), map(cx,cy)
NEXT
cx = camerax
NEXT
LINE (px, py)-(px + 10, py + 10), 15, BF            
            
case down$
CLS
cameray = cameray + 10
cx = camerax
cy = cameray
FOR y = 0 to 200
cy = cy + 1
FOR x = 0 to 200
cx = cx + 1
PSET (x,y), map(cx,cy)
NEXT
cx = camerax
NEXT
LINE (px, py)-(px + 10, py + 10), 15, BF  
  
case lft$
CLS
camerax = camerax - 10
cx = camerax
cy = cameray
FOR y = 0 to 200
cy = cy + 1
FOR x = 0 to 200
cx = cx + 1
PSET (x,y), map(cx,cy)
NEXT
cx = camerax
NEXT
LINE (px, py)-(px + 10, py + 10), 15, BF

case rght$
camerax = camerax + 10
cx = camerax
cy = cameray
FOR y = 0 to 200
cy = cy + 1
FOR x = 0 to 200
cx = cx + 1
PSET (x,y), map(cx,cy)
NEXT
cx = camerax
NEXT
LINE (px, py)-(px + 10, py + 10), 15, BF

END SELECT
    
LOOP UNTIL key$ = esc$