Passend zum heutigen Rosenmontag, passend zur Tradition und passend zur aktuellen One-Liners-Compo präsentiert C128.Net: Konfetti OL. Dieses Programm ist nur auf einem Commodore 128 lauffähig, da es BASIC 7.0 Befehle und Eigenschaften nutzt.
Viele bunte, herabrieselnde Konfetti-Flocken (ASCII-Zeichensatz)
1 i$=chr$(19)+chr$(27)+"i":c=55296:color0,2:color4,2:graphic0,1:fori=1 to50:p=rnd(1)*800:poke1024+p,81:pokec+p,i:next:fori=0to256:printi$;:for j=1to3:p=rnd(1)*40:poke1024+p,81:pokec+p,i+jand255:next:i=iand255:next |
Hier das Programm als Einzeiler
1 i$=chr$(19)+chr$(27)+"i":c=55296:color0,2:color4,2:graphic0,1: fori=1to50:p=rnd(1)*800:poke1024+p,81:pokec+p,i:next |
Und auch als Zweizeiler (zum direkten Einkopieren nach VICE)