       10 // Assignment operator test program
       20 //
       30 a:=1
       40 SYS assert, a=1
       50 a:+4
       60 SYS assert, a=5
       70 a:-8
       80 SYS assert, a=-3
       90 //
      100 b#:=2
      110 SYS assert, b#=2
      120 b#:+8.5
      130 SYS assert, b#=10
      140 b#:-10
      150 SYS assert, b#=0
      160 //
      170 c$:="jos"
      180 SYS assert, c$="jos"
      190 c$:+" visser"
      200 SYS assert, c$="jos visser"
      210 //
      220 DIM d$ OF 3
      230 d$:="jos visser"
      240 SYS assert, d$="jos"
      250 d$:="j"
      260 SYS assert, d$="j"
      270 d$:+"os visser"
      280 SYS assert, d$="jos"
      290 //
      300 PRINT "Ok"
