Version 12, Revision 32
M2000Interpreter
released this
05 Jul 20:00
·
2 commits
to main
since this release
- Remove bug at Stack Stack(a) where Stack( not trated as function but as array (which didn't exist). See example ranking in info.gsb (now works fine).
- Update info.gsb for (1) and for two modules:
2.1 Module Pyth (now adjust Pythagorian Tree better for any screen ratio scale.x/scale.y).
2.2 Module machinecode2 correct a typo at first label (M200 to M2000).
module showme {
flush // stack tems now are 9, for current stack
dim a(10)
a(4)=stack:=1,2,3,4 // place at a(4) as stack object
stack stack(a(4)) // get a copy of stack object of a(4)
stack // display stack items
flush
print a(4) // display stack items from a(4)
stack a(4) // place stack items from a(4) to current stack - not a copy
print len(a(4))=0 // empty stack object
clear // clear variables fro this point
flush
dim a(10)
a(4)="1 2 3 4" // now a(4) has a string value in a format which statement stack can handle
stack a(4), "NN" // get 2 numbers from a string value
stack
print stack.size
print len(a(4))
flush
dim a$(10)
a$(4)=stack$(1,2,"hello",4) // make a string for numbers/strings for statement stack
stack a$(4) // all
stack
print stack.size=4
print len(a$(4))
flush
}
showme