12 lines
174 B
QBasic
12 lines
174 B
QBasic
100 dim a(13)
|
|
101 print "help",a(1)
|
|
102 a(1)=3: print "ok"
|
|
103 print a(1)
|
|
107 for i=0 to 13
|
|
108 a(i)=i*i
|
|
109 nexti
|
|
112 for i=0 to 13
|
|
113 print i, a(i)
|
|
114 nexti
|
|
115 a(-4)= 3
|