Please do not abort (solved)

[zarsoft]

Help! This program resets the computer.

What am I doing wrong?
Can the compiler be fixed?

Code:

11 DIM start1 AS LONG = 16384 12 DIM start2 AS LONG = start1+8*8*32 18 DIM p(192) AS LONG 36 GO SUB 300 40 STOP 200 REM test index y 220 LET y=1 230 POKE p(y+1)+1,255 295 RETURN 300 REM generate plain 310 GO SUB 500 390 RETURN 500 REM init index y 510 DIM addr AS LONG = start1 520 DIM ix AS LONG = 191 530 REM --- ciclo1 --- 540 LET p(ix+1)=addr 550 LET addr=addr+32 580 IF addr<start2 THEN GO TO 530 790 RETURN