10 SA=51800:DIM A(10),B(10)
20 PRINT:FOR I=0 TO 10:A(I)=I:NEXT
30 PRINT:PRINT "SET B=A":SYS SA+3,A(0),B(0)
40 PRINT:FOR I = 0 TO 10: PRINT B(I);:NEXT
50 V1=2:SYS SA+6,V1,B(0):PRINT:PRINT "SET B=B+2"
60 FOR I=0 TO 10 :PRINTB(I);:NEXT
70 V2=25:PRINT:PRINT" INSERT 25 AT A(5)":SYS SA+51,V2,A(5)
80 FOR I=0 TO 10:PRINTA(I);:NEXT
90 PRINT:  PRINT"SET B=B*A": SYS SA+21,A(0),B(0)
100 FOR I=0 TO 10:PRINT B(I);:NEXT
110 PRINT:PRINT "SQUARE B - (B=B^2)"
130 PRINT "STARTING WITH ELEMENT X=4":SYS SA+48,B(4)
140 FOR I=0 TO 10:PRINT B(I);:NEXT
150 PRINT: PRINT "USING AN UNDEFINED VARIABLE":SYS SA,V3,A(0)
160 PRINT: FOR I=0 TO 10:PRINTA(I);:NEXT