Autor Tema: BASIC demos  (Leído 684 veces)

josepzin

  • Administrador
  • Commodore Master
  • *****
  • Mensajes: 13741
  • Commodoreador web
    • Ver Perfil
    • Mi blog
BASIC demos
« 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



It's A SIN
https://csdb.dk/release/?id=226341
www.retroinvaders.com | www.commodoreplus.org  | josepzin.blogspot.com

javierglez

  • Commodore Master
  • *****
  • Mensajes: 463
  • terminator not seen
    • Ver Perfil
Re:BASIC demos
« Respuesta #1 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)
« última modificación: Enero 20, 2023, 19:48:17 por javierglez »

javierglez

  • Commodore Master
  • *****
  • Mensajes: 463
  • terminator not seen
    • Ver Perfil
Re:BASIC demos
« Respuesta #2 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

josepzin

  • Administrador
  • Commodore Master
  • *****
  • Mensajes: 13741
  • Commodoreador web
    • Ver Perfil
    • Mi blog
Re:BASIC demos
« Respuesta #3 en: Febrero 20, 2023, 21:31:04 »
Commodore 64 nunca deja de sorprender.
www.retroinvaders.com | www.commodoreplus.org  | josepzin.blogspot.com

javierglez

  • Commodore Master
  • *****
  • Mensajes: 463
  • terminator not seen
    • Ver Perfil
Re:BASIC demos
« Respuesta #4 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

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