TRUCO PC

Este truco es útil para aquellos usuarios que tengan una BridgeBoard (XT/AT) en su Amiga 2000 ó 2500. En algunos programas es necesario tener como configuración de teclado el USA; en vez de modificar la configuración y cambiar el teclado castellano, pueden pulsar las siguientes teclas: CTRL+ALT+F1. Cuando se desee volver a disponer del teclado castellano, bastará con oprimir la secuencia de teclas CTRL+ALT+F2, y automáticamente se 'switcheará' al modo castellano.

Esta operación puede realizarse en cualquier momento, sin afectar la ejecución de ningún programa ni del sistema. Ahora tendrá menos complicaciones en cambiar el modo de teclado. Por supuesto este truco también funciona en los PC normales.

Ernesto García Palop

ENGAÑANDO AL FLOPPY

A veces resulta molesto tener que levantar o bajar las pestañas de los discos para poder grabar en ellos. Una forma de evitarse este 'treje meneje' es engañando a la disquetera. Para que la unidad de discos reconozca a estos siempre como desprotegidos, es necesario mantener bajada la pestaña izquierda de la disquetera (situada justo en la boca de la misma).

Para que esté pegada bastará con sujetarla momentáneamente con papel celo. De esta forma la unidad se creerá que todos los discos (aunque tengan levantada la pestaña) se encuentran desprotegidos, y podrá grabar datos en cualquiera de ellos sin la necesidad de tener que ir comprobando todos uno por uno.

Agustín Pérez Sierra

BUSCADOR DE CADENAS

El programa NxASCII busca cadenas de caracteres de texto en cualquier fichero. Con la variable "precisión" podemos elegir la longitud mínima de las cadenas. Este programa es útil para averiguar todos los mensajes que pueden producir un programa (como un juego) o las opciones "ocultas" de cualquier utilidad.

Además de la impresión por pantalla, la salida de datos se envía a un fichero para poder observar con más detenimiento los mensajes. Además, al final de cada línea, se imprime el número de bytes que quedan por explorar.

   ' **************************
   ' *    NxASCII - Amiga     *
   ' *  Buscador de cadenas   *
   ' *                        *
   ' * (C) Nacho Pino - 1991  *
   ' * (C) Amiga World - 1991 *
   ' **************************
   DEFINT a-z
   WIDTH 75
   precision = 4
   contador = 0
   longlin = 0
   INPUT "fichero? ",fich$
   INPUT "Salida? ",fich2$
   OPEN "i",#1,fich$
   OPEN "o",#2,fich2$
   long!=LOF(1)
   FOR y!=1 to long!
       a$=input$(1,1)
        IF ASC(a$)=10 AND contador>precision THEN
          longlin=41
          a$=CHR$(1)
        END IF
        a=ASC(a$)
        IF a=32 OR (a>45 AND a<123) THEN
          contador=contador+1
          linea$=linea$+a$
        ELSEIF contador>precision THEN
          PRINT linea$;" ";:PRINT
          #2,linea$;" ";
          longlin=longlin+LEN
          (linea$)+1
          contador=0:linea$=!""
        END IF
        IF longlin>40 THEN
          LOCATE CSRLIN,65
          PRINT "->";long!-y!:
          longlin=0
          PRINT #2,"->";long!-y!
        END IF
   NEXT y!
   PRINT linea$
   CLOSE
   END

Ignacio Pino Escudero

LECTOR EN CASTELLANO

Una de las primeras cosas que hice al adquirir mi Amiga-500, fue comprobar el sintetizador de voz. Nunca antes había oído a un ordenador hablar; la sintesis de voz es bastante buena, pero solamente puede pronunciar en inglés, al menos directamente.

Mediante tanteo y gracias al apéndice H del manual de AmigaBasic empecé a realizar un programa que fuera capaz de leer cualquier texto en castellano, o en algo parecido. El manual está muy bien escrito, pero para alguien que desee hacer hablar al ordenador en inglés, nada dice de los fonemas castellanos, y su transcripción al ARPABET. Así que con ayuda de un amigo me puse a buscar la representación de los fonemas, no fue difícil, y creo que conseguimos una buena aproximación a la pronunciación española.

El programa se llama "AmiLector I", está escrito en AmigaBasic 1.2, y es muy sencillo de seguir, Al empezar nos pregunta el fichero que queremos leer, y después el nombre del otro fichero donde grabará la transcripción fonética del texto. Si no damos un nombre no abre ningún fichero y simplemente lee el texto en voz alta.

La estructura del programa quizá no sea demasiado elegante debido al gran número de sentencias IF THEN ELSE que contiene. Pero me ha parecido el sistema más cómodo y sencillo de realizar la transcripción. Si alquien conoce otro sistema me gustaría que me lo comunicase, me sería de una gran utilidad.

Amilector no solamente lee texto, también permite la inclusión de números, aunque solamente lee las unidades. Puede modificarse sencillamente para que lea cualquier símbolo, sólo es necesario fijarse en el programa. Cualquiera puede adaptarlo a sus gustos o necesidades.

El motivo principal de este programa es el de dar ideas a otros programadores para que creen sus propios trabajos. Se me ocurren muchas utilidades para un sintetizador de voz, radioaficionados, estudiantes de idiomas, minusválidos, etc.

Es recomendable crear un fichero con la transcripción fonética y luego leer el texto desde ese fichero con SAY(). La velocidad de lectura es mucho mayor así, que leyendo directamente.

   REM                 -AMILECTOR I-
   REM       Elias Jim�nez Parra. 14-XI-1990
   REM    Calvario, 10. 02620. Minaya (Albacete)
   REM 
   REM (C) AMIGA WORLD - IDG COMMUNICATIONS - 1990
   ' La matriz como% define la clase de voz.
   ' Referencia Amiga Basic. 8-136
   FOR j=0 TO 8:READ como%(j):NEXT
   DATA 110,0,150,0,22200,64,10,1,0
   LOCATE 2,31:PRINT " - AMILECTOR I -"
   PRINT :PRINT :INPUT " -,Nombre de fichero a LEER :";Nf$
   PRINT :PRINT :INPUT " -.Nombre de fichero a CREAR:";fc$
   IF fc$ <> "" THEN OPEN fc$ FOR OUTPUT AS 2
   OPEN Nf$ FOR INPUT AS 1
   frase$=""
   WHILE NOT EOF(1)
      LINE INPUT #1,LI$
      frase$=frase$+LI$
   WEND:le=LEN(frase$)
   FOR I=1 TO le
      l$=UCASE$(MID$(frase$,I,1)):AC=ASC(l$)
      IF le <> I THEN
         l2$=UCASE$(MID$(frase$,I+1,1))
      END IF
      IF l$="0" THEN l$="THEH1RAO"
      IF l$="1" THEN l$="UW2NAO1"
      IF l$="2" THEN l$="DAO3S"
      IF l$="3" THEN l$="TREH2S"
      IF l$="4" THEN l$="KUWAE1TRAO"
      IF l$="5" THEN l$="THIY1NKAO1"
      IF l$="6" THEN l$="SEY2S"
      IF l$="7" THEN l$="SIYEHTEH1"
      IF l$="8" THEN l$="AO1CHAO"
      IF l$="9" THEN l$="NUWEH3VEH"
      IF l$="A" OR l$=" " THEN l$="AE1"
      IF l$="E" OR l$="" THEN l$="EH2"
      IF l$="I" OR l$="" THEN l$="IY2"
      IF l$="O" OR l$="" THEN l$="AO2"
      IF l$="U" OR l$="" THEN l$="UH2"
      IF l$="Z" THEN l$="TH"
      IF l$="X" THEN l$="KS"
      IF l$="G" THEN
         IF l2$="" THEN l$="GUH3":I=I+1
         IF l2$="I" OR l2$="E" THEN l$="/H"
      END IF
      IF l$="Q" THEN l$="K":I=I+1
      IF l$="J" THEN l$="/H"
      IF l$="" OR l$="" THEN l$="NX"
      IF l$="C" AND l2$ <> "H" THEN
         IF l2$<>"I" AND l2$<>"E" THEN l$="K" :ELSE l$="TH"
      END IF
      IF l$="H" THEN l$=" "
      IF l$="C" AND l2$="H" THEN l$="CH":I=I+1
      IF l$="L" AND l2$=l$ THEN l$="YY":I=I+1
      IF AC> 57 AND AC < 64 THEN l$="."
      IF AC <40 THEN No
       IF l$<> "." THEN
         TRa$=TRA$+l$
       ELSE
         TRa$=TRa$+"."
         SAY(TRa$),como%
         IF fc$<>"" THEN PRINT#2,TRa$
         TRa$=""
       END IF
      No:
      NEXT
      CLOSE

Elías Jiménez Parra