Just BASIC

Es totalmente gratuito y es adecuado para la creación de todo tipo de aplicaciones para negocios, la industria, la educación y el entretenimiento.

Just BASIC es un subconjunto de Liberty BASIC, que es la versión del lenguaje de programación comercial. Estas son algunas de las características de JustBASIC!

• Libre de utilizar para la programación personal o comercial.
• Fácil para el aprendizaje y la enseñanza de programación con el tutorial detallado incluido.
• Maravillosa comunidad en línea ( visite nuestro foro de mensajes ).
• Coloreado editor de código.
• Crear programas en modo de texto simple o aplicaciones GUI
• Crear programas estructurados usando subrrutinas, funciones, SELECT / CASO, DO / LOOP, y mucho más.
• Crear programas independientes.
• Incluye un gran depurador a nivel de fuente, incluyendo puntos de interrupción .
• Un motor incorporado de sprites para crear animaciones.
• Reproduce música MIDI y otros archivos de audio.
• Incluye un editor de formularios GUI escrito en JustBASIC.
• Se puede personalizar!.
• Ayuda RS-232 puertos serie

Realmente es fácil de aprender. Vale la pena echarle un vistazo. Tiene muchísimos ejemplos, tutoriales, manuales y foros y una comunidad muy activa. El código de JustBASIC es compatible con Liberty BASIC.

nomainwin

WindowWidth  =440
WindowHeight =460

open "Mandelbrot Set" for graphics_nsb_nf as #w

#w "trapclose [quit]"
#w "down"

for x0 = -2 to 1 step .0033
    for y0 = -1.5 to 1.5 step .0075
        x = 0
        y = 0

        iteration    =   0
        maxIteration = 255

        while ( ( x *x +y *y) <=4) and ( iteration <maxIteration)
            xtemp      =x *x -y *y +x0
            y          =2 *x *y +y0
            x          = xtemp
            iteration  = iteration + 1
        wend

        if iteration <>maxIteration then
            c =iteration
        else
            c =0
        end if




        call pSet x0, y0, c
        scan
    next
next

#w "flush"

wait

sub pSet x, y, c
    xScreen = 10 +( x +2)   /3 *400
    yScreen = 10 +( y +1.5) /3 *400
    if c =0 then
        col$ ="red"
    else
        if c mod 2 =1 then col$ ="lightgray" else col$ ="white"
    end if
    #w "color "; col$
    #w "set "; xScreen; " "; yScreen
end sub

[quit]
close #w
end

http://justbasic.com/

http://justbasic.conforums.com/

http://www.justbasic.com/download.html

https://basic.wikispaces.com/

http://www.lulu.com/shop/carl-gundel/beginning-programming-with-liberty-basic/paperback/product-6272251.html