Códigos Fuente de Basic

Juego de tipo tetris para Commodore 64.

Programa para Commodore 64.

Programa en QBasic que convierte coordenadas cartesianas a polares.

Para GFA-BASIC.-
Esta herramienta permite imprimir un texto en una posición definida en la pagina. Ingresando X e Y de la misma. Al crear el formulario necesitara incorporar los siguientes controles.
3 Textbox llamados pos_x, pos_y , numero
4 Labels llamados lbl1 a lbl4
2 command llamados imprime y cmd1
un slider llamado sli1
2 checkbox llamados chk1 y chk2.

Función en GFA-BASIC que devuelve una fecha en formato escrito. Ejemplo, 10/01/2015. Devuelve diez de enero de dos mil quince.- La fecha a la función se envía mediante DATE() o desde el control MonthView incluidas en el compilador. Como limitación: No agregue transformación de año por la cual debe cambiarse cambiando la variable correspondiente.

ElNumero reduce a un solo dígito cualquier número por la suma sucesiva de sus caracteres.
Por ejemplo 9978 = 9 + 9 + 7 + 8 = 33 = 3 + 3 = 6
Es usado en numerología esotérica, por ejemplo, para obtener el número del día de nacimiento se obtiene del conjunto del día + mes + año
Así, el 23 de mayo de 1923 = 23051923 = 7

SuperSuma almacena en un string el resultado de la suma de dos números de cualquier longitud.
Además se incluyen en él funciones y subrutinas muy útiles para usar en otros programas, tales como:

- Uso intuitivo del color del fondo y del texto.
- Inicializar la pantalla a modo texto con 80 columnas.
- Centrar un texto en la pantalla.
- Evaluar que los caracteres sean numéricos.
- Pausar la ejecución del programa con un texto centrado en espera de pulsar una tecla.
- Repetir uno o varios caracteres el número de veces indicado.

Este programa asegura la visualizan por pantalla de los códigos ASCII superiores a 127 incluidas en String de programas Basic (letras no latinas y acentuadas: á, Ñ , ç, etc.).

Para ello transforma toda la cadena en el valor ASCII de todos los caracteres sumados y también solo los especiales. Un ejemplo:

String original: "¡Nuño y Argüelles!"

Se copia con CTRL-C y pega en el programa con CTRL-V

Salida del programa:
------------------------
Dim cadena as String

cadena = chr(173) & chr(78) & chr(117) & chr(164) & chr(111) & chr(32) & chr(121) & chr(32) & chr(65) & chr(114) & chr(103) & chr(129) & chr(101) & chr(108) & chr(108) & chr(101) & chr(115) & chr(33)

cadena = chr(173) & "Nu" & chr(164) & "o y Arg" & chr(129) & "elles!"
------------------------
Se incluye el código fuente y el ejecutable.

aqui este programita que le modifique, es el nibbles, el ejecutable lo hice con qb64 x32

Convierte archivos QWK en TXT.

Este programa (incluye código fuente en QuickBASIC 4.5 o VB-DOS 1.0) abre los archivos QWK de los BBS y los convierte a formato de texto estándar. Recupera tus QWK históricos, los que te dejaron huella y transfórmalos a textos estándar, listos para ser leídos en el Bloc de Notas o en Word.