home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / array.demo (.txt) next >
Commodore BASIC  |  2023-02-26  |  506b  |  16 lines
  1. 10 sa=51800:dim a(10),b(10)
  2. 20 print:for i=0 to 10:a(i)=i:next
  3. 30 print:print "set b=a":sys sa+3,a(0),b(0)
  4. 40 print:for i = 0 to 10: print b(i);:next
  5. 50 v1=2:sys sa+6,v1,b(0):print:print "set b=b+2"
  6. 60 for i=0 to 10 :printb(i);:next
  7. 70 v2=25:print:print" insert 25 at a(5)":sys sa+51,v2,a(5)
  8. 80 for i=0 to 10:printa(i);:next
  9. 90 print:  print"set b=b*a": sys sa+21,a(0),b(0)
  10. 100 for i=0 to 10:print b(i);:next
  11. 110 print:print "square b - (b=b^2)"
  12. 130 print "starting with element x=4":sys sa+48,b(4)
  13. 140 for i=0 to 10:print b(i);:next
  14. 150 print: print "using an undefined variable":sys sa,v3,a(0)
  15. 160 print: for i=0 to 10:printa(i);:next
  16.