CompatibleMode="0"

CompatibleEXE32="m2000.exe"

MajorVer=14

MinorVer=5

MinorVer=6

RevisionVer=0

AutoIncrementVer=0

ServerSupportFiles=1

gpp1 = 104, 104, 953, 700,

AnyPrinter = 0, 0, 0, 0, C

Module5 = 182, 182, 1449, 741,

Module2 = 234, 234, 827, 807,Z

Module2 = 234, 234, 827, 807,

PicHandler = 26, 26, 585, 519,

Module4 = 78, 78, 1526, 611,

cDIBSection = 208, 208, 1528, 712,

stdCallFunction = 104, 104, 1166, 562, C

mdlIDispatch = 234, 234, 1521, 812,

PropReference = 208, 208, 859, 654,

Module1 = 26, 26, 585, 519,

Module1 = 26, 26, 585, 519,Z

MyPopUp = 156, 156, 1013, 602, , 52, 52, 729, 545, C

Module7 = 182, 182, 741, 675, C

cJpeg = 0, 0, 0, 0, C

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

Global Const VerMajor = 14

Global Const VerMinor = 0

Global Const Revision =5

Global Const Revision =6

Private Const doc = "Document"

Public UserCodePage As Long, DefCodePage As Long

Public cLine As String ' it was public in form1

chars = LB + 1

End If

End Function

Function IsLabelSYMB33N(A$, r$, chars As Long) As Boolean ' ok

Dim rr&, c$, LB As Long, mb As Long, LLB As Long

LLB = Len(A$)

r$ = vbNullString

If LLB = 0 Then IsLabelSYMB33N = 0: Exit Function

mb = 0

LB = 1

Do While LB <= LLB

c$ = Mid$(A$, LB, 1)

If AscW(c$) < 256 Then

Select Case AscW(c$)

Case 32, 160, 9

If LB - mb > 1 Then

LB = LB - 1

Exit Do

Else

mb = LB

End If

Case 46 '"."

If LB > mb Then

rr& = 1

Else

IsLabelSYMB33N = 0

Exit Function

End If

Case 65 To 90, 97 To 122 ' "A" To "Z", "a" To "z"

rr& = 1 'is an identifier or floating point variable

Case 48 To 57

If rr& <> 1 Then

LB = LB - 1

Exit Do

End If

Case Else

LB = LB - 1

Exit Do

End Select

Else

rr& = 1 'is an identifier or floating point variable

End If

LB = LB + 1

Loop

r$ = Mid$(A$, mb + 1, LB - mb)

IsLabelSYMB33N = rr&

If rr& <> 0 Then

chars = LB + 1

End If

End Function

Function IsLabelF(A$, rrr$) As Long

Dim buf$

If Len(A$) < 129 Then IsLabelF = IsLabelF1(A$, rrr$): Exit Function

Exit Function

Else

i = 0

IfIsLabelSYMB33(rest$, what$, i) Then

IfIsLabelSYMB33N(rest$, what$, i) Then

If Mid$(rest$, i, 2) = "$(" Then

x1 = 6

what$ = myUcase(what$, True) + "$("

M2000 Interpreter and Environment

Version 14 revision5 (updated - info file) active-X

Version 14 revision6 active-X

1. frac(expression!) return fraction of the result of expression. frac(expression) return fraction of the result of the rounded number ( at the 13th digit).

2. Writable() now work without raising error for drives which didn't exist. Another way to check if a path may exist then ShortDir$(path$) return the short dir or if not exist return empty string. So shortdir$("a:")="" means drive a not exist.

3. Declare a small fix for ..., which now we can use it in a multiline declaration, using optional remarks using ' or // or \\:

mybuf$=String$(Chr$(0), 1000)

Declare Global MyPrint Lib C "msvcrt.swprintf" {

&sBuf$, ' byref pass - pass address of first byte of string

sFmt$, ' by value pass

... ' variadic parameters - always as last parameter

}

A=MyPrint(&myBuf$, "P1=%s, P2=%d, P3=%.4f, P4=%s", "ABC", 123&, 1.23456, "xyz")

Print Left$(myBuf$,A) ' A has the number of characters (words - 2 bytes per character)

One bug on STACK statement when we pass a variable which hold a string with a stack as a string (for numbers/strings only). Name for variables now works with numbers inside name, so variable a1212$ can be used now.

http://georgekarras.blogspot.gr/

https://rosettacode.miraheze.org/wiki/M2000_Interpreter (544 tasks)

Old (not working rosettacode.org)

https://rosettacode.org/wiki/Category:M2000_Interpreter (544 tasks)

Code/Exe files can be found here: