Ejemplos
Ejemplo 1: Simple Saludo
PRINT "Hola mundo"
Ejemplo 2: BASIC original
no estructurado (Applesoft BASIC)
10 INPUT "Cuál es su nombre:"; NN$
20 PRINT "Bienvenido al 'asterisquero' ";NN$
25 PRINT
30 INPUT "con cuántos astericos inicia [Cero sale]:"; N
40 IF N<=0 THEN GOTO 200
50 AS$=""
60 FOR I=1 TO N
70 AS$=AS$+"*"
80 NEXT I
90 PRINT "AQUI ESTAN:"; AS$
100 INPUT "Desea más asteriscos:";SN$
110 IF SN$="" THEN GOTO 100
120 IF SN$<>"S" AND SN$<>"s" THEN GOTO 200
130 INPUT "CUANTAS VECES DESEA REPETIRLOS [Cero sale]:"; VECES
140 IF VECES<=0 THEN GOTO 200
150 FOR I=1 TO VECES
160 PRINT AS$;
170 NEXT I
180 PRINT
185 REM A repetir todo el ciclo (comentario)
190 GOTO 25
200 END
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
END
|