Commodore manía

Commodore 64 => Desarrollo => BASIC => Mensaje iniciado por: javierglez en Noviembre 28, 2022, 22:52:05

Título: BASIC 10Liners
Publicado por: javierglez en Noviembre 28, 2022, 22:52:05
Un tenliner es un programa en BASIC de menos de 10 lineas. Se hacen concursos. Este es un tenliner del tipico juego de la serpiente que destaca por ser especialmente corto.

Al comer los roscos (al pasar por encima) la serpiente crece. Si choca contra los bordes o contra una cruz el juego se acaba. La puntuacion es el numero de roscos comidos. La letra A gira a la izquierda y la D a la derecha.

Adjunto un listado y una captura del juego en marcha (he puesto el emulador al 10% de velocidad porque soy lento).

* listado.jpg (40.15 kB . 479x163 - visto 1064 veces)

* snake.png (2.6 kB . 384x272 - visto 1148 veces)
Título: Re:Tenliners
Publicado por: javierglez en Diciembre 03, 2022, 19:59:47
Aquí otro tenliner, este tiene 10 líneas, es de algún concurso, se llama firefighter. Es un listado más difícil de seguir.
Funciona un poco como el blitz, el cursor se mueve de izquierda a derecha y de arriba abajo y al apretar el botón del joystick sueltas "agua" (pintando el edificio de azul). El "agua" hay que soltarlo sobre todo donde hay "llamas" (celdas del edificio en color rojo), porque está limitada y se gasta.

* listadof.bmp (18.63 kB . 480x317 - visto 931 veces)

* firef.png (2 kB . 384x272 - visto 977 veces)


Título: Re:Tenliners
Publicado por: josepzin en Enero 29, 2023, 21:37:56
No tiene 10 lineas pero tiene 11 ;)

How about explaining what it does?
https://www.reddit.com/r/c64/comments/10l4id9/interesting_basic_program/ (https://www.reddit.com/r/c64/comments/10l4id9/interesting_basic_program/)
(https://preview.redd.it/eqp1qc3v68ea1.png?width=960&crop=smart&auto=webp&v=enabled&s=4a7f042a6bc4da362a51db3a898ab281f27f7a7a)

[spoiler](https://i.imgur.com/dZWNIJi.jpg)[/spoiler]
Título: Re:Tenliners
Publicado por: javierglez en Febrero 05, 2023, 23:52:05
Aquí otro tenliner que genera un laberinto, un punto de entrada y otro de salida y hay que mover una bola de la entrada a la salida con las letras abcd. Cada vez que se ejecuta el programa cambia el laberinto.

* listado.jpg (60.58 kB . 480x132 - visto 928 veces)

* laberinto.gif (113.05 kB . 384x272 - visto 856 veces)
(por cierto que no es demasiado difícil de modificar para que funcione en el PET)
Título: Re:Tenliners
Publicado por: briefer en Febrero 06, 2023, 20:17:24
Aquí otro tenliner que genera un laberinto, un punto de entrada y otro de salida y hay que mover una bola de la entrada a la salida con las letras abcd. Cada vez que se ejecuta el programa cambia el laberinto.

* listado.jpg (60.58 kB . 480x132 - visto 928 veces)

* laberinto.gif (113.05 kB . 384x272 - visto 856 veces)
(por cierto que no es demasiado difícil de modificar para que funcione en el PET)
Recursividad sin recursividad
Título: Re:Tenliners
Publicado por: javierglez en Febrero 20, 2023, 20:03:06
Aqui un juego bastante interesante de un youtuber llamado Josip Retrobits, que lo ha presentado al concurso de este año. El tipo parece estar orgulloso de haber encontrado la manera que el kernal le haga el scroll (de arriba abajo, que es al revés del que normalmente activa el editor).
https://www.youtube.com/watch?v=Z-esqeC9Jws (https://www.youtube.com/watch?v=Z-esqeC9Jws)

En este otro video explica en que momento se activa esa funcion del kernal, haciendo cierta utilizacion del editor.
https://www.youtube.com/watch?v=zkR64TdpTSE (https://www.youtube.com/watch?v=zkR64TdpTSE)

Lo he probado en VICE y curiosamente esa misma conducta se consigue en el editor del VIC20 y del CBM -II, pero sadly no en el editor del PET.
Título: Re:Tenliners
Publicado por: josepzin en Febrero 20, 2023, 21:33:38
Increible lograr esa velocidad de scroll con el BASIC!!!
Título: Re:Tenliners
Publicado por: javierglez en Abril 14, 2023, 17:16:25
Ya han salido los resultados del concurso de este año.

https://gkanold.wixsite.com/homeputerium/results-2023

En la categoria principal de 80 caracteres/linea gana un Pacman para Oric

https://bunsen.itch.io/pacman-by-rax

Lo mas espectacular esta como siempre en la categoria de 256 caracteres/linea en Atari aunque este año les ha ganado el MSX.

https://bunsen.itch.io/jumpman-by-eric-carr

https://bunsen.itch.io/10-lines-princess-by-honoppe

Este año había mas entradas de ordenadores raros como el Alice, el Enterprise, el TI99, y en la categoría wild cosas para Amiga y Pico 8.
Título: Re:Tenliners
Publicado por: josepzin en Enero 13, 2025, 23:17:53
BASIC 10Liner Games

https://romwer.itch.io/basic10liners

Colección con juegos de 10 lineas que HAY QUE REVISAR!!

(https://img.itch.zone/aW1hZ2UvMzI0MDA1MC8xOTM1NDQ4Ni5wbmc=/347x500/mu%2BgjW.png)
Título: Re:Tenliners
Publicado por: javierglez en Enero 16, 2025, 21:45:27
Veo que no comentamos los de 2024
No los he probado todos
Algunos van con joystick normal
El clon del tapper va con las teclas cursor abajo y espacio
Alguno es complicado y necesita instrucciones por ejemplo el prg taxi. Este tiene dos versiones, una es categoría 256. No sé si CBMPRG permite crear este tipo de lineas de 256 caracteres. Con un C64 no se puede pasar de 80.
Título: Re:Tenliners
Publicado por: Bieno en Enero 17, 2025, 08:13:48
El CBMPRG si deja hacerlo. En Basic también. Hay un programa para hacerlo, con el que Dunric programó y luego Lobogris tradujo el Castillo Belmar. Así el basic en su ejecución es un poco mas rápido. Es el combinalineas o linelink que adjunto.
Título: Re:BASIC 10Liners
Publicado por: josepzin en Febrero 09, 2025, 01:55:18
Ya está en marcha la edición 2025.

BASIC 10Liner Contest 2025
https://bunsen.itch.io/basic-10liner-contest-2025

(https://img.itch.zone/aW1hZ2UvMzI3NjM1MC8xOTY1NjY5NS5wbmc=/347x500/4GOtAQ.png)

Título: Re:BASIC 10Liners
Publicado por: josepzin en Febrero 09, 2025, 01:57:11
Algunos juegos mas:

Battleship 10Liner
https://bunsen.itch.io/battleship-10liner-c64-by-romwer
(https://img.itch.zone/aW1hZ2UvMzMwNDU1Mi8xOTczNTU2NS5wbmc=/347x500/4n7bYw.png)

SnailRace
https://bunsen.itch.io/basic-10liner-contest-2025/devlog/878963/contest-started
(https://img.itch.zone/aW1hZ2UvMzI3NjM1MC8xOTY1NjY0NS5qcGc=/500x/iUyXHb.jpg)
Título: Re:BASIC 10Liners
Publicado por: josepzin en Marzo 01, 2025, 03:32:23
Chase https://bunsen.itch.io/chase-c64-by-josip-retro-bits
(https://img.itch.zone/aW1hZ2UvMzM1NjMyOS8yMDAzODI4MC5naWY=/794x1000/icRd5g.gif)

Tiles https://bunsen.itch.io/tiles-c64-by-josip-retro-bits
(https://img.itch.zone/aW1hZ2UvMzM1NjMxMy8yMDAzODIwNi5wbmc=/794x1000/XQJ2jG.png)
Título: Re:BASIC 10Liners
Publicado por: josepzin en Abril 19, 2025, 13:47:11
No lo he visto todavía, pero este video creo que muestra todos los trabajos presentados en la edición 2025, y además en el lateral muestra información sobre qué sistema y cómo es el juego. Parece un video muy interesante.

Basic 10 Liner Contest 2025
https://www.youtube.com/watch?v=27fHeOmV9es (https://www.youtube.com/watch?v=27fHeOmV9es)
Título: Re:BASIC 10Liners
Publicado por: josepzin en Mayo 30, 2025, 22:53:18
Compilation Disk 2025 (C16/Plus/4/C64/VIC20) by RoePipi
https://bunsen.itch.io/compilation-disk-2025-c16plus4c64vic20-by-roepipi
(https://img.itch.zone/aW1hZ2UvMzUzNDkwNC8yMTA1MzA5OC5wbmc=/347x500/wNDUYi.png)
Título: Re:BASIC 10Liners
Publicado por: Bieno en Mayo 31, 2025, 12:11:26
Siempre me sorprende el rendimiento que le dan a 10 lineas en basic.
Título: Re:BASIC 10Liners
Publicado por: josepzin en Febrero 23, 2026, 01:19:16
Zezito vuelve en 10 lineas! @Iapetus
Lo estuve probando y está bueno.

Zezito Back to Basics (C64) by Iapetus
https://bunsen.itch.io/zezito-back-to-basics-c64-by-iapetus

(https://img.itch.zone/aW1nLzI1NzQ3MjczLnBuZw==/347x500/nY%2BB5q.png)
Título: Re:BASIC 10Liners
Publicado por: javierglez en Febrero 23, 2026, 13:27:10
Veo que lo ha presentado a la competición de este año, ya esta en marcha, se pueden enviar participaciones hasta el 22 de marzo, https://www.homeputerium.de/ (https://www.homeputerium.de/)

Este año por primera vez permite ordenadores de 16 bits con un bus de datos de 8:
- Texas Instruments TI 99/4A
- IBM PC Model 5150/5160
- IBM PCjr
- Tandy 1000/2000
- Sinclair QL
- Olivetti M20

Por cierto veo que hay una categoría PLUS que es brutal, 10 líneas de 256 caracteres (que no se pueden editar directamente en el C64), pero sobre todo te dejan cargar datos de gráficos, música y pantallas de presentación directamente desde el disco.
Título: Re:BASIC 10Liners
Publicado por: josepzin en Febrero 23, 2026, 15:28:50
pero sobre todo te dejan cargar datos de gráficos, música y pantallas de presentación directamente desde el disco.
Interesante esto, a ver qué consigue la gente.
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Febrero 24, 2026, 09:41:42
josepzin, gracias por probar el juego. Es la primera vez que programo algo en BASIC desde hace décadas. Ha sido un buen desafío.
Título: Re:BASIC 10Liners
Publicado por: Bieno en Febrero 24, 2026, 09:52:46
Buen juego y divertido. Teniendo en cuenta sus limitaciones, no necesita nada mas para pasar un buen rato.
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Febrero 24, 2026, 10:29:54
Muy guay @Iapetus !

Me alucina que se puedan hacer estos juegos. Tiene mucho mérito....a ver si tengo alguna iluminación y me animo!
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Febrero 24, 2026, 10:48:13
Buen juego y divertido. Teniendo en cuenta sus limitaciones, no necesita nada mas para pasar un buen rato.
Gracias, Bieno. Me alegro de que te haya gustado.
Las limitaciones son tremendas, y eso es precisamente lo que también le da interés al concurso, claro.
Por ejemplo, en las primeras versiones empecé con una en la que había creado dos caracteres: uno de ladrillos para la pared y otro para Zezito, pero luego no encontré manera de incluir parte de la lógica y tuve que usar PETSCII.
Muy guay @Iapetus !

Me alucina que se puedan hacer estos juegos. Tiene mucho mérito....a ver si tengo alguna iluminación y me animo!
Gracias SingletonJohn, animate que vale la pena, se pasa un buen rato creando y optimizando el código.
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 20, 2026, 05:47:53
Gracias SingletonJohn, animate que vale la pena, se pasa un buen rato creando y optimizando el código.
Al final me he animado y he presentado este jueguecillo! A ver qué os parece...

Para mi tiene mucho regustillo Spectrumero, pero creo que también hubo en tiempos versión para Commodore 64
Título: Re:BASIC 10Liners
Publicado por: Bieno en Marzo 20, 2026, 10:03:04
Muy chula esta versión tuya del buscaminas.
Me pasa algo curioso. Cuando lo listo, el "10" del final de la linea 5 desaparece y no los otros. Al menos en el listado .BAS si sale
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 20, 2026, 10:47:31
Muy chula esta versión tuya del buscaminas.
Me pasa algo curioso. Cuando lo listo, el "10" del final de la linea 5 desaparece y no los otros. Al menos en el listado .BAS si sale

Ya...eso es cosa de quitar espacios y usar abreviaciones. Al hacer LIST se despliega y desaparece ese 10....es curioso, es sólo en esa línea que pasan algunas cosas raras más, como que me añade un espacio entre el THEN y el CP....
Título: Re:BASIC 10Liners
Publicado por: Bieno en Marzo 20, 2026, 10:57:18
Exacto. Solo pasa en esa linea. Alguna otra mas larga queda inalterada. Que curioso.
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 20, 2026, 11:32:22
Creo que ya lo tengo! Era el GOTO....tuve que usar abreviatura {g + SHIFT-O}

Prueba cuando puedas/quieras! Versión DELUXE! ;P
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 20, 2026, 14:09:14
Esta es la versión "original" de Spectrum en la que me baso....con una línea más habría podido hacer el Instant Replay....

https://zxart.ee/spa/software/games/puzzle/mined-out/
Título: Re:BASIC 10Liners
Publicado por: Bieno en Marzo 20, 2026, 15:06:58
Creo que ya lo tengo! Era el GOTO....tuve que usar abreviatura {g + SHIFT-O}

Prueba cuando puedas/quieras! Versión DELUXE! ;P
Ahora mejor. En la anterior, cuando acababas, salías al basic. Ahora vuelves a comenzar.
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 20, 2026, 16:40:24
Ahora mejor. En la anterior, cuando acababas, salías al basic. Ahora vuelves a comenzar.

;P

Voy a dejar ya de enviar mejoras, que estoy mareando mucho! A lo hecho, pecho!
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 23, 2026, 09:59:14
Ahí vamos!!!!
Hay mucho juego ESPECTACULAR

https://bunsen.itch.io/miner-10-lines-commodore-64-by-juan-anton-angulo

Título: Re:BASIC 10Liners
Publicado por: Bieno en Marzo 24, 2026, 12:53:28
Ya tienes hasta crack del juego

(https://csdb.dk/gfx/releases/260000/260537.gif)

https://csdb.dk/release/?id=260537
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Marzo 24, 2026, 13:51:28
Ya tienes hasta crack del juego

Me fascinan los crackers del Commodore....tienen el crack antes ya de que termines las cosas!


jajajajaja...ocupa 10 veces más la presentación del crack que el juego!
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Marzo 28, 2026, 11:54:07
Enhorabuena, SingletonJohn. El juego está muy chulo; lo acabo de ver/jugar ahora!
Lo había visto en la web del concurso, pero no había asociado tu nombre a tu nick, claro.

Cuando publiqué mis primeros juegos —que son versiones para Spectrum de los Mojon Twins—, el tema de los cracks me dejó en shock, porque recibí varios emails de grupos pidiéndome el juego para ser los primeros en hacer el crack.
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Abril 05, 2026, 19:25:26
Mi juego ha quedado en puesto 17 de 30. Ha sido una experiencia muy interesante.
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Abril 05, 2026, 23:43:21
Mi juego ha quedado en puesto 17 de 30. Ha sido una experiencia muy interesante.

Felicidades @Iapetus !
El mío ha quedado en posición 26. Eso sí, APROBADO!

Ahora a ver si saco tiempo de jugar a todos!
Título: Re:BASIC 10Liners
Publicado por: Bieno en Abril 06, 2026, 09:14:16
Felicidades a los 2. Hacer algo minimamente jugable ya es un logro con la limitación que tenéis.

(https://i.ibb.co/HwXmCdb/10-lineas.jpg)
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Abril 06, 2026, 11:36:34
Felicidades @Iapetus !
El mío ha quedado en posición 26. Eso sí, APROBADO!

Ahora a ver si saco tiempo de jugar a todos!
Gracias, Enhorabuena @SingletonJohn!

Felicidades a los 2. Hacer algo minimamente jugable ya es un logro con la limitación que tenéis.
Gracias @Bieno. Seguro que voy a necesitar un montón de práctica y aprender nuevos trucos y técnicas para hacer algo más guay en 10 líneas en BASIC. jaja
Título: Re:BASIC 10Liners
Publicado por: josepzin en Abril 06, 2026, 12:51:00
A mi me parece magia lo que hacéis... asi que FELICITACIONES solo por participar creando un juego en 10 lineas!
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Abril 06, 2026, 13:38:23
Gracias @Iapetus , @Bieno y @josepzin !

Ahora hay que buscar sobre todo buenas ideas.....la verdad es que hay gente que hace pura magia
Título: Re:BASIC 10Liners
Publicado por: Iapetus en Abril 06, 2026, 16:49:13
Gracias @josepzin

@SingletonJohn  Tienes razón, ideas son algo muy importante para este tipo de juegos.

Otra cosa, en mi juego me olvidé completamente sobre la cuestión de sonido :P
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Abril 06, 2026, 21:40:27
Otra cosa, en mi juego me olvidé completamente sobre la cuestión de sonido :P

A mi no me cabía ya nada más.....claro que usé if´s para el movimiento, en vez de una expresión matemática
Título: Re:BASIC 10Liners
Publicado por: josepzin en Abril 08, 2026, 01:09:17
@SingletonJohn ¿porqué puede ser que tu juego se me quede en una pantalla en blanco?
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Abril 08, 2026, 11:05:05
@SingletonJohn ¿porqué puede ser que tu juego se me quede en una pantalla en blanco?

mmmm....se queda colgado? Ten en cuenta que el proceso de poner minas tarda un ratito
SI no es eso, descríbeme que es lo que hace para ver qué puede ser....
Título: Re:BASIC 10Liners
Publicado por: josepzin en Abril 08, 2026, 13:11:22
Ahh es ese tiempo de espera que parece eterno pero son unos segundos. Ya lo he probado y me gusta, es totalmente jugable, no entiendo como haceis para meter esas cosas en tan poco espacio.

Mis dobles felicitaciones, porque antes no lo había probado y solo lo hice para quedar bien, esta vez es auténtico :P
Título: Re:BASIC 10Liners
Publicado por: SingletonJohn en Abril 08, 2026, 15:56:09
Mis dobles felicitaciones, porque antes no lo había probado y solo lo hice para quedar bien, esta vez es auténtico :P

jajajajaj