Problème de boucles FOR...NEXT

REM Test de boucle
dim n, i, j, nbr, nbc, np
dim wt, ht
dim xd, yd, e, x, y
dim wf, hf

nbr = 4: rem nb de rangées
nbc = 3: rem nb de colonnes
wt = 160: rem dimension des vignettes 160x120 pix.
ht = 120
xd = 10
yd = 10
e = 10: rem espacement entre les vignettes
np = nbr * nbc + 1: rem objet grande image

rem position et dimension de FORM0
wf = 800: hf = 600: rem forme principale
left 0,20: top 0,50: width 0,wf: height 0,hf
caption 0,"Test de boucles"

rem création et chargement des vignettes
FOR j = 1 TO nbr
  print str$(j)+" "+str$(nbr)
  FOR i = 1 TO nbc
    print str$(i)+" "+str$(nbc)
    n = (j - 1) * nbc + i: rem N° de la cellule
    x = xd + (i - 1) * (wt + e)
    y = yd + (j - 1) * (ht + e)
    print str$(n)
    PICTURE n
    LEFT n, x: TOP n, y: width n, wt: height n, ht
  NEXT i
NEXT j
END