Как ваше "ничего", All ?


Hарод, сабж.
Пишу скрипт для курсорного выбора файло. Проблема в том, что при выводе на
экран, после того как стал файлы читать через массив, файлы перестали
показываться, описания тоже (в скрипте), хотя пометить и скачать мона.
Как исправить?

_········∙∙∙∙∙ Покурим Windows Clipboard ∙∙∙∙∙········_
//Скрипт для курсорного выбора файлов для даунлоада.
//
variables
 fsize, y, x, j, i, c, n : number
 filename, fdes, strout, k, add : string
 fname, fdesc : string array [255]
 b : logical
end

program
 clear
 fileopen (1, faDLpath+"\files.bbs")         \\открываем файл с описаниями
 y=0                                         \\коорд. y=0
 x=0                                         \\коорд. x=0
 i=1                                         \\i=1, т.к. 0 не может быть
 j=1                                         \\j=1 --||--||--||--
 n=i-1                                       \\n - номер файла в спике =i-1
 start:
 filereadstring (1, strout)
 SubString (strout,1,12,fname#i)             \\выдираем первые 12 символов - файл
 SubString (strout,14,64,fdesc#j)            \\выдираем оставш. символы - описание
 filesize (fadlpath+"\"+fname#i, fsize)      \\берём размер файла
 if fsize>0                                  \\проверяем если размер больше
 if fsize>0, то файл, если меньше, то строка описания.
 y=y+1
 i=y+1
 j=j+1
 n=n+1
 setcursorcoord (y,2)
 write ("\15"+n+"\10"+fname#i)               \\рисуем
номер и файл
 setcursorcoord (y, 15)
 write ("\15"+fsize)                         \\рисуем размер
 setcursorcoord (y, 23)
 write ("\07" + fdesc#j)                     \\рисуем описание
 x=x+1
 filegeteof (1, b)                           \\проверяем на конечность =)
 if b
 goto cursor
 fileclose (1)
 exit
 else
 goto start
 end
 else
 goto start
 end

 cursor:
 i=1
 c=n
 setcursorcoord (i,1)

 startc:

 readkey (k)

 if k = keyb_down
  if i = c
  goto startc
  else
  i=i+1
  setcursorcoord (i,3)
  write ("\10"+fname#i)
  goto startc
  end
 end

 if k = keyb_up
  if i=1
  goto startc
  else
  i=i-1
  setcursorcoord (i,1)
  goto startc
  end
 end

 if k = keyb_right
  goto start
 end

 if k = #27
 clear
 exit
 end

 if k = #32
 setcursorcoord (i, 1)
 write("\14√")
 AddToDownloadList (faDLpath+"\"+fname#i)
 goto startc
 end


end
_········∙∙∙∙∙ А вот и фильтр от Windows Clipboard ∙∙∙∙∙········_



                                                           Мои аревуары.
--- А чё тут писать то надо?...