Create an object/Native demonstration: Difference between revisions
Content added Content deleted
Line 299: | Line 299: | ||
} |
} |
||
module Writeln { |
module Writeln { |
||
m=each( |
m=each(.Vars) |
||
while m { |
while m { |
||
Print Quote$(Eval$(m, m^));",";Eval(m), |
Print Quote$(Eval$(m, m^));",";Eval(m), |
||
Line 314: | Line 314: | ||
Read val |
Read val |
||
if exist(.Vars, st$) then Return .Vars, st$:=val : Exit |
if exist(.Vars, st$) then Return .Vars, st$:=val : Exit |
||
If .unlock then { Append .Vars, st$:=val} Else .NoNewItem |
If .unlock then { Append .Vars, st$:=val} Else .NoNewItem |
||
} |
} |
||
module Remove (st$) { |
module Remove (st$) { |