Anonymous user
Create an object/Native demonstration: Difference between revisions
Create an object/Native demonstration (view source)
Revision as of 13:27, 11 August 2018
, 5 years ago→{{header|M2000 Interpreter}}
Line 299:
}
module Writeln {
m=each(
while m {
Print Quote$(Eval$(m, m^));",";Eval(m),
Line 314:
Read val
if exist(.Vars, st$) then Return .Vars, st$:=val : Exit
If .unlock then { Append .Vars, st$:=val} Else .NoNewItem
}
module Remove (st$) {
| |||