Anonymous user
History variables: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 1,277:
\\ for strings
Module CheckStringHistoryVariables {
}▼
}▼
Function CopyMe {▼
m=This▼
.myvalue<=stack(.myvalue)▼
=Group(m)▼
}
Function
Group
if x>=0 and x<=len(.myvalue) then =StackItem$(.myvalue, x)▼
}▼
Module Back {▼
if len(.myvalue)<2 then exit▼
}▼
Operator "+=" (x$) {▼
Value {
Set {▼
}▼
Class:▼
}
}
N$="Second"▼
▲ } }
}
N$=History$("First")
Print N.Count=4▼
K=Each(M, -1, 1)
While K {
}
N$+=" and this"
Print N.CopyValues
N.Back
Print N.Count=3
Print N.CopyValues
}
CheckStringHistoryVariables
|