Xbasic es un entorno de programación gratuito basado en BASIC, para Windows y GNU/Linux. Admite modos de consola y de GUI. Xbasic fue ideado en 1988 por Max Reason para su uso en un entorno Unix/m88k, y adaptado a Windows NT desde 1992. Xbasic es freeware desde 1999.
Los siguientes cuadros comparan XBASIC con un Basic original no estructurado, utilizando el programa de ejemplo que aparece en el artículo de la Wikipedia sobre BASIC:
Ejemplo 1: BASIC original no estructurado (Applesoft BASIC)
10 INPUT "¿Cuál es su nombre? "; U$ 20 PRINT "Hola "; U$ 30 INPUT "¿Cuántos asteriscos desea? "; N 35 S$ = "" 40 FOR I = 1 TO N 50 S$ = S$ + "*" 55 NEXT I 60 PRINT S$ 70 INPUT "¿Desea más asteriscos? "; A$ 80 IF LEN(A$) = 0 GOTO 70 90 A$ = LEFT(A$, 1) 100 IF (A$ = "S") OR (A$ = "s") THEN GOTO 30 110 PRINT "Adiós "; 120 FOR I = 1 TO 200 130 PRINT U$; " "; 140 NEXT I 150 PRINT
Ejemplo 2: XBasic
FUNCTION Entry () NombreUsuario$=INLINE$( "¿Cuál es su nombre?") PRINT "Hola "; NombreUsuario$ DO NoAsteriscos=SBYTE(INLINE$ ("¿Cuántos asteriscos desea?")) Asteriscos$ = "" Asteriscos$ = CHR$('*', NoAsteriscos) PRINT Asteriscos$ DO Respuesta$=INLINE$ ("¿Desea más asteriscos?") LOOP UNTIL Respuesta$ <> "" LOOP WHILE UCASE$(LEFT$(Respuesta$, 1)) = "S" PRINT "Adiós"; FOR I = 1 TO 200 PRINT NombreUsuario$; " "; NEXT I PRINT END FUNCTION