Menentukan Posisi Indek data via Turbo Basic

mulai :
cls
n=n+1
input "Input bilangan =" bil[n]
input "ada data lagi (y/t)=" lg$

if ucase$(lg$)="Y" then gosub mulai else gosub index
      index :
      input "Hitung Index Bilangan ="; x
      idx=0
      for a=1 to n
     print bil[a];
if bil[a]=x then idx=idx+1
    next a
print
print "Jumlah Index Bilangan " x,"adalah =" idx "buah"
end