Programa ASCII

[galil...@gmail.com]

Hola. Esta es mi primera entrada en este foro, y quería comentar lo mucho que me ha gustado reda4, lo sencillo de su concepción y la potencia que, a pesar de ello, desarrolla. Hacía tiempo que quería aprender a utilizar un lenguaje del tipo Forth, pero reconozco que, hasta ahora, me había parecido demasiado complejo. Reda4 me pareció desde un principio mucho más digerible para mí, y sinceramente pienso que, el día que reda4 esté debidamente documentado en su totalidad, será mayor el número de personas que aprecien su atractivo. Yo haré lo posible por mostrar de lo que es capaz en este foro.

Y qué mejor manera que mediante ejemplos prácticos. Es decir, programas. No muy grandes, para que se puedan estudiar y entender bien.

Este que presento ahora es muy sencillo. Tan sólo muestra el juego de caracteres ASCII, con su representación decimal y hexadecimal.

^r4/lib/gui.txt

:ccol | x y c --- x y c | Comprueba si ha de saltar a la siguiente columna

dup 40 mod 0? ( drop rot drop 1 rot 15 + )( drop rot 1+ rot ) rot ;

: clrscr 1 1 0 ( 255 <? )( 1+ >r 2dup swap gotoxy r> dup dup dup "%d - %h - %k" print

ccol ) 3drop waitkey waitkey ;

Me gustaría conocer otras soluciones para obtener el mismo resultado, así que, si tu la tienes, te animo a que la publiques.