Skip to content

Version 12, Revision 32

Compare
Choose a tag to compare
@M2000Interpreter M2000Interpreter released this 05 Jul 20:00
· 2 commits to main since this release
  1. 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).
  2. 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