Ho modificato un po il codice

codice:
DIM array(1 to 90)
FOR i=1 TO 160
   INPUT "Introduci il numero: ", Numero
   array(Numero) = array(Numero) + 1
NEXT
FOR i=1 TO 90
open "prova.txt" output as 1#
   PRINT #1, "Occorrenze del numero "; i; ": "; array(i)
closed
NEXT
ma non funziona, perkè????

mi scrive solo 90 : 0