El objetivo de este programa es trabajar la ortografía de algunas palabras. Cada vez aparecerá una palabra en la pantalla. Esta palabra puede estar correctamente escrita o contener algún error. Lo que se te pedirá es escribir correctamente la palabra en cualquiera de los dos casos. El programa te indicará si has acertado o no, dando una respuesta correcta en los casos en los que estás equivocado.
El programa que aquí te presentamos está hecho de una manera bastante sencilla y se han trabajado algunas palabras concretas. Nuestro objetivo principal es explicar cómo puedes escribir este tipo de programas; luego cada uno verá cuáles son las palabras que le interesan trabajar y si quiere hacer algún cambio o no.
Si bien en este caso sólo se han tratado las palabras, existen otras posibilidades: preguntar por la palabra o concepto definido mediante una definición o pedir que se corrijan algunas palabras de un texto.
Observaciones:
10 REM TRABAJANDO LA
ORTOGRAFÍA 20 DIM FIL(5) : J=0
30 KEY OFF: SCREEN 1,0 : CLS
40 LOCATE 12,6 : PRINT "PROGRAMA ORTOGRAFIA"
50 FOR I=1 TO 2000 : K=K+1 : NEXT I
60 CLS : RANDOMIZE TIMER
70
LOCATE 4,15 : PRINT "MENÚ PRINCIPAL 7,9"
90 LOCATE 9,9 : PRINT "2. TX, TS o TZ
100 LOCATE 11,9 : PRINT "3. X, S o Z
110 LOCATE 13,9 : PRINT "4. A orgánica, ¿sí o no?"
120 LOCATE 15,9 : PRINT "5. Todos mezclados"
130 LOCATE 17,9 : PRINT "6. Programa
Fin" 140 LOCATE 20,6 : INPUT "Qué opciones quieres trabajar";AUK
150 IF AUK 1 OR AUK 6 THEN LOCATE 20,6
: PRINT SPC(34) : GOTO 140
160 CLS
170
LOCATE 2,12 : PRINT Examinar la
palabra "PRINT 7,6"
1$
EN
THRM=
100%
FOX
420 LOCATE 21,INT ((40-LEN(HITZA1$)/2) : INPUT "",ERAN$
430 LOCATE 23,6 : IF ERAN$=PALABRA1$ THEN PRINT "¡BIEN!!!" :
BIEN=BIEN+1
ELSE PRINT "MAL! ";PALABRA1$"."
"sacerdote",
"sacerdote",
"sacerdote",
"sacerdote",
"sacerdote",
"sauce",
"sacerdote",
"sauce",
"lienzo",
"desolado",
"sauce"