Commodore manía

Commodore 64 => Desarrollo => BASIC => Mensaje iniciado por: josepzin en Diciembre 04, 2022, 15:53:27

Título: BASIC demos
Publicado por: josepzin en Diciembre 04, 2022, 15:53:27
Publicadas en la Transmission64 3rd Edition (2022) https://csdb.dk/event/?id=3170

A Basic Groove
Código: [Seleccionar]
0s=54294:fOi=.to32:pOs+pE(41713+i)-83,pE(59686+i)+3:pOs-3,15:nE:pOs,pE(162):gOhttps://csdb.dk/release/?id=226320
(https://csdb.dk/gfx/releases/226000/226320.png)


It's A SIN
https://csdb.dk/release/?id=226341
(https://csdb.dk/gfx/releases/226000/226341.png)
Título: Re:BASIC demos
Publicado por: javierglez en Enero 20, 2023, 19:45:50
Eso más que una demo así en genérico es un one-liner (un programa de una línea).
El más típico es el del laberinto con las teclas / y \:
Código: [Seleccionar]
10 PRINT CHR$(205.5+RND(1)); : GOTO 10
Lo comento porque hoy he visto uno en tuiter que me ha hecho gracia:

https://twitter.com/BrianRoemmele/status/1616099386119065604

Código: [Seleccionar]
1?chr$(18)" {crsrl}";:printmid$("{crsrr}{crsrl}{crsru}{crsrd}",rnd(ti)*4+1,1);:poke646,rnd(.)*256:goto1
(Veo que el tipo ha escrito "para VIC20" y luego lo ha ejecutado en un C64, es posible que en un VIC20 funcione también pero sólo con 8 colores)
Título: Re:BASIC demos
Publicado por: javierglez en Febrero 20, 2023, 19:56:50
El Robin de 8 bit Show n'Tell explica como han logrado reducir un programa que le hacía gracia, cortito pero de 5 lineas, a una sola linea a base de trucos
https://www.youtube.com/watch?v=VC-lbd8mTOs (https://www.youtube.com/watch?v=VC-lbd8mTOs)
Título: Re:BASIC demos
Publicado por: josepzin en Febrero 20, 2023, 21:31:04
Commodore 64 nunca deja de sorprender.
Título: Re:BASIC demos
Publicado por: javierglez en Noviembre 12, 2023, 02:32:17
Otro video interesante sobre oneliners de la mano de Josip Retro Bits.

https://www.youtube.com/watch?v=pDslHkD8UeA (https://www.youtube.com/watch?v=pDslHkD8UeA)

Os pego tambien el codigo de los oneliners que explica. Recordad que si quereis podeis copiar el codigo aqui y pegarlo en el vice.
Código: [Seleccionar]
10 printchr$(147+a);:a=58.5+rnd(.):goto10
Código: [Seleccionar]
0 a=1-a*(a<41):printchr$(149+(aand7))chr$(205+(aand3));:poke199,a:goto
Código: [Seleccionar]
0 a=781:b=1024:c=59923:d=999:g=29:fori=0tod:pokea,peek(b+i):sysc:printchr$(g);:next:goto