lang/basic/test/test14.b

   1 100 dim a(13)
   2 101 print "help",a(1)
   3 102 a(1)=3: print "ok"
   4 103 print a(1)
   5 107 for i=0 to 13
   6 108 a(i)=i*i
   7 109 nexti
   8 112 for i=0 to 13
   9 113 print i, a(i)
  10 114 nexti
  11 115 a(-4)= 3