sábado, 3 de septiembre de 2011

Proyecto listados Dragon y OCR.

Como dispongo de bastante material del Dragon en formato revista se me pasó por la cabeza pasar esos programas tecleándolos con el emulador Xroar pero ,como podéis imaginar, el trabajo que lleva es mucho y uno no tiene todo el tiempo del mundo para pasarse las horas aporreando las teclas como un poseso.

La solución más práctica , rápida y factible es la de emplear un programa de reconocimiento óptico de caracteres (OCR) y aprovechar que el emulador de Dragon Xroar admite la carga de ficheros en formato ASCII  luego permite cargarlo como si fuera un programa real.

El programa a preservar y a pasar a formato (.cas) es un juego de aventuras conversacionales cuyo sugerente título es el Valle de la Muerte. Hace muchos años que lo tenia en el cajón de temas pendientes para pasarlo al Dragon y ahora es el momento , ahora o nunca, jeje.




Breve descripción del juego.


 

Parte del listado a pasar por el OCR

Este es el resultado del listado anterior despues de pasarlo por el programa de OCR, la verdad es que tiene buena pinta y no hay muchos fallos. La primera vez que pasé el fichero de imagen del listado me salió un monton de fallos sobre todo el los caracteres $ y #  por que no son muy comunes, pero hay una opción que permite añadir al reconocimiento caracteres en diferentes lenguajes de programación, como el BASIC, C++, Cobol, Pascal....

40 INPUT"ENTRAR PERSONAJE O VOLVER A EMPEZAR (P/E)";A$
50 IFA$="P"THEN 3690
60 IFA$< >"E"THEN 40 70 FU=RND(9)+RND (9)+RND(9>:IQ=RND(9)+RND(9)+RND(9)
80 EN=RND(9)+RND(9 > +RND(9): FU=FU*5:IQ=IQ*5:EN=EN*6
90 PRINT"1)GUERRERO":PRINT" 2)CLERIG0":PRINT"3)BARBARO"
100 PRINT"4)MAGO":INPUT"CUA L ELIGES (1-4) " s A.
110 IFA<OORA>40RPE*=""THENP E$="LOCO":IQ=IQ-RND(10)
120 IFA=1THENPE$="GUERRERO":FU=FU+RND(FU):IQ=IQ+RND(10 )
130 IFA=2THENPE$="CLERIG0": IQ=IQ+RND(10)»2
140 IFA=3THENPE$="BARBARO"s IQ=IQ-RND(5):FU=FU+RND(FU)
150 IFA=3THENEN=EN+RND(FU)
160 IFA=4THENPE$="MAG0":IQ= IQ+RND(15)*2:EN=EN+RND(5)
170 INPUT"NOMBRE";NOMBRE$
180 IFNOMBRE$=""THENNOMBREí ="SR.'X'"
190 CLS
200 PRINTSTRING*(32,175);:F 0RN=0T07:PRINTCHRí <175) ;
210 PRINTSTRING*(30.32);CHR«(175)::NEXT
220 PRINTSTRING*(32.175)
230 Af(l>=CHR*(175>+"###### ##############/N########"+C HR*(175)
240 A$(2)=CHR$(175)+"#/\/\# #######/\/\##/##\/\#####"+C HR*(175)
250 A$(3)=CHRS(175)+"o####X ####/\/####\/######\/\/c"+C HR*(175)
260 A*(4)=CHR*(175)+"###### \/\/"+STRING*(20,32)+CHR$(1 75)
270 J=RND(5)*32:PRINT0J,A*( 1);:PRINTA$(2);:PRINTA$(3);

Saludos.

p

4 comentarios:

  1. Ay! si hubiéramos tenido escaners con OCR en aquellos dias de arduo tecleo de listados de revitas :D xD

    ResponderEliminar
  2. Pues sí. Ya no me acordaba del tiempo que me pasaba tecleando como un loco y luego tener que estar depurando los errores de sintaxis.

    ResponderEliminar
  3. Hola Luis.
    Pues uso el Abbyy fine reader. La verdad es que va muy bien.

    ResponderEliminar