CALL usersubname$ [,usersubparameters,....]

dim calltable$(3) length 3 = ("add", "tak", "div", "mul")
c=10
d=5
for i=0 to 3
 caller calltable$(i),c,d
next i

sub caller a$, x, y
 call a$, x, y
end sub

sub add a,b
print a+b
end sub

sub tak a,b
print a-b
end sub

sub div a,b
print a/b
end sub

sub mul a,b
print a*b
end sub

a$="firstsub"
mysub 8,9
call "mysub", sin(rad(90)),7
call a$,a$
'
sub firstsub x$
 print x$," hello"
end sub
sub mysub a,b
 print a+b
end sub

option explicit
option default none
option base 0

Sub EmptySub(i as integer)
End Sub


Dim integer x = 10
Dim integer n
Dim string empty = "EmptySub"

cls
timer = 0
for n = 0 to 100000
 Call empty, x
next n
print timer

Error in line 5: Not enough String memory

Test           V5.05.05   V5.05.06RC13    Measure
Grainbench      15968      16265       Arbitrary simple benchmark
zmim            1210       1697        Instructions per second
Solar Eclipse   14.08      8.03        Time to complete complex calculation
Speedtest       325826     358830      MMBasic Lines/second
Benchmark       0.328      0.1886      Simple benchmark with GOSUB and GOTO
Wolf3D          14         17.5        Framerate per second
Darkness        13         20          Framerate per second
Bucky Ball      68         54.5        Time to calc and display new position (mSec)

Error in line 57: OBJ Local variable already declared

Colour Maximite 2
MMBasic Version 5.05.06RC12
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

> list "speech.bas"
Do
 Input a$
 Play TTS a$,72,64
Loop

> run "speech.bas"
? help
? help
Error in line 3: Invalid phonetic text

Error in line 240: A sub/fun has the same name: DENIZENS

dim integer i,j,k
dim integer test(2,3,4), two(2),three(3),four(4)
for i=0 to 2
for j=0 to 3
for k=0 to 4
test(i,j,k)=i+(j<<4)+(k<<8)
next k
next j
next i
math slice test(),,3,4,two()
for i=0 to 2
print hex$(two(i),3), "  ";
next i
print ""

math slice test(),2,,4,three()
for i=0 to 3
print hex$(three(i),3), "  ";
next i
print ""

math slice test(),2,3,,four()
for i=0 to 4
print hex$(four(i),3), "  ";
next i
print ""