Förfrågan om Lingo/Directorn

Hej på er!

Har precis satt mig ner med programmering i Lingo (Director).
Och har givetvis stött på problem:

Användaren kan skriva in en siffra i en ruta och därefter skall detta antal skrivas ut som x antal rutor på skärmen i olika färger.

Någon som kan hjälpa mig?

Nedan följer min kod:

on cre 
  x=100 
  y=100 
  startSprite = 100   
  repeat with i=1 to gMyArray.count --an array (works) 
    myType=getAt(gMyArray[i],4) 
    case myType of 
      1: myColor="5" --grön 
      2: myColor="2" --rosa 
      3: myColor="4" --gul 
      4: myColor="3" --mörkblå 
      5: myColor="6" --röd 
      6: myColor="1" --ljusblå 
      7: myColor="14" --lila 
      8: myColor="11" --brun 
    end case 
    x=x + 50 
    y=y + 50 
    puppetSprite( startSprite + i , TRUE ) 
    sprite(startSprite + i).member = member("slideBkgr") 
    sprite(startSprite + i).loc = point(x,y) 
    sprite(startSprite + i).foreColor= myColor 
  end repeat 
end

Den funkar alltså inte :(

/Simon

Filen kan hittas på:
<http://www.tranastrafikskola.com/lingo/docuPad v10.zip>
om du vill ladda ner den och
<http://www.tranastrafikskola.com/lingo/docuPad v10.dir>
för att testa