'MMBASIC (PicoMiteVGA) translated from Qbasic Source:
'https://rosettacode.org/wiki/Julia_set#QBasic

'Edited by Marcio Esper for a simple benchmark program
'And comments about the run flow
'Sorry about my English

CLS ' cleam screem
MODE 2 ' change video mode to 320 x 240 4bit
Load image "bg.bmp" ,0,0 ' load back grownd
Print @(20, 70) " " ' position cursor
Print "CPU Clock = "; 'show informations
Print Val(MM.Info(CPUSPEED))/1000000; ' about CPU
Print " MHz" ' in Mhz
Print :Print " BenchMark test " ' more bla bla bla
Print :Print " This program can get a long time." ' etc..
Print "Press <Enter> to start.";: Input a$ ' wait enter in a input
Timer =0 ' start the timer
For varrer = 1 To 50:Print :Pause 10 :Next ' cleem screen

escala = 0.6 / 81:zeroX = 160:zeroY = 120 'scale and position view
maxiter = 19  ' complexity
CR = -.798    ' padrom (make the design, change for others results
CI = .1918    ' padrom

Dim integer CL(15) ' Array to the colors

FRAMEBUFFER create  '----------------------------.
stage:              ' Not needed in this program '
FRAMEBUFFER write l '----------------------------'

Restore COLORS:For y=1 To 15:Read CL(y):Next 'Colours data get

 For x = 0 To 2 * zeroX - .8 ' draw, step 2 cam make fast but grid
    For y = 0 To 2 * zeroY - .8 ' same
      zreal = (x - zeroX) * escala ' algoritim fro draw pixels position
      zimag = (zeroY - y) * escala ' same
        For iter = 1 To maxiter
          BR = CR + zreal * zreal - zimag * zimag 'padrom
          zimag = CI + 2 * zreal * zimag ' Zoom in fractal
          zreal = BR
           Print @(10,10,2)" Complexity = " maxiter " score = " Timer
            FRAMEBUFFER copy l,n ' not needed in this program
              If zreal * zreal + zimag * zimag > 4 Then ' check size
              Pixel x, y, cl((iter Mod 16)) ' ajust
              Exit For 'start a new cicle
              EndIf
         Next
    Next
 Next

maxiter=maxiter*2     '---------------------------------------------'
If maxiter < 20 Then '                                               '
GoTo stage           '  Not needed in this program, for use in other '
EndIf                '                                               '
                     '---------------------------------------------'
MODE 1 'change mode to 640x480 2bit and show the results
Print :Print
Print " **************** "
Print " *    Results   * "
Print " **************** "
Print :Print
Print "  Score = " Timer
Print "  Less is best"
Print "  Time elapsed " (Timer/1000)/60
Print "  Have a good day ;)"
FRAMEBUFFER close ' not need in this program, here to mantain
                 ' compatibility with other project
End ' The end. stop all execution.

colors: ' label for go to
'--Colorscheme accordung to matherp
Data RGB(BLUE),RGB(GREEN),RGB(CYAN),RGB(RED)
Data RGB(MAGENTA),RGB(YELLOW),RGB(WHITE),RGB(MYRTLE)
Data RGB(COBALT) ,RGB(MIDGREEN),RGB(CERULEAN),RGB(RUST)
Data RGB(FUCHSIA),RGB(BROWN),RGB(LILAC)