Lenguajes de Programación
+Antecedentes
+Nacimiento y primeros años
+Crecimiento explosivo
+Madurez
+El Lenguaje
       +Sintaxis
       +Procedimientos y     Control de Flujo
       +Tipos de Datos
+Disponibilidad y variantes del Lenguaje
+Ejemplos
      +Ejemplo 1: Simple Saludo
      +Ejemplo 2: BASIC original no estructurado (Applesoft BASIC)
      +Ejemplo 3: Equivalente en BASIC estructurado (Quick BASIC)

Ejemplo 3: Equivalente en BASIC estructurado (Quick BASIC)

DEFINT I-N
iTrue=-1
INPUT "¿Cuál es su nombre"; NombreUsuario$
PRINT "Bievenido al 'asterisquero',"; NombreUsuario$
DO
   PRINT
   INPUT "¿Con cuántos asteriscos inicia [Cero sale]:"; NroAsteriscos
   IF NroAsteriscos<=0 THEN EXIT DO
   Asteriscos$ = ""
   FOR I=1 TO NroAsteriscos
       Asteriscos$=Asteriscos$ + "*"
   NEXT I
   PRINT "AQUI ESTAN: "; Asteriscos$
   DO
     INPUT "Desea más asteriscos:";SN$
   LOOP UNTIL SN$<>""
   IF SN$<>"S" AND SN$<>"s" THEN EXIT DO
   INPUT "CUANTAS VECES DESEA REPETIRLOS [Cero sale]:";iVeces
   IF iVeces<=0 THEN EXIT DO
   FOR I = 1 TO iVeces
       PRINT Asteriscos$;
   NEXT I
   PRINT
LOOP WHILE iTrue