CompatibleMode="0"

CompatibleEXE32="m2000.exe"

MajorVer=13

MinorVer=34

MinorVer=35

RevisionVer=0

AutoIncrementVer=0

ServerSupportFiles=1

gpp1 = 0, 0, 0, 0, C

AnyPrinter = 0, 0, 0, 0, C

Module5 = 0, 0, 0, 0, C

Module2 = 234, 234, 827, 807,Z

Module2 = 234, 234, 827, 807,C

PicHandler = 26, 26, 585, 519,

Module4 = 0, 0, 0, 0, C

cDIBSection = 0, 0, 0, 0, C

stdCallFunction = 0, 0, 0, 0, C

mdlIDispatch = 0, 0, 0, 0, C

PropReference = 0, 0, 0, 0, C

Module1 = 26, 26, 585, 519,

Module1 = 26, 26, 585, 519,Z

MyPopUp = 0, 0, 0, 0, C, 52, 52, 729, 545, C

Module7 = 182, 182, 741, 675,

cJpeg = 0, 0, 0, 0, C

Public feedback$, FeedbackExec$, feednow$ ' for about$

Global Const VerMajor = 13

Global Const VerMinor = 0

Global Const Revision =34

Global Const Revision =35

Private Const doc = "Document"

Public UserCodePage As Long, DefCodePage As Long

Public cLine As String ' it was public in form1

fun3: ' "SGN(", "���("

If IsExpBig(bstack, a$, p, flatobject:=True, nostring:=True) Then

If bstack.lastobj Is Nothing Then

r = MyRound(p, 28)

r =Sgn(MyRound(p, 28))

Else

r = bstack.lastobj.bSgn()

Set bstack.lastobj = Nothing

ΦΟΝΤΟ 0, #330066

ΠΕΝΑ 15 {

ΠΛΑΓΙΑ

ΠΕΝΑ 14 {ΑΝΑΦΟΡΑ ΑΝ$(ΕΛΛΗΝΙΚΑ=ΑΛΗΘΕΣ->"Μ2000Διεμηνευτής", "M2000 Interpreter")}

ΠΕΝΑ 14 {ΑΝΑΦΟΡΑ ΑΝ$(ΕΛΛΗΝΙΚΑ=ΑΛΗΘΕΣ->"Μ2000Διερμηνευτής", "M2000 Interpreter")}

ΠΛΑΓΙΑ

ΑΝΑΦΟΡΑ ΑΝ$(ΕΛΛΗΝΙΚΑ=ΑΛΗΘΕΣ->"ΠΟΛΥΣΠΕΙΡΑ ΣΕ ΚΙΝΗΣΗ","POLYSPIRAL ANIMATION")

}

M2000 Interpreter and Environment

Version 13 revision 34 active-X

New #command as #Stuff() this get value from tuple as is. The difference from #Val() is that the later return arithmetic value or object, and for string values convert them to number ("12.23" returned as 12.23 but "12,23" returned as 0). See the example bellow.

Also the Array([]) which convert as stack object (here the [] is the current stack object) to array, now convert it to tuple, not mArray. From version 13 there is a tuple object, which is a lighter mArray object.

CLASS ALFA {

X=10

}

DIM A(10)

Z=POINTER(ALFA())

A(3):="OK", 100, (1,2,3,4), Z

M=A()

? M#STUFF(6).X

Z=>X++

? M#STUFF(6).X

ZZ=M#STUFF(6)

? Z IS ZZ

? A(3)

? M#STUFF(3)="OK", M#VAL(3)=0, M#VAL$(3)="OK"

? M#STUFF(4)=100, M#VAL(4)=100, M#VAL$(4)="100"

? M#STUFF(5)#MAX()

' second change:

FLUSH

DATA 1,2,3

m=ARRAY([])

? TYPE$(m)="tuple"

Version 13 revision 35 active-X

fix mistake on SGN() function...

George Karras, Kallithea Attikis, Greece.