GWBASIC

En la época en la que utilizaba mi Olivetti Prodest, el BASIC (gwbasic) era el lenguaje más habitual en los ordenadores domésticos. Pascal se utilizaba en educación, mientras que el lenguaje científico era FORTRAN. En el mundo empresarial el COBOL era el rey.

Sobre el BASIC decían lo siguiente: “Microsoft GW-BASIC is a simple, easy-to-learn, easy-to-use computer programming language with English-like statements and mathematical notations”, aunque en la práctica, la utilización de los GOTOs y la obligación de numerar las líneas, hacían que la programación se complicara en programas de cierta entidad.

Aquí dejo una pequeña agenda hecha en GWBASIC.
Ahora, cuando tenga que buscar un teléfono, lo único que tengo que hacer es encender el viejo Olivetti.

El Prodest no tiene disco duro, pero aún así, arranca mucho más rápido que cualquier ordenador actual.

Y ahora el programa GWBASIC:
(he comprobado que funciona en WindowsXP)

1 CLS
10 PRINT "MI AGENDA"
20 PRINT "---------"
30 INPUT "INTRODUCE EL NOMBRE: ";DATUA$
40 READ IZENA$, ZENBAKIA$
50 IF INSTR(IZENA$,DATUA$) THEN GOTO 100
60 IF IZENA$ = "*" THEN PRINT "NO LO HE ENCONTRADO":RESTORE:GOTO 30
70 GOTO 40
100 PRINT IZENA$;": ";ZENBAKIA$
110 PRINT "¿OTRO NÚMERO?"
120 INPUT E$
130 IF E$ = "SI" THEN GOTO 200
140 IF E$ = "NO" THEN STOP
150 PRINT "RESPONDE SI O NO":GOTO 120
200 RESTORE:GOTO 1
300 DATA PAPI, 945 22 22 22
301 DATA MAMI, 945 33 33 33
302 DATA TATO, 945 44 44 44
1000 DATA “*”, “-“