basic - Can't get code from bbc basic working

Question

  440 DEFPROCsave
  450 phonenos=OPENUP("Phonenos")
  470 PRINT
  480 FOR j= 1 TO counter
  490       PRINT#phonenos,contact{(j)}.name$,contact{(j)}.phone$,contact{(j)}.email$
  500   FOR f = 1 TO 10
  510     PRINT#phonenos,contact{(j)}.response%(1,f)
  520   NEXT f
  530   
  540 NEXT j
  550 CLOSE#phonenos
  560 PRINT "Data saved."
  570 ENDPROC

Code to save details from database I'm trying to save what i have entered to a file but the error INVALID CHANNEL AT LINE 490 APPEARS/

Answer 1

如果您的错误出现在第 490 行，则可能会发生以下两种情况之一。

1. 您的 FILEHANDLEphonenos没有打开。

   您可能试图从错误的位置访问该文件，它可能不存在，或者它可能被写保护。

2. 您的contact数组引用了无效的索引项。

   是否counter超出了数组的范围？这是基于零 (0) 还是一 (1) 的数组？